add empty? runtime function and simplified first and next

pragmatrix · Jul 15, 2012 · c70c673 · c70c673
1 parent c56978c
commit c70c673
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Matter/Runtime.fs b/Matter/Runtime.fs
@@ -15,8 +15,9 @@ let rec equalFunction exp =
 
 let runtimeFunctions = [
     "list", List
-    "first", fun (e::_) -> e
-    "next", fun (_::t) -> List t
+    "first", List.head
+    "next", List.tail >> List
+    "empty?", List.isEmpty >> Boolean
     "=", equalFunction
     ]