From a968e8595b999d5c0a43c59de69bcb4f34e205c1 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Fri, 14 Jan 2022 21:06:26 -0800
Subject: Write a first draft macro expander.

Committing it because it compiles. I have to write tests and debug
it still.
---
 csc/hash-map-test.csc | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'csc/hash-map-test.csc')

diff --git a/csc/hash-map-test.csc b/csc/hash-map-test.csc
index 3e26570..f346e1e 100644
--- a/csc/hash-map-test.csc
+++ b/csc/hash-map-test.csc
@@ -83,3 +83,13 @@
 (test lookup-notfound
   (assert-raises key-not-found-error?
     (lookup (alist->map hash-symbol cmp-symbols '((a . 1) (b . 2) (c . 3))) 'd)))
+
+
+(test merge
+  (assert-equal
+    (sort-alist '((a . 1) (b . 2) (c . 3) (d . 4)))
+    (sort-alist
+      (map->alist
+        (merge
+          (alist->map hash-symbol cmp-symbols '((a . 1) (b . 2)))
+          (alist->map hash-symbol cmp-symbols '((c . 3) (d . 4))))))))
-- 
cgit v1.3.1