Commits

Anonymous committed c122475

compile time check for some errors

  • Participants
  • Parent commits 038b4a3

Comments (0)

Files changed (1)

File bitstring.scm

       	           (name (bitstring-read stream bits)))
           ;(print "read-expand: " `(name bits type) " rest: " `continuation)         
       	  continuation)
-        (error 'bitstring-invalid-value `(name))))
+        (syntax-error "not a symbol name" `name)))
     ((_ "read" stream name bits type continuation)
       (symbol?? name
       	(and-let* ((tmp (bitstring-read stream bits))
     ((_ tmp bits host unsigned)
       (integer->bitstring-host tmp bits))
     ((_ tmp bits ENDIAN SIGNED)
-      (error "invalid integer attibute" `ENDIAN `SIGNED))))
+      (syntax-error "invalid integer attibute" `ENDIAN `SIGNED))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;