From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jan Nieuwenhuizen Newsgroups: gmane.lisp.guile.user Subject: exporting procedure else now breaks case's else clause Date: Sun, 14 Sep 2014 11:42:01 +0200 Organization: AvatarAcademy.nl Message-ID: <87y4tmilna.fsf@drakenvlieg.flower> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1410687748 29951 80.91.229.3 (14 Sep 2014 09:42:28 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 14 Sep 2014 09:42:28 +0000 (UTC) To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sun Sep 14 11:42:22 2014 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XT6K5-0002N4-Om for guile-user@m.gmane.org; Sun, 14 Sep 2014 11:42:21 +0200 Original-Received: from localhost ([::1]:53473 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XT6K5-0006ma-Ea for guile-user@m.gmane.org; Sun, 14 Sep 2014 05:42:21 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34174) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XT6Jt-0006la-Sm for guile-user@gnu.org; Sun, 14 Sep 2014 05:42:14 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XT6Jp-0006Jn-53 for guile-user@gnu.org; Sun, 14 Sep 2014 05:42:09 -0400 Original-Received: from smtp-vbr10.xs4all.nl ([194.109.24.30]:1854) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XT6Jo-0006Ji-TN for guile-user@gnu.org; Sun, 14 Sep 2014 05:42:05 -0400 Original-Received: from drakenvlieg.flower.peder.onsbrabantnet.nl (static.kpn.net [92.70.116.82] (may be forged)) (authenticated bits=0) by smtp-vbr10.xs4all.nl (8.13.8/8.13.8) with ESMTP id s8E9g15C043560 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES128-SHA bits=128 verify=NO); Sun, 14 Sep 2014 11:42:03 +0200 (CEST) (envelope-from janneke@gnu.org) X-Url: http://AvatarAcademy.nl User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) X-Virus-Scanned: by XS4ALL Virus Scanner X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 194.109.24.30 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:11497 Archived-At: 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 #: language/cps/reify-primitives.scm:75:11: Syntax error: /home/janneke/vc/verum/development/gaiag/module/gaiag/case.scm:9:31: ca= se: invalid clause in subform (else (eq? t (quote t))) of (case t ((t) #t) = (else (eq? t (quote t)))) Bug or feature? Greetings, Jan --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.nl= =20=20