extra/jamshred/log/log.factor

   1 USING: kernel logging ;
   2 IN: jamshred.log
   3
   4 LOG: (jamshred-log) DEBUG
   5
   6 : with-jamshred-log ( quot -- )
   7     "jamshred" swap with-logging ; inline
   8
   9 : jamshred-log ( message -- )
  10     [ (jamshred-log) ] with-jamshred-log ; ! ugly...