suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix exception raised by check-not-unsafe-undefined

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-06 10:09:41 -07:00
parent 09d25777d6
commit 8777d89eaf
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
racket/src/cs/rumble/unsafe.ss
View File

@ -151,10 +151,20 @@
(define (check-not-unsafe-undefined v sym) (define (check-not-unsafe-undefined v sym)
(when (eq? v unsafe-undefined) (when (eq? v unsafe-undefined)
(raise-arguments-error sym "undefined;\n cannot use before initialization")) (raise (|#%app|
exn:fail:contract:variable
(string-append (symbol->string sym)
": undefined;\n cannot use before initialization")
(current-continuation-marks)
sym)))
v) v)
(define (check-not-unsafe-undefined/assign v sym) (define (check-not-unsafe-undefined/assign v sym)
(when (eq? v unsafe-undefined) (when (eq? v unsafe-undefined)
(raise-arguments-error sym "assignment disallowed;\n cannot assign before initialization")) (raise (|#%app|
exn:fail:contract:variable
(string-append (symbol->string sym)
": assignment disallowed;\n cannot assign before initialization")
(current-continuation-marks)
sym)))
v) v)