andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

refactor for error handling

This commit is contained in:
Rutger van Beusekom 2016-09-20 13:04:31 +02:00
parent ad4098e4a4
commit 72397d937e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sh/peg.scm
View File

@ -83,11 +83,12 @@
ws < sp / nl ws < sp / nl
") ")
(let ((match (match-pattern script input))) (let* ((match (match-pattern script input))
(tree (peg:tree match)))
(if (not (eq? (string-length input) (peg:end match))) (if (not (eq? (string-length input) (peg:end match)))
(let ((tree (peg:tree match))) (begin
(pretty-print (peg:tree match)) (pretty-print tree)
(pretty-print "parse error" (current-error-port)) (pretty-print "parse error" (current-error-port))
(pretty-print (peg:end match)) (pretty-print (peg:end match))
#f) #f)
(peg:tree match)))) tree)))