From 0c5dec75a7c68ca69384bbc27f8a273976de92d1 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Fri, 9 Dec 2022 17:51:21 +0100
Subject: add sgn

---
 mew.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'mew.scm')

diff --git a/mew.scm b/mew.scm
index a6ac371..f95c0b1 100644
--- a/mew.scm
+++ b/mew.scm
@@ -18,7 +18,7 @@
      odometer one-of op op*
      per prn proj puts
      rand range rep
-     sample scan scan-right sing? search seq set set-at
+     sample scan scan-right sing? search seq set set-at sgn
      shuffle shuffle! str slurp
      tally-accumulator tbl time
      while
@@ -105,6 +105,10 @@
 
   (reexport err)
 
+  (define (sgn n)
+    (cond ((< n 0) -1)
+          ((> n 0)  1)
+          (else     0)))                ; always return an integer 0, not n
 
   (define (inc i)
     (+ i 1))
-- 
cgit 1.4.1