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

struct mirrors were not ready yet

db4
Doug Coleman 2009-08-31 19:10:48 -05:00
parent 80e2feacd9
commit 3d975ea7ab
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/mirrors/mirrors.factor
View File

@ -3,7 +3,8 @@
USING: accessors arrays assocs classes classes.struct USING: accessors arrays assocs classes classes.struct
classes.struct.prettyprint.private classes.tuple classes.struct.prettyprint.private classes.tuple
classes.tuple.private combinators generic hashtables kernel classes.tuple.private combinators generic hashtables kernel
math quotations sequences slots slots.private vectors words ; math quotations sequences slots slots.private vectors words
continuations fry ;
IN: mirrors IN: mirrors
TUPLE: mirror { object read-only } ; TUPLE: mirror { object read-only } ;
@ -55,6 +56,3 @@ M: array make-mirror <enum> ;
M: vector make-mirror <enum> ; M: vector make-mirror <enum> ;
M: quotation make-mirror <enum> ; M: quotation make-mirror <enum> ;
M: object make-mirror <mirror> ; M: object make-mirror <mirror> ;
M: struct make-mirror struct>assoc
[ [ [ name>> ] [ c-type>> ] bi 2array ] dip ] assoc-map ;