fixed use-at-readtable again

svn: r8631
2008-02-12 11:05:20 +00:00 · 2008-02-12 11:05:20 +00:00 · 73c5e1e06c
commit 73c5e1e06c
parent 99eb875e90
1 changed files with 2 additions and 1 deletions
--- a/collects/scribble/reader.ss
+++ b/collects/scribble/reader.ss
@ -539,7 +539,8 @@
    (make-keyword-procedure
     (lambda (kws kw-args . rest)
       (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
  (define make-default-at-readtable