[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Fix convert-cps2 for "not" primcalls
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Fix convert-cps2 for "not" primcalls |
Date: |
Fri, 08 May 2015 13:52:42 +0000 |
wingo pushed a commit to branch master
in repository guile.
commit d99fedc5fd38c055416213b478c2c76eb850d387
Author: Andy Wingo <address@hidden>
Date: Fri May 8 15:44:50 2015 +0200
Fix convert-cps2 for "not" primcalls
* module/language/tree-il/compile-cps2.scm (convert): Fix typo in "not"
compilation.
---
module/language/tree-il/compile-cps2.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/module/language/tree-il/compile-cps2.scm
b/module/language/tree-il/compile-cps2.scm
index 652d7ad..f4cfb29 100644
--- a/module/language/tree-il/compile-cps2.scm
+++ b/module/language/tree-il/compile-cps2.scm
@@ -499,7 +499,7 @@
(lambda (cps args)
(with-cps cps
(letk kt ($kargs () () ($continue k src ($const #f))))
- (letk kf ($kargs () () ($continue k src ($const #f))))
+ (letk kf ($kargs () () ($continue k src ($const #t))))
(build-term ($continue kf src
($branch kt ($values args))))))))
((and (eq? name 'list)