steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

combinators.smart: remove boa-preserving

db4
Slava Pestov 2010-06-23 21:10:46 -04:00
parent 3560b93329
commit 50323dda6d
2 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
basis/combinators/smart/smart-docs.factor
View File

@ -116,27 +116,6 @@ HELP: keep-inputs
{ drop-outputs keep-inputs } related-words { 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 HELP: dropping
{ $values { $values
{ "quot" quotation } { "quot" quotation }
@ -285,10 +264,6 @@ ARTICLE: "combinators.smart" "Smart combinators"
append-outputs append-outputs
append-outputs-as append-outputs-as
} }
"Constructing tuples:"
{ $subsections
boa-preserving
}
"Drop the outputs after calling a quotation:" "Drop the outputs after calling a quotation:"
{ $subsections drop-outputs } { $subsections drop-outputs }
"Cause a quotation to act as a no-op and drop the inputs:" "Cause a quotation to act as a no-op and drop the inputs:"

3
basis/combinators/smart/smart.factor
View File

@ -46,9 +46,6 @@ MACRO: append-outputs ( quot -- seq )
MACRO: preserving ( quot -- ) MACRO: preserving ( quot -- )
[ inputs ] keep '[ _ ndup @ ] ; [ inputs ] keep '[ _ ndup @ ] ;
MACRO: boa-preserving ( tuple-class -- )
'[ [ _ boa ] preserving ] ;
MACRO: dropping ( quot -- quot' ) MACRO: dropping ( quot -- quot' )
inputs '[ [ _ ndrop ] ] ; inputs '[ [ _ ndrop ] ] ;