tuple-arrays: cleanup
parent
f8474c3856
commit
7e64810a00
|
@ -10,9 +10,7 @@ IN: tuple-arrays
|
||||||
|
|
||||||
MACRO: boa-unsafe ( class -- quot ) tuple-layout '[ _ <tuple-boa> ] ;
|
MACRO: boa-unsafe ( class -- quot ) tuple-layout '[ _ <tuple-boa> ] ;
|
||||||
|
|
||||||
MACRO: infer-in ( class -- quot ) inputs '[ _ ] ;
|
: tuple-arity ( class -- quot ) '[ _ boa ] inputs ; inline
|
||||||
|
|
||||||
: tuple-arity ( class -- quot ) '[ _ boa ] infer-in ; inline
|
|
||||||
|
|
||||||
: smart-tuple>array ( tuple class -- array )
|
: smart-tuple>array ( tuple class -- array )
|
||||||
'[ [ _ boa ] undo ] output>array ; inline
|
'[ [ _ boa ] undo ] output>array ; inline
|
||||||
|
|
Loading…
Reference in New Issue