From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Alan Grover Newsgroups: gmane.lisp.guile.bugs Subject: srfi-17 generates "deprecated" warnings Date: Wed, 16 Mar 2005 22:13:27 -0500 Message-ID: <4238F5D7.2060801@mail.msen.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1111029344 12874 80.91.229.2 (17 Mar 2005 03:15:44 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 17 Mar 2005 03:15:44 +0000 (UTC) Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Thu Mar 17 04:15:41 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DBlTw-000753-Lt for guile-bugs@m.gmane.org; Thu, 17 Mar 2005 04:15:32 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DBlk9-00085Q-G8 for guile-bugs@m.gmane.org; Wed, 16 Mar 2005 22:32:17 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DBlk0-00083Y-4G for bug-guile@gnu.org; Wed, 16 Mar 2005 22:32:08 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DBljv-00081U-Da for bug-guile@gnu.org; Wed, 16 Mar 2005 22:32:03 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DBljv-00080n-7z for bug-guile@gnu.org; Wed, 16 Mar 2005 22:32:03 -0500 Original-Received: from [148.59.19.5] (helo=conch.msen.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DBlS0-0006KG-Sl for bug-guile@gnu.org; Wed, 16 Mar 2005 22:13:33 -0500 Original-Received: from [127.0.0.1] (awgrover@msen.com [148.59.19.5]) by conch.msen.com (8.12.10/8.12.10) with ESMTP id j2H3DSV2019628 for ; Wed, 16 Mar 2005 22:13:28 -0500 (EST) User-Agent: Mozilla Thunderbird 0.7 (X11/20040615) X-Accept-Language: en-us, en Original-To: bug-guile@gnu.org X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org X-MailScanner-To: guile-bugs@m.gmane.org Xref: news.gmane.org gmane.lisp.guile.bugs:2651 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:2651 The exports in srfi/srfi-17.scm cause a "deprecated" warning. Attempting to use ":re-export" in "define-modules" breaks "set!". Reproducible: always Severity: annoying Guile 1.6.4 Linux xxxxx 2.6.5-7.145-default #1 Thu Jan 27 09:19:29 UTC 2005 i686 i686 i386 GNU/Linux buildstamp = Tue Apr 6 01:50:48 UTC 2004 LIBS = -lqthreads -lpthread -lcrypt -lm libguileinterface = 15:0:3 guileversion = 1.6.4 To Reproduce: guile -c '(use-modules (srfi srfi-17)) (define x (list 1 2)) (set! (cdr x) 3) (write x)(newline)' "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." Setting the environment variable as suggested causes a long list starting with: "Using `export' to re-export imported bindings is deprecated. Use `re-export' instead. (You just re-exported `setter' from `(srfi srfi-17)'.) (You just re-exported `car' from `(srfi srfi-17)'.) (You just re-exported `cdr' from `(srfi srfi-17)'.) (You just re-exported `caar' from `(srfi srfi-17)'.) ..." Attempting to use ":re-export" in "define-modules" causes "set!" to break: ERROR: In procedure setter: ERROR: Wrong type argument in position 1: # Moving the exports to the end of the file works: (this isn't supposed to be different from using ":export" in "define-modules") -- orig/srfi-17.scm +++ mod/srfi-17.scm @@ -68,13 +68,8 @@ ;;; Code: (define-module (srfi srfi-17) - :export (getter-with-setter - setter - ;; redefined standard procedures - car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar - cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr - caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr - cdddar cddddr string-ref vector-ref)) + :export (getter-with-setter) + :re-export (setter)) (cond-expand-provide (current-module) '(srfi-17)) @@ -127,4 +122,10 @@ (define string-ref (getter-with-setter string-ref string-set!)) (define vector-ref (getter-with-setter vector-ref vector-set!)) +(export + ;; redefined standard procedures + car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar + cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr + caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr + cdddar cddddr string-ref vector-ref) ;;; srfi-17.scm ends here -- Alan Grover awgrover@mail.msen.com +1.734.476.0969 _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://lists.gnu.org/mailman/listinfo/bug-guile