changed ordered coroutines correctly

parent 3ae6d262
......@@ -811,8 +811,14 @@
;;Not possible to use a pure raw form here
(define delayers (@@ (logic guile-log code-load) *delayers*))
(define (get-del l old)
(let lp ((l l) (r '()))
(if (eq? l old)
r
(lp (cdr l) (cons (car l) r)))))
(<define> (dls old)
(<recur> lp ((l (fluid-ref delayers)))
(<recur> lp ((l (get-del (fluid-ref delayers) old)))
(if (eq? l old)
(<code> (fluid-set! delayers old))
(<let> ((x (car l)))
......
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