Ludovic Courtès <l...@gnu.org> writes: > With this program: > > --8<---------------cut here---------------start------------->8--- > (use-modules (ice-9 threads) > (srfi srfi-1)) > > (define-syntax-parameter foo > (identifier-syntax +)) > > (define threads > (unfold (lambda (x) (> x 100)) > (lambda (x) > (call-with-new-thread > (lambda () > (while #t > (macroexpand > '(syntax-parameterize ((foo (identifier-syntax -))) > (foo y z))))))) > 1+ > 0)) > > (for-each join-thread threads) > --8<---------------cut here---------------end--------------->8---
I have tried this programme on my 16 core 32G workstation, and on the 192 core 1.5T server, but could not get it to segfault. -- Ricardo GPG: BCA6 89B6 3655 3801 C3C6 2150 197A 5888 235F ACAC https://elephly.net
