From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 15:33:07 +0000 (+0000)
Subject: Made it print instructions so I can learn what linear-lap looks like.
X-Git-Tag: 20090517-FFI~6758
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=52b71d7002ccf8c595b32fa4a1f07c171367c7aa;p=mit-scheme.git

Made it print instructions so I can learn what linear-lap looks like.
---

diff --git a/v8/src/compiler/machines/i386/lapopt.scm b/v8/src/compiler/machines/i386/lapopt.scm
index 9c44c8c93..3501f5057 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.1 1995/01/10 20:53:00 adams Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/machines/i386/lapopt.scm,v 1.2 1995/01/12 15:33:07 ssmith Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -37,4 +37,5 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (define (optimize-linear-lap instructions)
-  instructions)
\ No newline at end of file
+  (pp instructions)
+  instructions)