From c5a74c173e3a8fdfb39aae09d6d2ae9f4eef5a98 Mon Sep 17 00:00:00 2001
From: Gustavo Massaccesi <gustavo@oma.org.ar>
Date: Tue, 8 Jan 2019 10:33:22 -0300
Subject: [PATCH] fix typos in error messages

---
 pkgs/racket-test-core/tests/racket/stx.rktl | 2 +-
 racket/src/expander/read/number.rkt         | 4 ++--
 racket/src/expander/syntax/property.rkt     | 2 +-
 racket/src/racket/src/startup.inc           | 6 +++---
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/pkgs/racket-test-core/tests/racket/stx.rktl b/pkgs/racket-test-core/tests/racket/stx.rktl
index fb301dad6c..8a27d46d8a 100644
--- a/pkgs/racket-test-core/tests/racket/stx.rktl
+++ b/pkgs/racket-test-core/tests/racket/stx.rktl
@@ -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))))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/racket/src/expander/read/number.rkt b/racket/src/expander/read/number.rkt
index 4f859e01da..acba278d09 100644
--- a/racket/src/expander/read/number.rkt
+++ b/racket/src/expander/read/number.rkt
@@ -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))]
diff --git a/racket/src/expander/syntax/property.rkt b/racket/src/expander/syntax/property.rkt
index c46a8437be..ef80715c66 100644
--- a/racket/src/expander/syntax/property.rkt
+++ b/racket/src/expander/syntax/property.rkt
@@ -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?
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 0e77f4647f..de1027c9f6 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -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)"