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

fix typos in error messages

Browse Source
This commit is contained in:
Gustavo Massaccesi 2019-01-08 10:33:22 -03:00
parent 0aa2fdc476
commit c5a74c173e
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-test-core/tests/racket/stx.rktl
View File

@ -2700,7 +2700,7 @@
(err/rt-test (syntax-property #'+ 1 #'+ #t)
(lambda (exn)
(regexp-match
#rx"key for a perserved property must be an interned symbol"
#rx"key for a preserved property must be an interned symbol"
(exn-message exn))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4
racket/src/expander/read/number.rkt
View File

@ -274,7 +274,7 @@
(and dot-pos (or (not sign-pos) (dot-pos . fx> . sign-pos))))
(fail convert-mode "misplaced `.` in `~.a`" (substring s start end))]
[(and slash-pos (or (not sign-pos) (slash-pos . fx> . sign-pos)))
(fail convert-mode "decimal points and fractions annot be mixed `~.a`" (substring s start end))]
(fail convert-mode "decimal points and fractions cannot be mixed `~.a`" (substring s start end))]
[else
(loop (fx+ 1 i) any-digits? any-hashes? i-pos @-pos
sign-pos i #f #f
@ -282,7 +282,7 @@
[(char=? c #\/)
(cond
[(and dot-pos (or (not sign-pos) (dot-pos . fx> . sign-pos)))
(fail convert-mode "decimal points and fractions annot be mixed `~.a`" (substring s start end))]
(fail convert-mode "decimal points and fractions cannot be mixed `~.a`" (substring s start end))]
[(or (and exp-pos (or (not sign-pos) (exp-pos . fx> . sign-pos)))
(and slash-pos (or (not sign-pos) (slash-pos . fx> . sign-pos))))
(fail convert-mode "misplaced `/` in `~.a`" (substring s start end))]

2
racket/src/expander/syntax/property.rkt
View File

@ -28,7 +28,7 @@
(when preserved?
(unless (and (symbol? key) (symbol-interned? key))
(raise-arguments-error who
"key for a perserved property must be an interned symbol"
"key for a preserved property must be an interned symbol"
"given key" key
"given value" val)))
(define pval (if preserved?

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

@ -9150,7 +9150,7 @@ static const char *startup_source =
"(let-values()"
"(raise-arguments-error"
" 'syntax-property"
" \"key for a perserved property must be an interned symbol\""
" \"key for a preserved property must be an interned symbol\""
" \"given key\""
" key_0"
" \"given value\""
@ -54346,7 +54346,7 @@ static const char *startup_source =
"(if(eq? convert-mode_0 'must-read)"
"(let-values()"
"(format"
" \"decimal points and fractions annot be mixed `~.a`\""
" \"decimal points and fractions cannot be mixed `~.a`\""
"(substring s_0 start_0 end_0)))"
"(let-values() #f)))"
"(let-values()"
@ -54373,7 +54373,7 @@ static const char *startup_source =
"(if(eq? convert-mode_0 'must-read)"
"(let-values()"
"(format"
" \"decimal points and fractions annot be mixed `~.a`\""
" \"decimal points and fractions cannot be mixed `~.a`\""
"(substring s_0 start_0 end_0)))"
"(let-values() #f)))"
"(if(let-values(((or-part_0)"