From d018dabfc8a52d5f4aff37578cba38e429e01ec4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 13 Jun 1987 20:45:51 +0000 Subject: [PATCH] Missing whitespace. --- v7/src/compiler/machines/bobcat/lapgen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1