mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* print.c (scm_iprin1): Removed extraneous space when printing

Browse source 
procedure-with-setters.
* print.c (scm_iprin1): Use scm_procedure_name instead of
scm_procedure_property for compiled closures.
* eval.c, print.c (scm_iprin1): Added entries for scm_tc7_pws.
This commit is contained in:
Mikael Djurfeldt 1999-03-11 11:47:10 +00:00
parent dae5a1e96f
commit c180dfd39d
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/print.c
View file

@ -609,7 +609,7 @@ taloop:
if (proc == scm_f_gsubr_apply) if (proc == scm_f_gsubr_apply)
{ {
/* Print gsubrs as primitives */ /* Print gsubrs as primitives */
SCM name = scm_procedure_property (exp, scm_i_name); SCM name = scm_procedure_name (exp);
scm_puts ("#<primitive-procedure", port); scm_puts ("#<primitive-procedure", port);
if (SCM_NFALSEP (name)) if (SCM_NFALSEP (name))
{ {
@ -626,6 +626,18 @@ taloop:
} }
break; break;
#endif #endif
case scm_tc7_pws:
scm_puts ("#<procedure-with-setter", port);
{
SCM name = scm_procedure_name (exp);
if (SCM_NFALSEP (name))
{
scm_putc (' ', port);
scm_puts (SCM_ROCHARS (name), port);
}
}
scm_putc ('>', port);
break;
case scm_tc7_contin: case scm_tc7_contin:
scm_puts ("#<continuation ", port); scm_puts ("#<continuation ", port);
scm_intprint (SCM_LENGTH (exp), 10, port); scm_intprint (SCM_LENGTH (exp), 10, port);