removed a pk

parent 26e5b7d4
......@@ -293,7 +293,7 @@ and-interleave
(g s p
(lambda (ss pp)
(cont-set! gg pp)
(set! vv (pk (gp->scm v.s ss))) ...
(set! vv (gp->scm v.s ss)) ...
(gp-unwind fr)
(zip-aux (s p fr) ((vvs ...) ...) ((vs.s ...) ...)
(ggs ...)
......
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