2014-11-04: added bug: breaks on lines with only underscores. These should be

added bug: breaks on lines with only underscores. These should be treated as empty lines.

diff --git a/.bugs/bugs b/.bugs/bugs
--- a/.bugs/bugs
+++ b/.bugs/bugs
@@ -29,4 +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
 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
@@ -231,7 +231,8 @@ define : wisp-scheme-read-chunk-lines po
                  ; any char but whitespace *after* underscoreindent is
                  ; an error. This is stricter than the current wisp
                  ; syntax definition. TODO: Fix the definition. Better
-                 ; start too strict.
+                 ; start too strict. FIXME: breaks on lines with only
+                 ; underscores which should empty lines.
                  : and inunderscoreindent : not : equal? #\space 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)