--- stack/stack.c	2002/02/06 11:39:20	1.39
+++ stack/stack.c	2002/02/06 11:44:02	1.40
@@ -454,6 +454,33 @@
   }
 }
 
+/* Reverse a list */
+extern void rev(environment *env){
+  stackitem *old_head, *new_head, *item;
+
+  if((env->head)==NULL) {
+    printerr("Too Few Arguments");
+    env->err=1;
+    return;
+  }
+
+  if(env->head->item->type!=list) {
+    printerr("Bad Argument Type");
+    env->err=2;
+    return;
+  }
+
+  old_head=(stackitem *)(env->head->item->content.ptr);
+  new_head=NULL;
+  while(old_head != NULL){
+    item=old_head;
+    old_head=old_head->next;
+    item->next=new_head;
+    new_head=item;
+  }
+  env->head->item->content.ptr=new_head;
+}
+
 /* Make a list. */
 extern void pack(environment *env)
 {
@@ -494,6 +521,7 @@
   temp->item= pack;
 
   push(&(env->head), temp);
+  rev(env);
 }
 
 /* Parse input. */
@@ -603,33 +631,6 @@
 
 }
 
-/* Reverse a list */
-extern void rev(environment *env){
-  stackitem *old_head, *new_head, *item;
-
-  if((env->head)==NULL) {
-    printerr("Too Few Arguments");
-    env->err=1;
-    return;
-  }
-
-  if(env->head->item->type!=list) {
-    printerr("Bad Argument Type");
-    env->err=2;
-    return;
-  }
-
-  old_head=(stackitem *)(env->head->item->content.ptr);
-  new_head=NULL;
-  while(old_head != NULL){
-    item=old_head;
-    old_head=old_head->next;
-    item->next=new_head;
-    new_head=item;
-  }
-  env->head->item->content.ptr=new_head;
-}
-
 /* Compares two elements by reference. */
 extern void eq(environment *env)
 {