add extend userlib func

Signed-off-by: Ava Affine <ava@sunnypup.io>
2024-06-11 17:07:49 -07:00 · 2024-06-11 17:07:49 -07:00 · 8f0e2512cc
commit 8f0e2512cc
parent 3d0d8d8215
2 changed files with 13 additions and 0 deletions
--- a/snippets/userlib-tests.f
+++ b/snippets/userlib-tests.f
@ -120,6 +120,13 @@
          (eq? (join l ".")
               "1.2.(3)"))))

+    ('extend extends sets'
+      (quote
+        (let ((s1 (1 2 3))
+              (s2 (4 5 6)))
+          (eq? (extend s1 s2)
+               (1 2 3 4 5 6)))))
+
     ;; add more test cases here
   ))