[CM] Recent s7 broken on MSVC

[Hyogeol Lee]

Hi,

Recent version crashed on start, maybe after 1e4affeb.

This was call stack at that point, VC++2022 x86 debug 05f68c5d

unbound_variable(s7_scheme * sc, s7_cell * sym) Line 69071
> inline_lookup_from(s7_scheme * sc, s7_cell * const symbol, s7_cell * e)
> Line 10324
> lookup(s7_scheme * sc, s7_cell * const symbol) Line 10334
> form_is_safe(s7_scheme * sc, s7_cell * func, s7_cell * x, unsigned char
> at_end) Line 72523
> body_is_safe(s7_scheme * sc, s7_cell * func, s7_cell * body, unsigned char
> at_end) Line 72609
> optimize_lambda(s7_scheme * sc, unsigned char unstarred_lambda, s7_cell *
> func, s7_cell * args, s7_cell * body) Line 73812
> check_define(s7_scheme * sc) Line 76834
> eval(s7_scheme * sc, int first_op) Line 91080
> s7_eval(s7_scheme * sc, s7_cell * code, s7_cell * e) Line 52646
> s7_eval_c_string_with_environment(s7_scheme * sc, const char * str,
> s7_cell * e) Line 30797
> s7_eval_c_string(s7_scheme * sc, const char * str) Line 30803
> s7_init() Line 95419
>


Best Regards,
Hyogeol Lee
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20221103/95cd9e8a/attachment.html>