bpt pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 084856dc29bb440662275abab288f64a88b9ebbd
Author: Robin Templeton <ro...@terpri.org>
AuthorDate: Sat Jun 14 03:33:22 2014 -0400
allow arbitrary constants in cps
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
* module/language/cps/types.scm (constant-type): No longer error
if type not determined. Return &all-types instead.
---
module/language/cps/types.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/language/cps/types.scm b/module/language/cps/types.scm
index db4a8c7c8..190e01c36 100644
--- a/module/language/cps/types.scm
+++ b/module/language/cps/types.scm
@@ -383,7 +383,7 @@ minimum, and maximum."
((not (variable-bound? (make-variable val)))
(return &special-immediate &undefined))
- (else (error "unhandled constant" val))))
+ (else (return &all-types #f))))
(define (constant-type-entry val)
"Compute the type and range of VAL. Return three values: the type,
