mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

allow arbitrary constants in cps

Browse source 
(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.
This commit is contained in:
Robin Templeton 2014-06-14 03:33:22 -04:00 • committed by Christine Lemmer-Webber
parent 12a9311f17
commit c7fe0eb420
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/types.scm
View file

@ -382,7 +382,7 @@ minimum, and maximum."
((not (variable-bound? (make-variable val))) ((not (variable-bound? (make-variable val)))
(return &special-immediate &undefined)) (return &special-immediate &undefined))
(else (error "unhandled constant" val)))) (else (return &all-types #f))))
(define (constant-type-entry val) (define (constant-type-entry val)
"Compute the type and range of VAL. Return three values: the type, "Compute the type and range of VAL. Return three values: the type,