many things work quite okey

parent 41125e8a
...@@ -20,22 +20,24 @@ ...@@ -20,22 +20,24 @@
(se #f) ... (se #f) ...
(p P) (p P)
(cc CC)) (cc CC))
(<code> (gp-combine-engines data))
(<let*> ((s frame) (<let*> ((s frame)
(ccc (lambda (ss pp) (ccc (lambda (ss pp)
(gp-combine-engines data)
(cc (gp-combine-state (cc (gp-combine-state
s (list se ...)) s (list se ...))
p)))) p))))
(<with-s> s (<with-s> s
(<pit> s p ccc (<pit> s p ccc
(<with-fail> p (<with-fail> p
(<with-s> (gp-push-engine frame engine) (<with-s> (gp-push-engine frame engine)
(<code> (gp-combine-push data)) (<code> (gp-combine-push data))
(<code> (gp-var-set v (gp-peek-engine) S)) (<code> (gp-var-set v (gp-peek-engine) S))
code ... code ...
(<code> (set! se S)) (<code> (set! se S))
(<code> (gp-pop-engine)))))) (<code> (gp-pop-engine))))))
... ...
(<code> (gp-combine-engines data))
(<with-s> (gp-combine-state s (list se ...)) (<with-s> (gp-combine-state s (list se ...))
(<with-fail> p <cc>)))))) (<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