Added queue to stdlib

stdlib/Makefile

@@ -18,6 +18,8 @@ $(BDIR)/Fun.o: $(BDIR)/Ref.o
 
 $(BDIR)/Data.o: $(BDIR)/Ref.o $(BDIR)/Collection.o
 
+$(BDIR)/Queue.o: $(BDIR)/List.o
+
 $(BDIR)/Collection.o: $(BDIR)/List.o $(BDIR)/Ref.o
 
 $(BDIR)/Array.o: $(BDIR)/List.o

stdlib/Queue.lama

@@ -0,0 +1,26 @@
+import List;
+
+fun emptyQueue () {
+  [{}, {}]
+}
+
+fun isEmptyQueue (q) {
+  case q of
+    [{}, {}] -> true
+  | _        -> false
+  esac
+}
+
+fun enqueue ([pop, push], x) {
+  [pop, x : push]
+}
+
+fun dequeue ([pop, push]) {
+  case pop of
+    x : pop -> [[pop, push], x]
+  | _       -> case push of
+                 {} -> failure ("dequeueing from empty queue\n")
+               | _  -> dequeue ([reverse (push), {}])
+	       esac
+  esac
+}