[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/04: Fix kfun parse-cps bug
From: |
Andy Wingo |
Subject: |
[Guile-commits] 03/04: Fix kfun parse-cps bug |
Date: |
Thu, 23 Feb 2017 07:21:06 -0500 (EST) |
wingo pushed a commit to branch master
in repository guile.
commit 23278d07deb31cbb028df4ad789fb9ad46a05ca2
Author: Andy Wingo <address@hidden>
Date: Thu Feb 23 11:37:06 2017 +0100
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 b66bc38..5d48269 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)))