racket-clojure-like

racket-clojure-like.rkt

(define-syntax apply->
  (syntax-rules ()
    ((_ e (f a ...)) (f e a ...))
    ((_ e (f)) (f e))
    ((_ e f) (f e))))

(define-syntax %->
  (syntax-rules ()
    ((_ e1 e2 e3 ...) (%-> (apply-> e1 e2) e3 ...))
    ((_ e1 e2) (apply-> e1 e2))
    ((_ e) e)))

(define-syntax apply->>
  (syntax-rules ()
    ((_ e (f a ...)) (f a ... e))
    ((_ e (f)) (f e))
    ((_ e f) (f e))))

(define-syntax %->>
  (syntax-rules ()
    ((_ e1 e2 e3 ...) (%->> (apply->> e1 e2) e3 ...))
    ((_ e1 e2) (apply->> e1 e2))
    ((_ e) e)))