Compact path notation now expands correctly

This commit is contained in:
Simon Brooke 2021-08-18 18:48:05 +01:00
parent 5c6ac7f75d
commit c63c262b74
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
7 changed files with 145 additions and 8 deletions

View file

@ -25,7 +25,7 @@
#include "equal.h"
#include "hashmap.h"
#include "lispops.h"
#include "print.h"
// #include "print.h"
/**
* The global object list/or, to put it differently, the root namespace.
@ -181,8 +181,11 @@ deep_bind( struct cons_pointer key, struct cons_pointer value ) {
debug_println( DEBUG_BIND );
oblist = set( key, value, oblist );
inc_ref( oblist );
dec_ref( old );
if ( consp( oblist ) ) {
inc_ref( oblist );
dec_ref( old );
}
debug_print( L"deep_bind returning ", DEBUG_BIND );
debug_print_object( oblist, DEBUG_BIND );