tuple-arrays: cleanup

db4
Slava Pestov 2010-02-02 06:20:25 +13:00
parent f8474c3856
commit 7e64810a00
1 changed files with 1 additions and 3 deletions

View File

@ -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