Bother. It looks like I'd already fully implemented hashmaps...

May need to back out a whole hill of work.
This commit is contained in:
Simon Brooke 2021-08-16 15:12:05 +01:00
parent 132f5fb268
commit bfd7304da1
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
11 changed files with 378 additions and 83 deletions

View file

@ -23,6 +23,7 @@
#include "consspaceobject.h"
#include "debug.h"
#include "equal.h"
#include "hashmap.h"
#include "lispops.h"
#include "map.h"
#include "print.h"
@ -107,8 +108,10 @@ struct cons_pointer c_assoc( struct cons_pointer key,
break;
}
}
} else if (vectorpointp( store)) {
} else if (hashmapp( store)) {
result = assoc_in_map( key, store);
} else {
result = throw_exception(c_string_to_lisp_string(L"Store is of unknown type"), NIL);
}
debug_print( L"c_assoc returning ", DEBUG_BIND);