version: 3.0.5
Reproducer:
a.scm:
(define (test p)
(let loop ((i 0))
(when (< (pk 'i i) 40)
(move->fdes p i)
(loop (+ 1 i)
(test (car (pipe))
Run guile -l a.scm.
The result is non-deterministic.
Output (try #1--#2):
;;; (i 0)
[...]
;;; (i 9)
Backtrace:
In ice-9/boot-9.sc
user@hostname ~$ guile
GNU Guile 3.0.5
Copyright (C) 1995-2021 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.
Enter `,he
Version: 3.0.5 (as found on Guix System, on a x86-64 system)
Here is a minimal reproducer.
(use-modules (ice-9 control))
(define (test)
(define (safe-point)
(call-with-unblocked-asyncs (lambda () 'hi)))
(let/ec
ec
(call-with-blocked-asyncs
(lambda () (system-async-mark ec) (
Patch applied in d1c6ae19f4e6ab8b3b607a5b14f65c437c06e065. Thanks!
Fixed in f499754bc8291a044c5034b634ac02a01bde9b49. Thanks!
This has been fixed in f9f55b9ce74898d1b0a77dcc9b4aa260e5cd208d. Apologies for
not noticing the earlier patch... there were a couple later duplicates.
Thanks!
