/pliant/language/debug/compile_log.pli
 
 1  submodule "/pliant/language/basic/safe.pli" 
 2  submodule "/pliant/language/basic/unsafe.pli" 
 3   
 4  gvar Int active := 0 
 5   
 6  function compile_message msg 
 7    arg Str msg 
 8    if msg:len<active 
 9      for (var Int i) active 
 10        console " " 
 11      console "[cr]" 
 12    console msg 
 13    console "[cr]" 
 14    active := msg len 
 15   
 16  gvar List compile_log_report 
 17   
 18  function compile_log msg 
 19    arg Str msg 
 20    var Link:Str :> new Str ; := msg 
 21    compile_log_report append addressof:m 
 22   
 23  export compile_message compile_log compile_log_report