Changes from arch/CVS synchronization

2007-09-03 16:58:20 +00:00 · 2007-09-03 16:58:20 +00:00 · 454866e052
commit 454866e052
parent f43f362018
4 changed files with 31 additions and 0 deletions
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@ -77,6 +77,10 @@
    (equal? '(+ 1 2 3)
            (read-string "(+ 1 #! this is a\ncomment !# 2 3)")))

+  (pass-if "block comment finishing s-exp"
+    (equal? '(+ 2)
+            (read-string "(+ 2 #! a comment\n!#\n) ")))
+
  (pass-if "unprintable symbol"
    ;; The reader tolerates unprintable characters for symbols.
    (equal? (string->symbol "\001\002\003")