[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
exporting procedure else now breaks case's else clause
From: |
Jan Nieuwenhuizen |
Subject: |
exporting procedure else now breaks case's else clause |
Date: |
Sun, 14 Sep 2014 11:42:01 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
Hi,
In stable-2.0, this works
(define-module (case) #:export (else))
(define (else ast) (if (> (length ast) 3) (cadddr ast) #f))
(define t 't) (case t ((t) #t) (else (eq? t 't)))
with latest master it breaks as soon as else is added to the exports
list:
;;; /home/janneke/vc/verum/development/gaiag/module/gaiag/case.scm:9:31:
case: invalid clause in subform (else (eq? t (quote t))) of (case t ((t) #t)
(else (eq? t (quote t))))
language/cps/reify-primitives.scm:75:11: In procedure #<procedure 2477220
at ice-9/boot-9.scm:509:12 (expr clause clauses)>:
language/cps/reify-primitives.scm:75:11: Syntax error:
/home/janneke/vc/verum/development/gaiag/module/gaiag/case.scm:9:31: case:
invalid clause in subform (else (eq? t (quote t))) of (case t ((t) #t) (else
(eq? t (quote t))))
Bug or feature?
Greetings, Jan
--
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | AvatarĀ® http://AvatarAcademy.nl
- exporting procedure else now breaks case's else clause,
Jan Nieuwenhuizen <=