Various fixes while trying to make defun! work
It still doesn't, but I think it's VERY close!
This commit is contained in:
parent
a2afbe030f
commit
8231c74bae
6 changed files with 37 additions and 25 deletions
|
|
@ -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);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue