nyacc: exceptions worked on.. still need to fix #
[mes.git] / module / nyacc / lang / c99 / parser.scm
index 4b5665597b0eae7084299534d81c6d93622c4d18..09742dd70b54e04ca9f650b93248f3337061d198 100644 (file)
                           (cons 'rto-v rto-v) (cons 'mtab mtab)
                           (cons 'act-v act-v)))))
     (lambda* (lexer #:key (debug #f))
-
-      (with-throw-handler
+      (catch
        'nyacc-error
        (lambda () (c99-parser lexer #:debug debug))
-       (lambda (key fmt . args) (apply throw 'c99-error fmt args)))
+       (lambda (key fmt . args)
+        (report-error fmt args)
+        (pop-input)                    ; not sure this is the right way
+        (throw 'c99-error "C99 parse error")))
       )))
 
 ;; This is used to parse included files at top level.