From 4cb7a1e70b1cbdfd618c52338fb0a32d6b402ebc Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Aug 1993 20:30:25 +0000
Subject: [PATCH] Improve syntax error checking for ACCESS.

---
 v7/src/runtime/syntax.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index 3b6e101b8..974a7aca2 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syntax.scm,v 14.21 1993/03/03 19:56:10 cph Exp $
+$Id: syntax.scm,v 14.22 1993/08/27 20:30:25 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -284,6 +284,8 @@ MIT in each case. |#
   (make-unassigned? name))
 
 (define (syntax/access . chain)
+  (if (not (and (pair? chain) (pair? (cdr chain))))
+      (syntax-error "too few forms" chain))
   (expand-access chain make-access))
 
 (define (syntax/set! name . rest)
-- 
2.25.1