From fc6884012451208df012051f101130e358f34316 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Nov 2008 03:08:15 +0000 Subject: [PATCH] fix first-order->higher-order svn: r12400 --- collects/lang/prim.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/lang/prim.ss b/collects/lang/prim.ss index d86131fb21..7c6ea5995e 100644 --- a/collects/lang/prim.ss +++ b/collects/lang/prim.ss @@ -132,7 +132,8 @@ (define-syntax (first-order->higher-order stx) (syntax-case stx () - [(_ id) (fo:first-order->higher-order #'id)])) + [(_ id) (identifier? #'id) (fo:first-order->higher-order #'id)] + [(_ expr) #'expr])) (define-syntax (provide-primitive stx) (syntax-case stx ()