<div class="__aliyun_email_body_block"><div  style="font-family: Tahoma, Arial, STHeitiSC-Light, SimSun"><div  style="clear: both;">Here is the code snippet to crash S7 Scheme:</div><div  style="clear: both;"><br ></div><div  style="clear: both;"><span  style="font-family: monospace;"><span  style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);">(define (length&gt;? lst len)
</span><br > &nbsp;(let loop ((lst lst)
<br > &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cnt 0))
<br > &nbsp;&nbsp;&nbsp;(if (null? lst)
<br > &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(&lt; len cnt)
<br > &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(loop (cdr lst) (+ cnt 1)))))
<br ><br >(length&gt;? '(1 2 . 3) 2)</span></div><div  style="clear: both;"><span  style="font-family: monospace;"><br ></span></div><div  style="clear: both;"><span  style="font-family: monospace;">How to reproduce it on Debian 12:</span></div><div  style="clear: both;"><span  style="font-family: monospace;"><span  style="font-family: monospace;"><span  style="color: rgb(24, 178, 24); background-color: rgb(255, 255, 255);">cc</span><span  style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);"> -o repl repl.c s7.c &nbsp;-Wl,-export-dynamic -lm -I. -ldl</span></span></span></div><div  style="clear: both;"><span  style="font-family: monospace;"><span  style="font-family: monospace;"><span  style="font-family: monospace;"><span  style="color: rgb(24, 178, 24); background-color: rgb(255, 255, 255);">./repl&nbsp;</span><span  style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);">crash.scm</span><br ></span><br ></span></span></div><div  style="clear: both;"><span  style="font-family: monospace;"><br ></span></div><div  style="clear: both;"><span  style="font-family: monospace;"><br ></span></div><div  style="clear: both;"><span  style="font-family: monospace;"><br ><br ></span></div></div></div>