remove first-or-null, not required because first returns null already

mad/util.mad

@@ -3,9 +3,6 @@
 ;; Generic utility functions.
 ;;
 
-;; Return first item of sequence, or null if it is empty.
-(defn first-or-null (seq) (if (empty? seq) null (first seq)))
-
 ;; Split string by whitespace, removing empty strings.
 (defn split-ws (s) (re-split "/[\\s]+/" s))
 
@@ -13,4 +10,4 @@
 ;; Useful for parsing a string for command name and arguments.
 (defn str-first-rest (s)
   (let (words (split-ws s))
-    [(first-or-null words) (tail words)]))
+    [(first words) (tail words)]))