ref: 69360a6aa5de141e62534dae5b340bb3b0a45d69
parent: 74935aedf4130121cd5614d6d78246063e7d7734
author: Lennart Augustsson <lennart@augustsson.net>
date: Sun Dec 31 07:51:27 EST 2023
Small cleanup
--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -973,7 +973,7 @@
}
#if 1
/* This is broken.
- * Probably because it can happen in the middle of the C node.
+ * Probably because it can happen in the middle of the C reduction code.
*/
if (tag == T_AP && GETTAG(FUN(n)) == T_C) {NODEPTR q = ARG(n);
@@ -1002,16 +1002,9 @@
#endif /* INTTABLE */
#endif /* GCRED */
if (tag == T_AP) {-#if 1
mark(&FUN(n));
- //mark(&ARG(n));
np = &ARG(n);
goto top; /* Avoid tail recursion */
-#else
- mark(&ARG(n));
- np = &FUN(n);
- goto top; /* Avoid tail recursion */
-#endif
} else if (tag == T_ARR) {struct ioarray *arr = ARR(n);
/* It really should never happen that we encounter a marked
--
⑨