read-accept-infix-dot

svn: r6835 original commit: ef9994abc538d83ed96e97615f0fd371af615066
2007-07-07 15:20:02 +00:00 · 2007-07-07 15:20:02 +00:00 · 77f1254ab7
commit 77f1254ab7
parent 067bf11ed7
1 changed files with 2 additions and 1 deletions
--- 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)]))