From 3e258bf622ebaa701621b1d05b449e18c8a43d1d Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Fri, 2 Aug 2024 15:38:00 -0700 Subject: [PATCH] Reset assoc_list and sweep_stack in eval_quote --- images/apple/DRAWL.po | Bin 143360 -> 143360 bytes src/lisp/s-expr.pla | 2 ++ 2 files changed, 2 insertions(+) diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po index 7f067aac6ceb94bf8658221a3ab329bfe5fdcd37..a6ac5ce326136409346101247f70236a94266319 100644 GIT binary patch delta 3158 zcmZYBdr(x@9l-H(?k2s4Yq}X*7oVP&@_t3t*d#UR=wRgX{W6%X}T@+vDQn`Z6giq8zL(O@ADdk zWQpmvP|&&}#uVOkDDT-A^VV+_HlOvHWoEs#?zLGD(JH2m=iU9 zdvsf>&0X2BX1Ys!qp_`{N+Q5l&vG%_SC zcDHS9&5X^Db5xHeMD?|QtIt?d-QZEV)J^s3Z*f-rGOF*=xB3=TmfL5v3H>B}A4i?B zf5kC5>$LnEqYHWjUyNOt;%d*$+_vt}AM&zg3Ja&nGf4ds#iRjXK{ z__Tagmij+CEf;b7-)Uy)?<+hb_ek z1Pfl)dNW(qIbD(23Rv0Zw1+=kpQ9?S$Ts+(-q~1F6CO*nsPPqz&T>z+%NZ{9Skzd% zqoUgB2p5ub)fk)GZCfACGnc5bp**}DuQkESvo$y(%U4;|m|z-t0CHu;%5ZlxgLUpI z$GULdNpGE-|G`s-HV_&n4d-JFJ07q__Irh4kK0xr+1sI|s?J+6{d7r7f`?oe+35=f z!MRHz9@ zSx0i!*r`%@_TD_&8&^l(_MUw9W%ESRPe^MV)87T%QqHT&=8g=n@mt=J-QIDtP+GEu z(uOxNh`?f@%*_!>0qW6&4qU(lVl6^RL=O_ILa9PCIx&DTTtU(jp=6>I{YcIg$_U!? zgwl&W`665SBwr}Hr9xSQLwKP;C@1(uI}4#QL0{7!WrN=PX_C;sz?b+6ml2;Vv;?SF zkArv)$I*v=e1uUF|42#J#)vQAYZy|6mJ2&-@qO${6<%#0!G1gq zKVHH~1n>q1@K0RDBy97A_8>OnvH8NceSVp?lXx!<;CXc7RlI|7q#A@~L9Rjg3Jqo2 za^i=v$>0^ftrQ+7If7$o$1CW?8yKN!)S%NY5`T@Gh)WaN9Lz;JmS7panoZc?zA#(i1<9NK`anjCW`S8wtKn!c!BWkSx}~R5TC{8_zH?q_+pI9v_zxOQeYrY zHDg&8sZlU&4_zpha0=_ zQ+V+degPkz#Zh$N6#DQX#&8`s77E{g7nW&vWO5Qn^K!Wx#ke1!+uz;5ivllVD~;22)P2?X#u-bO#pWt9r;Zv>y?A}(VBHxXmzR}iU4M-K9F xuUYt3n(xw9^Hptn{iFZ@ delta 3155 zcmZYBe^Ars9l-JD`6dB`9u?3?FldP3r}DMPc}3=;5dzH?lNf@(HfyDmO{=!&X1Aki z{O;I|{pgRF!?ZHoyn3T2PEZhTcW&(owc9A2w>swbhjrepUJu#b&Yj*obnk=&A?5Cs z@8|P*zMtoLzRx#s9J!Hp7NiVV~Z-Vk#HWToFYz>uW1kREfk- zN~K5_j=8bXXj?1@pO|ioO{0hspL^qa^-1I7TG~3ZrrTn-g~yZIK5f|2kXR{teY#Od zmY8mf1>tIgIlk#w-nYZ>yHg6Ax127VSr7Y8&w7|fQB>!0J6+!C6&}4RQiU-+Y5Eh% zZSx%d`i8GhcZo+DyZUJA(Vv{bcye2z%M++vF{7gi5AR4i{4R%fllGjn$rgh^amK6{zI$?k#)&M0CzE-iCkE}uOb@g0|mSz{xkqOjKQ z*yNtE`FkAIiy29MC%)8Ya=RJ=Dj&Y7Ui~CzH7t|*#=q2;TVGQcpj_FWION_5x+65HiavDh4xtAwS89 z{If@T<#?o`SGHxhTDR&q>y>7uO4k(VTzn+Z8X4)8H)U(&>^XUm%hL1G#>K}aHGXsC zH|J&EVEcJFUouU1pM1a#r}|}u?2L@{%T<}PCLNFDUyx?*sJJN zTC!Qc-(@E`YvPrz zC2Go4C0YowR-aYXdAy0)Y^?0?)W+|2*;K`w*akQ1J&kU6d@QX{O{;74)C62!PrTG! zsHW69>s%gZypUd^8XSJVV@o_Y7ON?-JieV^k* z^!cB2ZjR@j^!oh#8c!YCP;8hqo{ur?+~`Q`_j85=en(AWZ-a&$Qtyo?C(G3ozcbM2Pptf)T-7~!2BWI#XFLL_OgzD{QZ=<9z?SQ$ z4q(InqLC6cWvUdP{Y)wCjq4I`dv6*0as(3TD5={y{atui#(6#G@F#|ABIWPP-r#tF zP+F}*X-6N1(X~V<2Afc9aA6-ha2*qPgtS7TbVFApl(lFt{YL*J+Fha|Oa*{u5{dfT5;NcHsgFg6=ETP@NEr@KP=}?3X zIEdGA0zJ5h4{!zdu{}p<9e5YL_%KI={*sfejS*kRO=Qj!ngy%j#18DnejJ!5f?AN^ zO+;`CT{wp!{0+BpAFJjIEr4x!VZI3MoNw255x;^T;0<)*R~W=No-zt89~Pqs6&meY z1@R_qCErf|k})W>HVR=J!#g;Ga~R>KD@L968Szcr!(%85gl0fC7GpWqEfAq^E--1| zBK|hkh-9W#&8RF7`sdFePXeYR{;|i zp%kmJW+Ct2P4Epozfgo;Txi!?h}-ctc_(={@enSPkC5LYog!;kSgj-%7e`#(=`34g#9jNuMMzR98^U-8C((so4B#Rz;S*f7RB{{yw=jWwn1rr?_k?ViVa2in5n5T0 ssZ|Xsf08YdKks3w93A*rE~=aPUv;E3TQNU1^B<}{sr1NS&r{6*2h?@`3;+NC diff --git a/src/lisp/s-expr.pla b/src/lisp/s-expr.pla index a94d087..ba4a896 100644 --- a/src/lisp/s-expr.pla +++ b/src/lisp/s-expr.pla @@ -1019,6 +1019,8 @@ export def eval_expr(expr)#1 end export def eval_quote(expr)#1 + assoc_list = NULL + sweep_stack_top = 0 push_sweep_stack(expr) // Keep expr from being GC'ed expr = eval_expr(expr) pop_sweep_stack