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))) (>> (lit str) (pure sym)))
|# |#
(define (eof s) (define eof
(if (zero? (string-length s)) (lambda (st)
(values #t #t "") (if (zero? (string-length (st-input st)))
(error-m (dsp "eof expected no input (but there was)")))) (values #t st)
(error-m (dsp "eof expected no input (but there was)")))))
;;---------------------------------------------------------------- ;;----------------------------------------------------------------
;; Imperative notation for when the combinators are cumbersome ;; Imperative notation for when the combinators are cumbersome