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

Fix obvious bug.

Browse Source 
svn: r18660
This commit is contained in:
Sam Tobin-Hochstadt 2010-03-29 15:01:29 +00:00
parent f655a38ead
commit 2bda6af6b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/decode.ss
View File

@ -6,7 +6,7 @@
(define-syntax (module-begin stx) (define-syntax (module-begin stx)
(syntax-case stx () (syntax-case stx ()
[(_ x ...) [(_ x ...)
(andmap (lambda (x) (or identifier? (integer? (syntax-e x)))) (andmap (lambda (x) (or (identifier? x) (integer? (syntax-e x))))
(syntax->list #'(x ...))) (syntax->list #'(x ...)))
(let* ([data (format "~a" (syntax->datum #'(x ...)))] (let* ([data (format "~a" (syntax->datum #'(x ...)))]
[data (substring data 1 (sub1 (string-length data)))] [data (substring data 1 (sub1 (string-length data)))]