1 files changed, 8 insertions, 1 deletions

@@ -141,6 +141,12 @@ FLAT FUCK FORMAT : Specification
 (define fff/comments?
   (make-parameter #f))
 
+(define fff/dupes?
+  (make-parameter #f))
+
+
+;;; FFF -> Scheme structures
+
 (define (fff? x)
   (and (pair? x)
        (eq? (car x) 'fff)))
@@ -184,7 +190,8 @@ FLAT FUCK FORMAT : Specification
                         ("false" . #f)
                         ("null" . null))))
   (filter (lambda (x)
-            (if keep-dupes?
+            (if (or keep-dupes?
+                    (fff/dupes?))
                 #t
                 (not (member (or (car-safe x) x)
                              dupes))))