From df23d7f23011500558ae09579573c8e8affb4a97 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sun, 8 Jun 2025 10:30:29 +0300 Subject: [PATCH] Minor fixes --- dist/setup-compile-r7rs.exe | Bin 1989116 -> 1989119 bytes libs/util.sld | 2 +- snow/srfi/srfi-170.scm | 9 +++++---- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/dist/setup-compile-r7rs.exe b/dist/setup-compile-r7rs.exe index f3a5a0b133aca7f5a0d324f0ac3b2934d654314f..6569aa4d542fbfee77340b7b08dd6babc06e1188 100755 GIT binary patch delta 1951 zcmV;Q2VnU8vw8osd4PlggaU*Egam{Iga(8Mgb0KQgbIWUgbcI|#4jBGSsnnlU=IKQ zWHtaBEq4e^Ee`+yJ`Dh6xVC49;4ck_;4coh;4cqUDGgi)ke_-70004{Orb=VL0J!( zf0f<7h4CiS4Z)vvz-bDCxdHy}PJg$VR;lLH`c{}&`70LS7aS(n3omniE$XhgLT$-? zfB)uox#I%&*8{>llynuYDFBBdLttsl{k))EEfq2ND3Url;;=Gumsr`VNr*7*IKv~b z%DCBb`BwRD`a|GcYYE$6uCUqRdM4R}f6KG$2!$$anm&s=&I%aS&m|lB#@)3ugOkN! zK`9xOldyb9!P^I24Fw$+!AVKPZ_D(jZwti&15;dnirus%>b_(pO#$G9oNJM^X**W< z<`P_Xj1UUBoKUeKQ6HGJz+fx?jPY69W`_$GH*hgGU&A8*bf_?A>Kmbqtk24Yf4$&5 zMAJ+YFM5??X0kMlfeWn{Y48Lr*j=nK+tj*4pV15*f9q($>xuRv--Up%0y9XxC z^2EIdwyPGUS5sBGI>5bG)vGRUcwSQnqSemyow05Noa&U!2H?*6YmBLmKN7kEI^pfw z7iIr0XJ*`z4+3i#52njlVz2(Y+hQ&o1`JY=H3UG>!*vkI%^AiO^^f0Ce=Wz#b^5jF zc3qDU`M2W`-W`s)DM;UO@ksr615tKkZoUI7yUSI1>)30z5s!Q+i83Xu4eSSuQaU07 z$t!fo7wVgp!A*<4F7NP~vy%^xElK^ID(`pLox>Ci)Ix_==uZnyaJepdKu(OM#ayvm zR>0|=vhRFD=GH6>EQl7yf920tVjK!`n{ys|fl)_zGC>G&MGHBreMiS>xysK&P+j@1 zW6^Kj#iG#HsRB|oG7MQbOR4^sPyDk6;e$19x%nTlx0o4v(a{@{likMgd4}GC!B`Ht zu|GivS}fMWcUR+cQcp?_I@$lU%b7zs_71TaW$hRTi!l!^RJa;Yf8PpA*F}rL1P;1t zR<@<8+Qdb=Y+7*>-vsG!y$I4wwx#`E^`z*|(0vctd8d-nE3@uNDX{$da&vrXL6lG{ zWuX~pyW=jON%E)0t)UOx+2lzLM+bJB2neRfrobT$9tG`lw8wN*zXK5j%BG8oF_#0bu@}`^up@W5=v|CltWzdY!`tkovu#AQiOoXCfndO_Jp+OFu z7PpW9vVvmPe?WnIK&|oZl)Gi74trq2PGKHXM_kjaEYvcsx6U-ycVE8)a8<{RCRkkB#k^sN%ru_FqKztxg5U`?)L4BY27*p;KlNM+n{0TY ze1}jcQV0{D1Xp*$w4GQ{n&yzWV z2jtdh@U-r*2Otmy)@=g_?K6x}Kg#Mb>_6>jA4Y3rhMWjh3h0A1`hOJ<@O!3f)D zojmkAf3@g?jdtzL&2z0;^oa8;ei2&q;Q;9z3eb3IIsHd2{=l6H_6!W(7V4Q{Z>cIU zLpb#pd;5+Q$vd{M9pBEv|M&2FeTBLG?hG#lf_>r!-SK`V+CNjiq2SCWg zJx<1`0(7B(Kg;ld>=M0~n3gKotp~Cl=h>`Ae+Fx}=gHIMp&>}N$yLb(;4PGzS_0dM z`E0(Sr=iZ6aECXwe{1i>5_%D3wr;ZeIh^NV8vyFLQYzF60&lg>*h3(3rJq}_L;9&> zK!rz(%#T7-qPLwUvp9}d$^PyNAmIT-me1YWx9I*rRyJcv@jD0uK;8c(j zf2S71U)_7Eoor>2ig-dxw8whqfs`V_2Rge2IrLoZOHhBS!5Q2r`z_}#cF?QUqSP@5 zUIZ?8xW?Ssc1SJ11qYrXJ8WxvsO~aECTG+=LW9n;saVjth2;T$OABEtCf2x;?GXZ|*=5|*d@7vj+X80gP^uUJ;^DNsP zHxv0-uZm$!{wMzWU9Y7g3cr+kg-qV~WqEGB3zr(oGr$bsMlT6dHi$_}=?o`?%B<07 zxVkp1t?6|ix71pO^ZnuhhobQ_q|^i5fAvl| z_9)!DQOS~euW}$6gAW=5hi1lsEE}uGn=fbFQHF)Wou1N9wJ^er)a`a4fk^XOOfQ#1 z%a`kNDHzm%Zbieq08>Hg2|?j2f5Np5$bqNM{I$gXKyxGB;munS6;ZI0z^$v>*rRJ( zPgJM9z6Mk)5U;^op2y7DQ^2Y*e_l{Z3`J1&*;}7SA0+DRE(CGlsf=WhPIpMS?~KLO z8?2Ow)}<$}AO$}MQujZ)^Zh3)zzy@cSzYLwIhNEq6uM-godQXrXg98j@5a0Zz1llT z2lbyjzd?r)`^RQPe_(pw%q{Uea#}sQFpNK5ed5~AwpUqhDn^F1VcZuse+2Ft?3+Kg z>y>cu7M?;=(){HGS@_Wq$9$m z6m_c~jhh&;DPzFC(IjkLs6SjJU3+sBe?NlU8K&H4_<cL`$?LI3tU$vn5`KDuu?WLg(?;Q zk*{HBV7IOOvd7)Xm)Qq@LvBTAGUJ}-Eic?}&6OHUf8J;r%=R(sle_p|M$OaTeD`j)f4?Sll_At|4Y z$c0y<%WLep+C}DSILY<7u;QCW8U*n@|G@OQi6%~yyD?`*2>zc5kIGPBo?tj$RgE~rg!)4e-Iowv^2Fied zHi}u5;Q?J`#2*-#bSD#Id&KGZc@}qdUEkz@I?%c2i}YiGwPIN>S^eEk*u=NVQ9P3~ z>8P~FJ<+8i?lY}MK2Dj=er8q+U?w2+2jm2 zjrOuR@cDCbQ0lm9!ut&Mc-|AR)mBw1NFm~=(pVC+rH-Cpzb@gv6i$ntGMZC2F}N`4 z?>;0R#Ul^zVXD9{hZw}$>G!(%uNG|~!!Pml0u`V@e;!qee744$Ng(hWLayJSPRb`r zy~_R^tL_tn;~(^n|M9pPVvp)}6L{VOZ}16?cI(_)=n`K03r^Dh%fsIl^-AdRGaVsj z&IG{1&iv8$sUkQMLC;7#dzA0i=73rblK+s)QI0$9Lv9X62z`M>+|#<>WrtZFxH5x& zm9(gue;{-YT2Q`p=@1zzgA zK=pI-v8_+D#Pi|?)cM8m#{?&P{D|F$o$zl(PyRliTYB%nqThjk{NfK}?ogYv zI(!ODF`xkqevz2ZGh679kzs91@{&ZHjX8Gg?^{+^4BR<-eEuURC<1H+6dKdC*H$W+ z=%3R5rcKbTA7xw}|z zf2D&lg7(!hHSL81Fy+G~^>$npaC$UAA zlOc^8D)36fmSN4)rJ|7#GR3vW^e{g)$R8n|Vy=wX94NL)91=YE3qe^VBg=6A_;PLU z`<$d>Klu&-0XBCL#9aUYAOHX+mWCbohtFUShtFUThtFUUhtFUVhtFUWhtFUXhtFUY lhtFUZhtFUahtFUbhtFUchtFUdhtFUehtFUfx6fc5F!`Si#pVD2 diff --git a/libs/util.sld b/libs/util.sld index f868c27..432522a 100644 --- a/libs/util.sld +++ b/libs/util.sld @@ -3,7 +3,7 @@ (import (scheme base) (scheme file) (scheme process-context) - (retropikzel pffi)) + (foreign c)) (export string-replace string-ends-with? string-starts-with? diff --git a/snow/srfi/srfi-170.scm b/snow/srfi/srfi-170.scm index 14aad3d..403dbab 100644 --- a/snow/srfi/srfi-170.scm +++ b/snow/srfi/srfi-170.scm @@ -4,7 +4,8 @@ (import (scheme base) (scheme write) (scheme file) - (retropikzel r7rs-pffi)) + (foreign c) + (scheme process-context)) (export ;posix-error? ;posix-error-name ;posix-error-message @@ -35,7 +36,7 @@ file-info:atime file-info:mtime file-info:ctime - file-info-directory? + ;file-info-directory? ;file-info-fifo? ;file-info-symlink? ;file-info-regular? @@ -47,7 +48,7 @@ ;open-directory ;read-directory ;close-directory - ;real-path + real-path ;file-space ;temp-file-prefix ;create-temp-file @@ -82,4 +83,4 @@ ;delete-environment-variable! ;terminal? ) - (include "170.scm")) + (include "170.scm"))