(drak)
2015-03-18: wisp-guile: execute all statements in a chunk. wisp-guile: execute all statements in a chunk.
diff --git a/wisp-reader.w b/wisp-reader.w --- a/wisp-reader.w +++ b/wisp-reader.w @@ -64,9 +64,12 @@ define : read-one-wisp-sexp port env define : try-pending if : null? wisp-pending-sexps wisp-scheme-read-chunk-env - let : : sexp : car wisp-pending-sexps - set! wisp-pending-sexps : cdr wisp-pending-sexps - . sexp + let + : sexp : car wisp-pending-sexps + pending wisp-pending-sexps + set! wisp-pending-sexps : list ; : cdr wisp-pending-sexps + ; write : cons 'begin pending + cons 'begin pending try-pending define-language wisp