Adding tests from Alex

remix/tests/pr/pr1439/lang.rkt

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

remix/tests/pr/pr1439/reader.rkt

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

remix/tests/pr/pr1439/use.rkt

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

remix/tests/reader.rkt

@@ -37,6 +37,7 @@
    ["[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)]