From 747ae73204cbb84d1018a18bf23ef7d4dcba77d8 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 4 Sep 1995 20:41:14 +0000 Subject: [PATCH] Punted reference to obsolete %vector-index. --- v8/src/compiler/midend/dbgred.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/v8/src/compiler/midend/dbgred.scm b/v8/src/compiler/midend/dbgred.scm index 21a54ad88..528ba4e78 100644 --- a/v8/src/compiler/midend/dbgred.scm +++ b/v8/src/compiler/midend/dbgred.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dbgred.scm,v 1.16 1995/08/30 19:54:46 adams Exp $ +$Id: dbgred.scm,v 1.17 1995/09/04 20:41:14 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -768,12 +768,9 @@ reachable. (define (compress-closure-ref op) ;; (CALL '%*-closure-ref '#F 'name) (let* ((closure (dbg-red/compress-expression (fourth form))) - (ix-expr (fifth form)) - (name (quote/text (sixth form)))) - (vector op closure (if (QUOTE/? ix-expr) - (quote/text ix-expr) - (quote/text (CALL/%vector-index/vector ix-expr))) - name))) + (layout (quote/text (fifth form))) + (name (quote/text (sixth form)))) + (vector op closure layout name))) (define (compress-ordinary-call form) (let ((exprs* (map dbg-red/compress-expression (call/operands form)))) -- 2.25.1