use ``tuple-slots`` instead of ``tuple>array rest``.
parent
cc8ba65558
commit
1f607f0573
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue