2014-08-16: FIX: a chunk ended after two non-consicutive empty lines.

FIX: a chunk ended after two non-consicutive empty lines.

diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -110,7 +110,7 @@ define : wisp-scheme-read-chunk port
                      . '()
                      if : line-empty? parsedline
                        1+ emptylines
-                       . emptylines
+                       . 0
                : equal? #t incomment
                  read-char port ; remove one comment character
                  loop 
@@ -159,7 +159,7 @@ define : wisp-scheme-read-chunk port
 ; ((2 (foo)) (2) (0) (0) (2 foo : moo 
 ; ) (4 #{.}# [goo #{.}# hoo]))
 display  
-  call-with-input-string  "  (foo) ; bar\n  ; nop \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
 newline