From ef5d37f289a524f1aa39e7c4be9abc983af76a7e Mon Sep 17 00:00:00 2001
From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 16:22:32 +0000
Subject: [PATCH] Stupid bug in call (car) of procedure get-instruction-info.

---
 v8/src/compiler/machines/i386/lapopt.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v8/src/compiler/machines/i386/lapopt.scm b/v8/src/compiler/machines/i386/lapopt.scm
index a783c24c9..5ac0f0023 100644
--- a/v8/src/compiler/machines/i386/lapopt.scm
+++ b/v8/src/compiler/machines/i386/lapopt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.3 1995/01/12 16:16:21 ssmith Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.4 1995/01/12 16:22:32 ssmith Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -124,5 +124,5 @@ MIT in each case. |#
     (if (null? inst)
 	(pp times)
 	(loop (cdr inst)
-	      (+ times (car get-instruction-info)))))
+	      (+ times (car (get-instruction-info (car inst)))))))
   instructions)
-- 
2.25.1