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

peg.debugger: don't use formatting.

db4
John Benediktsson 2014-10-23 12:01:51 -07:00
parent 3ed3e10074
commit e9ed1f3a72
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/peg/debugger/debugger.factor
View File

@ -1,12 +1,17 @@
USING: formatting io kernel accessors math.parser sequences prettyprint USING: accessors debugger io kernel math.parser peg prettyprint
debugger peg ; sequences ;
IN: peg.debugger IN: peg.debugger
M: parse-error error. M: parse-error error.
[ position>> ] [ messages>> " or " join ] [ got>> ] tri [
"Peg parsing error at character position %d.\nExpected %s\nGot '%s'\n" "Peg parsing error at character position " write
printf ; position>> number>string write
] [
".\nExpected " write messages>> " or " join write
] [
"\nGot '" write got>> write "'" print
] tri ;
M: parse-failed error. M: parse-failed error.
"The " write dup word>> pprint " word could not parse the following input:" print nl "The " write dup word>> pprint " word could not parse the following input:" print nl