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

Remove debug code

db4
Slava Pestov 2008-09-11 00:36:55 -05:00
parent 265df0ed24
commit ff97d589c9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/fry/fry.factor
View File

@ -21,7 +21,6 @@ DEFER: shallow-fry
: (shallow-fry) ( accum quot -- result ) : (shallow-fry) ( accum quot -- result )
[ 1quotation ] [ [ 1quotation ] [
unclip { unclip {
{ \ , [ "Oops!!" throw ] }
{ \ _ [ [ curry ] ((shallow-fry)) ] } { \ _ [ [ curry ] ((shallow-fry)) ] }
{ \ @ [ [ compose ] ((shallow-fry)) ] } { \ @ [ [ compose ] ((shallow-fry)) ] }
[ swap >r suffix r> (shallow-fry) ] [ swap >r suffix r> (shallow-fry) ]
@ -30,12 +29,12 @@ DEFER: shallow-fry
: shallow-fry ( quot -- quot' ) [ ] swap (shallow-fry) ; : shallow-fry ( quot -- quot' ) [ ] swap (shallow-fry) ;
PREDICATE: fry-specifier < word { _ @ , } memq? ; PREDICATE: fry-specifier < word { _ @ } memq? ;
GENERIC: count-inputs ( quot -- n ) GENERIC: count-inputs ( quot -- n )
M: callable count-inputs [ count-inputs ] sigma ; M: callable count-inputs [ count-inputs ] sigma ;
M: fry-specifier count-inputs \ , eq? [ "Oops!!" throw ] when 1 ; M: fry-specifier count-inputs drop 1 ;
M: object count-inputs drop 0 ; M: object count-inputs drop 0 ;
PRIVATE> PRIVATE>