boot: fix ignored.

[mes.git] / module / mes / mes-0.mes

diff --git a/module/mes/mes-0.mes b/module/mes/mes-0.mes
index 2fda9f71c60f79a0a1f8709688ed4ebea990348e..7f67cbf7d92a19a151537922c8413b8174375378 100644 (file)
--- a/module/mes/mes-0.mes
+++ b/module/mes/mes-0.mes
@@ -87,7 +87,7 @@
    ((atom? fn)
     (cond
      ((builtin? fn) (call fn x))
-     ((eq? fn 'call-with-values) (c:apply-env 'call-with-values x a))
+     ((eq? fn 'call-with-values) (call call-with-values-env (append x (cons a '()))))
      ((eq? fn 'current-module) a)
      (#t (apply-env (eval fn a) x a))))
    ((eq? (car fn) 'lambda)
@@ -189,4 +189,3 @@
 ;; boot into loop-0
 (cache-invalidate-range (current-module) '())
 ()
-ignored