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

2018-02-28 05:04:42 +00:00
parent c865de4d61
commit 701554af0d
2 changed files with 4 additions and 3 deletions
--- a/lib/prim.c
+++ b/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;