From 13591100909e631b639aa94ba8d2387497e19a03 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 20 Aug 1987 20:43:25 +0000
Subject: [PATCH] & effective address was not being syntaxed correctly.

---
 v7/src/compiler/machines/vax/insutl.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/machines/vax/insutl.scm b/v7/src/compiler/machines/vax/insutl.scm
index 130fb1519..04f5027bd 100644
--- a/v7/src/compiler/machines/vax/insutl.scm
+++ b/v7/src/compiler/machines/vax/insutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 1.3 1987/08/18 18:29:18 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/insutl.scm,v 1.4 1987/08/20 20:43:25 jinx Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -238,7 +238,9 @@ MIT in each case. |#
 	    ((and (pair? expression) (eq? (car expression) '&))
 	     (wrap '& '(R A V I)	; M and W unpredictable
 		   15 8
-		   (coerce-to-type (cadr expression) type)))
+		   (cons-syntax
+		    (coerce-to-type (cadr expression) type)
+		    '())))
 	    (else #F))))
 	  
   (cond ((not (pair? expression)) #F)
-- 
2.25.1