Add cond-expand for memory streams

tests/base.scm

@@ -30,18 +30,22 @@
   (test '() (make-list -2))
 )
 
-(test-group
+(cond-expand
-  "I/O"
+  (memory streams
-  (define p (open-input-string "one\ntwo\n"))
+    (test-group
-  (test #\o (read-char p))
+      "I/O"
-  (test "ne" (read-line p))
+      (define p (open-input-string "one\ntwo\n"))
-  (test "two" (read-line p))
+      (test #\o (read-char p))
-  (test (eof-object) (read-line p))
+      (test "ne" (read-line p))
-  (define p (open-input-string "one\ntwo\n"))
+      (test "two" (read-line p))
-  (test "one" (read-line p))
+      (test (eof-object) (read-line p))
-  (test #\t (read-char p))
+      (define p (open-input-string "one\ntwo\n"))
-  (test #\w (read-char p))
+      (test "one" (read-line p))
-  (test "o" (read-line p))
+      (test #\t (read-char p))
+      (test #\w (read-char p))
+      (test "o" (read-line p))
+    )
+  )
 )
 
 (test-group