combinators.smart: remove boa-preserving

diff --git a/basis/combinators/smart/smart-docs.factor b/basis/combinators/smart/smart-docs.factor
index fd30bedc8b28f3348f4e2c9502af36dc1d7c0dd0..22cf21c0e7552efacbac3009b27be8f6247d9841 100644 (file)
--- a/basis/combinators/smart/smart-docs.factor
+++ b/basis/combinators/smart/smart-docs.factor
@@ -116,27 +116,6 @@ HELP: keep-inputs
 
 { drop-outputs keep-inputs } related-words
 
-HELP: boa-preserving
-{ $values
-    { "tuple-class" tuple-class }
-    { "quot" quotation }
-}
-{ $description "Constructs a tuple using a boa construtor and keeps the objects on the stack. The tuple will be at the top of the stack." }
-{ $examples
-    { $example
-        """USING: colors combinators.smart kernel prettyprint ;
-IN: combinators.smart.tests
-TUPLE: painting title artist ;
-"L'Origine du monde" "Courbet" painting boa-preserving [ . ] tri@ """
-""""L'Origine du monde"
-"Courbet"
-T{ painting
-    { title "L'Origine du monde" }
-    { artist "Courbet" }
-}"""
-    }
-} ;
-
 HELP: dropping
 { $values
     { "quot" quotation }
@@ -285,10 +264,6 @@ ARTICLE: "combinators.smart" "Smart combinators"
     append-outputs
     append-outputs-as
 }
-"Constructing tuples:"
-{ $subsections
-    boa-preserving
-}
 "Drop the outputs after calling a quotation:"
 { $subsections drop-outputs }
 "Cause a quotation to act as a no-op and drop the inputs:"

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index d2d9389c44b898005746f8869181e09a24e68047..a350d0a72b80f6544763ac88c57edf72fc1e4cfd 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -46,9 +46,6 @@ MACRO: append-outputs ( quot -- seq )
 MACRO: preserving ( quot -- )
     [ inputs ] keep '[ _ ndup @ ] ;
 
-MACRO: boa-preserving ( tuple-class -- )
-    '[ [ _ boa ] preserving ] ;
-
 MACRO: dropping ( quot -- quot' )
     inputs '[ [ _ ndrop ] ] ;