From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Marco Maggi Newsgroups: gmane.lisp.guile.user Subject: [r6rs] expansion bug, probably free-identifier=? related Date: Mon, 28 Feb 2011 07:56:10 +0100 Message-ID: <8739n8y7ed.fsf@rapitore.luna> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1298876082 27110 80.91.229.12 (28 Feb 2011 06:54:42 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 28 Feb 2011 06:54:42 +0000 (UTC) To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Mon Feb 28 07:54:38 2011 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Ptx09-0002NS-Ue for guile-user@m.gmane.org; Mon, 28 Feb 2011 07:54:38 +0100 Original-Received: from localhost ([127.0.0.1]:35903 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ptx09-0006Do-Ja for guile-user@m.gmane.org; Mon, 28 Feb 2011 01:54:37 -0500 Original-Received: from [140.186.70.92] (port=59681 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ptx03-0006Dj-LG for guile-user@gnu.org; Mon, 28 Feb 2011 01:54:33 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ptwzz-00076C-7y for guile-user@gnu.org; Mon, 28 Feb 2011 01:54:31 -0500 Original-Received: from relay-pt2.poste.it ([62.241.5.253]:40811) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ptwzz-000768-2t for guile-user@gnu.org; Mon, 28 Feb 2011 01:54:27 -0500 Original-Received: from rapitore.luna (93.147.76.202) by relay-pt2.poste.it (8.5.121.01) (authenticated as marco.maggi-ipsu@poste.it) id 00000000004C5E77; Mon, 28 Feb 2011 07:54:24 +0100 Original-Sender: marco.maggi-ipsu@poste.it X-Loop: marco@maggi.it.invalid X-Mailer: GNU Emacs Original-Lines: 52 X-detected-operating-system: by eggs.gnu.org: Solaris 9 X-Received-From: 62.241.5.253 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:8465 Archived-At: The following little package: works with Larceny, Mosh, Petite Chez, Racket, Vicare and Ypsilon; with Guile 2.0 it fails with: GUILE_LOAD_PATH=.: guile -l guile-r6rs-setup.scm --auto-compile -s ./test-flatt-syntactic.sps; GUILE_LOAD_PATH=.: guile -l guile-r6rs-setup.scm --auto-compile -s ./test-synrec6.sps; ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /home/marco/src/devel/scheme/icaro/src/standalone/synrec6/./test-flatt-syntactic.sps ;;; WARNING: compilation of /home/marco/src/devel/scheme/icaro/src/standalone/synrec6/./test-flatt-syntactic.sps failed: ;;; key r6rs:exception, throw_args (#) Backtrace: In module/ice-9/boot-9.scm: 170: 13 [catch #t # ...] In unknown file: ?: 12 [catch-closure] In module/ice-9/boot-9.scm: 62: 11 [call-with-prompt prompt0 ...] In module/ice-9/eval.scm: 389: 10 [eval # #] In module/ice-9/boot-9.scm: 1917: 9 [save-module-excursion #] 3348: 8 [#] 1189: 7 [%start-stack load-stack ...] 1194: 6 [#] In unknown file: ?: 5 [primitive-load "/home/marco/src/devel/scheme/icaro/src/standalone/synrec6/./test-flatt-syntactic.sps"] In module/ice-9/eval.scm: 458: 4 [# #] In module/ice-9/psyntax.scm: 1066: 3 [chi-top (six.define-record-type # # #) () (#) ...] 1007: 2 [syntax-type (six.define-record-type # # #) () (#) ...] 1303: 1 [chi-macro # (six.define-record-type # # #) () ...] In unknown file: ?: 0 [# #(syntax-object # # #)] ERROR: In procedure #: ERROR: ERROR: R6RS exception: 1. &who: define-record-type 2. &message: "invalid clause in record type definition" 3. &syntax: form: (six.define-record-type (point make-point point?) (six.fields (six.immutable x point-x) (six.mutable y point-y set-point-y!)) (six.nongenerative point-4893d957-e00b-11d9-817f-00111175eb9e)) subform: (six.fields (six.immutable x point-x) (six.mutable y point-y set-point-y!)) Some deprecated features have been used. Set the environment variable GUILE_WARN_DEPRECATED to "detailed" and rerun the program to get more information. Set it to "no" to suppress this message. -- Marco Maggi