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

fix plt-r6rs

Browse Source 
svn: r9602
This commit is contained in:
Matthew Flatt 2008-05-02 19:56:48 +00:00
parent 52581d024b
commit 8b6f716d53
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/r6rs/run.ss
View File

@ -33,8 +33,12 @@
(current-command-line-arguments (apply vector-immutable args))
(define (r6rs-read-syntax . args)
(datum->syntax #f (apply r6rs:read-syntax args)))
(define r6rs-read-syntax
(case-lambda
[() (r6rs-read-syntax (object-name (current-input-port)))]
[(name) (r6rs-read-syntax name (current-input-port))]
[(name port)
(datum->syntax #f (r6rs:read-syntax name port #'r6rs 1 0 1))]))
(define (extract-libraries orig)
(let loop ([last-pos 0])