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

Resolve more add/add* items

db4
Eduardo Cavazos 2008-03-31 20:05:06 -06:00
parent 4f07aefc97
commit cc5ddd8d78
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/bootstrap/image/image.factor
View File

@ -305,7 +305,7 @@ M: float-array ' float-array emit-dummy-array ;
! Tuples ! Tuples
: (emit-tuple) ( tuple -- pointer ) : (emit-tuple) ( tuple -- pointer )
[ tuple>array 1 tail-slice ] [ tuple>array 1 tail-slice ]
[ class transfer-word tuple-layout ] bi add* [ ' ] map [ class transfer-word tuple-layout ] bi prefix [ ' ] map
tuple type-number dup [ emit-seq ] emit-object ; tuple type-number dup [ emit-seq ] emit-object ;
: emit-tuple ( tuple -- pointer ) : emit-tuple ( tuple -- pointer )

2
core/classes/tuple/tuple.factor
View File

@ -130,7 +130,7 @@ PRIVATE>
] with each ; ] with each ;
: all-slot-names ( class -- slots ) : all-slot-names ( class -- slots )
superclasses [ slot-names ] map concat \ class add* ; superclasses [ slot-names ] map concat \ class prefix ;
: compute-slot-permutation ( class old-slot-names -- permutation ) : compute-slot-permutation ( class old-slot-names -- permutation )
>r all-slot-names r> [ index ] curry map ; >r all-slot-names r> [ index ] curry map ;