From 8bac998a25e7cef213f4288efebdfdbbc5bea391 Mon Sep 17 00:00:00 2001
From: Dane Johnson <daneallenjohnson@protonmail.com>
Date: Mon, 28 Oct 2024 12:41:35 -0500
Subject: [PATCH] Proper tail threading

---
 d-.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/d-.scm b/d-.scm
index 2a19ec1..bbf8a65 100644
--- a/d-.scm
+++ b/d-.scm
@@ -17,8 +17,8 @@
 (define-syntax ~>>
   (syntax-rules ()
     [(_ v) v]
-    [(_ v (fn args ...) more ...) (~> (fn args ... v) more ...)]
-    [(_ v fn more ...) (~> (fn v) more ...)]))
+    [(_ v (fn args ...) more ...) (~>> (fn args ... v) more ...)]
+    [(_ v fn more ...) (~>> (fn v) more ...)]))
 
 (define-syntax-rule (if-not pred body ...)
   (if (not pred) body ...))