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

double bug in include

Browse Source 
svn: r2083
This commit is contained in:
Eli Barzilay 2006-02-02 09:29:14 +00:00
parent 3cf34c55db
commit b7f6cc2e1d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/preprocessor/mztext.ss
View File

@ -320,11 +320,12 @@
(let ([arg (get-arg)]) (let ([arg (get-arg)])
(if (eof-object? arg) (if (eof-object? arg)
(error 'include "expecting a file argument") (error 'include "expecting a file argument")
(list (get-arg)))) (list arg)))
files)) files))
(define curdir (cd)) (define curdir (cd))
(define (cd+file f) (define (cd+file f)
(let*-values ([(dir name dir?) (let*-values ([(f) (if (bytes? f) (bytes->path f) f)]
[(dir name dir?)
(if (input-port? f) (values #f #f #f) (split-path f))] (if (input-port? f) (values #f #f #f) (split-path f))]
[(dir) (if (path? dir) dir (cd))]) [(dir) (if (path? dir) dir (cd))])
;; could `add-to-input' and then `run' if we wrap this by a (cd dir), but ;; could `add-to-input' and then `run' if we wrap this by a (cd dir), but