typo in use-at-readtable
svn: r8630
This commit is contained in:
parent
699c40643d
commit
99eb875e90
|
@ -539,7 +539,7 @@
|
||||||
(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 current-readtable kws kw-args rest))))
|
(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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user