diff options
| -rw-r--r-- | module/language/cps/types.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/language/cps/types.scm b/module/language/cps/types.scm index 61de971fe..9073276ea 100644 --- a/module/language/cps/types.scm +++ b/module/language/cps/types.scm @@ -351,8 +351,7 @@ minimum, and maximum." ((array? val) (return &array (array-rank val))) ((syntax? val) (return &syntax 0)) ((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)) |