Use eq? in remove-duplicates.

This avoids implcitly using equal?, which is not implemented.

Author: dvanhorn

langs/outlaw/compile-literals.rkt

@@ -35,12 +35,11 @@
 
 ;; Prog -> [Listof Symbol]
 (define (literals p)
-  (remove-duplicates
-   (map to-symbol (literals* p))))
+  (remove-duplicates (map to-symbol (literals* p)) eq?))
 
 ;; Prog -> [Listof Symbol]
 (define (symbols p)
-  (remove-duplicates (filter symbol? (literals* p))))
+  (remove-duplicates (filter symbol? (literals* p)) eq?))
 
 ;; (U String Symbol) -> Symbol
 (define (to-symbol s)

langs/outlaw/fv.rkt

@@ -5,7 +5,7 @@
 ;; Expr -> [Listof Id]
 ;; List all of the free variables in e
 (define (fv e)
-  (remove-duplicates (fv* e)))
+  (remove-duplicates (fv* e) eq?))
 
 ;; Expr [Listof Id] -> [Listof Id]
 (define (fv- e xs)