Ignore:
Timestamp:
Aug 1, 2006, 9:34:21 PM (14 years ago)
Author:
orlov
Message:
  • Improved format of messages for a user.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/Debug/refal/Debug.rf

    r2036 r2045  
    11// $Id$
    22
    3 $use Apply Arithm Box Compare Convert "RF_Stack" Static StdIO Table;
     3$use Apply Arithm Box Compare Convert List "RF_Stack" Static StdIO Table;
    44
    55$table Break-Funcs Breakpoints Ops;
     
    8484    /*empty*/ = {
    8585      env : e (e.name (e.value)) e,
    86         <Print '.'> <Write e.name> <Print ' : '> <WriteLN e.value>,
     86        <Print '.'e.name' : '> <WriteLN e.value>,
    8787        $fail;;
    8888    };
     
    105105  e.arg : {
    106106    Help = <PrintLN "[file-name line column] removes breakpoint from specified position">;
    107     e.fname' 'e.line' 'e.column,
     107    $r e.fname' 'e.line' 'e.column,
    108108      <Unbind &Breakpoints e.fname <To-Int e.line> <To-Int e.column>>,
    109109      $fail;
    110     e = <PrintLN "Breakpoints: "> <WriteLN <Domain &Breakpoints>>;
     110    e = <Print "Breakpoints: "> <WriteLN <Domain &Breakpoints>>;
    111111  };
    112112
     
    119119      <Bind &Break-Funcs (<To-Word v.fname>) ()>,
    120120      $fail;
    121     e = <Print "Break at functions: "> <WriteLN <Domain &Break-Funcs>>;
     121    e = <Print "Break at functions: "> <WriteLN <Concat <Domain &Break-Funcs>>>;
    122122  };
    123123
     
    131131      <Unbind &Break-Funcs <To-Word v.fname>>,
    132132      $fail;
    133     e = <Print "Break at functions: "> <WriteLN <Domain &Break-Funcs>>;
     133    e = <Print "Break at functions: "> <WriteLN <Concat <Domain &Break-Funcs>>>;
    134134  };
    135135
Note: See TracChangeset for help on using the changeset viewer.