some bug fixes

db4
Sascha Matzke 2009-05-07 12:01:01 +02:00
parent 1e7506f7c1
commit d047c5110f
2 changed files with 4 additions and 2 deletions

View File

@ -92,6 +92,8 @@ GENERIC: mdb-index-map ( tuple -- sequence )
[ ] [ name>> ] bi H{ } clone [ set-at ] keep [ ] [ name>> ] bi H{ } clone [ set-at ] keep
] [ 2drop H{ } clone ] if ; ] [ 2drop H{ } clone ] if ;
PRIVATE> PRIVATE>
: MDB_ADDON_SLOTS ( -- slots ) : MDB_ADDON_SLOTS ( -- slots )
@ -116,7 +118,7 @@ PRIVATE>
[ drop MDB_USER_KEY set-word-prop ] [ 3drop ] if ; inline [ drop MDB_USER_KEY set-word-prop ] [ 3drop ] if ; inline
: set-index-map ( class index-list -- ) : set-index-map ( class index-list -- )
[ [ dup user-defined-key-index ] dip index-list>map ] output>sequence [ dup user-defined-key-index ] dip index-list>map 2array
assoc-combine MDB_INDEX_MAP set-word-prop ; inline assoc-combine MDB_INDEX_MAP set-word-prop ; inline
M: tuple-class tuple-collection ( tuple -- mdb-collection ) M: tuple-class tuple-collection ( tuple -- mdb-collection )

View File

@ -69,7 +69,7 @@ PRIVATE>
: insert-tuple ( tuple -- ) : insert-tuple ( tuple -- )
[ tuple-collection name>> ] [ tuple-collection name>> ]
[ tuple>assoc ] bi [ tuple>assoc ] bi
<mdb-insert-msg> save ; save ;
: delete-tuple ( tuple -- ) : delete-tuple ( tuple -- )
[ tuple-collection name>> ] keep [ tuple-collection name>> ] keep