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

fixed use-at-readtable again

Browse Source 
svn: r8631
This commit is contained in:
Eli Barzilay 2008-02-12 11:05:20 +00:00
parent 99eb875e90
commit 73c5e1e06c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/reader.ss
View File

@ -539,7 +539,8 @@
(make-keyword-procedure (make-keyword-procedure
(lambda (kws kw-args . rest) (lambda (kws kw-args . rest)
(port-count-lines! (current-input-port)) (port-count-lines! (current-input-port))
(keyword-apply make-at-readtable kws kw-args rest)))) (current-readtable
(keyword-apply make-at-readtable kws kw-args rest)))))
;; utilities for below ;; utilities for below
(define make-default-at-readtable (define make-default-at-readtable