From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 4 Jul 1995 05:47:49 +0000 (+0000)
Subject: Tidying.
X-Git-Tag: 20090517-FFI~6220
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=011b7487ae42b6c0c56c3108f26d8dfd5cc5fd62;p=mit-scheme.git

Tidying.
---

diff --git a/v8/src/compiler/midend/cleanup.scm b/v8/src/compiler/midend/cleanup.scm
index 512675c2f..7e4e3b56a 100644
--- a/v8/src/compiler/midend/cleanup.scm
+++ b/v8/src/compiler/midend/cleanup.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cleanup.scm,v 1.19 1995/06/15 17:59:59 adams Exp $
+$Id: cleanup.scm,v 1.20 1995/07/04 05:47:49 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -676,30 +676,4 @@ MIT in each case. |#
        exprs))
 
 (define (cleanup/remember new old)
-  (code-rewrite/remember new old))
-
-;;(define (cleanup/get-dbg-info env expr)
-;;  (cond ((code-rewrite/original-form/previous expr)
-;;         => (lambda (dbg-info)
-;;              ;; Copy the dbg info, rewriting the expressions
-;;              (let* ((block     (new-dbg-form/block dbg-info))
-;;                     (block*    (new-dbg-block/copy-transforming
-;;                                 (lambda (expr)
-;;                                   (cleanup/copy-dbg-kmp expr env))
-;;                                 block))
-;;                     (dbg-info* (new-dbg-form/new-block dbg-info block*)))
-;;                dbg-info*)))
-;;        (else #F)))
-;;
-;;
-;;(define (cleanup/copy-dbg-kmp expr env)
-;;  (form/copy-transforming
-;;   (lambda (form copy uninteresting)
-;;     copy
-;;     (cond ((and (LOOKUP/? form)
-;;		 (cleanup/env/lookup (lookup/name form) env))
-;;	    => (lambda (value)
-;;		 (form/copy value)))
-;;	   (else
-;;	    (uninteresting form))))
-;;   expr))
+  (code-rewrite/remember new old))
\ No newline at end of file