simon/post-scarcity
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Packages Wiki Activity Actions

Hashmaps sort-of work but there are still bugs and one test is failing that wasn't.

Browse source
This commit is contained in:
Simon Brooke 2021-08-16 18:55:02 +01:00
parent bfd7304da1
commit 4fc9545be8
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
12 changed files with 206 additions and 487 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ops/intern.c
View file

@ -25,7 +25,6 @@
#include "equal.h"
#include "hashmap.h"
#include "lispops.h"
#include "map.h"
#include "print.h"
/**
@ -109,7 +108,7 @@ struct cons_pointer c_assoc( struct cons_pointer key,
}
}
} else if (hashmapp( store)) {
result = assoc_in_map( key, store);
result = hashmap_get( store, key);
} else {
result = throw_exception(c_string_to_lisp_string(L"Store is of unknown type"), NIL);
}
@ -140,8 +139,8 @@ struct cons_pointer
if (nilp( store) || consp(store)) {
result = make_cons( make_cons( key, value ), store );
} else if (vectorpointp( store)) {
result = bind_in_map( store, key, value);
} else if (hashmapp( store)) {
result = hashmap_put( store, key, value);
}
debug_print( L"set returning ", DEBUG_BIND);
@ -196,3 +195,4 @@ intern( struct cons_pointer key, struct cons_pointer environment ) {
return result;
}