From 011b7487ae42b6c0c56c3108f26d8dfd5cc5fd62 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 4 Jul 1995 05:47:49 +0000 Subject: [PATCH] Tidying. --- v8/src/compiler/midend/cleanup.scm | 30 ++---------------------------- 1 file changed, 2 insertions(+), 28 deletions(-) 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 -- 2.25.1