From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 Jun 1987 14:50:15 +0000 (+0000)
Subject: `load-dnw' returns a single instruction, not a list.
X-Git-Tag: 20090517-FFI~13403
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ae4f3e31c8180ac27da44476adcd884908d5e5a4;p=mit-scheme.git

`load-dnw' returns a single instruction, not a list.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index de2caf9f5..7c8fecc9d 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.177 1987/06/04 15:56:01 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.178 1987/06/08 14:50:15 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -887,7 +887,7 @@ MIT in each case. |#
 		      `((LEA (@PCR ,(cdar references)) (A 1))
 			,@(if (null? (cdr references))
 			      `((JSR ,entry:compiler-cache-variable))
-			      `(,@(load-dnw (length references) 1)
+			      `(,(load-dnw (length references) 1)
 				(JSR ,entry:compiler-cache-variable-multiple)))
 			,@(make-external-label (generate-label))))
 		,@(if (null? uuo-links)
@@ -895,7 +895,7 @@ MIT in each case. |#
 		      `((LEA (@PCR ,(cdar uuo-links)) (A 1))
 			,@(if (null? (cdr uuo-links))
 			      `((JSR ,entry:compiler-uuo-link))
-			      `(,@(load-dnw (length uuo-links) 1)
+			      `(,(load-dnw (length uuo-links) 1)
 				(JSR ,entry:compiler-uuo-link-multiple)))
 			,@(make-external-label (generate-label)))))
 	      '())))))