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

fix expected error message on redefinitions

Browse Source 
svn: r7954
This commit is contained in:
Eli Barzilay 2007-12-11 11:57:35 +00:00
parent 41133f5341
commit d2f12f294c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mzscheme/sandbox.ss
View File

@ -211,7 +211,7 @@
--top-- --top--
(set! ev (make-evaluator 'mzscheme '() '(define x (+ 1 2 3)))) (set! ev (make-evaluator 'mzscheme '() '(define x (+ 1 2 3))))
--eval-- --eval--
(define x (+ x 10)) =err> "cannot change identifier" (define x (+ x 10)) =err> "cannot re-define a constant"
;; whole program argument ;; whole program argument
--top-- --top--
@ -222,7 +222,7 @@
(set! ev (make-evaluator '(module foo mzscheme (provide x) (define x 1)))) (set! ev (make-evaluator '(module foo mzscheme (provide x) (define x 1))))
--eval-- --eval--
x => 1 x => 1
(define x 2) =err> "cannot change identifier" (define x 2) =err> "cannot re-define a constant"
;; limited FS access, allowed for requires ;; limited FS access, allowed for requires
--top-- --top--