remove redefinition of fn_return

dragoncoder047 · dragoncoder047 · commit 1c3aaf06f466 · 2024-06-29T09:30:41.000-04:00
diff --git a/ulisp.hpp b/ulisp.hpp
@@ -4671,16 +4671,6 @@ object* fn_eval (object* args, object* env) {
     return eval(first(args), env);
 }
 
-/*
-    (return [value])
-    Exits from a (dotimes ...), (dolist ...), or (loop ...) loop construct and returns value.
-*/
-object *fn_return (object *args, object *env) {
-    (void) env;
-    setflag(RETURNFLAG);
-    if (args == NULL) return nil; else return first(args);
-}
-
 /*
     (globals)
     Returns a list of global variables.
