From b9e0db08f2ecff4c326c0ef16e2f3de24c0d5618 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 27 Jan 2016 23:00:18 -0500
Subject: [PATCH] Added a few more functions

---
 scheme/base.sld | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 9a06ad9f..40270409 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -7,6 +7,10 @@
     max
     min
     modulo
+    floor-remainder
+    even?
+;    exact-integer?
+    odd?
     call-with-current-continuation
     call/cc
     call-with-values
@@ -100,6 +104,7 @@
     round
     exact
     inexact
+
 ;;;;
 ; Possibly missing functions:
 ;
@@ -122,7 +127,6 @@
 ;    ;error-object?
 ;    ;file-error?
 ;    ;floor-quotient
-;    ;floor-remainder
 ;    ;floor/
 ;    ;guard
 ;    ;import
@@ -172,9 +176,7 @@
 ;    eq?
 ;    equal?
 ;    eqv?
-;    even?
 ;    exact-integer-sqrt
-;    exact-integer?
 ;    exact?
 ;    expt
 ;    foldl
@@ -201,7 +203,6 @@
 ;    number->string
 ;    number?
 ;    numerator
-;    odd?
 ;    open-input-bytevector
 ;    open-input-string
 ;    open-output-bytevector
@@ -863,6 +864,11 @@
         make_int(result, i % j);
         return_closcall1(data, k, &result); 
       }")
+  (define floor-remainder modulo)
+  (define (odd? num)   (= (modulo num 2) 1))
+  (define (even? num)  (= (modulo num 2) 0))
+; TODO:  (define (exact-integer? num)
+; TODO:    (and (exact? num) (integer? num)))
   (define (max first . rest) (foldl (lambda (old new) (if (> old new) old new)) first rest))
   (define (min first . rest) (foldl (lambda (old new) (if (< old new) old new)) first rest))
 ))