change behavior of cdot

remix/tests/pr/pr1439/lang.rkt

@@ -1,3 +0,0 @@
-#lang racket/base
-(provide (all-from-out racket/base)
-         (rename-out [quote #%dot]))

remix/tests/pr/pr1439/reader.rkt

@@ -1,5 +0,0 @@
-#lang s-exp syntax/module-reader
-"lang.rkt"
-#:wrapper1 (lambda (thunk)
-             (parameterize ([read-cdot #true])
-               (thunk)))

remix/tests/pr/pr1439/use.rkt

@@ -1,2 +0,0 @@
-#lang reader "reader.rkt"
-x.

remix/tests/reader.rkt

@@ -31,13 +31,24 @@
   (check-false (read-square-bracket-with-tag))
   (check-false (read-curly-brace-with-tag))
   (check-false (read-cdot))
+
+  (define-syntax-rule (testerrors s ...)
+    (begin
+      (let ([x s])
+        (check-exn exn:fail:read?
+                   (λ () (with-input-from-string x remix-read)))
+        (check-exn exn:fail:read?
+                   (λ () (with-input-from-string x remix-read-syntax))))
+      ...))
+
+  (testerrors
+   "x.")
   
   (testit*
    ["(1 2 3)" (1 2 3)]
    ["[1 2 3]" (#%brackets 1 2 3)]
    ["{1 2 3}" (#%braces 1 2 3)]
    ["|a.b|" a.b]
-   ["x." (#%dot x)]
    ["a.b" (#%dot a b)]
    ["a .b" (#%dot a b)]
    ["a. b" (#%dot a b)]