From 42492c8a096431733cc3ad2c2d9a7a8fe8559cc9 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Thu, 20 Jun 2024 16:18:54 -0400
Subject: [PATCH] fix bug in `rest` with error on empty list

---
 prelude.ld      | 2 ++
 src/ludus.janet | 6 +-----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/prelude.ld b/prelude.ld
index 26f7304..9753575 100644
--- a/prelude.ld
+++ b/prelude.ld
@@ -134,6 +134,8 @@ fn fn? {
 & what we need for some very basic list manipulation 
 fn rest {
 	"Returns all but the first element of a list or tuple, as a list."
+	([]) -> []
+	(()) -> ()
 	(xs as :list) -> base :rest (xs)
 	(xs as :tuple) -> base :rest (xs)
 }
diff --git a/src/ludus.janet b/src/ludus.janet
index 41ca5f4..4485394 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -52,11 +52,7 @@
 (comment
 # (do
 (def source `
-hideturtle! ()
-showturtle! ()
-penup! ()
-pendown! ()
-pencolor! (colors :red)
+rest ([])
 `)
 (def out (-> source 
  ludus