mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Fix comment summarizing allocation table

Browse source 
* module/language/tree-il/analyze.scm (analyze-lexicals): Fix comment,
  which describes the compiler's allocation table, to match reality.
This commit is contained in:
Mark H Weaver 2011-12-30 23:11:30 -05:00
parent b72ab481cd
commit 3004fe2624
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/tree-il/analyze.scm
View file

@ -359,7 +359,8 @@
(else '()))) (else '())))
;; allocation: sym -> {lambda -> address} ;; allocation: sym -> {lambda -> address}
;; lambda -> (nlocs labels . free-locs) ;; lambda -> (labels . free-locs)
;; lambda-case -> (gensym . nlocs)
(define allocation (make-hash-table)) (define allocation (make-hash-table))
(define (allocate! x proc n) (define (allocate! x proc n)