dane/d-
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Proper tail threading

Browse Source
This commit is contained in:
Dane Johnson 2024-10-28 12:41:35 -05:00
parent ef8efcb3e0
commit 8bac998a25
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
d-.scm
View File

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