From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 22 Jan 1990 03:01:34 +0000 (+0000)
Subject: Add missing ,@ in load-machine-register!
X-Git-Tag: 20090517-FFI~11578
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f5fc83ddb7bab4e162d278dc09e1b4d271923983;p=mit-scheme.git

Add missing ,@ in load-machine-register!
---

diff --git a/v7/src/compiler/back/lapgn2.scm b/v7/src/compiler/back/lapgn2.scm
index b73d8effa..aa7c4b359 100644
--- a/v7/src/compiler/back/lapgn2.scm
+++ b/v7/src/compiler/back/lapgn2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.16 1990/01/20 07:32:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.17 1990/01/22 03:01:34 jinx Exp $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -335,9 +335,10 @@ MIT in each case. |#
   ;; Copy the contents of `source-register' to `machine-register'.
   (if (machine-register? source-register)
       (LAP ,@(clear-registers! machine-register)
-	   (if (eqv? source-register machine-register)
-	       (LAP)
-	       (register->register-transfer source-register machine-register)))
+	   ,@(if (eqv? source-register machine-register)
+		 (LAP)
+		 (register->register-transfer source-register
+					      machine-register)))
       (if (is-alias-for-register? machine-register source-register)
 	  (clear-registers! machine-register)
 	  (let ((source-reference