From 20dba0c3d33ec93a8ccbe8cec6d8f2488eddc543 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Sat, 21 Aug 2021 17:22:41 +0300
Subject: [PATCH] Fix bug in take-at-most

---
 planet.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/planet.sld b/planet.sld
index 333f44b..c6265e1 100644
--- 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)