Improve syntax error checking for ACCESS.

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index 3b6e101b88538ce7e4b39e6525f1b78d1661647c..974a7aca20bc588d14a28102645a70ddd4999f51 100644 (file)
--- 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)