From 4ac97adb328f2bd28caadc956c028526d724fa02 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 18 Dec 2018 13:19:23 -0500
Subject: [PATCH] WIP

---
 seq-test.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/seq-test.scm b/seq-test.scm
index 7dc09adb..8b52239a 100644
--- a/seq-test.scm
+++ b/seq-test.scm
@@ -134,9 +134,9 @@ if (acc) {
 (define inner-union
   (lambda (last l1 l2)
     (if (null? l1)
-        l2 ;; TODO: sort l2 (or figure out why we get passed an unsorted list
+        (next last l2)
         (if (null? l2)
-            l1 ;; TODO: sort l1
+            (next last l1)
             ;; TODO: also have an eq? check to eliminate duplicates
             (if (symbol<? (car l1) (car l2))
                 (if (eq? last (car l1))
@@ -146,6 +146,11 @@ if (acc) {
                     (inner-union last l1 (cdr l2))
                     (cons (car l2) (inner-union (car l2) l1 (cdr l2)))))))))
 
+(define (next sym lis)
+  (if (and (pair? lis) (eq? sym (car lis)))
+      (next sym (cdr lis))
+      lis))
+
 (write
   (union '(a b c) '(d e f)))
 (newline)