joehillen

{-# LANGUAGE OverloadedStrings, RecordWildCards, LambdaCase #-}

import           Conduit
import           Data.Conduit
import           Data.Conduit.Network
import qualified Data.ByteString.Char8 as BS
import           Data.Conduit.TMChan
import           Text.Printf              (printf)
import           Control.Concurrent.STM
import qualified Data.Map as Map

carcigenicate

(defmacro trace-letfn [fnspecs & body]
  (let [mod-fns (mapv #(let [[name args & body] %]
                         `(~name ~args (t/trace-fn-call '~name (fn ~args ~@body) ~args)))
                      fnspecs)]
    `(letfn ~mod-fns ~@body)))
    
(trace-letfn [(f [n] (println "Thing" n))
              (g [m] (println "Somethin else" m))]
  (f 1)
  (g 2))