shithub: femtolisp

Info  •  Files  •  Log  •  Branches

isbuiltin: check the tag first, then uintval

--- a/flisp.c

+++ b/flisp.c

@@ -29,8 +29,8 @@

 int

 isbuiltin(value_t x)

 {

-	uint32_t i = uintval(x);

-	return tag(x) == TAG_FUNCTION && i < nelem(builtins) && builtins[i].name != nil;

+	uint32_t i;

+	return tag(x) == TAG_FUNCTION && (i = uintval(x)) < nelem(builtins) && builtins[i].name != nil;

 }

 static value_t apply_cl(uint32_t nargs);