fixed a wrong index used when getting the mod pointer into/from the prim object

2018-02-28 05:04:42 +00:00
parent 8bcade7a2e
commit dc14ead9d7
2 changed files with 4 additions and 3 deletions
--- a/hcl/lib/prim.c
+++ b/hcl/lib/prim.c
@ -49,7 +49,7 @@ hcl_oop_t hcl_makeprim (hcl_t* hcl, hcl_pfimpl_t primimpl, hcl_oow_t minargs, hc
 		obj->slot[0] = (hcl_oow_t)primimpl;
 		obj->slot[1] = minargs;
 		obj->slot[2] = maxargs;
-		obj->slot[4] = (hcl_oow_t)mod;
+		obj->slot[3] = (hcl_oow_t)mod;
 	}

 	return (hcl_oop_t)obj;