Proper tail threading

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 ...))