guile-commits
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]