From 02a0f6f767e00b420372d15a9546a46497dfe81c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 21 Mar 2023 09:46:43 -0500
Subject: Add fff/dupes? parameter

---
 fff.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/fff.scm b/fff.scm
index 2623211..e37fff6 100755
--- a/fff.scm
+++ b/fff.scm
@@ -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))))
-- 
cgit 1.4.1-21-gabe81