From cebdb136fee68d3dda91a6477b007d51faa55e01 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 25 Nov 2007 15:00:40 +0000 Subject: [PATCH] fix #%app check for error message on use of primitives svn: r7831 --- collects/lang/prim.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/lang/prim.ss b/collects/lang/prim.ss index 909604d969..771466a6cb 100644 --- a/collects/lang/prim.ss +++ b/collects/lang/prim.ss @@ -33,11 +33,11 @@ (syntax-case stx () [(_ . body) ;; 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))] [_ ;; 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)] [(id . args) (syntax/loc stx (#%plain-app tagged-impl . args))] @@ -99,11 +99,11 @@ (syntax-case s () [(_ . body) ;; 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))] [_ ;; 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)] [(_ new-arg ...) (begin