From: Chris Hanson Date: Fri, 27 Aug 1993 20:30:25 +0000 (+0000) Subject: Improve syntax error checking for ACCESS. X-Git-Tag: 20090517-FFI~7974 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4cb7a1e70b1cbdfd618c52338fb0a32d6b402ebc;p=mit-scheme.git Improve syntax error checking for ACCESS. --- 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)