From 03971be76f80405263fe88a16ce63ae53dd8a655 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 14 May 1987 10:56:30 +0000 Subject: [PATCH] Fix arguments to `reference-temporary-register!'. --- v7/src/compiler/back/lapgn1.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/back/lapgn1.scm b/v7/src/compiler/back/lapgn1.scm index e512a5136..9d7709261 100644 --- a/v7/src/compiler/back/lapgn1.scm +++ b/v7/src/compiler/back/lapgn1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.30 1987/05/13 10:59:51 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.31 1987/05/14 10:56:30 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -230,8 +230,8 @@ MIT in each case. |# (define-integrable (reference-assignment-alias! register type) (register-reference (allocate-assignment-alias! register type))) -(define-integrable (reference-temporary-register! register type) - (register-reference (allocate-temporary-register! register type))) +(define-integrable (reference-temporary-register! type) + (register-reference (allocate-temporary-register! type))) (define (move-to-alias-register! source type target) (reuse-pseudo-register-alias! source type -- 2.25.1