From: Robin Templeton <robin@terpri.org>
Date: Thu, 24 Jul 2014 22:58:38 +0000 (-0400)
Subject: fix `nil?' type inference
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/fac59c3e5fec34b28b7b06eff6d8893c2403c6d0

fix `nil?' type inference
---

diff --git a/module/language/cps/type-fold.scm b/module/language/cps/type-fold.scm
index ba66ec3ff..c82a11af3 100644
--- a/module/language/cps/type-fold.scm
+++ b/module/language/cps/type-fold.scm
@@ -67,7 +67,6 @@
 ;; All the cases that are in compile-bytecode.
 (define-unary-type-predicate-folder pair? &pair)
 (define-unary-type-predicate-folder null? &null)
-(define-unary-type-predicate-folder nil? &nil)
 (define-unary-type-predicate-folder symbol? &symbol)
 (define-unary-type-predicate-folder variable? &box)
 (define-unary-type-predicate-folder vector? &vector)