emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional tests] Fix bug in return type of parser-combinators/eof

Browse Source
This commit is contained in:
Joe Thornber 2017-09-14 11:44:01 +01:00
parent 111d64ec9e
commit f756ff02df
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
functional-tests/parser-combinators.scm
View File

@ -322,10 +322,11 @@
(>> (lit str) (pure sym)))
|#
(define (eof s)
(if (zero? (string-length s))
(values #t #t "")
(error-m (dsp "eof expected no input (but there was)"))))
(define eof
(lambda (st)
(if (zero? (string-length (st-input st)))
(values #t st)
(error-m (dsp "eof expected no input (but there was)")))))
;;----------------------------------------------------------------
;; Imperative notation for when the combinators are cumbersome