!296 improve stack%push in (liii stack)

LiiiLabs · Mar 6, 2025 · 6dadca4 · 6dadca4
1 parent 3f32523
commit 6dadca4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 13 deletions.
diff --git a/goldfish/liii/stack.scm b/goldfish/liii/stack.scm
@@ -45,11 +45,8 @@
       (stack (set! data (cdr data))))
   (%this))
 
-(define (%push element . es) 
-  (let1 r (stack (cons element data))
-    (if (null? es)
-        r
-        (apply r es))))
+(chained-define (%push element)
+  (stack (cons element data)))
 
 (chained-define (%push! element) 
                 (stack (set! data (cons element data))) 

diff --git a/liii_stack.tmu b/liii_stack.tmu
@@ -258,15 +258,9 @@
   <paragraph|stack%push>
 
   <\scm-chunk|goldfish/liii/stack.scm|true|true>
-    (define (%push element . es)\ 
+    (chained-define (%push element)
 
-    \ \ (let1 r (stack (cons element data))
-
-    \ \ \ \ (if (null? es)
-
-    \ \ \ \ \ \ \ \ r
-
-    \ \ \ \ \ \ \ \ (apply r es))))
+    \ \ (stack (cons element data)))
 
     \;
   </scm-chunk>