steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tokyo.assoc-functor: fix load error (:: and M:: cannot be used in functor bodies)

db4
Slava Pestov 2009-11-06 04:26:25 -06:00
parent 4f704a7ad3
commit ad29cb21f9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/tokyo/assoc-functor/assoc-functor.factor
View File

@ -44,11 +44,11 @@ M: TYPE assoc-size ( db -- size ) handle>> DBRNUM ;
M: TYPE >alist ( db -- alist )
[ DBKEYS dup ] keep '[ dup _ at 2array ] map! drop ;
M:: TYPE set-at ( value key db -- )
db handle>> key value [ object>bytes dup length ] bi@ DBPUT drop ;
M: TYPE set-at ( value key db -- )
handle>> swap rot [ object>bytes dup length ] bi@ DBPUT drop ;
M:: TYPE delete-at ( key db -- )
db handle>> key object>bytes dup length DBOUT drop ;
M: TYPE delete-at ( key db -- )
handle>> swap object>bytes dup length DBOUT drop ;
M: TYPE clear-assoc ( db -- ) handle>> DBVANISH drop ;