basis/peg/debugger/debugger.factor

   1 USING: io kernel accessors math.parser sequences prettyprint
   2 debugger peg ;
   3 IN: peg.debugger
   4
   5 M: parse-error error.
   6   "Peg parsing error at character position " write dup position>> number>string write
   7   "." print "Expected " write messages>> [ " or " write ] [ write ] interleave nl ;
   8
   9 M: parse-failed error.
  10   "The " write dup word>> pprint " word could not parse the following input:" print nl
  11   input>> . ;
  12