Fix kfun parse-cps bug

* module/language/cps.scm (parse-cps): Fix bug parsing kfun.

diff --git a/module/language/cps.scm b/module/language/cps.scm
index b66bc38c012e0ac856798261da9e5b513f0eefd9..5d48269901bcd638db418a5817b5b54c72287781 100644 (file)
--- a/module/language/cps.scm
+++ b/module/language/cps.scm
@@ -271,7 +271,7 @@
      (build-cont ($kreceive req rest k)))
     (('kargs names syms body)
      (build-cont ($kargs names syms ,(parse-cps body))))
-    (('kfun src meta self ktail kclause)
+    (('kfun meta self ktail kclause)
      (build-cont ($kfun (src exp) meta self ktail kclause)))
     (('ktail)
      (build-cont ($ktail)))