From 40e772e9e493190ff3ba41440653782d8f17e5a0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 15 Aug 2014 22:48:12 -0400
Subject: Add half procedure.

* sly/math.scm (half): New procedure.
---
 sly/math.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sly/math.scm b/sly/math.scm
index 8dc5cbf..55d176e 100644
--- a/sly/math.scm
+++ b/sly/math.scm
@@ -32,7 +32,8 @@
             atan-degrees
             cotan
             clamp
-            linear-scale))
+            linear-scale
+            half))
 
 ;; Dave was editing this module on Pi Approximation Day.
 ;;
@@ -102,3 +103,6 @@ actually less than MAX."
   (+ a
      (/ (* (- b a) (- n min))
         (- max min))))
+
+(define (half x)
+  (/ x 2))
-- 
cgit v1.2.3