Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Wrapping environment monad function bodies in let to allow internal define.

Browse source
This commit is contained in:
Alex Shinn 2014-02-01 23:39:21 +09:00
parent d16cbc7e2b
commit 851393362c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/monad/environment.scm
View file

@ -133,7 +133,7 @@
((f! ("step") ((p param) :::) () . body) ((f! ("step") ((p param) :::) () . body)
(lambda (st) (lambda (st)
(let ((p (ask st 'param)) :::) (let ((p (ask st 'param)) :::)
((begin . body) st)))) ((let () . body) st))))
((f! params . body) ((f! params . body)
(f! ("step") () params . body)))) (f! ("step") () params . body))))
;; fork - run on a copy of the state ;; fork - run on a copy of the state