From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Rob Browning Newsgroups: gmane.lisp.guile.devel Subject: Should an enclosing let keep the compiler from handling define-module? Date: Wed, 24 Jul 2019 10:27:18 -0500 Message-ID: <875znrmp0p.fsf@trouble.defaultvalue.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="91112"; mail-complaints-to="usenet@blaine.gmane.org" To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Wed Jul 24 17:27:27 2019 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1hqJAt-000NaW-3D for guile-devel@m.gmane.org; Wed, 24 Jul 2019 17:27:27 +0200 Original-Received: from localhost ([::1]:52572 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hqJAs-0007Bj-4g for guile-devel@m.gmane.org; Wed, 24 Jul 2019 11:27:26 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45831) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hqJAn-0007Bc-Sg for guile-devel@gnu.org; Wed, 24 Jul 2019 11:27:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hqJAm-0006Jw-S5 for guile-devel@gnu.org; Wed, 24 Jul 2019 11:27:21 -0400 Original-Received: from defaultvalue.org ([45.33.119.55]:37914) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hqJAm-0006Ic-Mh for guile-devel@gnu.org; Wed, 24 Jul 2019 11:27:20 -0400 Original-Received: from trouble.defaultvalue.org (localhost [127.0.0.1]) (Authenticated sender: rlb@defaultvalue.org) by defaultvalue.org (Postfix) with ESMTPSA id B27822033D for ; Wed, 24 Jul 2019 10:27:18 -0500 (CDT) Original-Received: by trouble.defaultvalue.org (Postfix, from userid 1000) id 41C0114E066; Wed, 24 Jul 2019 10:27:18 -0500 (CDT) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 45.33.119.55 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.23 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" Xref: news.gmane.org gmane.lisp.guile.devel:20019 Archived-At: This doesn't work with 2.2.4: (eval-when (expand load eval) (let ((ignored #t)) (define-module (bar) #:use-module (has-foo)) (format #t "foo: ~s\n" (foo)))) producing: ERROR: In procedure %resolve-variable: Unbound variable: foo Is that expected? I'm not sure if what I was attempting is reasonable, but the original motivation was wanting to create a syntax that can capture and restore some state around the invocation of define-module, e.g.: (define-syntax def-mod (lambda (x) (syntax-case x () ((_ name) #`(eval-when (expand load eval) (let ((orig (current-language))) (current-language 'scheme) (define-module name #:use-module (has-foo)) ... (current-language orig))))))) Thanks -- Rob Browning rlb @defaultvalue.org and @debian.org GPG as of 2011-07-10 E6A9 DA3C C9FD 1FF8 C676 D2C4 C0F0 39E9 ED1B 597A GPG as of 2002-11-03 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 73A4