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

fix #%app check for error message on use of primitives

Browse Source 
svn: r7831
This commit is contained in:
Matthew Flatt 2007-11-25 15:00:40 +00:00
parent aa266525dc
commit cebdb136fe
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/lang/prim.ss
View File

@ -33,11 +33,11 @@
(syntax-case stx () (syntax-case stx ()
[(_ . body) [(_ . body)
;; HACK: we disable all checks if #%app is not beginner-app ;; HACK: we disable all checks if #%app is not beginner-app
(not (module-identifier=? #'beginner-app (datum->syntax-object stx '#%plain-app))) (not (module-identifier=? #'beginner-app (datum->syntax-object stx '#%app)))
(syntax/loc stx (tagged-impl . body))] (syntax/loc stx (tagged-impl . body))]
[_ [_
;; HACK: see above ;; HACK: see above
(not (module-identifier=? #'beginner-app (datum->syntax-object stx '#%plain-app))) (not (module-identifier=? #'beginner-app (datum->syntax-object stx '#%app)))
(syntax/loc stx tagged-impl)] (syntax/loc stx tagged-impl)]
[(id . args) [(id . args)
(syntax/loc stx (#%plain-app tagged-impl . args))] (syntax/loc stx (#%plain-app tagged-impl . args))]
@ -99,11 +99,11 @@
(syntax-case s () (syntax-case s ()
[(_ . body) [(_ . body)
;; HACK: see above ;; HACK: see above
(not (module-identifier=? #'beginner-app (datum->syntax-object s '#%plain-app))) (not (module-identifier=? #'beginner-app (datum->syntax-object s '#%app)))
(syntax/loc s (tagged-impl . body))] (syntax/loc s (tagged-impl . body))]
[_ [_
;; HACK: see above ;; HACK: see above
(not (module-identifier=? #'beginner-app (datum->syntax-object s '#%plain-app))) (not (module-identifier=? #'beginner-app (datum->syntax-object s '#%app)))
(syntax/loc s tagged-impl)] (syntax/loc s tagged-impl)]
[(_ new-arg ...) [(_ new-arg ...)
(begin (begin