From e65f80af42aefe13fe870b92b912cfd0156a1ac1 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 5 May 2013 18:26:53 +0200 Subject: RTL programs print with their name * libguile/print.c (iprin1): Use scm_i_program_print for RTL programs too. * libguile/procprop.c (scm_procedure_name): For RTL programs, call scm_i_rtl_program_name if there is no override. * libguile/programs.h: * libguile/programs.c (scm_i_rtl_program_name): New helper, dispatches to (system vm program). (scm_i_program_print): For RTL programs, the fallback prints the code pointer too. * module/system/vm/program.scm (rtl-program-name): Use the debug info to get an RTL program name. (write-program): Work with RTL programs too. * test-suite/tests/rtl.test ("procedure name"): Add test. --- libguile/print.c | 2 -- 1 file changed, 2 deletions(-) (limited to 'libguile/print.c') diff --git a/libguile/print.c b/libguile/print.c index f912a3586..50f5a3e68 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -657,8 +657,6 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) scm_i_variable_print (exp, port, pstate); break; case scm_tc7_rtl_program: - scm_i_rtl_program_print (exp, port, pstate); - break; case scm_tc7_program: scm_i_program_print (exp, port, pstate); break; -- cgit v1.2.3