From 784eb9dfe7b7a017d0c33f80fe327f32dd6d3bf1 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Thu, 16 Jun 2022 23:00:08 +0000
Subject: add :list type to dicts, for now

---
 libs/dict.neb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/libs/dict.neb b/libs/dict.neb
index 7b474f4..dd7d5ba 100644
--- a/libs/dict.neb
+++ b/libs/dict.neb
@@ -5,20 +5,20 @@
     (empty?
         (filter (lambda (x) (not (eq? x 2))) (map list-length in))))
 
-(func has? (in key)
+(func has? (in :list key)
     (not (empty?
         (filter (lambda (x) (eq? (first x) key)) in))))
 
-(func get (d key)
+(func get (d :list key)
     (first (rest (first
         (filter (lambda (x) (eq? (first x) key)) d)))))
 
-(func set (d key val)
+(func set (d :list key val)
     (if (has? d key)
         (map (lambda (x) (if (eq? key (first x)) (list (first x) val) x)) d)
         (append d (list key val))))
 
-(func keys (d) (map first d))
+(func keys (d :list) (map first d))
 
-(func drop (d key)
+(func drop (d :list key)
     (filter (lambda (x) (not (eq? (first x) key))) d))
-- 
cgit v1.2.3