Small renamer for clarity.
This commit is contained in:
parent
4c19b80a6e
commit
6f083d7205
|
@ -114,7 +114,7 @@
|
||||||
(define (add-cells exp vars)
|
(define (add-cells exp vars)
|
||||||
(do ((vars vars (cdr vars))
|
(do ((vars vars (cdr vars))
|
||||||
(cells '() (if (assigned? (car vars))
|
(cells '() (if (assigned? (car vars))
|
||||||
(cons (make-cell (car vars)) cells)
|
(cons (make-make-cell (car vars)) cells)
|
||||||
cells)))
|
cells)))
|
||||||
((null? vars)
|
((null? vars)
|
||||||
(if (null? cells)
|
(if (null? cells)
|
||||||
|
@ -272,7 +272,7 @@
|
||||||
;----------------
|
;----------------
|
||||||
; Cell manipulation calls.
|
; Cell manipulation calls.
|
||||||
|
|
||||||
(define (make-cell var)
|
(define (make-make-cell var)
|
||||||
(make-node operator/set!
|
(make-node operator/set!
|
||||||
(list 'set!
|
(list 'set!
|
||||||
var
|
var
|
||||||
|
|
Loading…
Reference in New Issue