diff options
Diffstat (limited to '')
-rw-r--r-- | module/calp/util.scm | 3 |
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)) |