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

correctly implement optional argument behavior

Browse Source 
svn: r4296
This commit is contained in:
Eli Barzilay 2006-09-10 17:02:39 +00:00
parent 412a8b8cb3
commit 287cd08bf8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/reader.ss
View File

@ -1,6 +1,6 @@
;; Implements the @-reader macro for embedding text in Scheme code. ;; Implements the @-reader macro for embedding text in Scheme code.
(module reader mzscheme (module reader mzscheme
(require (lib "string.ss") (lib "readerr.ss" "syntax")) (require (lib "string.ss") (lib "kw.ss") (lib "readerr.ss" "syntax"))
(define cmd-char #\@) (define cmd-char #\@)
@ -283,13 +283,13 @@
(port-count-lines! (current-input-port)) (port-count-lines! (current-input-port))
(current-readtable at-readtable)) (current-readtable at-readtable))
(define (*read inp) (define/kw (*read #:optional [inp (current-input-port)])
(parameterize ([current-readtable at-readtable]) (parameterize ([current-readtable at-readtable])
(read inp))) (read inp)))
(define (*read-syntax src port) (define/kw (*read-syntax #:optional src [port (current-input-port)])
(parameterize ([current-readtable at-readtable]) (parameterize ([current-readtable at-readtable])
(read-syntax src port))) (read-syntax (or src (object-name port)) port)))
(provide (rename *read read) (rename *read-syntax read-syntax)) (provide (rename *read read) (rename *read-syntax read-syntax))