From 851393362c1779f5fd06c5826ddef2c8a37e19fe Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 1 Feb 2014 23:39:21 +0900
Subject: [PATCH] Wrapping environment monad function bodies in let to allow
 internal define.

---
 lib/chibi/monad/environment.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/monad/environment.scm b/lib/chibi/monad/environment.scm
index b46a5fe9..797f611d 100644
--- a/lib/chibi/monad/environment.scm
+++ b/lib/chibi/monad/environment.scm
@@ -133,7 +133,7 @@
            ((f! ("step") ((p param) :::) () . body)
             (lambda (st)
               (let ((p (ask st 'param)) :::)
-                ((begin . body) st))))
+                ((let () . body) st))))
            ((f! params . body)
             (f! ("step") () params . body))))
        ;; fork - run on a copy of the state