conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* 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.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-09 19:45:41 -04:00
parent 4763b3e67e
commit 7dc4f7617b
3 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

3
bin/ikarus-fasl.c
View File

@ -344,8 +344,7 @@ static ikp do_read(ikpcb* pcb, fasl_port* p){
ikp rtd;
if(gensym_val == unbound_object){
rtd = ik_alloc(pcb, align(rtd_size)) + vector_tag;
ikp base_sym = ik_cstring_to_symbol("$base-rtd", pcb);
ikp base_rtd = ref(base_sym, off_symbol_system_value);
ikp base_rtd = pcb->base_rtd;
ref(rtd, off_rtd_rtd) = base_rtd;
ref(rtd, off_rtd_name) = name;
ref(rtd, off_rtd_length) = fix(n);

3
bin/ikarus-runtime.c
View File

@ -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;