mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-24 14:16:52 +00:00
Code Issues 1 Releases Wiki Activity

Fix regression where math ops didn't error.

Browse Source
This commit is contained in:
Calvin Rose 2017-05-03 20:35:39 -04:00
parent c6e9f24f82
commit bc82ce348a
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/parse.c
View File

@ -536,15 +536,12 @@ void gst_parser(GstParser *p, Gst *vm) {
parser_push(p, PTYPE_ROOT, ' ');
}
/* CG finalize a parser */
static void gst_stl_parser_finalize(Gst *vm, void *data, uint32_t len) {
/* printf("Finalizing parser: %p, %d\n", data, len); */
}
/* GC mark a parser */
static void gst_stl_parser_mark(Gst *vm, void *data, uint32_t len) {
uint32_t i;
GstParser *p = (GstParser *) data;
if (len != sizeof(GstParser))
return;
gst_mark_mem(vm, p->data);
gst_mark_value(vm, p->value);
for (i = 0; i < p->count; ++i) {
@ -572,7 +569,7 @@ static const GstUserType gst_stl_parsetype = {
"std.parser",
NULL,
NULL,
&gst_stl_parser_finalize,
NULL,
&gst_stl_parser_mark
};

2
core/stl.c
View File

@ -65,6 +65,8 @@ int gst_stl_##name(Gst* vm) {\
rhs = gst_arg(vm, j);\
lhs = gst_stl_binop_##name(lhs, rhs);\
}\
if (lhs.type == GST_NIL)\
gst_c_throwc(vm, "expected integer/real");\
gst_c_return(vm, lhs);\
}