From 7e64810a003bdb14e612e03709061aa272312e8b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 2 Feb 2010 06:20:25 +1300 Subject: [PATCH] tuple-arrays: cleanup --- basis/tuple-arrays/tuple-arrays.factor | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/basis/tuple-arrays/tuple-arrays.factor b/basis/tuple-arrays/tuple-arrays.factor index 1bc6270524..aea51f7820 100644 --- a/basis/tuple-arrays/tuple-arrays.factor +++ b/basis/tuple-arrays/tuple-arrays.factor @@ -10,9 +10,7 @@ IN: tuple-arrays MACRO: boa-unsafe ( class -- quot ) tuple-layout '[ _ ] ; -MACRO: infer-in ( class -- quot ) inputs '[ _ ] ; - -: tuple-arity ( class -- quot ) '[ _ boa ] infer-in ; inline +: tuple-arity ( class -- quot ) '[ _ boa ] inputs ; inline : smart-tuple>array ( tuple class -- array ) '[ [ _ boa ] undo ] output>array ; inline