From 541fdd877f71b0bd775ffdff2317d5892bf5b6a2 Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Thu, 8 Aug 2024 23:45:24 +0100 Subject: [PATCH] fix minor compiler errors --- dotscape | Bin 908144 -> 908144 bytes functional-core/app-update.sml | 4 ++-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/dotscape b/dotscape index 6f58cd071c06aad3e9b3630491c835f09e07cf4a..9e5f2fa0dfc8ae366770082378a6d5363d5ec9ee 100755 GIT binary patch delta 8463 zcmbW54|r6?wZQK=yV(u-M-s^&mJoKAkc6laVjD1}kU$?|tVr@Aq|q0417f~t`4g)| zRNNpcwLT=&I)EB?7l{;~2q9zwB7~qAgGN{^Mx>Aphykq-Y%7a?^qskP_IjJz_IvO0 zZRXDWX3m^BGjq`8dq)|3h2CZ|X}wsgJn&)@kL&FDDhg_;?-iI)oFI zmK7UTm-emT6>ivT!i^E!b~nrhbY!#I1u#>T9Sh(Jm3;3#@HC1Z#Wk=z0{hZ<*CNQZ zU@(nec>vT4IOD4bXQMga7QFA)Kyc}W?qPe9Ws)pd{G+y&G z%mDXvzqlV7gAW)dbrlmYTE#F$EJ7!xDqZ`kvzXe z2~}CBj8a1WcxqRa5SWz^x@e9B=HCFhIC=yNh|-=pD)r`e2!A+^L)3lr?FLC*Y$YUK--9QW{)2O2{6?@?VDnp=<5ya4%%D zldr?$R8(z+(^O1<17-`@_y#nhD~e6t1`pzAcGkKL^6|8teYFiPVMY?`+fJM1N@gdU zVVT&xiXHHcwGIa0b}VDKeg*hORSPGVPg zK@IjMvzpz|g=3Of{+l#_$|v814s;D+#e2Y(=yQ4kL0Y$)>=ukuLcuKd;2xM_yAK8m zE3j-7mDRUUIUfe>bEvEa_Te5VPN>6y`j@dxQ3^x-Q=uW4!E)Y$+#Gw9CtxSDXOr1o z;ysdVV^+v^ z{7Y)r+^?a@Ds($`g|0#GNFMjC@X>vCe(*cE6BC|+0dlNmqo~XlD$&4@p_o(>9Flrp3%;&Unuy{4osXEHnivl%W6f9j-59QLE`C}uO^ z%L#Nl!~V}l{?D7iyG%G5aWSw95!fVr1EecuKqAkQZ|KcnS0gbuE-cDIzM(3L6%0We zp0%^97R*ijY?LPuVOK(t8A`~Ut%P22u*p_@79T zL+}Z)hQ3U?UO7tW>ulr{- zi~TVkCyGS|4q0pMc-s zaG_a-W}Egg+E$2V_SyKAVb~4H^Tk0MmWAzcu9 zIX@DosxP^tFjo!al}?;#7HDfGJ}GV$&(B4h+ESW_&1xSDMP?A!ih`JWtyYP0CBHHO zZv7Ne8YnSq%R=&-ZO+pqwA32eh{I0A;V*4uD( zvYUhg3EfXg&lD2cUO*=~hE>d@8NJ9?&qOEao!rG*C)Z5sgzVt$)X8pQS8m6dFpu3b z3-3>KQDP!>Ly08?pb&PxrnQ?umar?tfB;`qbrvAOE8Nvu&xr!#ErDZ5?qGp z9L^V(;Tu38eKxihILw-Q?o4fFwTxG8atSpfXbK82t^yI3wHW91QyiO3(_2{F93($# zX1nL0A01|1S&keW%#NoeTTE< zRd@w@`9t&YE)aQ&@|s!AQ%=oChq&8#HwJLiSho6MOc^Uq=Qgu?%zL++%chbiaOW0= zjEC8z9p>(bF^m6n0iC2gbva~xbvZ&Cu{_d7xMLCO-Ib&rg?o36=3B_)`|rW6!tSiJ z2JfXXvbP3bH6^ygfcK9StEn7&h|0HtEnSGe5IJCAAW zQu+Kv_c5*2t)_DsS~4AKA8}tgEn9FWjT4?sWIH)ZXkQiF)XN6yaCA-;c{BfH@?w6UNIlwcv2tr(G^(!ES7?%#~fRb!mY5kn;eMnuui&(NC(sB;8Pp0HiBm5tQe8uH?tw!Y1{*a(O$>(?2}L z0T8#{p3bfuz#Nu#06z!|{ho1RpPH=V#>P|l6gQUr`Ca@(Od|rTn5J5r=42;@t=K;U zc_O8(a|Z?8FIjgNcB6YJYdnO>iS{9$Ks(LoBF`iaLGK85@DOb(dHX|nioD6m_c2oq zg_a|j93hO5ehhELSem1qGM7k^Ag$yN_Ta;&gaj=)G1DOeIzWyTh9~GU`I7mu6JojZ z;@I+2m~8XW*@hT8aXB<8eF&;2ZWt|nB;R@p=bC`>+0)pHiK7!e0TXG3VTmN^GYUH5 zhW+gV{)&1*l$4dlv_ zSll_hlTLKaISLMR>1c!J(21@%k4uGke)J2x#e}YOmVSYvMjTskfnu^ZjWu4t6v*PO z7w}1S|0Z9;<*I%5{*|tJqFp+&eR;~ReE|w{Y0P#RZxB(-n@^_#DZMP94HkET9F@0& z>g1^Ce*tPPYfdC_kN2 z%@;*DBJT%0l=CdNB7D~K4#N-r8bVQjFQ8OFaXJ4%_8wj(VjWKCvn=Q;n zew+4BHCv@H8`Y~+v*pK{oY-q;6|ttKAF_U8oau(5e`|f(4GI9S$VTHgB@dWX>F4@DOu5GwK00jVAr)-C$U*OtuvUX zjsDP^IyQ!-wbE>Loa9YvAx+hZzT!0Rwl-@4v$fK&^E<71to?Yb`KejEtn`bd-w^sm z@maf~4@bkI-yVS!Sj2)!kty&1D|sh6W%vVRVewRHg)(t#jQaKft2bh|#H)0?-H2-? zKCI)Q5f@7w|3+AN!a>8_k4ijC$3;ebkHl+qyu^sBCGOR+&xn5^arUjAE5{WPB*lon*ztm^q_VC;dMoiy!>f_Pzej|>MxLwBsMw}$E(i|4< z=rm}aDsiEXON_WeVvmmNjW{Dbw~n_P@dAk>cZBB-8gYumvvi#Bo)-fzUiCGOGjfDzM|v-+gAhUa!1GH5PbrFdLAE-~VpHL7@ZTyMm8 zO5CsG?M9p~@i-oyJ7~m|tEkUn9VfhRP;Iir+jLxH#8!zf>UfC}M@u}eEj+hR;B&Hh z^ZQzJc>U+t5hJdXxJQ=f7<^zDJwrA}exOM?$Hp6Rs>Bm@>^9>5L)xfn9XA+po5bsM zyx)jdN!+R90V6J#__B^2-3HCGCC=^+YhGf+m%Fs)avj$jai_$qbiCb&*Gb%_O_VtG!?0>aMjR>e3>_~q;-2@kQFS`@8S!R`H|zL_5!XrFqhmO1P;G|9 zk%z;ojW^;{i6`pVZN&YZ+Nf$BHyCl7#Orjt--uU9+^ORMBQBTtvW^``44P+4oP8v$ zd5IBUephQQ*KxfOcS^iU$J>o~oy2WA4jOT_#Qi!>2pCkGC~;~atXh!~M@l?H$4iX3 z=b$#KPRBkY-YoHE9Un2`I*EI93`Y&B&5$_qXjrxJMw}|~L>;@0xc?n(RJD#9jJQqW zbvoW}#H%Fk)bYU4=o{b;=J<#-yhHl0C@MvE<(4t^4pu^Vyh-}A@{cqX!tO2HUMSla z%kusP-!*p&kwvm+ophJsfv*WjkC;z9gWI)MML8@54# z^Nt+WF53^tdjFt$%1hH@o1!gC#}_Z2R>iN5jji4OzYvm&YybcN delta 8466 zcmbW54_K5{y1>8poneN*BSZ4X5piZjL@H9YMPyqA>yp`K%H>g)yf}k@@{*4!wMy0+ zTA6EiRovEtw%H6Ox!%qAqZ~w2q$JWJ9lJ*6Dxev;TZ-M?80&HGd%o|?*B9IFeeRv- z8P4~e-#PDj&wI}MXSmih;aby#x&=72q;k`TQNJF(_RDK^_156lN40elt)N=aUg zMG2N#sEt&Dy|fl8N)XIS5IwX;6sy?|nRwB~0;2UtaeN6rLc6^(@G2@nKg|{MyovnE z%g~}4s@4Z7fZY+i-4Cl&<4)NH7p(D#l>t9Z@zE4tsZ!<1pzXx4?AIYz=vw|dJOYXA z{Oj-xHKlvuA~gkXz$^iGya7AVXJ?b@UEPrBlb;p>#-@po_Mz65KMNMu|KaE zi$+qr_&#dCg?{I3Y87N39D-@~Incl66)aMeykOrHsOm{z8E-;nh9{;n;3TuBli7V_ zT4%TtbUKwPXS5O=6H9gq%L`g*&f<8s_DvWA>1@xNz#^AGf8L`ceHpO(55t!D(UpN3 zX<-lM1%0HTFM(Y@OvduYu#6)xE%&mcGGL*D7YDaXY@l-9fa}}*)04ZQ-?ssaCSM|} zt;eGIv|2uWzcS&TznGLgHEzE52porhD!@a^2mwczNC8Pk0gMEsv96==7n}p^gEsj6 zKNVJaKohoR{|{*+g}nvI1i$+;g8LDgS^H)3De})PpTT+bQLyc!fJbf0 z=dhMqUh_Fv06oLlo+~f`l3DK+(uSP1ig2Gnxngxh8%tU zHTZ*yvahQ{GrxjbtI+Mt4RQmYi`%{tF}gIKw|@%{p}iUUDXbEn8 z316|3cZTAhUtGHce%yqk5W|sO4Z~Uy8z4m~0up(dVncTVyBUs|wo)m|Lb0L7&T=Er zfs5kVO$%nmEu`){QgCuq)67PGG?K!K7nPzs zmj4YVvww-fJ4yEHaMLLEattPm1uE(IXaW9K4E_@0N?qTbfSJN+PZBG0U>dI&g17x6 zI)?o*7IVZVd*mkjv`wbjak4$FGLS|#cHgE1$Bv`3NMI}Mn28HxSgjp@^!KLWSM2yT z4ilQCYPM+|tsRBfW^WR|F%&x?A(c|etApaq#dvl;0q+oY&7)n3nCc4C>^g!?OvL}7 zy|*VyyOP0$U2jRk*W(t@uFVwxME(xbb{$Be!^t}BA|djuWF!Zn zhbtp+iu#Z_5;N6AUgE~-W`Xvm;X2_}JUbI9>Cr=B7B;A3EZKMwgj-P(Q{8I4XzTcm z3HT#`I+i&Re*%Yi*+e{RrDBH_mSKG=iO9zZ6t&)XcM|Vp}&DQXrwg6ZF!%e-YW!&a#U!1-{zu>sJB+){!zbo8Wa5zM=h1kirHTc{fMucOL>b)hT9i@A3nHF0p z;@3QkdxhOuVHrL`Y2-)^S5l0y<-@F@Nsz`<dH$ ziiuGg5jVk;O}`4rXbE(wdx-l}XxoCjX?z;p9x*3F2_7khiB8sEfuk~ND4Nwwq9|5F zRm~I{RzUX`Y1lL+=oeQWvC3CSqSN`LCvdiUhQ4Lm8NRX#hlw+6S@r!hbgtCS&{-kR zu;3q^;cVJ)+EaKpI*~o{6lQ~s)jWmMz{|gQ3g1EcamAXR#y0S?Q=4%(f3Xrf%yGUk zq#hl(*tu{wkDD!h4&62Sjr2cjpHOchLW|6*Hj^q3#{IRg`nv%+u1@g9-GY-s zp6TCJvQGBf9h648Q`p8=umwEqJ|BthcJj+UvY+i|6ldF@sDr-q?g2JoC%KnvEGyng z{^%Xc4)3Jv^(^uUui^*_m?PM%U08@UX>89fiWt<+s>K%cr?I%#a2_R<^4I7Z?@HrY zyD`Ixo-|(a2H8Wn%<2Z3NM%%@fo=nppp95ABJqw!q{@u?FYm)6)L*+FuZaFFO;`qE z-c62ftQpST%{U3sH;dv~~Q#_mSA+i?OD;ymOXtzt!rOyUwaN3r%3bf^^VPv8ZLCg=!JQN(chdd$({*!+xK1IXhQfuPDo-zk8NZE}e}>y> zzMI)T$A{=fmwisjft-#GcsAYW;w!jPi07yOg!h@yIhv(hrL19Li>^{m?jFTJ=m6EM=l!`)@GW@9Rrs_k~PtHhV?WI+Yx8I;N zsn(lLM$c9j{SC&ewJM#JC?#+G1``0>e9E`DSE#=Ky6G9f9ONs}bOmD`$9{!IPNn*E z@)Eu@%=8KV|J6Ag(&UKo)yQKYJbT3aW>N(`Twi+=`<)+sLN2Q5LwAbk;^0Q zCt04vueF)hYU1fi9hpK}#;IB+43S!j!=zg#4pY_AD9+9n4Kb-D$+{t?LNoT@^Ji}{ z(br7hF#1~f*;}mPJJ^@?)<|};!5Ymxjr1qI!8(K8(`ZfB`mQxvli1vS1o9fJu`E^$ zxoe-*P5&UWPGWa)YdDK-usYZVA)sWRwU}KCiw?0+YHd-UY6eU~%_VGUJ zBU`yOl>!k7*esrwHCZ#6q2XvGU8PdFViu+V^GZ|ah;CG8}V|9uj$xp#1z8RPfmSk?J6UtpLgn~QpZP)n68@o zY1MJR5ywlcG=zk^It-d8Nt~zSnMPbJaixye7;&n^tvaqZ;zbgNH-^^kG2%ptXXx1e zu0ge*O1xRe`9@6XRQ;UP@p2;`EphC=(As_@);bkshK^4e@mx83vyS1oK{fg@seZb2 zJl=@YBu?5NTH9;HLnWT0<0>PbBXPBkj~ekXiMw>%Z^ZQDS^Xq6h1PbRFlbIeOZ|9s zJkyBpmDs1_HAei9#Cp_&&ottJ<68F|9j`Is4vE+6 zxZa4XC2rPnj}b4HxKGFS4-Bg1NSyRRNVR+;4wrbUj+Yy8*Sp%R3LX26c(=s6b$rT* zDMD zmT$!25>M6fawG0)*Jf4d*l)zUCEl&$Q$}1NahHzav_ZA05{I7-sW#q-lO)d3vDb+E zj%l+N>$u8@nPGJZu;E2=B6%&9N1nS{r`EAgBU zH5EePE!3YU`wj7ab?hD_sC&?R zY|Hl-${Fp#x8Nc$uimWI2&9O1%_5TCVC7`DO diff --git a/functional-core/app-update.sml b/functional-core/app-update.sml index 0877e53..7fc7ac4 100644 --- a/functional-core/app-update.sml +++ b/functional-core/app-update.sml @@ -178,7 +178,7 @@ struct val emptyVec: Real32.real vector = Vector.fromList [] val drawVec = - TriangleStage.firstToVector (x1, y1, emptyVec, model) + TriangleStage.firstToVector (x, y, emptyVec, model) val drawMsg = DRAW_BUTTON drawVec in (model, drawMsg) @@ -204,7 +204,7 @@ struct val newTriangleStage = NO_TRIANGLE val newTriangle = {x1 = x1, y1 = y1, x2 = x2, y2 = y2, x3 = x, y3 = y} - val newTriangles = newUndoTuple :: (#triangles model) + val newTriangles = newTriangle :: (#triangles model) val model = AppWith.redo (model, newTriangleStage, newTriangles, redoHd)