Improved error message

This commit is contained in:
Jens Axel Søgaard 2012-07-02 12:40:36 +02:00
parent 3360a1a221
commit 755b5e2b93

View File

@ -236,7 +236,7 @@
[(reserved? u) 'reserved]
[(symbolic-id? u) 'symbolic-id]
[(list? u) (operator u)]
[else (error 'kind "Internal error: Unhandled simplified expression type: " u)]))
[else (error 'kind "Internal Bracket Error: Unhandled simplified expression type: " u)]))
(define (complete-sub-expressions u)
; return a list of all complete sub-expressions of u