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

Racket-y

Browse Source
This commit is contained in:
Matthias Felleisen 2014-05-04 18:54:35 -04:00
parent 21e026910b
commit 9613d45566
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/htdp-pkgs/htdp-lib/2htdp/universe.rkt
View File

@ -390,7 +390,9 @@
(define-syntax (universe stx) (define-syntax (universe stx)
(syntax-case stx () (syntax-case stx ()
[(universe) (raise-syntax-error #f "expects an expression for the initial world" stx)] [(universe) (raise-syntax-error #f "expects an expression for the initial world" stx)]
[(universe u) (raise-syntax-error #f "expects at least an on-new and an on-msg clause after the initial world" stx)] [(universe u)
(raise-syntax-error #f "expects at least an on-new and an on-msg clause after the initial world"
stx)]
[(universe u bind ...) [(universe u bind ...)
(let* ([args (->args 'universe stx #'u #'(bind ...) UniSpec void)] (let* ([args (->args 'universe stx #'u #'(bind ...) UniSpec void)]
[dom (syntax->list #'(bind ...))]) [dom (syntax->list #'(bind ...))])