Commit cf139ac

committed

keep non-function builtin symbols bfrom being turned into "BUILTIN" objects

1 parent cf2e1d9 commit cf139acCopy full SHA for cf139ac

File tree

-2

lines changed

-2

lines changed

Lines changed: 4 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -7296,8 +7296,10 @@ object* eval (object* form, object* env) {`
`7296`	`7296`	`// special symbol macro handling`
`7297`	`7297`	`else if (builtinp(name)) {`
`7298`	`7298`	`builtin_t bname = builtin(name);`
`7299`		`- if (fntype(getminmax(bname)) == SPECIAL_SYMBOLS) return ((fn_ptr_type)lookupfn(bname))(NULL, env);`
`7300`		`- return bfunction_from_symbol(form);`
	`7299`	`+ uint8_t ft = fntype(getminmax(bname));`
	`7300`	`+ if (ft == SPECIAL_SYMBOLS) return ((fn_ptr_type)lookupfn(bname))(NULL, env);`
	`7301`	`+ else if (ft == OTHER_FORMS) return form;`
	`7302`	`+ else return bfunction_from_symbol(form);`
`7301`	`7303`	`}`
`7302`	`7304`	`Context = NIL;`
`7303`	`7305`	`error("undefined", form);`

Comments

(0)