iCVS: ----------------------------------------------------------------------

original commit: 079cdb6c431cab3617150ebfec7c94b4b896e212
tokens
Scott Owens 22 years ago
parent 8403dd10d2
commit 0a5d3bd5f1

@ -282,8 +282,8 @@
token-index) token-index)
(begin (begin
(if src-pos (if src-pos
(err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip)) (err #f (token-name tok) (token-value tok) (cadr ip) (caddr ip))
(err #t (token-name tok) (token-value tok))) (err #f (token-name tok) (token-value tok)))
(raise-read-error (format "parser: got token of unknown type ~a" (token-name tok)) (raise-read-error (format "parser: got token of unknown type ~a" (token-name tok))
#f #f #f #f #f))))))) #f #f #f #f #f)))))))
(lambda (get-token) (lambda (get-token)

Loading…
Cancel
Save