Add basic lexenv support
This commit is contained in:
+1
-1
@@ -56,7 +56,7 @@ static uintptr_t hash_key_for_table(LispHashTable *ht, LispVal *key) {
|
||||
|
||||
static bool compare_keys(LispHashTable *ht, LispVal *key1, LispVal *key2) {
|
||||
if (NILP(ht->eq_fn) || ht->eq_fn == Qeq) {
|
||||
return key1 == key2;
|
||||
return EQ(key1, key2);
|
||||
} else if (ht->eq_fn == Qstrings_equal) { // needed for initialization
|
||||
return !NILP(Fstrings_equal(key1, key2));
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user