From d99fedc5fd38c055416213b478c2c76eb850d387 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 8 May 2015 15:44:50 +0200
Subject: [PATCH] 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 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/tree-il/compile-cps2.scm b/module/language/tree-il/compile-cps2.scm
index 652d7ad2a..f4cfb2918 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)