From 2bda6af6b02395fede04e81a4fdf97753ddf4fb6 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 29 Mar 2010 15:01:29 +0000 Subject: [PATCH] Fix obvious bug. svn: r18660 --- collects/framework/private/decode.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/decode.ss b/collects/framework/private/decode.ss index 47fdae061a..0944528ec1 100644 --- a/collects/framework/private/decode.ss +++ b/collects/framework/private/decode.ss @@ -6,7 +6,7 @@ (define-syntax (module-begin stx) (syntax-case stx () [(_ x ...) - (andmap (lambda (x) (or identifier? (integer? (syntax-e x)))) + (andmap (lambda (x) (or (identifier? x) (integer? (syntax-e x)))) (syntax->list #'(x ...))) (let* ([data (format "~a" (syntax->datum #'(x ...)))] [data (substring data 1 (sub1 (string-length data)))]