From 23278d07deb31cbb028df4ad789fb9ad46a05ca2 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 23 Feb 2017 11:37:06 +0100
Subject: [PATCH] Fix kfun parse-cps bug

* module/language/cps.scm (parse-cps): Fix bug parsing kfun.
---
 module/language/cps.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps.scm b/module/language/cps.scm
index b66bc38c0..5d4826990 100644
--- 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)))