diff options
author | Robin Templeton <robin@terpri.org> | 2014-06-14 03:33:22 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:10:04 -0400 |
commit | c7fe0eb420848eea690c5fafd8bab6d86f11c46f (patch) | |
tree | 5091226dadc3216852827a21c0277d20257b1088 | |
parent | 12a9311f17f6eb30074a6cd7db26283396fc53d4 (diff) | |
download | guile-c7fe0eb420848eea690c5fafd8bab6d86f11c46f.tar.gz |
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.
-rw-r--r-- | module/language/cps/types.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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, |