From c7fe0eb420848eea690c5fafd8bab6d86f11c46f Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Sat, 14 Jun 2014 03:33:22 -0400 Subject: 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 d3be176bf..44dd44069 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, -- cgit v1.2.3