11 lines
220 B
Factor
11 lines
220 B
Factor
|
USING: kernel logging ;
|
||
|
|
IN: jamshred.log
|
||
|
|
|
||
|
|
LOG: (jamshred-log) DEBUG
|
||
|
|
|
||
|
|
: with-jamshred-log ( quot -- )
|
||
|
|
"jamshred" swap with-logging ;
|
||
|
|
|
||
|
|
: jamshred-log ( message -- )
|
||
|
|
[ (jamshred-log) ] with-jamshred-log ; ! ugly...
|