Ticket #977: ssax-parser-error.diff

ssax-chicken.scm

@@ -33 +33 @@
   (core:assert (= k 1) "attempt to call ssax:make-string with k != 1")
   (string x))
 
-(define parser-error error)
+(define (parser-error port msg . specialising-msg*)
+  (signal (make-composite-condition
+           (make-property-condition 'ssax)
+           (make-property-condition 'parser-error)
+           (make-property-condition 'exn 'message msg 'arguments specialising-msg*))))
 
 (define (ssax:warn port msg . other-msg)
   (apply cerr (cons* nl "Warning: " msg other-msg)))