Add ormap to stdlib since it's used in a86 code now.

Author: dvanhorn

langs/outlaw/compile.rkt

@@ -75,7 +75,7 @@
          list->string string->list
          char<=? char=?
          remove-duplicates remq* remove* remove
-         andmap vector list->vector boolean?
+         andmap ormap vector list->vector boolean?
          substring odd?
          system-type ;; hard-coded
          not findf

langs/outlaw/stdlib.rkt

@@ -7,7 +7,7 @@
          list->string string->list
          reverse
          remove-duplicates remq* remove* remove
-         andmap vector list->vector boolean? substring
+         andmap ormap vector list->vector boolean? substring
          odd?
          system-type
          not
@@ -280,6 +280,13 @@
      (and (f x)
           (andmap f xs))]))
 
+(define (ormap f xs)
+  (match xs
+    ['() #f]
+    [(cons x xs)
+     (or (f x)
+         (ormap f xs))]))
+
 (define (list->vector xs)
   (list->vector/a (make-vector (length xs) 0) 0 xs))