SCM base16 = scm_number_to_string (address, scm_from_int (16));
scm_puts ("#<observer ", port);
- scm_puts (SCM_STRING_CHARS (base16), port);
+ scm_display (base16, port);
scm_puts (">", port);
return 1;
SCM base16 = scm_number_to_string (address, scm_from_int (16));
scm_puts ("#<leaf environment ", port);
- scm_puts (SCM_STRING_CHARS (base16), port);
+ scm_display (base16, port);
scm_puts (">", port);
return 1;
SCM base16 = scm_number_to_string (address, scm_from_int (16));
scm_puts ("#<eval environment ", port);
- scm_puts (SCM_STRING_CHARS (base16), port);
+ scm_display (base16, port);
scm_puts (">", port);
return 1;
SCM base16 = scm_number_to_string (address, scm_from_int (16));
scm_puts ("#<import environment ", port);
- scm_puts (SCM_STRING_CHARS (base16), port);
+ scm_display (base16, port);
scm_puts (">", port);
return 1;
SCM base16 = scm_number_to_string (address, scm_from_int (16));
scm_puts ("#<export environment ", port);
- scm_puts (SCM_STRING_CHARS (base16), port);
+ scm_display (base16, port);
scm_puts (">", port);
return 1;