From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Newsgroups: gmane.lisp.guile.bugs Subject: bug#17418: #:select gives access to private variables Date: Tue, 06 May 2014 10:48:17 +0200 Message-ID: <87sion47ji.fsf@gnu.org> 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 1399413754 24717 80.91.229.3 (6 May 2014 22:02:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 6 May 2014 22:02:34 +0000 (UTC) To: 17418@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed May 07 00:02:28 2014 Return-path: Envelope-to: guile-bugs@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 1WhnQl-00015O-Hx for guile-bugs@m.gmane.org; Wed, 07 May 2014 00:01:43 +0200 Original-Received: from localhost ([::1]:33679 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Whb40-0002Bz-MU for guile-bugs@m.gmane.org; Tue, 06 May 2014 04:49:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51138) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Whb3o-0002Au-By for bug-guile@gnu.org; Tue, 06 May 2014 04:49:21 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Whb3f-0006Fi-9a for bug-guile@gnu.org; Tue, 06 May 2014 04:49:12 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:34991) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Whb3f-0006Fb-5B for bug-guile@gnu.org; Tue, 06 May 2014 04:49:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Whb3e-0006C8-MO for bug-guile@gnu.org; Tue, 06 May 2014 04:49:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Tue, 06 May 2014 08:49:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 17418 X-GNU-PR-Package: guile X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.139936613523796 (code B ref -1); Tue, 06 May 2014 08:49:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 6 May 2014 08:48:55 +0000 Original-Received: from localhost ([127.0.0.1]:52342 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Whb3W-0006Bj-83 for submit@debbugs.gnu.org; Tue, 06 May 2014 04:48:54 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:49266) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Whb3U-0006BU-Bm for submit@debbugs.gnu.org; Tue, 06 May 2014 04:48:53 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Whb3G-0006CX-9Q for submit@debbugs.gnu.org; Tue, 06 May 2014 04:48:47 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:41363) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Whb3G-0006CT-6J for submit@debbugs.gnu.org; Tue, 06 May 2014 04:48:38 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50943) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Whb36-000277-UL for bug-guile@gnu.org; Tue, 06 May 2014 04:48:38 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Whb2x-00069S-S7 for bug-guile@gnu.org; Tue, 06 May 2014 04:48:28 -0400 Original-Received: from hera.aquilenet.fr ([2a01:474::1]:35981) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Whb2x-00069K-L5 for bug-guile@gnu.org; Tue, 06 May 2014 04:48:19 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by hera.aquilenet.fr (Postfix) with ESMTP id 1DDC227B3 for ; Tue, 6 May 2014 10:48:18 +0200 (CEST) Original-Received: from hera.aquilenet.fr ([127.0.0.1]) by localhost (hera.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id KkfcNBDHmPBt for ; Tue, 6 May 2014 10:48:18 +0200 (CEST) Original-Received: from pluto (pluto.bordeaux.inria.fr [193.50.110.57]) by hera.aquilenet.fr (Postfix) with ESMTPSA id D54544FD for ; Tue, 6 May 2014 10:48:17 +0200 (CEST) X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 17 =?UTF-8?Q?Flor=C3=A9al?= an 222 de la =?UTF-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0xEA52ECF4 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 83C4 F8E5 10A3 3B4C 5BEA D15D 77DD 95E2 EA52 ECF4 X-OS: x86_64-unknown-linux-gnu User-Agent: Gnus/5.130009 (Ma Gnus v0.9) Emacs/24.3 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7449 Archived-At: Consider this module: --8<---------------cut here---------------start------------->8--- (define-module (t)) (define private #t) --8<---------------cut here---------------end--------------->8--- And now: --8<---------------cut here---------------start------------->8--- [ludo@pluto:~/src/guix]$ guile -L . GNU Guile 2.0.11.20-4338f Copyright (C) 1995-2014 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-modules (t)) ;;; note: source file ./t.scm ;;; newer than compiled /home/ludo/.cache/guile/ccache/2.0-LE-8-2.0/h= ome/ludo/src/guix/t.scm.go ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling ./t.scm ;;; compiled /home/ludo/.cache/guile/ccache/2.0-LE-8-2.0/home/ludo/src/guix= /t.scm.go scheme@(guile-user)> private ;;; : warning: possibly unbound variable `private' ERROR: In procedure #: ERROR: In procedure module-lookup: Unbound variable: private Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. scheme@(guile-user) [1]>=20 --8<---------------cut here---------------end--------------->8--- This is as expected. But adding #:select (private) gives access to =E2=80=98private=E2=80=99: --8<---------------cut here---------------end--------------->8--- [ludo@pluto:~/src/guix]$ guile -L . GNU Guile 2.0.11.20-4338f Copyright (C) 1995-2014 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-modules ((t) #:select (private))) scheme@(guile-user)> private $1 =3D #t --8<---------------cut here---------------end--------------->8--- Ludo=E2=80=99.