many things work quite okey

parent 41125e8a
......@@ -20,9 +20,9 @@
(se #f) ...
(p P)
(cc CC))
(<code> (gp-combine-engines data))
(<let*> ((s frame)
(ccc (lambda (ss pp)
(gp-combine-engines data)
(cc (gp-combine-state
s (list se ...))
p))))
......@@ -36,6 +36,8 @@
(<code> (set! se S))
(<code> (gp-pop-engine))))))
...
(<code> (gp-combine-engines data))
(<with-s> (gp-combine-state s (list se ...))
(<with-fail> p <cc>))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment