[Guile-commits] 06/36: allow arbitrary constants in cps

[Christopher Allan Webber]

cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.

commit b2df0affb1fa5ba533513f4d7907def795d2adac
Author: Robin Templeton <robin@terpri.org>
AuthorDate: Sat Jun 14 03:33:22 2014 -0400

    allow arbitrary constants in cps
    
    (Best-ability ChangeLog annotation added by Christopher Allan 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 d3be176..44dd440 100644
--- a/module/language/cps/types.scm
+++ b/module/language/cps/types.scm
@@ -382,7 +382,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,