aboutsummaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/calp/util.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/module/calp/util.scm b/module/calp/util.scm
index 96ca2f01..6cee1b0f 100644
--- a/module/calp/util.scm
+++ b/module/calp/util.scm
@@ -252,8 +252,7 @@
;; Ord b => (list a) [, (b, b -> bool), (a -> b)] -> a, (list a)
(define*-public (find-extreme items optional: (< <) (access identity))
(if (null? items)
- ;; Vad fan retunerar man här?
- (values #f '())
+ (error "Can't find extreme in an empty list")
(fold-values
(lambda (c min other)
(if (< (access c) (access min))