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

modified version

db4
Sascha Matzke 2008-12-27 12:11:15 +01:00
parent 752c637cb8
commit 34bf034b92
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mongodb/persistent/persistent.factor
View File

@ -40,3 +40,13 @@ M: tuple-class persistent-tuple-class ( class -- class' )
[ "%s_%s" sprintf ] dip swap dup ! class new_name new_name [ "%s_%s" sprintf ] dip swap dup ! class new_name new_name
P_VOCAB lookup dup ! class new_name vo/f vo/f P_VOCAB lookup dup ! class new_name vo/f vo/f
[ [ drop drop ] dip ] [ drop define-persistent-tuple ] if ; [ [ drop drop ] dip ] [ drop define-persistent-tuple ] if ;
GENERIC: make-persistent ( tuple -- 'tuple )
M: tuple make-persistent ( tuple -- 'tuple )
[let* | tuple [ ]
class [ tuple class ]
'tuple [ class persistent-tuple-class new ] |
] ;