From 88d671215a917e8b0d6f5184cba6ea7ad5256d71 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 3 Aug 1995 23:28:21 +0000 Subject: [PATCH] Fix typo. --- v8/src/compiler/midend/dbgred.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/dbgred.scm b/v8/src/compiler/midend/dbgred.scm index 589c88313..adcd7f2d8 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.10 1995/08/03 23:23:50 adams Exp $ +$Id: dbgred.scm,v 1.11 1995/08/03 23:28:21 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -733,9 +733,9 @@ reachable. (cons (vector from to) (cdr *dbg-rewrites*)))) (cond ((eq? from to)) - ((CALL/? form) - (if (QUOTE/? (call/operator form)) - (let ((op (quote/text (call/operator form)))) + ((CALL/? to) + (if (QUOTE/? (call/operator to)) + (let ((op (quote/text (call/operator to)))) (cond ((hash-table/get *dbg-forbidden-operators* op #F)) ((hash-table/get dbg-reduce/equivalent-operators op #F) (good)) -- 2.25.1