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.
(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 #\@)
@ -283,13 +283,13 @@
(port-count-lines! (current-input-port))
(current-readtable at-readtable))
(define (*read inp)
(define/kw (*read #:optional [inp (current-input-port)])
(parameterize ([current-readtable at-readtable])
(read inp)))
(define (*read-syntax src port)
(define/kw (*read-syntax #:optional src [port (current-input-port)])
(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))