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

rest arg -> #:optional

Browse Source 
svn: r4407
This commit is contained in:
Eli Barzilay 2006-09-21 14:13:32 +00:00
parent a3aa8a2e55
commit 9b79de00d6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/reader.ss
View File

@ -38,9 +38,8 @@
(hash-table-put! t n s) s))))))
(define (dispatcher char inp source-name line-num col-num position)
(define (next-syntax readtable . plain?)
(let ([read (if (and (pair? plain?) (car plain?))
read-syntax read-syntax/recursive)])
(define/kw (next-syntax readtable #:optional plain?)
(let ([read (if plain? read-syntax read-syntax/recursive)])
(parameterize ([current-readtable readtable])
(let loop ()
(let ([x (read source-name inp)])