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
|
|
@ -85,13 +85,21 @@ void dump_object( FILE * output, struct cons_pointer pointer ) {
|
|||
cell.payload.integer.value, cell.count );
|
||||
break;
|
||||
case LAMBDATV:
|
||||
fwprintf( output, L"\t\tLambda cell; args: " );
|
||||
fwprintf( output, L"\t\tLambda cell;\n\t\t args: " );
|
||||
print( output, cell.payload.lambda.args );
|
||||
fwprintf( output, L";\n\t\t\tbody: " );
|
||||
print( output, cell.payload.lambda.body );
|
||||
fputws( L"\n", output);
|
||||
break;
|
||||
case NILTV:
|
||||
break;
|
||||
case NLAMBDATV:
|
||||
fwprintf( output, L"\t\tNlambda cell; \n\t\targs: " );
|
||||
print( output, cell.payload.lambda.args );
|
||||
fwprintf( output, L";\n\t\t\tbody: " );
|
||||
print( output, cell.payload.lambda.body );
|
||||
fputws( L"\n", output);
|
||||
break;
|
||||
case RATIOTV:
|
||||
fwprintf( output,
|
||||
L"\t\tRational cell: value %ld/%ld, count %u\n",
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue