summaryrefslogtreecommitdiff
path: root/stuff.scm
diff options
context:
space:
mode:
Diffstat (limited to 'stuff.scm')
-rw-r--r--stuff.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/stuff.scm b/stuff.scm
index b55c15d..6dc69e6 100644
--- a/stuff.scm
+++ b/stuff.scm
@@ -1146,7 +1146,7 @@ Unlike full-find-if, safe-find-if can handle any circularity in the sequences.")
;;; ----------------
-(define (clamp minimum x maximum)
+(define (clamp minimum x maximum) ; if min>max maybe an error? (clamp 3 2 1) -> 1
(min maximum (max x minimum)))
(define (1- x) (- x 1))