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

use ``tuple-slots`` instead of ``tuple>array rest``.

db4
John Benediktsson 2014-05-23 13:27:59 -07:00
parent cc8ba65558
commit 1f607f0573
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/inverse/inverse.factor
View File

@ -259,7 +259,7 @@ DEFER: __
: empty-inverse ( class -- quot ) : empty-inverse ( class -- quot )
deconstruct-pred deconstruct-pred
[ tuple>array rest [ ] any? [ fail ] when ] [ tuple-slots [ ] any? [ fail ] when ]
compose ; compose ;
\ new 1 [ ?wrapped empty-inverse ] define-pop-inverse \ new 1 [ ?wrapped empty-inverse ] define-pop-inverse

2
basis/serialize/serialize.factor
View File

@ -93,7 +93,7 @@ M: tuple (serialize) ( obj -- )
CHAR: T write1 CHAR: T write1
[ class-of (serialize) ] [ class-of (serialize) ]
[ add-object ] [ add-object ]
[ tuple>array rest (serialize) ] [ tuple-slots (serialize) ]
tri tri
] serialize-shared ; ] serialize-shared ;

2
extra/graphviz/dot/dot.factor
View File

@ -51,7 +51,7 @@ M: subgraph dot.
: attributes. ( attrs -- ) : attributes. ( attrs -- )
"[" write "[" write
[ class-of "slots" word-prop ] [ tuple>array rest ] bi [ class-of "slots" word-prop ] [ tuple-slots ] bi
[ [ name>> ] dip attribute, ] 2each [ [ name>> ] dip attribute, ] 2each
"]" write ; "]" write ;