diff options
-rw-r--r-- | module/language/cps/compile-js.scm | 2 |
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: |