From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Mark H Weaver Newsgroups: gmane.lisp.guile.devel Subject: Trouble using (current-filename) Date: Tue, 14 Feb 2012 13:57:04 -0500 Message-ID: <87d39h451b.fsf@netris.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1329245926 7928 80.91.229.3 (14 Feb 2012 18:58:46 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 14 Feb 2012 18:58:46 +0000 (UTC) To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Tue Feb 14 19:58:46 2012 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RxNaP-0007zO-Ne for guile-devel@m.gmane.org; Tue, 14 Feb 2012 19:58:45 +0100 Original-Received: from localhost ([::1]:56342 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RxNaP-00046y-2S for guile-devel@m.gmane.org; Tue, 14 Feb 2012 13:58:45 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:54558) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RxNaN-00046t-8e for guile-devel@gnu.org; Tue, 14 Feb 2012 13:58:44 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RxNaH-00032Z-Hf for guile-devel@gnu.org; Tue, 14 Feb 2012 13:58:43 -0500 Original-Received: from world.peace.net ([96.39.62.75]:58443) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RxNaH-00032B-F5 for guile-devel@gnu.org; Tue, 14 Feb 2012 13:58:37 -0500 Original-Received: from 209-6-91-212.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com ([209.6.91.212] helo=yeeloong) by world.peace.net with esmtpsa (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1RxNaA-0008RV-4P; Tue, 14 Feb 2012 13:58:30 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 96.39.62.75 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:13859 Archived-At: I put the following test module in my load path: (define-module (current-filename-fail) :export (my-filename)) (define my-filename (current-filename)) (define (force-a-warning-message) (identity 1 2 3)) And this is what I see with Guile 2.0.5: GNU Guile 2.0.5 Copyright (C) 1995-2012 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guile-user)> ,use (current-filename-fail) ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /home/mhw/guile-modules/current-filename-fail.scm ;;; current-filename-fail.scm:4:34: warning: possibly wrong number of arguments to `identity' ;;; compiled /home/mhw/.cache/guile/ccache/2.0-LE-4-2.0/home/mhw/guile-modules/current-filename-fail.scm.go scheme@(guile-user)> my-filename $1 = #f The (force-a-warning-message) line shows that source information is available. The same thing happens if I remove that line, or if I try with stable-2.0. What am I doing wrong? Thanks, Mark