conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use correct vars

This commit is contained in:
Sunrin SHIMURA (keen) 2015-02-01 12:25:48 +00:00
parent b727567b6e
commit 8a7f61bf01
2 changed files with 2 additions and 2 deletions
extlib/benz
codegen.c
include/picrin
xfile.h

2
extlib/benz/codegen.c
View File

@ -402,7 +402,7 @@ analyze_procedure(analyze_state *state, pic_value name, pic_value formals, pic_v
pop_scope(state); pop_scope(state);
} }
else { else {
pic_errorf(pic, "invalid formal syntax: ~s", args); pic_errorf(pic, "invalid formal syntax: ~s", formals);
} }
return pic_list7(pic, pic_obj_value(pic->sLAMBDA), name, args, locals, varg, captures, body); return pic_list7(pic, pic_obj_value(pic->sLAMBDA), name, args, locals, varg, captures, body);

2
extlib/benz/include/picrin/xfile.h
View File

@ -622,7 +622,7 @@ xvfprintf(xFILE *stream, const char *fmt, va_list ap)
case 'p': case 'p':
vp = va_arg(ap, void*); vp = va_arg(ap, void*);
xfputs("0x", stream); xfputs("0x", stream);
xfile_printint(stream, dval, 16); xfile_printint(stream, (int)vp, 16);
break; break;
default: default:
xputc(*(p-1), stream); xputc(*(p-1), stream);