From: Damien Mattei <damien.mattei@oca.eu>
To: Philippe de Rochambeau <phiroc@free.fr>,
Damien Mattei <damien.mattei@gmail.com>
Cc: Jean-Paul Roy <jean-paul.roy@unice.fr>, kawa@sourceware.org
Subject: Re: define-syntax can only be used with local variables
Date: Tue, 14 Sep 2021 18:34:24 +0200 [thread overview]
Message-ID: <6f24aba1-97fd-eba9-2eb4-b2bae8d87a72@oca.eu> (raw)
In-Reply-To: <DED06539-73E2-4D20-8B4A-397300386AE3@free.fr>
i made my test on linux with a 2.0 or 2.1 version, testing on mac os x i
have the same error you have.
I installed it with brew:
mattei@macbook-pro-touch-bar ~ % brew install kawa
Updating Homebrew...
==> Auto-updated Homebrew!
Updated 1 tap (homebrew/core).
==> New Formulae
abricate cargo-outdated fastq-tools
locust reproc
age chrpath flamebearer
microsocks rollup
airspyhf cilium-cli fst
mimalloc sail
alembic cosign ghostunnel
mrbayes selene
ansilove cppzmq go@1.16
msgpack-cxx singularity
artillery cruft h2c
murex solana
atop cue htmlq nanoflann
spirv-llvm-translator
basis_universal datree jpdfbookmarks
newrelic-infra-agent spot
bat-extras dotbot kn
osc-cli uftrace
bbtools drill libaec
ots vespa-cli
bioperl eigenpy libmng
pari-galdata vite
bubblewrap esbuild librespot
pari-galpol vue-cli
cargo-bloat f2 librist
pari-seadata yt-dlp
cargo-llvm-lines fann lit pari-seadata-big
==> Updated Formulae
Updated 2158 formulae.
==> Renamed Formulae
kafkacat -> kcat
==> Deleted Formulae
boost@1.57 boost@1.60 procyon-decompiler
==> Downloading https://ghcr.io/v2/homebrew/core/openjdk/manifests/16.0.2
########################################################################
100.0%
==> Downloading
https://ghcr.io/v2/homebrew/core/openjdk/blobs/sha256:83b39e22b91173ee797b09e11bbcb08b3cff5c3aeed65f64cb5f8c4
==> Downloading from
https://pkg-containers.githubusercontent.com/ghcr1/blobs/sha256:83b39e22b91173ee797b09e11bbcb08b3cff5c3a
########################################################################
100.0%
==> Downloading https://ghcr.io/v2/homebrew/core/kawa/manifests/3.1.1_1
########################################################################
100.0%
==> Downloading
https://ghcr.io/v2/homebrew/core/kawa/blobs/sha256:4832b73db70b9b1c74289522820b9ba04c2eab1bf03285e4bfdfc76962
==> Downloading from
https://pkg-containers.githubusercontent.com/ghcr1/blobs/sha256:4832b73db70b9b1c74289522820b9ba04c2eab1b
########################################################################
100.0%
==> Installing dependencies for kawa: openjdk
==> Installing kawa dependency: openjdk
==> Pouring openjdk--16.0.2.arm64_big_sur.bottle.tar.gz
🍺 /opt/homebrew/Cellar/openjdk/16.0.2: 643 files, 281.5MB
==> Installing kawa
==> Pouring kawa--3.1.1_1.all.bottle.tar.gz
🍺 /opt/homebrew/Cellar/kawa/3.1.1_1: 12 files, 5MB
==> `brew cleanup` has not been run in the last 30 days, running now...
Removing: /Users/mattei/Library/Caches/Homebrew/m4--1.4.18... (228.4KB)
Removing: /Users/mattei/Library/Logs/Homebrew/pkg-config... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/libtool... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/gmp... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/libunistring... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/bdw-gc... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/readline... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/m4... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/guile... (64B)
Removing: /Users/mattei/Library/Logs/Homebrew/libffi... (64B)
mattei@macbook-pro-touch-bar ~ % kawa
#|kawa:1|# (define-syntax nil2!
#|.....2|# (syntax-rules ()
#|.....3|# ((_ x)
#|.....4|# (set! x '(0)))))
#|kawa:5|# (define y '(1))
#|kawa:6|# (nil2! y)
#|kawa:7|# y
(1)
with this problem i would made some test with an install from source if
you can and on other platform to see if it is a mac os x special
problem or a bug in the source code.
Damien
Le 14/09/2021 à 18:14, Philippe de Rochambeau via Kawa a écrit :
> I get (1) :
>
> (define-syntax nil2!
> (syntax-rules ()
> ((_ x)
> (set! x '(0)))))
>
>
> #|kawa:1|# (load "define2.scm")
> #|kawa:2|# (define y '(1))
> #|kawa:3|# y
> (1)
> #|kawa:4|# (nil2! y)
> #|kawa:5|# y
> (1)
> #|kawa:6|#
>
> I am using Kawa 3.1.1 on Macosx.
>
> Philippe
>
>
>> Le 14 sept. 2021 à 14:42, Damien Mattei <damien.mattei@gmail.com> a écrit :
>>
>> i have test one of your example and it works fine on my system:
>> mattei@moita ~]$ kawa
>> #|kawa:1|# (define-syntax nil2!
>> (syntax-rules ()
>> ((_ x)
>> (set! x '(0)))))
>> #|(---:2|# #|(---:3|# #|(---:4|# #|kawa:5|#
>> #|kawa:6|# (define y '(1))
>> (nil2! y)
>> (display y) (newline)#|kawa:7|# #|kawa:8|#
>> (0)
>> #|kawa:9|# y
>> (0)
>>
>> Damien
>>
>> On Fri, Sep 10, 2021 at 9:34 AM phiroc--- via Kawa <kawa@sourceware.org <mailto:kawa@sourceware.org>> wrote:
>> 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)
next prev parent reply other threads:[~2021-09-14 16:34 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <971550055.197381511.1631259004148.JavaMail.root@zimbra65-e11.priv.proxad.net>
2021-09-10 7:33 ` phiroc
2021-09-14 12:42 ` Damien Mattei
2021-09-14 16:14 ` Philippe de Rochambeau
2021-09-14 16:34 ` Damien Mattei [this message]
2021-09-14 16:58 ` Philippe de Rochambeau
2021-09-14 17:26 ` Per Bothner
2021-09-14 17:38 ` Damien Mattei
2021-09-14 17:58 ` Damien Mattei
2021-09-14 18:00 ` Damien Mattei
2021-09-14 18:07 ` Per Bothner
2021-09-14 18:38 ` Damien Mattei
2021-09-14 19:30 ` Per Bothner
2021-09-15 7:10 ` phiroc
2021-09-16 10:02 ` phiroc
2021-09-16 10:41 ` Damien MATTEI
2021-09-16 11:05 ` phiroc
2021-09-16 13:44 ` Damien MATTEI
2021-09-17 5:29 ` Per Bothner
2021-09-17 7:00 ` phiroc
2021-09-17 10:48 ` Per Bothner
2021-09-16 21:11 ` Per Bothner
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=6f24aba1-97fd-eba9-2eb4-b2bae8d87a72@oca.eu \
--to=damien.mattei@oca.eu \
--cc=Damien.MATTEI@univ-cotedazur.fr \
--cc=damien.mattei@gmail.com \
--cc=jean-paul.roy@unice.fr \
--cc=kawa@sourceware.org \
--cc=phiroc@free.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).