From 8b172e3438015bb6660f6fa0035992e48dae5905 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 20 Dec 2016 21:22:21 +0100
Subject: [PATCH] Add abs.

* module/mes/scm.mes (abs): New function.
---
 module/mes/scm.mes | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/mes/scm.mes b/module/mes/scm.mes
index ad1198f3..a9898c8a 100644
--- a/module/mes/scm.mes
+++ b/module/mes/scm.mes
@@ -185,6 +185,9 @@
 (define (1- x)
   (- x 1))
 
+(define (abs x)
+  (if (>= x 0) x (- x)))
+
 (define (expt x y)
   (let loop ((s 1) (count y))
     (if (= 0 count) s
-- 
2.31.1