Skip to content

Commit 5abc6ef

Browse files
remove saving of old_tailcall
in the enclosed code, there was nothing that branched on, accessed, or modified tailcall or old_tailcall, so saving/restoring it was rather pointless
1 parent 67188e4 commit 5abc6ef

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

ulisp.hpp

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7326,7 +7326,6 @@ object* eval (object* form, object* env) {
73267326
builtin_t name = builtin(function->name);
73277327

73287328
if ((name == LET) || (name == LETSTAR)) {
7329-
bool old_tailcall = tailcall;
73307329
if (args == NULL) error2(noargument);
73317330
object* assigns = first(args);
73327331
if (!listp(assigns)) error(notalist, assigns);
@@ -7348,7 +7347,6 @@ object* eval (object* form, object* env) {
73487347
form = sp_progn(forms, env);
73497348
if (tstflag(TAILCALL)) {
73507349
clrflag(TAILCALL);
7351-
tailcall = old_tailcall;
73527350
goto EVAL;
73537351
}
73547352
return form;

0 commit comments

Comments
 (0)