From 4222d46cc527466dcc18d0bc33cde6c6cd0aec3b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 8 Jul 1995 03:31:36 +0000 Subject: [PATCH] Removed accidental copy of a procedure. --- v8/src/compiler/midend/stackopt.scm | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/v8/src/compiler/midend/stackopt.scm b/v8/src/compiler/midend/stackopt.scm index e6ecaac36..f578bf8df 100644 --- a/v8/src/compiler/midend/stackopt.scm +++ b/v8/src/compiler/midend/stackopt.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: stackopt.scm,v 1.9 1995/07/07 19:29:33 adams Exp $ +$Id: stackopt.scm,v 1.10 1995/07/08 03:31:36 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -523,20 +523,6 @@ End of Big Note A |# ,(call/%make-stack-closure/vector form) ,@values*)))))) -(define (stackopt/rewrite-dbg-frames! frame-var new-vector) - (dbg-info/for-all-dbg-expressions! - (lambda (expr) - (match expr - ((CALL ',%stack-closure-ref - '#F - (LOOKUP ?frame) - (CALL ',%vector-index '#F ?quoted-vector '_) - '_) - (eq? frame frame-var) - => (pp `(,expr ,frame-vector ,new-vector)) - (form/rewrite! quoted-vector - `(QUOTE ,new-vector))))))) - (define (stackopt/rewrite-dbg-frames! frame-var new-vector) (dbg-info/for-all-dbg-expressions! (lambda (expr) -- 2.25.1