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) (err/rt-test (syntax-property #'+ 1 #'+ #t)
(lambda (exn) (lambda (exn)
(regexp-match (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)))) (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)))) (and dot-pos (or (not sign-pos) (dot-pos . fx> . sign-pos))))
(fail convert-mode "misplaced `.` in `~.a`" (substring s start end))] (fail convert-mode "misplaced `.` in `~.a`" (substring s start end))]
[(and slash-pos (or (not sign-pos) (slash-pos . fx> . sign-pos))) [(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 [else
(loop (fx+ 1 i) any-digits? any-hashes? i-pos @-pos (loop (fx+ 1 i) any-digits? any-hashes? i-pos @-pos
sign-pos i #f #f sign-pos i #f #f
@ -282,7 +282,7 @@
[(char=? c #\/) [(char=? c #\/)
(cond (cond
[(and dot-pos (or (not sign-pos) (dot-pos . fx> . sign-pos))) [(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))) [(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)))) (and slash-pos (or (not sign-pos) (slash-pos . fx> . sign-pos))))
(fail convert-mode "misplaced `/` in `~.a`" (substring s start end))] (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? (when preserved?
(unless (and (symbol? key) (symbol-interned? key)) (unless (and (symbol? key) (symbol-interned? key))
(raise-arguments-error who (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 key" key
"given value" val))) "given value" val)))
(define pval (if preserved? (define pval (if preserved?

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

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