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

symbol-table now puts an "unbound" in the symbol-value cell of the symbols it creates

This commit is contained in:
Abdulaziz Ghuloum 2006-12-05 19:42:09 -05:00
parent b8e595b6e6
commit d006951ed7
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

2
bin/ikarus-symbol-table.c
View File

@ -47,7 +47,7 @@ static ikp ik_make_symbol(ikp str, ikpcb* pcb){
ikp sym = ik_alloc(pcb, symbol_size) + symbol_tag; ikp sym = ik_alloc(pcb, symbol_size) + symbol_tag;
ref(sym, off_symbol_string) = str; ref(sym, off_symbol_string) = str;
ref(sym, off_symbol_ustring) = false_object; ref(sym, off_symbol_ustring) = false_object;
ref(sym, off_symbol_value) = str; //unbound_object; ref(sym, off_symbol_value) = unbound_object;
ref(sym, off_symbol_plist) = null_object; ref(sym, off_symbol_plist) = null_object;
ref(sym, off_symbol_system_value) = str; ref(sym, off_symbol_system_value) = str;
ref(sym, off_symbol_system_plist) = null_object; ref(sym, off_symbol_system_plist) = null_object;