exporting procedure else now breaks case's else clause

[Jan Nieuwenhuizen]

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 <jann...@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl