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

make-readtable: fix argument checking

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-08 16:26:13 -07:00
parent 9aa0965aaa
commit 77c7b2b147
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/read/readtable.rkt
View File

@ -51,7 +51,7 @@
(raise-argument-error 'make-readtable "(or/c char? #f)" key)) (raise-argument-error 'make-readtable "(or/c char? #f)" key))
;; Mode determines how the key is mapped ;; Mode determines how the key is mapped
(when (null? args) (when (null? (cdr args))
(cond (cond
[key (raise-arguments-error 'make-readtable [key (raise-arguments-error 'make-readtable
(string-append "expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro," (string-append "expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,"

2
racket/src/racket/src/startup.inc
View File

@ -52197,7 +52197,7 @@ static const char *startup_source =
"(values))))" "(values))))"
"(let-values((()" "(let-values((()"
"(begin" "(begin"
"(if(null? args_1)" "(if(null?(cdr args_1))"
"(let-values()" "(let-values()"
"(if key_0" "(if key_0"
"(let-values()" "(let-values()"