wisp
 
(Arne Babenhauserheide)
2014-10-15: the reader now uses wisp-scheme.w instead of wisp-guile.w - still

the reader now uses wisp-scheme.w instead of wisp-guile.w - still existing bug: you have to enter 3 newlines instead of 2.

diff --git a/wisp-reader.w b/wisp-reader.w
--- a/wisp-reader.w
+++ b/wisp-reader.w
@@ -11,6 +11,7 @@
 ; adapted from spec.scm: https://gitorious.org/nacre/guile-sweet/source/ae306867e371cb4b56e00bb60a50d9a0b8353109:sweet/spec.scm
 define-module : language wisp spec
   . #:use-module : wisp
+  . #:use-module : wisp-scheme
   . #:use-module : system base compile
   . #:use-module : system base language
   . #:export : wisp
@@ -49,9 +50,13 @@ define : read-one-wisp-sexp port env
           read-wisp-chunk
   try-pending
 
+define : wisp-scheme-read-chunk-env port env
+       cons 'begin : wisp-scheme-read-chunk port
+
 define-language wisp
   . #:title "Wisp Scheme Syntax THIS IS EXPERIMENTAL, USE AT YOUR OWN RISK"
-  . #:reader read-one-wisp-sexp
+  ; . #:reader read-one-wisp-sexp
+  . #:reader wisp-scheme-read-chunk-env
   . #:compilers `((scheme . ,compile-scheme)) ; I do not touch quasiquotes yet.
   . #:decompilers `((scheme . ,decompile-scheme))
   . #:evaluator : lambda (x module) : primitive-eval x