Ticket #980: parse-input.diff

input-parse-chicken.scm

@@ -14 +14 @@
 (define char-tab (ascii->char 9))
 (define char-newline (ascii->char 10))
 
-(define parser-error error)
+(define (parser-error port msg . specialising-msg*)
+  (signal
+   (make-composite-condition
+    (make-property-condition 'input-parse)
+    (make-property-condition 'parse-error)
+    (make-property-condition 'exn 'message msg 'arguments specialising-msg*))))
 
 (include "myenv-chicken.scm")
 (include "input-parse.scm")
 
-)
- No newline at end of file
+)