From 56e616c04b62134e749b6cfde5d91daa5349b4d0 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 23 Mar 2011 19:19:49 -0400
Subject: [PATCH] traced bug with list intersection

---
 helpers.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helpers.rkt b/helpers.rkt
index c0a37f2..47a1758 100644
--- a/helpers.rkt
+++ b/helpers.rkt
@@ -25,7 +25,7 @@
         [(memq (car s1) s2)
          (cons (car s1) (list-intersection (cdr s1) s2))]
         [else
-         (list-difference (cdr s1) s2)]))
+         (list-intersection (cdr s1) s2)]))
 
 
 ;; Trying to work around what looks like a bug in typed racket: