Re: wrong-type-arg in scm_display_backtrace

[William Morgan <wmorgan@masanjin.net>]

Excerpts (reformatted) from Neil Jerram's mail of 31 Dec 2002 (EST):
> Is stack #f on entry to scm_display_backtrace?

Indeed, it is #f after all.

> To get scm_display_backtrace to work in your scenario, you essentially
> need to replicate the kernel of all this in C, i.e.:
> 
> (lazy-catch #t
>             thunk
>             (lambda (args)
>               (fluid-set! the-last-stack (make-stack #t))
>               (apply throw args)))

Ok, this is helpful. I am starting to understand exactly what I need to
be doing. Unfortunately I am still unsuccesful:

>From perusal of throw.c, it seems that scm_internal_stack_catch is what I want
to call, as it sets scm_the_last_stack_fluid_var. However, using, the stack is
always #f at the point that I hit the error handler. So what am I doing wrong
in the code below?

--- snip ---

static SCM guile_safe_apply_handler(void *data, SCM tag, SCM throw_args) {
  SCM port = scm_def_errp;

  if(scm_ilength(throw_args) >= 3) {
    SCM stack = scm_fluid_ref(SCM_VARIABLE_REF(scm_the_last_stack_fluid_var));
    SCM subr = SCM_CAR(throw_args);
    SCM message = SCM_CADR(throw_args);
    SCM args = SCM_CADDR(throw_args);
    
    /* So far, I reach this point with non-user-throws exceptions (e.g.
	undefined variables). But stack is invariably #f. */

    scm_display_backtrace(stack, port, SCM_UNDEFINED, SCM_UNDEFINED);
    return SCM_BOOL_F;
  }

  else {
    /* I reach this point upon user-thrown exceptions. Why? */

    scm_puts("uncaught throw to ", port);
    scm_prin1(tag, port, 0);
  }

  return SCM_BOOL_T;
}

struct guile_body_apply_data {
  SCM proc;
  SCM args;
};

SCM guile_safe_apply_body(struct guile_body_apply_data* data) {
  return scm_apply_0(data->proc, data->args);
}

SCM guile_safe_apply(SCM proc, SCM args) {
  struct guile_body_apply_data data;

  data.proc = proc;
  data.args = args;

  return scm_internal_stack_catch(SCM_BOOL_T, (scm_t_catch_body)guile_safe_apply_body, (void*)&data, (scm_t_catch_handler)guile_safe_apply_handler, NULL);
}

--- snip ---

Is scm_apply_0 the wrong thing to call in the body?

Any further help would be appreciated.

Thanks,

-- 
William <wmorgan@masanjin.net>


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel