How to use display_stack function

From: John L. Stein <stein_at_seas.ucla.edu>
Date: Sun, 06 Oct 96 15:47:24 -0700

I wrote

STk_add_new_primitive("display-stack", tc_subr_1, display__stack);

in

PRIMITIVE STk_init_stack(void)

and

static PRIMITIVE display__stack(SCM s)
{
  if (NSTACKP(s)) STk_err("display-stack: bad stack", s);
  display_stack(s, "blu", 1);
  return (STACK(s)->len) ? Truth: Ntruth;
}


But it bombs. I know the problem is with "blu" in display_stack(s, "blu", 1);
in the function just above. It is supposed to be the port. Could someone tell
me how to write the function so that it can use ports. Or is there an examples.

Thanks
-js
Received on Mon Oct 07 1996 - 00:48:43 CEST