From 7dc4f7617baf01c92ddf59aaf3114a117f522ca9 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 9 May 2007 19:45:41 -0400 Subject: [PATCH] * ikarus-runtime no longer assigns the value of $base-rtd to the base-rtd object. The reader now accesses the base-rtd from the pcb directly. --- bin/ikarus | Bin 63784 -> 63784 bytes bin/ikarus-fasl.c | 3 +-- bin/ikarus-runtime.c | 3 --- 3 files changed, 1 insertion(+), 5 deletions(-) diff --git a/bin/ikarus b/bin/ikarus index 8e0e932455d6c1a7a556ad8ddb91a768426d1cb6..78ea212f6fd47ce3558e804ee609c8e61931c36e 100755 GIT binary patch delta 3464 zcmZuz4OEn67XI!xgA6eI9R)#R#2gi55Qd-RXHaB;A(dTBQH}~)n&oDS33y5oalric zYYe@jsF`7!Wl`vN`q|E|0)k-aky=x?Xb-9AH=rIOGhB$-`_2zc=j@zw;lB6xx%a*A z`@Qe?E8g!{R6m66dw!kmp}fLzDvslnmYm6`uVp)v~aI*8uFpjne`l z1b0o_J)s0RPTwfzbqeY8#hgxYfkB*;o7C)U%EXxPA-}c^tulz3AZB(7O07H%7e?q* zHfx>Gf#!&iX`c>Tt@?|-ywD+JE6uqop(*Lw=6*{liRG&I$dhA^2k}ZonD=U0w<)z& z`pL;S6fwnj=#JGYw23)>LccH|Ct}R>JgCK;(S=g_b?oz$eFk0Xl$L4nqaAOCd<&Osmm&FO3b=V`@xw_ zpYF25NFp;Q46Y7mM(fgBnTiZW(`XC={O@;0Ek7Y%Sfo|kE3}Y9?`3Dp*2!gfBKjP> zg3rfH4Ka-2xRgKp`I_U15z87yqgqt%s%rGDEXDU?vUsfrhyH< zl{5sL&@AS(S6wVti#d(r9JN@|E{tmsu3I{Xtk$M3g>5TJT7-D5{Q3i{)zk<==2fwz ztLjm?QMk~SHOK<@o)9zJ?Yq&1IMvWbUAVg7oMZ057+bYpw>jc`G474sU! z%oaK2G0j(&)pS86ln$EOAgQdY{C4lb(R13uf(_rdTFtp`Vor-VM<=8Yie;CC*Q~Td zO0Z&S=$!BlVXm*RU`*2kwOH078lPxWHn1~laic$W9CHYV#fZN> zH7UR1|4%^%VRp88!U+BX=JyNT1@`f)xOa&%%6F&-Vj0_DB`rC@pp|DH#G;vzunFIq z`5at9>r5k*qA_tPAMhK#n>Y#jur)Cfdhq8&P2h~}`ybYL`P>;asTG;v<@4Vs>+ zg3+1EmwIRyw5HNLtatAT29gQE=Y8b9f@bjU>3DsR!Ro(v)wj zu&27be>BxT;^lYgkNs-`IV0O#{1-9*RU`hJ|KLBJ{Cm&J z8FqC7LC^n#eks!*m8XojC)w4M`ZK1gWXPXQ)}-xcK*)Wt#)kY6l`JnX9PIZYnw`mTPY{<(f1`QIKs)S-{G2OW1wDKd& zNSVclTCg(ZPul8j&K?{m3`ypkFBS(vI!ouFbX5KwempCbkKT)yXXz)) zjx1aEP?lPXb(S3xN2)Ml^RRZhuzdYSU6h~-%3l`4AFG4n!41OFR!QjX=KG9 zP%)m&eGvsVwTxRoPX%~v<(8*>3dyp94V>9Dm3Yf5 zG|OUM`{);LE|aoD?+mwGJ|iuBcAguHv}Ue9G)q03H@m|je6C#Q{pDhc_YHYdyi)0K z`6kL_komX3NtZr$Q~1Zx!$2%i(E+u0;0oS6eFnU+ z=1e}^!Ut!x5F(A0K2S*QpDk9=hnM5}X0yNSCxx90gL1!%92Z0sMifpILzGCAMwCsI zOO#Kvl4u=KG0|3{T}0JHwM6d_y-(CY^aW8PQ9Drw(G8+5BAKXQDYpD0%j2mhde?0 z?$#Zy?{-3PEI}R1VYHacJd22?t3Rs0DIhV_uXsWlSl*{urj&n zxKUmh{GN-Xka9bCujO8TXL2l%hrRQ$@?^)IX_ a-mqfRt1mydVVzX;ut~wkK80}uzy1%whW9rB delta 3562 zcmZuz2~<;O7XI%`gn(h2B8%)AMM^*rRFG9i2rk&V;8GP^M{RW+#f7n_N>M{Pyz`7j zt|)cI>Qt*@tIuj{t%6d~mY&*{s&lF%3ff1h7Cq|dXvy3^3yG(blbhUk|GRv5`QQKV zyRX`JUsdq{)@^v0g>QluvmwPJ=v&4#jIkhj4eZr`BFA`E0gS`bJ^O(kZ}l|7KAf*T z3vF_o*BOB6a;JB=AP9%h*Y8V6lP~$@sNf-n_L>D7a8<89uoQRp+6!NyAs`o;aeY8C z`8pf$9jwBtz$u`^JAv=Oc6oVFH3;f|%HF+q0L;PKkePzpZdn_;2w)Sg47&_haboxY zsKQm@k6;Hbi#Q1PnsDTt3)jA7(lrX#=)6e(%ZHq;0l=6MW z`{H9IM8Ukip_uSu3arHWFUI(ce{R`~yIw4K;m$2?(y^sLyftO=MB}e|r2{=;`}uyt z<>$mFQh`S7RPNoz%-Dr+0uRKF9(lKoFSRH0xZZmlaQhHvgS%65z-=X2H{3hBop8@$ zsy-Kf!qxg*pD^x@Kx?g_r{RzKsc;PAdXw3~jX`Il)*qQ_Ha9?}|G~w;|@PIw#w&H~Daz<;d!QKP)BaZSVYLR4YqQ!1pCu^LVmBfpa zbXr>?SID5_8%JdpDhsiE;AyDDyoCNCL){ol8|Uj|jwePcsgn#^NnLKL^C{beVnVLa zrN-|Pf*=QfNr)V*?T$Q$0(3`yyn{?9Yo(kPNxhbLG|Jlv!srJrbjqt@Tk&-jXBLPk&#q#(b(uF6&OrcEOioHu>% zQ}#Lyzm#7m4cAH~=f&ht#s9Qlc}Aj~^R`|z^MKaoIgwE^1GYHhcfH40eT&MfRooyZ z>y#mPEtXPa9fQhtl+g3r4ftuY&OpK?U)3uuJJv3!d?Aom?L-5WT+LDcG$$9Jg4 zMLndP2JX{r^tUHn?MK;U)3$yp6*P&H31mxsiy-Ezr2J-aoO@$#&w)JOoQqgY}P9a{IM?bdL{OI0NBC#NQ9uf9;!9?+YhVE&Z zLW_civ_I=+z3r&R>!jcP{+UXVqP)xY4xdHFj1B45Zq;`Q;&Pte zPQFN$6=`nJMS)PL>$@~knVdwhIYJ$p(qlYiyR!*+JUxaE*&FG>a0s8KhkNg~ul!s| zV~|~$5$v(oE~&#&8GXSY|CZ5L=&Z!bjJV)>QtCLxgAn3AR1oDOZdTESkP#Gqz;5Wv zW%FsG?1}@p;xhEk3y~huB`)XX087AD{fEAgEeUICPSsTb{ z_3swTDZXLso+G*E?bw!?S-41ElRupSo~iXn)8dt;a3pfLUh zE;a7FN43LKv9Cw2+tgL3n0DvdN>Y*PN&K%_TV-eMJ zhhx^#l_K0VvkBU8QDFism3I~bUDFEj{a05G>0L;gYX~Y?(>@}h1QYiRq~D)1BDJbVNKvFgZF_zmwK(LuEQ zg8ZS%LpS@iWpm?}E}tWRc5IqP=**HMPe(#&=mo}fM0%oRqI9B>L}Q625zQc)L$r|S zO`_FA)!(N&^0qF;#~5IrMOf5n)V$e$?mD<&|V{7v05 z@Ywb>V>Lv3kuhWM5?LF6V(Ui)?QB z8oa998S|k>_A+C;aqi85LWvu0x;ZRvoPA;QXu1%oY)az{jGc8DOkfPjCpVspzuzbase_rtd; ref(rtd, off_rtd_rtd) = base_rtd; ref(rtd, off_rtd_name) = name; ref(rtd, off_rtd_length) = fix(n); diff --git a/bin/ikarus-runtime.c b/bin/ikarus-runtime.c index e46b2f4..216d410 100644 --- a/bin/ikarus-runtime.c +++ b/bin/ikarus-runtime.c @@ -327,7 +327,6 @@ ikpcb* ik_make_pcb(){ } /* initialize base rtd */ { - ikp s = ik_cstring_to_symbol("$base-rtd", pcb); ikp r = ik_alloc(pcb, align(rtd_size)) + rtd_tag; ref(r, off_rtd_rtd) = r; ref(r, off_rtd_length) = (ikp) (rtd_size-wordsize); @@ -335,8 +334,6 @@ ikpcb* ik_make_pcb(){ ref(r, off_rtd_fields) = 0; ref(r, off_rtd_printer) = 0; ref(r, off_rtd_symbol) = 0; - ref(s, off_symbol_system_value) = r; - ref(s, off_symbol_value) = r; pcb->base_rtd = r; } return pcb;