From 109f669470cce934af6231db967c4385389b2a68 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 28 Aug 2014 19:01:28 -0400
Subject: math: Add square procedure.

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

diff --git a/sly/math.scm b/sly/math.scm
index 55d176e..0f7ede3 100644
--- a/sly/math.scm
+++ b/sly/math.scm
@@ -33,7 +33,7 @@
             cotan
             clamp
             linear-scale
-            half))
+            half square))
 
 ;; Dave was editing this module on Pi Approximation Day.
 ;;
@@ -106,3 +106,6 @@ actually less than MAX."
 
 (define (half x)
   (/ x 2))
+
+(define (square x)
+  (* x x))
-- 
cgit v1.2.3