Here is the code snippet to crash S7 Scheme: (define (length>? lst len) (let loop ((lst lst) (cnt 0)) (if (null? lst) (< len cnt) (loop (cdr lst) (+ cnt 1))))) (length>? '(1 2 . 3) 2) How to reproduce it on Debian 12: cc -o repl repl.c s7.c -Wl,-export-dynamic -lm -I. -ldl ./repl crash.scm
_______________________________________________ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist
