2014-10-17: make the test strangecomments runnable. wisp-scheme groks it

make the test strangecomments runnable. wisp-scheme groks it

diff --git a/tests/strangecomments.scm b/tests/strangecomments.scm
--- a/tests/strangecomments.scm
+++ b/tests/strangecomments.scm
@@ -1,17 +1,17 @@
 ; works
 (display  
-  (call-with-input-string  "  foo ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . goo . hoo" wisp-scheme-read-chunk))
+  (call-with-input-string  "foo ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . goo . hoo" wisp-scheme-read-chunk))
 (newline)
 (display
-  (call-with-input-string  "  foo \n___. goo . hoo" wisp-scheme-read-chunk))
+  (call-with-input-string  "foo \n___ . goo . hoo" wisp-scheme-read-chunk))
 (newline)
 
 ; broken
 ; expected:
 (display  
-  (call-with-input-string  "  (foo) ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . [goo . hoo]" wisp-scheme-read-chunk))
+  (call-with-input-string  "(foo) ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . [goo . hoo]" wisp-scheme-read-chunk))
 (newline)
 (display
-  (call-with-input-string  "  foo \n___. [goo . hoo]" wisp-scheme-read-chunk))
+  (call-with-input-string  "foo \n___ . [goo . hoo]" wisp-scheme-read-chunk))
 (newline)
 
diff --git a/tests/strangecomments.w b/tests/strangecomments.w
--- a/tests/strangecomments.w
+++ b/tests/strangecomments.w
@@ -1,16 +1,17 @@
+use-modules : wisp-scheme
 ; works
 display  
-  call-with-input-string  "  foo ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . goo . hoo" wisp-scheme-read-chunk
+  call-with-input-string  "foo ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . goo . hoo" wisp-scheme-read-chunk
 newline
 display
-  call-with-input-string  "  foo \n___. goo . hoo" wisp-scheme-read-chunk
+  call-with-input-string  "foo \n___ . goo . hoo" wisp-scheme-read-chunk
 newline
 
 ; broken
 ; expected:
 display  
-  call-with-input-string  "  (foo) ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . [goo . hoo]" wisp-scheme-read-chunk
+  call-with-input-string  "(foo) ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . [goo . hoo]" wisp-scheme-read-chunk
 newline
 display
-  call-with-input-string  "  foo \n___. [goo . hoo]" wisp-scheme-read-chunk
+  call-with-input-string  "foo \n___ . [goo . hoo]" wisp-scheme-read-chunk
 newline