From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <phiroc@free.fr>
Received: from smtp2-g21.free.fr (smtp2-g21.free.fr [212.27.42.2])
 by sourceware.org (Postfix) with ESMTPS id 237823858D39
 for <kawa@sourceware.org>; Fri, 10 Sep 2021 07:34:00 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 237823858D39
Received: from zimbra65-e11.priv.proxad.net (unknown [172.20.243.215])
 by smtp2-g21.free.fr (Postfix) with ESMTP id BEBCC2003C1
 for <kawa@sourceware.org>; Fri, 10 Sep 2021 09:33:58 +0200 (CEST)
Date: Fri, 10 Sep 2021 09:33:58 +0200 (CEST)
From: phiroc@free.fr
To: kawa@sourceware.org
Message-ID: <1301054857.197399065.1631259238004.JavaMail.root@zimbra65-e11.priv.proxad.net>
In-Reply-To: <971550055.197381511.1631259004148.JavaMail.root@zimbra65-e11.priv.proxad.net>
Subject: define-syntax can only be used with local variables
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 7bit
X-Originating-IP: [78.196.108.109]
X-Mailer: Zimbra 7.2.0-GA2598 (ZimbraWebClient - FF3.0 (Win)/7.2.0-GA2598)
X-Authenticated-User: phiroc@free.fr
X-Spam-Status: No, score=-2.0 required=5.0 tests=BAYES_00, DKIM_SIGNED,
 DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_FROM, RCVD_IN_DNSWL_NONE,
 RCVD_IN_MSPIKE_H3, RCVD_IN_MSPIKE_WL, SPF_HELO_NONE, SPF_PASS,
 TXREP autolearn=ham autolearn_force=no version=3.4.4
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on
 server2.sourceware.org
X-BeenThere: kawa@sourceware.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Kawa mailing list <kawa.sourceware.org>
List-Unsubscribe: <https://sourceware.org/mailman/options/kawa>,
 <mailto:kawa-request@sourceware.org?subject=unsubscribe>
List-Archive: <https://sourceware.org/pipermail/kawa/>
List-Post: <mailto:kawa@sourceware.org>
List-Help: <mailto:kawa-request@sourceware.org?subject=help>
List-Subscribe: <https://sourceware.org/mailman/listinfo/kawa>,
 <mailto:kawa-request@sourceware.org?subject=subscribe>
X-List-Received-Date: Fri, 10 Sep 2021 07:34:01 -0000

Hello,
in the below code, nil! and nil2! only set variables values to '() and '(0) when such variables are local (let).
When I run the code with LispKit Go Scheme, global variables (such as y below) are also set.
What gives?
Many thanks.
Philippe



;;
;; ..\bin\kawa -C .\javafx0.scm
;; java -cp "..\lib\kawa.jar;." javafx0

(let ((x '(1 2 3))) 
    (define-syntax nil!
        (syntax-rules ()
            ((_ x)
                (set! x '()))))
        (nil! x) (newline) (display x) (newline))

(define-syntax nil2!
    (syntax-rules ()
        ((_ x)
            (set! x '(0)))))

(let ((x2 '(4 5 6)))
    (nil2! x2)
    (display x2) (newline))

(define y '(1))
(nil2! y)
(display y) (newline)

(define (f-nil! x)
    (set! x '()))

(define z 4)
(f-nil! z)
(display z)