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

Comment out broken place check

Browse Source
This commit is contained in:
Kevin Tew 2011-08-30 15:54:14 -06:00
parent 4d8833eab2
commit b110671c5c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/place.rkt
View File

@ -147,7 +147,8 @@
(syntax-case stx () (syntax-case stx ()
[(_ ch body1 body ...) [(_ ch body1 body ...)
(begin (begin
(unless (eq? 'module (syntax-local-context)) ;breaks valid uses of place
#;(unless (eq? 'module (syntax-local-context))
(raise-syntax-error #f "can only be used in a module" stx)) (raise-syntax-error #f "can only be used in a module" stx))
(unless (identifier? #'ch) (unless (identifier? #'ch)
(raise-syntax-error #f "expected an indentifier" stx #'ch)) (raise-syntax-error #f "expected an indentifier" stx #'ch))