From ef9994abc538d83ed96e97615f0fd371af615066 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 7 Jul 2007 15:20:02 +0000
Subject: [PATCH] read-accept-infix-dot

svn: r6835
---
 collects/mzlib/sandbox.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss
index 0673189d64..f3278bc3f3 100644
--- a/collects/mzlib/sandbox.ss
+++ b/collects/mzlib/sandbox.ss
@@ -285,7 +285,8 @@
     (cond [(eq? language 'r5rs)
            (read-case-sensitive #f)
            (read-square-bracket-as-paren #f)
-           (read-curly-brace-as-paren #f)]
+           (read-curly-brace-as-paren #f)
+           (read-accept-infix-dot #f)]
           [(memq language teaching-langs)
            (read-case-sensitive #t)
            (read-decimal-as-inexact #f)]))