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

fix typos in datum->syntax error message

Browse Source
This commit is contained in:
Sorawee Porncharoenwase 2021-01-06 07:27:13 -08:00 committed by Sam Tobin-Hochstadt
parent 17b7033402
commit f41b180b48
4 changed files with 33 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
racket/src/bc/src/startup.inc
View File

@ -48493,7 +48493,8 @@ static const char *startup_source =
"(if(let-values(((or-part_0)(not stx-c_0)))"
"(if or-part_0 or-part_0(syntax?$1 stx-c_0)))"
"(void)"
" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_0)))"
"(let-values()"
" (raise-argument-error 'datum->syntax \"(or/c #f syntax?)\" stx-c_0)))"
"(if(let-values(((or-part_0)(not stx-l_0)))"
"(if or-part_0"
" or-part_0"
@ -48504,22 +48505,23 @@ static const char *startup_source =
"(raise-argument-error"
" 'datum->syntax"
"(string-append"
" \"(or #f syntax?\\n\""
" \" (list/c any/c\\n\""
" \" (or/c exact-positive-integer? #f)\\n\""
" \" (or/c exact-nonnegative-integer? #f)\\n\""
" \" (or/c exact-positive-integer? #f)\\n\""
" \" (or/c exact-nonnegative-integer? #f))\\n\""
" \" (vector/c any/c\\n\""
" \"(or/c #f syntax?\\n\""
" \" (list/c any/c\\n\""
" \" (or/c exact-positive-integer? #f)\\n\""
" \" (or/c exact-nonnegative-integer? #f)\\n\""
" \" (or/c exact-positive-integer? #f)\\n\""
" \" (or/c exact-nonnegative-integer? #f)))\")"
" \" (or/c exact-nonnegative-integer? #f))\\n\""
" \" (vector/c any/c\\n\""
" \" (or/c exact-positive-integer? #f)\\n\""
" \" (or/c exact-nonnegative-integer? #f)\\n\""
" \" (or/c exact-positive-integer? #f)\\n\""
" \" (or/c exact-nonnegative-integer? #f)))\")"
" stx-l_0)))"
"(if(let-values(((or-part_0)(not stx-p_0)))"
"(if or-part_0 or-part_0(syntax?$1 stx-p_0)))"
"(void)"
" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_0)))"
"(let-values()"
" (raise-argument-error 'datum->syntax \"(or/c #f syntax?)\" stx-p_0)))"
"(datum->syntax$1 stx-c_0 s_0(to-srcloc-stx stx-l_0) stx-p_0))))))))))))))"
"(case-lambda"
"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax_0 stx-c_0 s_0 #f #f #f)))"

20
racket/src/cs/schemified/expander.scm
View File

@ -54734,7 +54734,7 @@
(void)
(raise-argument-error
'datum->syntax
"(or #f syntax?)"
"(or/c #f syntax?)"
stx-c4_0))
(if (let ((or-part_0 (not stx-l1_0)))
(if or-part_0
@ -54747,24 +54747,24 @@
(raise-argument-error
'datum->syntax
(string-append
"(or #f syntax?\n"
" (list/c any/c\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f))\n"
" (vector/c any/c\n"
"(or/c #f syntax?\n"
" (list/c any/c\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)))")
" (or/c exact-nonnegative-integer? #f))\n"
" (vector/c any/c\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)))")
stx-l1_0))
(if (let ((or-part_0 (not stx-p2_0)))
(if or-part_0 or-part_0 (syntax?$1 stx-p2_0)))
(void)
(raise-argument-error
'datum->syntax
"(or #f syntax?)"
"(or/c #f syntax?)"
stx-p2_0))
(datum->syntax$1
stx-c4_0

2
racket/src/expander/README.txt
View File

@ -139,7 +139,7 @@ makefile/preprocessor dance that generates the bytecode version of the
expander itself.
The `make` step for Racket BC generates source files in
"compiled/cache-src". In come cases (hopefully rare), you may have to
"compiled/cache-src". In some cases (hopefully rare), you may have to
manually discard "compiled/cache-src" when things change.
----------------------------------------

20
racket/src/expander/syntax/api.rkt
View File

@ -79,25 +79,25 @@
(define/who (datum->syntax stx-c s [stx-l #f] [stx-p #f] [ignored #f])
(unless (or (not stx-c) (syntax? stx-c))
(raise-argument-error who "(or #f syntax?)" stx-c))
(raise-argument-error who "(or/c #f syntax?)" stx-c))
(unless (or (not stx-l)
(syntax? stx-l)
(encoded-srcloc? stx-l))
(raise-argument-error who
(string-append "(or #f syntax?\n"
" (list/c any/c\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f))\n"
" (vector/c any/c\n"
(string-append "(or/c #f syntax?\n"
" (list/c any/c\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)))")
" (or/c exact-nonnegative-integer? #f))\n"
" (vector/c any/c\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)\n"
" (or/c exact-positive-integer? #f)\n"
" (or/c exact-nonnegative-integer? #f)))")
stx-l))
(unless (or (not stx-p) (syntax? stx-p))
(raise-argument-error who "(or #f syntax?)" stx-p))
(raise-argument-error who "(or/c #f syntax?)" stx-p))
(raw:datum->syntax stx-c s (to-srcloc-stx stx-l) stx-p))
(define/who (syntax-binding-set)