From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Mitchell Kember Newsgroups: gmane.lisp.guile.user Subject: Having trouble with syntax-source Date: Fri, 22 Apr 2022 12:51:27 -0400 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="20590"; mail-complaints-to="usenet@ciao.gmane.io" To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Fri Apr 22 23:38:18 2022 Return-path: Envelope-to: guile-user@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ni0yo-0005BY-Ci for guile-user@m.gmane-mx.org; Fri, 22 Apr 2022 23:38:18 +0200 Original-Received: from localhost ([::1]:58944 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ni0ym-0003iO-RS for guile-user@m.gmane-mx.org; Fri, 22 Apr 2022 17:38:16 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:48200) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nhwVT-000855-7Z for guile-user@gnu.org; Fri, 22 Apr 2022 12:51:43 -0400 Original-Received: from mail-yb1-xb2d.google.com ([2607:f8b0:4864:20::b2d]:38849) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nhwVP-00078s-P4 for guile-user@gnu.org; Fri, 22 Apr 2022 12:51:42 -0400 Original-Received: by mail-yb1-xb2d.google.com with SMTP id v10so6728028ybe.5 for ; Fri, 22 Apr 2022 09:51:39 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=Aq4irvKbqv5RwdEvJ72M6zlrRmFXEflJtIsEzDBS0JA=; b=Cg6AQagHRN7L1ARM/8I4V2tel0r8N2n2Mim9ZzpoO18zaoiv2KiC8f/W/VEiacowyd 8J0P2EflRgJaKE2rilBui0zMS6MaPa/slYdWQR5fLYENn8guLihL34hKO3xT7lDPplyf iAUi7TzTd3Nl1jZIz/Vj0OYzqLK4DFtwBcmZbYmSW+ZpHoNi91Cpdpykw8JaE9y05FL5 XqiMDkb2ChtgAExGsReWrv9Sk7gcIxY0THWxS6oo3koRBYOvgzEihOyLrVRST5cJrchX 7QJoXjpDqn/aYvuFTgR60gXGqzRe3wZQOh+FbLDvo4IX2UrC5j68hFp78MzgmMaXRSHY UFUg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=Aq4irvKbqv5RwdEvJ72M6zlrRmFXEflJtIsEzDBS0JA=; b=UrIt+EpEMtxlzzTqmfWo5leiDWRWI9xG9i+pQRdUeqEkibKo5odEqxprKGe0Wg3Wms ELhFIscypi6Y3yHX0vj6bg05O8+o9WItGwzNGdCBrZd086SABLSV/v0pFN+piVEylcXG O0JWtufwMgGfUpIxHaLAfK/RA6gpGCd3Ki+SSWvhDMVfnAjgP4B3SZv/RIAJR1XYF9aH ldyB28jmSQHPvnTGchPVRID9GBewIaU6AuA7Dcl7QkmpECUFeMMYo35TczEqazImsWlD uAtZjHt7yw+B9QRxxGOfwmM/TXgsSKf2jvv2j9uLNlRc/LoLjxzCWxFbzQ4b3HvOvg88 zcZA== X-Gm-Message-State: AOAM5337vIqCXzc+i8nMd2a9ydwuBODMmG2lpLHb79CN9SAmGcpSwYU7 cmTkB50w7SqYwXyVyPjypOoK0AgHOYApdxfjUPIz7RsQHXi9Qw== X-Google-Smtp-Source: ABdhPJxqaCqHHF/typCmDabsCx3Or/TcKzO0Cp2sZQAelihbze3O2+iD+lOguwOrquToOEqGqlCfzPBNiG+qsW8Lpq4= X-Received: by 2002:a25:344b:0:b0:645:7778:4ebf with SMTP id b72-20020a25344b000000b0064577784ebfmr5337435yba.91.1650646298330; Fri, 22 Apr 2022 09:51:38 -0700 (PDT) Received-SPF: pass client-ip=2607:f8b0:4864:20::b2d; envelope-from=mk12360@gmail.com; helo=mail-yb1-xb2d.google.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Fri, 22 Apr 2022 17:37:57 -0400 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.io gmane.lisp.guile.user:18258 Archived-At: Hi, I'm having trouble using syntax-source in a macro. Here's what I have: #!r6rs (import (rnrs (6))) (define-syntax foo (lambda (x) (syntax-case x () ((_ e) (begin (display (syntax-source #'e)) (newline) #'(display (syntax-source #'e))))))) (foo (list 1)) Displaying the syntax-source works the first time during macro expansion, but not the second time in the result of the macro: $ guile --no-auto-compile --r6rs test-0-guile.ss ((filename . test-0-guile.ss) (line . 13) (column . 5)) Backtrace: 2 (primitive-load "/path/to/test-0-guile.ss") In ice-9/eval.scm: 191:35 1 (_ #f) In unknown file: 0 (syntax-source (# #)) ERROR: In procedure syntax-source: In procedure syntax-source: Wrong type argument in position 1 (expecting syntax object): (# #) I've tried the same thing in Racket and Chez Scheme and it works fine there: https://gist.github.com/mk12/dc5a54107e46e67d702bb377304b144f Is there some way to fix it for Guile? (Ideally in a way that also works for Racket and Chez, since I'm in a codebase that targets all of them, https://github.com/mk12/sicp). Thanks, Mitchell