Add exact-integer? to Outlaw so bootstrap goes through.

Author: dvanhorn

langs/outlaw/compile.rkt

@@ -82,7 +82,7 @@
          symbol->string string->symbol symbol?
          string->uninterned-symbol
          open-input-file
-         write-char error integer? procedure?
+         write-char error integer? exact-integer? procedure?
          eq-hash-code char-alphabetic? char-whitespace? displayln write-string
          ;; Op2
          + - < = cons eq? make-vector vector-ref

langs/outlaw/stdlib.rkt

@@ -28,7 +28,7 @@
          vector? vector-length string? string-length
          symbol->string string->symbol symbol?
          string->uninterned-symbol open-input-file
-         write-char error integer? procedure?
+         write-char error integer? exact-integer? procedure?
          eq-hash-code
          ;; Op2
          + - < = cons eq? make-vector vector-ref
@@ -90,6 +90,7 @@
 (define (open-input-file x) (%open-input-file x))
 (define (error . x) (%error (car x))) ;; drops other args
 (define (integer? x) (%integer? x))
+(define (exact-integer? x) (%integer? x)) ;; we only have exact integers
 (define (procedure? x) (%procedure? x))
 (define (eq-hash-code x) (%eq-hash-code x))