HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4d0dda0
)
allow arbitrary constants in cps
author
Robin Templeton
<robin@terpri.org>
Sat, 14 Jun 2014 07:33:22 +0000
(
03:33
-0400)
committer
Robin Templeton
<robin@terpri.org>
Fri, 13 Feb 2015 00:18:53 +0000
(19:18 -0500)
module/language/cps/types.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/language/cps/types.scm
b/module/language/cps/types.scm
index
934fa11
..
d5eacf3
100644
(file)
--- a/
module/language/cps/types.scm
+++ b/
module/language/cps/types.scm
@@
-303,8
+303,7
@@
minimum, and maximum."
((bitvector? val) (return &bitvector (bitvector-length val)))
((array? val) (return &array (array-rank val)))
((not (variable-bound? (make-variable val))) (return &unbound #f))
-
- (else (error "unhandled constant" val))))
+ (else (return &all-types #f))))
(define *type-checkers* (make-hash-table))
(define *type-inferrers* (make-hash-table))