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

View File

@ -402,7 +402,7 @@ analyze_procedure(analyze_state *state, pic_value name, pic_value formals, pic_v
pop_scope(state);
}
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);

View File

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