Missing whitespace.

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 624258ce463a4d2ee2d656c3c96911702d18c917..a0a5229d631a1e3917a5c7d8e0fc85247cb64e40 100644 (file)
--- 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))
 \f
 ;;;; Invocations