 debugger io vectors arrays math.parser math.order
 vectors combinators classes sets unicode.categories
 compiler.units parser words quotations effects memoize accessors
-locals effects splitting combinators.short-circuit
-combinators.short-circuit.smart generalizations ;
+locals effects splitting combinators.short-circuit generalizations ;
 IN: peg
 
 USE: prettyprint

  #! Work through all delayed parsers and recompile their
  #! words to have the correct bodies.
  delayed get [
    call compile-parser 1quotation 0 1 <effect> define-declared
  ] assoc-each ;

: compile ( parser -- word )

    [
      parsers>> [ compile-parser ] map 
      unclip 1quotation , [ 1quotation [ merge-errors ] compose , ] each
    ] { } make , \ 0|| ,
  ] [ ] make ;

TUPLE: repeat0-parser p1 ;
