X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.c;h=d4751ac2ee1ee0c4850a848c8461d3cfe6a137d3;hb=c31744299e5a4342bbe26d3735ee2d8f09192ae9;hp=f13f2180684481dc0f245dbb2f3148795a10b974;hpb=98923ae1189f062b8b94120d47a56892db25493f;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index f13f2180..d4751ac2 100644
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -207,6 +207,17 @@ ao_lisp_do_set(struct ao_lisp_cons *cons)
 	return ao_lisp_atom_set(ao_lisp_arg(cons, 0), ao_lisp_arg(cons, 1));
 }
 
+ao_poly
+ao_lisp_do_def(struct ao_lisp_cons *cons)
+{
+	if (!ao_lisp_check_argc(_ao_lisp_atom_def, cons, 2, 2))
+		return AO_LISP_NIL;
+	if (!ao_lisp_check_argt(_ao_lisp_atom_def, cons, 0, AO_LISP_ATOM, 0))
+		return AO_LISP_NIL;
+
+	return ao_lisp_atom_def(ao_lisp_arg(cons, 0), ao_lisp_arg(cons, 1));
+}
+
 ao_poly
 ao_lisp_do_setq(struct ao_lisp_cons *cons)
 {
@@ -216,7 +227,7 @@ ao_lisp_do_setq(struct ao_lisp_cons *cons)
 	name = cons->car;
 	if (ao_lisp_poly_type(name) != AO_LISP_ATOM)
 		return ao_lisp_error(AO_LISP_INVALID, "set! of non-atom");
-	if (!ao_lisp_atom_ref(ao_lisp_frame_current, name))
+	if (!ao_lisp_atom_ref(name))
 		return ao_lisp_error(AO_LISP_INVALID, "atom not defined");
 	return ao_lisp__cons(_ao_lisp_atom_set,
 			     ao_lisp__cons(ao_lisp__cons(_ao_lisp_atom_quote,