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

View File

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

View File

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

View File

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