Rewriting intern. This is badly broken, but I think on the road to better.
This commit is contained in:
parent
145a0fe5a7
commit
72548097cf
7 changed files with 103 additions and 41 deletions
|
|
@ -388,7 +388,7 @@ struct cons_pointer make_symbol_or_key( wint_t c, struct cons_pointer tail,
|
|||
result = make_string_like_thing( c, tail, tag );
|
||||
|
||||
if ( tag == KEYTV ) {
|
||||
struct cons_pointer r = internedp( result, oblist );
|
||||
struct cons_pointer r = interned( result, oblist );
|
||||
|
||||
if ( nilp( r ) ) {
|
||||
intern( result, oblist );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue