typo in use-at-readtable

svn: r8630
2008-02-12 10:48:49 +00:00 · 2008-02-12 10:48:49 +00:00 · 99eb875e90
commit 99eb875e90
parent 699c40643d
1 changed files with 1 additions and 1 deletions
--- a/collects/scribble/reader.ss
+++ b/collects/scribble/reader.ss
@ -539,7 +539,7 @@
    (make-keyword-procedure
     (lambda (kws kw-args . rest)
       (port-count-lines! (current-input-port))
-       (keyword-apply current-readtable kws kw-args rest))))
+       (keyword-apply make-at-readtable kws kw-args rest))))

  ;; utilities for below
  (define make-default-at-readtable