read-accept-infix-dot

svn: r6835
2007-07-07 15:20:02 +00:00 · 2007-07-07 15:20:02 +00:00 · ef9994abc5
commit ef9994abc5
parent 016cb4bff2
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)]))