From e05043e375e844617249c2fdc4d836e2410071e2 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Fri, 21 Jun 2024 11:37:23 -0400
Subject: [PATCH] fix nil pattern matching

---
 src/interpreter.janet | 2 +-
 src/ludus.janet       | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/interpreter.janet b/src/interpreter.janet
index 3f59fce..a7e4a25 100644
--- a/src/interpreter.janet
+++ b/src/interpreter.janet
@@ -183,7 +183,7 @@
     :word (match-word pattern value ctx)
 
     # match on equality
-    :nil {:success (nil? value) :ctx ctx}
+    :nil {:success (= :^nil value) :ctx ctx}
     :bool {:success (= data value) :ctx ctx}
     :number {:success (= data value) :ctx ctx}
     :string {:success (= data value) :ctx ctx}
diff --git a/src/ludus.janet b/src/ludus.janet
index b8dd543..da43994 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -52,8 +52,7 @@
 (comment
 # (do
 (def source `
-fn id (x) -> x
-map (id, [])
+contains? (:d, [:a, :b])
 `)
 (def out (-> source 
  ludus