From 8777d89eaf51a3dfb08a1dff5baff407d91b6a32 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 6 Jan 2019 10:09:41 -0700 Subject: [PATCH] cs: fix exception raised by `check-not-unsafe-undefined` --- racket/src/cs/rumble/unsafe.ss | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/racket/src/cs/rumble/unsafe.ss b/racket/src/cs/rumble/unsafe.ss index 354fe5ce8b..9ba09cecf2 100644 --- a/racket/src/cs/rumble/unsafe.ss +++ b/racket/src/cs/rumble/unsafe.ss @@ -151,10 +151,20 @@ (define (check-not-unsafe-undefined v sym) (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) (define (check-not-unsafe-undefined/assign v sym) (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)