Various fixes while trying to make defun! work

It still doesn't, but I think it's VERY close!
This commit is contained in:
Simon Brooke 2018-12-28 22:41:00 +00:00
parent a2afbe030f
commit 8231c74bae
6 changed files with 37 additions and 25 deletions

View file

@ -375,7 +375,7 @@ struct cons_pointer c_type( struct cons_pointer pointer ) {
struct cons_pointer result = NIL;
struct cons_space_object cell = pointer2cell( pointer );
for (int i = TAGLENGTH; i >= 0; i--)
for (int i = TAGLENGTH -1; i >= 0; i--)
{
result = make_string((wchar_t)cell.tag.bytes[i], result);
}