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

fix ASL `(begin0)' error message

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-07 10:52:06 -06:00
parent 917d190877
commit 2840e2367b
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lang/private/teach.rkt
View File

@ -2515,7 +2515,7 @@
(syntax-case stx ()
[(_)
(teach-syntax-error
'begin
'begin0
stx
#f
"expected at least one expression after begin0, but nothing's there")]

2
collects/tests/htdp-lang/advanced.rktl
View File

@ -55,7 +55,7 @@
(htdp-top-pop 1)
(htdp-syntax-test #'begin0 "begin0: expected an open parenthesis before begin0, but found none")
(htdp-syntax-test #'(begin0) "begin: expected at least one expression after begin0, but nothing's there")
(htdp-syntax-test #'(begin0) "begin0: expected at least one expression after begin0, but nothing's there")
(htdp-test 1 'begin0 (begin0 1))
(htdp-test 2 'begin0 (begin0 2 1))

3
collects/tests/htdp-lang/beginner.rktl
View File

@ -97,5 +97,4 @@
(htdp-syntax-test #''(1 2) "quote: expected the name of the symbol after the quote, but found a part")
(htdp-syntax-test #'''a "quote: expected the name of the symbol after the quote, but found a part")
(report-errs)