Must provide a predicate to argmin

2024-11-11 15:38:13 -06:00
parent 56594fd146
commit 87384f611c
2 changed files with 3 additions and 3 deletions
--- a/test.scm
+++ b/test.scm
@@ -53,4 +53,4 @@

 (define-test argmin
  (test
-   (assert (equal? (argmin cdr '(a . 5) '(b . 2) '(c . 3)) '(b . 2)))))
+   (assert (equal? (argmin cdr < '(a . 5) '(b . 2) '(c . 3)) '(b . 2)))))