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

r6rs import fixes

Browse Source 
svn: r8679
This commit is contained in:
Matthew Flatt 2008-02-16 00:38:36 +00:00
parent 894ed4a809
commit 59926b8edc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/r6rs/main.ss
View File

@ -202,7 +202,7 @@ FIXME:
(symbol->string (syntax-e id))) (symbol->string (syntax-e id)))
(syntax->list #'(id1 id2 ...)))]) (syntax->list #'(id1 id2 ...)))])
(if (= 1 (length strs)) (if (= 1 (length strs))
(values (car strs) "main") (values (list (car strs)) "main")
(values (reverse (cdr (reverse strs))) (values (reverse (cdr (reverse strs)))
(car (reverse strs)))))]) (car (reverse strs)))))])
(let ([base (build-path (with-handlers ([exn:fail? (let ([base (build-path (with-handlers ([exn:fail?
@ -221,7 +221,7 @@ FIXME:
(let ([vers (find-version (path->bytes base) (syntax->datum #'(vers ...)))]) (let ([vers (find-version (path->bytes base) (syntax->datum #'(vers ...)))])
(if vers (if vers
(datum->syntax (datum->syntax
stx orig
`(,#'lib ,(apply string-append `(,#'lib ,(apply string-append
(car coll) (car coll)
(append (append