Fix bug in take-at-most

2021-08-21 17:22:41 +03:00 · 2021-08-21 17:22:41 +03:00 · 20dba0c3d3
parent 836a7030e8
commit 20dba0c3d3
1 changed files with 1 additions and 1 deletions
--- a/planet.sld
+++ b/planet.sld
@ -42,7 +42,7 @@

    (define (take-at-most list n)
      (let loop ((n n) (new-list '()) (list list))
-        (if (< n 1) (reverse new-list)
+        (if (or (null? list) (< n 1)) (reverse new-list)
            (loop (- n 1) (cons (car list) new-list) (cdr list)))))

    (define (disp . xs)