2014-11-04: FIX: now treats lines with only underscores as empty.

FIX: now treats lines with only underscores as empty.

diff --git a/.bugs/bugs b/.bugs/bugs
--- a/.bugs/bugs
+++ b/.bugs/bugs
@@ -29,5 +29,5 @@ make this work: let : : origfile ( open-
 wisp.py breaks on \ - quote, escaped backslash, quote. Ignored, because wisp.py is only needed for bootstrapping. | owner:Arne Babenhauserheide <bab@draketo.de>, open:False, id:d75a93ca58ade5b3e3e51f1e7ee9782e743ac131, time:1377424552.02
 comments containing a closing parenthesis can break the parser. | owner:, open:False, id:d9147504868960e5fbc2648474d48ce5c9bd1a02, time:1374838747.22
 breaks on empty files                                        | owner:Arne Babenhauserheide <bab@draketo.de>, open:False, id:e40fa7a93eb2c497dca1af7eed22ad5ed5cfbe7f, time:1390325470.91
-wisp-scheme: breaks on lines with only underscores. These should be treated as empty lines. | owner:, open:True, id:e464b5ce49deb14a80f67d50c6d70043ca9bde25, time:1415124488.16
+wisp-scheme: breaks on lines with only underscores. These should be treated as empty lines. | owner:, open:False, id:e464b5ce49deb14a80f67d50c6d70043ca9bde25, time:1415124488.16
 quote as only char in a line gets parenthized instead of becoming a paren-prefix. | owner:Arne Babenhauserheide <bab@draketo.de>, open:False, id:eb7468387e90bb5d13f5a5d81c6f4a704f2ca0fb, time:1390326369.6
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -233,7 +233,7 @@ define : wisp-scheme-read-chunk-lines po
                  ; syntax definition. TODO: Fix the definition. Better
                  ; start too strict. FIXME: breaks on lines with only
                  ; underscores which should empty lines.
-                 : and inunderscoreindent : not : equal? #\space next-char
+                 : and inunderscoreindent : and (not (equal? #\space next-char)) (not (equal? #\newline next-char))
                    throw 'wisp-syntax-error "initial underscores without following whitespace at beginning of the line after" : last indent-and-symbols
                  : or (equal? #\newline next-char) ; (equal? #\return next-char)
                    read-char port ; remove the newline