18 lines
479 B
Factor
18 lines
479 B
Factor
USING: accessors debugger io kernel math.parser peg prettyprint
|
|
sequences ;
|
|
IN: peg.debugger
|
|
|
|
M: parse-error error.
|
|
[
|
|
"Peg parsing error at character position " write
|
|
position>> number>string write
|
|
] [
|
|
".\nExpected " write messages>> " or " join write
|
|
] [
|
|
"\nGot '" write got>> write "'" print
|
|
] tri ;
|
|
|
|
M: parse-failed error.
|
|
"The " write dup word>> pprint " word could not parse the following input:" print nl
|
|
input>> . ;
|