diff options
-rw-r--r-- | module/language/tree-il/analyze.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm index 990994a1e..047019049 100644 --- a/module/language/tree-il/analyze.scm +++ b/module/language/tree-il/analyze.scm @@ -359,7 +359,8 @@ (else '()))) ;; allocation: sym -> {lambda -> address} - ;; lambda -> (nlocs labels . free-locs) + ;; lambda -> (labels . free-locs) + ;; lambda-case -> (gensym . nlocs) (define allocation (make-hash-table)) (define (allocate! x proc n) |