From: Simon Forman <sforman@hushmail.com>
Date: Sun, 5 Feb 2023 16:38:15 +0000 (-0800)
Subject: minor cleanup
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=4b3117e3497c3560e8a2c926b3697613c547d698;p=joypy%2FThun.git

minor cleanup
---

diff --git a/implementations/C/joy.c b/implementations/C/joy.c
index 5235dfa..0dec122 100644
--- a/implementations/C/joy.c
+++ b/implementations/C/joy.c
@@ -579,6 +579,16 @@ clear(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
 
 
 void
+dup(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
+{
+	JoyList s = *stack;
+	JoyList node = pop_any(stack);
+	*stack = s;
+	push_thing(node->head, stack);
+}
+
+
+void
 truthy(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
 {
 	/*
@@ -614,16 +624,6 @@ truthy(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
 }
 
 
-void
-dup(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
-{
-	JoyList s = *stack;
-	JoyList node = pop_any(stack);
-	*stack = s;
-	push_thing(node->head, stack);
-}
-
-
 JoyList def_abs_body;
 JoyList def_anamorphism_body;
 JoyList def_app1_body;