mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

programs can now get at their names, and print nicely

Browse source 
* module/system/vm/frame.scm (frame-call-representation)
  (frame-program-name): Rename program-name to frame-program-name, and
  use the program-name if it is available.

* module/system/vm/program.scm (program-bindings): Return #f if there are
  no bindings.
  (program-name): New public procedure.
  (program-bindings-as-lambda-list, write-program): A more useful writer
  for programs.

* libguile/programs.c (scm_bootstrap_programs, program_print): Add a smob
  printer for programs, which dispatches to `write-program'.
This commit is contained in:
Andy Wingo 2008-09-12 23:14:46 +02:00
parent 5dcf8f3555
commit e6fea61823
3 changed files with 43 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/programs.c
View file

@ -54,6 +54,7 @@
scm_t_bits scm_tc16_program;
static SCM zero_vector;
static SCM write_program = SCM_BOOL_F;
SCM
scm_c_make_program (void *addr, size_t size, SCM holder)
@ -125,6 +126,21 @@ program_apply (SCM program, SCM args)
return scm_vm_apply (scm_the_vm (), program, args);
}
static int
program_print (SCM program, SCM port, scm_print_state *pstate)
{
if (SCM_FALSEP (write_program))
write_program = scm_module_local_variable
(scm_c_resolve_module ("system vm program"),
scm_from_locale_symbol ("write-program"));
if (SCM_FALSEP (write_program))
return scm_smob_print (program, port, pstate);
scm_call_2 (SCM_VARIABLE_REF (write_program), program, port);
return 1;
}
/*
* Scheme interface
@ -252,6 +268,7 @@ scm_bootstrap_programs (void)
scm_set_smob_mark (scm_tc16_program, program_mark);
scm_set_smob_free (scm_tc16_program, program_free);
scm_set_smob_apply (scm_tc16_program, program_apply, 0, 0, 1);
scm_set_smob_print (scm_tc16_program, program_print);
}
void