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

.

Browse Source 
svn: r7789
This commit is contained in:
Jacob Matthews 2007-11-20 20:03:54 +00:00
parent 8007ec59d2
commit 8ca7abe46c
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/planet/lang/reader.ss
View File

@ -35,8 +35,7 @@
[name (if (path? p-name) [name (if (path? p-name)
(let-values ([(base name dir?) (split-path p-name)]) (let-values ([(base name dir?) (split-path p-name)])
(string->symbol (path->string (path-replace-suffix name #"")))) (string->symbol (path->string (path-replace-suffix name #""))))
'page)] 'page)])
[id 'doc])
`(module ,name ,spec `(module ,name ,spec
,body))) ,body)))
@ -44,6 +43,6 @@
(define-values (spec r) (planet-read-fn inp (λ (spec) (dynamic-require spec 'read)))) (define-values (spec r) (planet-read-fn inp (λ (spec) (dynamic-require spec 'read))))
(wrap inp spec (r inp))) (wrap inp spec (r inp)))
(define (planet-read-syntax [src #f] [port (current-input-port)]) (define (planet-read-syntax [src #f] [inp (current-input-port)])
(define-values (spec r) (planet-read-fn port (λ (spec) (dynamic-require spec 'read-syntax)))) (define-values (spec r) (planet-read-fn inp (λ (spec) (dynamic-require spec 'read-syntax))))
(wrap port spec (r src port))) (wrap inp spec (r src inp)))