Skip to content
This repository was archived by the owner on Sep 13, 2019. It is now read-only.

Commit 7d48f5b

Browse files
committed
reader: fix readtable and docs to match old protocol
1 parent b4f1065 commit 7d48f5b

File tree

3 files changed

+3
-3
lines changed

3 files changed

+3
-3
lines changed

pkgs/racket-doc/scribblings/reference/readtables.scrbl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -150,7 +150,7 @@ already-consumed character(s): the source name, a line number or
150150
@racket[#f]. When the reader macro is triggered by @racket[read] (or
151151
@racket[read/recursive]), the procedure is passed only two arguments
152152
if it accepts two arguments, otherwise it is passed six arguments
153-
where the last four are all @racket[#f]. See @secref["reader-procs"]
153+
where the third is always @racket[#f]. See @secref["reader-procs"]
154154
for information on the procedure's results.
155155

156156
A reader macro normally reads characters from the given input port to

racket/src/expander/read/readtable.rkt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -161,7 +161,7 @@
161161
(parameterize ([current-read-config config])
162162
(if (procedure-arity-includes? handler 2)
163163
(handler c in)
164-
(handler c in #f #f #f #f)))]
164+
(handler c in #f line col pos)))]
165165
[else
166166
(parameterize ([current-read-config config])
167167
(handler c in (read-config-source config) line col pos))]))

racket/src/racket/src/startup.inc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -46628,7 +46628,7 @@ static const char *startup_source =
4662846628
"(let-values()"
4662946629
"(if(procedure-arity-includes? handler_0 2)"
4663046630
"(handler_0 c_59 in_3)"
46631-
"(handler_0 c_59 in_3 #f #f #f #f)))))"
46631+
"(handler_0 c_59 in_3 #f line_3 col_2 pos_106)))))"
4663246632
"(let-values()"
4663346633
"(with-continuation-mark"
4663446634
" parameterization-key"

0 commit comments

Comments
 (0)