Ticket #977: parse-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 . args)
+  (signal (make-composite-condition
+           (make-property-condition 'ssax)
+           (make-property-condition 'parse-error 'message args))))
 
 (define (ssax:warn port msg . other-msg)
   (apply cerr (cons* nl "Warning: " msg other-msg)))