From dfedb641f383058cd68e0e5610cd81703f48e601 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 16 Jul 1988 10:14:30 +0000 Subject: [PATCH] Fix stupid bug in `cond' syntaxer. --- v7/src/runtime/syntax.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm index 8028b6a6b..c1de76193 100644 --- a/v7/src/runtime/syntax.scm +++ b/v7/src/runtime/syntax.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/Attic/syntax.scm,v 14.3 1988/07/15 22:28:01 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/Attic/syntax.scm,v 14.4 1988/07/16 10:14:30 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -316,7 +316,7 @@ MIT in each case. |# (define (syntax/cond clause . rest) (define (loop clause rest) (cond ((eq? (car clause) 'ELSE) - (if (null? rest) + (if (not (null? rest)) (syntax-error "ELSE not last clause" rest)) (syntax-sequence (cdr clause))) ((null? (cdr clause)) -- 2.25.1