From 6f083d7205a642a21097ea86ea423685348faf8e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 4 Apr 2002 08:09:15 +0000
Subject: [PATCH] Small renamer for clarity.

---
 scheme/opt/flatten.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/opt/flatten.scm b/scheme/opt/flatten.scm
index d373c8e..40a8717 100644
--- a/scheme/opt/flatten.scm
+++ b/scheme/opt/flatten.scm
@@ -114,7 +114,7 @@
 (define (add-cells exp vars)
   (do ((vars vars (cdr vars))
        (cells '() (if (assigned? (car vars))
-		      (cons (make-cell (car vars)) cells)
+		      (cons (make-make-cell (car vars)) cells)
 		      cells)))
       ((null? vars)
        (if (null? cells)
@@ -272,7 +272,7 @@
 ;----------------
 ; Cell manipulation calls.
 
-(define (make-cell var)
+(define (make-make-cell var)
   (make-node operator/set!
 	     (list 'set!
 		   var