Remove debug code

diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor
index 712e1528cd9c8ea50f18bd47681bf95a43dc49e0..395d5c3cafda80e4607c852cd7d321d5066f8c92 100755 (executable)
--- a/basis/fry/fry.factor
+++ b/basis/fry/fry.factor
@@ -21,7 +21,6 @@ DEFER: shallow-fry
 : (shallow-fry) ( accum quot -- result )
     [ 1quotation ] [
         unclip {
-            { \ , [ "Oops!!" throw ] }
             { \ _ [ [ curry ] ((shallow-fry)) ] }
             { \ @ [ [ compose ] ((shallow-fry)) ] }
             [ swap >r suffix r> (shallow-fry) ]
@@ -30,12 +29,12 @@ DEFER: shallow-fry
 
 : shallow-fry ( quot -- quot' ) [ ] swap (shallow-fry) ;
 
-PREDICATE: fry-specifier < word { _ @ , } memq? ;
+PREDICATE: fry-specifier < word { _ @ } memq? ;
 
 GENERIC: count-inputs ( quot -- n )
 
 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 ;
 
 PRIVATE>