From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 13 Jun 1987 20:45:51 +0000 (+0000)
Subject: Missing whitespace.
X-Git-Tag: 20090517-FFI~13385
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d018dabfc8a52d5f4aff37578cba38e429e01ec4;p=mit-scheme.git

Missing whitespace.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 624258ce4..a0a5229d6 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.180 1987/06/11 20:48:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.181 1987/06/13 20:45:51 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -597,7 +597,7 @@ MIT in each case. |#
 (define-rule predicate
   (EQ-TEST (OFFSET (REGISTER (? register-1)) (? offset-1))
 	   (OFFSET (REGISTER (? register-2)) (? offset-2)))
-  (eq-test/memory*memory register-1 offset-1register-2 offset-2))
+  (eq-test/memory*memory register-1 offset-1 register-2 offset-2))
 
 ;;;; Invocations