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

mirrors: fix assoc-size for non-tuple-classes.

db4
John Benediktsson 2013-04-23 07:55:03 -07:00
parent af384e91d0
commit 6bac58fa97
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/mirrors/mirrors.factor
View File

@ -51,7 +51,8 @@ M: mirror values ( mirror -- values )
[ object-slots ] [ object>> ] bi [ object-slots ] [ object>> ] bi
'[ offset>> _ swap slot ] map ; '[ offset>> _ swap slot ] map ;
M: mirror assoc-size object>> layout-of second ; M: mirror assoc-size
object>> class-of class-size ;
INSTANCE: mirror assoc INSTANCE: mirror assoc
@ -60,7 +61,6 @@ INSTANCE: array inspected-sequence
INSTANCE: vector inspected-sequence INSTANCE: vector inspected-sequence
INSTANCE: callable inspected-sequence INSTANCE: callable inspected-sequence
INSTANCE: byte-array inspected-sequence INSTANCE: byte-array inspected-sequence
INSTANCE: string inspected-sequence
GENERIC: make-mirror ( obj -- assoc ) GENERIC: make-mirror ( obj -- assoc )
M: hashtable make-mirror ; M: hashtable make-mirror ;