From 3d149b668cd7ffbb64c38dfa2077dd4c7e9a0ff7 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Fri, 2 Aug 2024 08:09:57 -0700 Subject: [PATCH] Add ARRAY? predicate --- images/apple/DRAWL.po | Bin 143360 -> 143360 bytes src/lisp/s-expr.pla | 6 ++++++ 2 files changed, 6 insertions(+) diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po index fdb4bf8d3659f855dab86b33ae84c8f17c014232..ae06e4b598c461731af491b99299b9be7b6c0a71 100644 GIT binary patch delta 2249 zcmZY94@{JG9LMqB^Kb`FLMVbc}97vtqd4F=QTmqS!{S`N7IyryU z4Er-WnL7vhXO)elWyR#0iS|dW8TcPlD`)1~D&`j1`YZJ2xZ}^s_IjT0=li?wJx@{KOWB1Yu1KtqzQZ zipHHoW1+86#Wbh=p+(y8V1FrNJ0=W`g+A8U6Fqj;z0@7K(!hDVS14R!Xe?AT&eI#i zHyz4tRr-#%Rc_w2H)~|S(Ybfj!+1q@S%uwJ;TXC?-&zqTCM86D{m$sIWUH&({ov4) z=#$*lmxGT!yazqeV_6lIo`N|e#$FUUaZ?|4wRx?h9;UG>D%THXQ|LFeuQl>eq3jh? zY^B!9k$1OW7{rBHqc78Tv(=ka0#=$u_tGmfw9Z{m@dTyCZEiWk@F(!2V%$T zrZ&4SM~e;RqQLJRiu7H|(_+dTuJG#W98Fi^a7I3Sb%v&Mx*X-3O|6HY5NO-EWh9F+y(x^KD`=k~ZND$9#J-od*nn6AYRw!)uD&Sl(t zzdIbei6vG~B+kv#baq>1B-Z3<`jUlKS0wKWE~t2D@+xS7!*dmlsp73AF+%gWEn;8uY%GQiKd(Z;J3ANioPy>XX#xQY><2s*uHS zVma!t6^GD;Q>nt=oobOW1|f~O4+~Lk5dIa0d*rj!Yp|BQ-Y{R*QP<;D_~~skB>Cia z!VVn3Asl1jxFJcNrv3((@hAR4T$+%Hn2Z^il_vamrCDS#wF55l67n7Br7Ttk1FPx!~DC&}D&AvNT~f<Nl|mE%Xi=P5#e}clwVR zr^u7^&fo$r<5yfq%w!=a!T>XJa4#048XNH%n(+ya;47TKdH61I_#Qu^2meB3u+7N9 zd{{Dsza+yVUDV649P6+F^>_shXu=Nc#vZhy4ITIzCvXwp;V1l@A$+oz;t%|Xe#B)8 znSf-Zz>KNLK`v&a5Ehid4lf?YV_1bXcn+Je8C$U(Z{b~hh#(GU`h+}6(TOwo7C+!R zZlE7}laS+a2TaJuEX+j_Y_P+HM^KF?uo@d6@iJaV6LzBo?<45r(1By<#93U#HT;5J z`~}6#&fqpoL?*H@8+W4!HdMlcWvIbZSc8pb{u0c$%PnRhPIaFvNmK_;ot43H$CZzi W_D&_EY~09y<86w1UU?^3HU1A=a2Z4Z delta 2200 zcmZY93v5$W9LMobO8w+vV>qz7g-F% zbr&C*K_yMqnjupN%45L+gAJ7NP>@JKLjXae@-PxY&_poK7y-X@?bekgpWFZMfBNsa z_q18drQt1?hVOJLBWCD@_)1vhsWbEuk76q6&*EN|MZTk^Vrog5Nc;^e73spB5nH`C z7Aqp{17op|k;NpBYkrM7IC!^$u??96W3jhIZlsQ#@zwbfJKcL76%Z0z42;E!NV(1w zzv)=+3hH_{%iO$W`-J3v#It?K!vsWrWwpy$?H<_SPLt4!?DUk6Z%-Y|vU{t1PYg_n zI~sR&y#LV$&)`Pt*o5j@e`!h5*lR)&w{`W>>KLrNIX<52gF!s zg}pZU?)D0!xG-htHeI(ntbcGuQA?X-$yil9bT#T}lM=e=&JQU5?-lB%f-TOk*avS?y7jaR;CMluy3-Ea|(rAi8biOu_7U# z<0p6xMXHeJ^&CGet<#0xHi+;RgHh`=2yHiYkHMy8d$cmKjLRx$1R9lp^d`mToE?p+O%=hC74bwCwr-bc$U13yq?#sxudlm^mbtnj^hgb zoAgKKg@l%wC$ubB@hD33M7S)^rp=*tV-bS%8t5&jZo+CbV=daSf%Q$S@25VC^W>k% z*QsTb&~zpdPB+=K@zlj|VlKU!5Y0xy>uAMVnje`g;mxLT;ccd|+HQJ#@db|HTb#yK z{Eh#hJR-Dom@o}aEXE6HMmx5k1G}&vy*P}}*Id5CFZdO=kZu;58CJ6h=bLTXbn4k~ zU;!3kIaZ(%ub>65q80DpeSD11unPxp2;bl&&f$WY@Bbpj6car) + return bool_pred(expr and expr->type == ARRAY_TYPE) +end + def eval_index(arrayptr, expr) var idx[4], i, ii, index @@ -1658,6 +1663,7 @@ new_sym("NULL")=>natv = @natv_null new_sym("FUNCTION")=>natv = @natv_function new_sym("DEFINE")=>natv = @natv_define new_sym("ARRAY")=>natv = @natv_array +new_sym("ARRAY?")=>natv = @natv_arrayp new_sym("CSET")=>natv = @natv_cset new_sym("CSETQ")=>natv = @natv_csetq new_sym(":=")=>natv = @natv_csetq