/[guile]/guile/guile-core/libguile/backtrace.c
ViewVC logotype

Diff of /guile/guile-core/libguile/backtrace.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by dirk, Sun Jun 30 22:03:43 2002 UTC revision 1.80 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 132  scm_display_error_message (SCM message, Line 132  scm_display_error_message (SCM message,
132  }  }
133    
134  static void  static void
135  display_expression (SCM frame,SCM pname,SCM source,SCM port)  display_expression (SCM frame, SCM pname, SCM source, SCM port)
136  {  {
137    SCM print_state = scm_make_print_state ();    SCM print_state = scm_make_print_state ();
138    scm_print_state *pstate = SCM_PRINT_STATE (print_state);    scm_print_state *pstate = SCM_PRINT_STATE (print_state);
# Line 335  indent (int n, SCM port) Line 335  indent (int n, SCM port)
335  }  }
336    
337  static void  static void
338  display_frame_expr (char *hdr,SCM exp,char *tlr,int indentation,SCM sport,SCM port,scm_print_state *pstate)  display_frame_expr (char *hdr, SCM exp, char *tlr, int indentation, SCM sport, SCM port, scm_print_state *pstate)
339  {  {
340    SCM string;    SCM string;
341    int i = 0, n;    int i = 0, n;
# Line 377  display_frame_expr (char *hdr,SCM exp,ch Line 377  display_frame_expr (char *hdr,SCM exp,ch
377  }  }
378    
379  static void  static void
380  display_application (SCM frame,int indentation,SCM sport,SCM port,scm_print_state *pstate)  display_application (SCM frame, int indentation, SCM sport, SCM port, scm_print_state *pstate)
381  {  {
382    SCM proc = SCM_FRAME_PROC (frame);    SCM proc = SCM_FRAME_PROC (frame);
383    SCM name = (!SCM_FALSEP (scm_procedure_p (proc))    SCM name = (!SCM_FALSEP (scm_procedure_p (proc))
# Line 400  SCM_DEFINE (scm_display_application, "di Line 400  SCM_DEFINE (scm_display_application, "di
400              "output.")              "output.")
401  #define FUNC_NAME s_scm_display_application  #define FUNC_NAME s_scm_display_application
402  {  {
403    SCM_VALIDATE_FRAME (1,frame);    SCM_VALIDATE_FRAME (1, frame);
404    if (SCM_UNBNDP (port))    if (SCM_UNBNDP (port))
405      port = scm_cur_outp;      port = scm_cur_outp;
406    else    else
407      SCM_VALIDATE_OPOUTPORT (2,port);      SCM_VALIDATE_OPOUTPORT (2, port);
408    if (SCM_UNBNDP (indent))    if (SCM_UNBNDP (indent))
409      indent = SCM_INUM0;      indent = SCM_INUM0;
410    else    else
411      SCM_VALIDATE_INUM (3,indent);      SCM_VALIDATE_INUM (3, indent);
412        
413    if (SCM_FRAME_PROC_P (frame))    if (SCM_FRAME_PROC_P (frame))
414      /* Display an application. */      /* Display an application. */
# Line 524  display_backtrace_file_and_line (SCM fra Line 524  display_backtrace_file_and_line (SCM fra
524  }  }
525    
526  static void  static void
527  display_frame (SCM frame,int nfield,int indentation,SCM sport,SCM port,scm_print_state *pstate)  display_frame (SCM frame, int nfield, int indentation, SCM sport, SCM port, scm_print_state *pstate)
528  {  {
529    int n, i, j;    int n, i, j;
530    

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26