suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed omitted return value for terminals

Browse Source 
svn: r14982
This commit is contained in:
Kathy Gray 2009-05-25 15:00:09 +00:00
parent 4a6eaa1dd5
commit 3906598b7e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/combinator-parser/private-combinator/combinator.scm
View File

@ -103,7 +103,8 @@
[(class? curr-input) (values rank-class 'missclass 1)] [(class? curr-input) (values rank-class 'missclass 1)]
[else (values rank-wrong 'wrong 0)])]) [else (values rank-wrong 'wrong 0)])])
(make-fail chance name kind curr-input may-use)))]))])]) (make-fail chance name kind curr-input may-use)))]))])])
(weak-map-put! memo-table input result))]))))) (weak-map-put! memo-table input result)
result)])))))
;seq: ( (list ((list 'a) -> res)) ((list 'b) -> 'c) string -> ((list 'a) -> result) ;seq: ( (list ((list 'a) -> res)) ((list 'b) -> 'c) string -> ((list 'a) -> result)
(define seq (define seq
@ -366,7 +367,7 @@
(let loop ([next-res (next-opt fst)]) (let loop ([next-res (next-opt fst)])
(when next-res (loop (next-opt fst))))] (when next-res (loop (next-opt fst))))]
[else correct-rsts]))] [else correct-rsts]))]
[else (error 'here3)]))])))]) [else (error 'here3 (format "~a" fst))]))])))])
walker)) walker))
;get-fail-info: fail-type -> (values symbol 'a 'b) ;get-fail-info: fail-type -> (values symbol 'a 'b)