summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/cps/compile-js.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/cps/compile-js.scm b/module/language/cps/compile-js.scm
index c9b0df32f..128f5d64d 100644
--- a/module/language/cps/compile-js.scm
+++ b/module/language/cps/compile-js.scm
@@ -184,7 +184,7 @@
(make-const val))
(($ $primcall name args)
(make-primcall name (map make-id args)))
- (($ $closure label nfree)
+ (($ $const-fun label nfree)
(make-closure (make-kid label) nfree))
(($ $values (val))
;; FIXME: