/[guile]/guile/guile-core/libguile/print.c
ViewVC logotype

Diff of /guile/guile-core/libguile/print.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.138 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.139 by mvo, Sun Feb 3 22:50:07 2002 UTC
# Line 527  scm_iprin1 (SCM exp, SCM port, scm_print Line 527  scm_iprin1 (SCM exp, SCM port, scm_print
527              scm_lfwrite (SCM_STRING_CHARS (exp), SCM_STRING_LENGTH (exp), port);              scm_lfwrite (SCM_STRING_CHARS (exp), SCM_STRING_LENGTH (exp), port);
528            break;            break;
529          case scm_tc7_symbol:          case scm_tc7_symbol:
530            scm_print_symbol_name (SCM_SYMBOL_CHARS (exp),            if (SCM_SYMBOL_INTERNED_P (exp))
531                                   SCM_SYMBOL_LENGTH (exp),              {
532                                   port);                scm_print_symbol_name (SCM_SYMBOL_CHARS (exp),
533            scm_remember_upto_here_1 (exp);                                       SCM_SYMBOL_LENGTH (exp),
534                                         port);
535                  scm_remember_upto_here_1 (exp);
536                }
537              else
538                {
539                  scm_puts ("#<uninterned-symbol ", port);
540                  scm_print_symbol_name (SCM_SYMBOL_CHARS (exp),
541                                         SCM_SYMBOL_LENGTH (exp),
542                                         port);
543                  scm_putc (' ', port);
544                  scm_intprint ((long)exp, 16, port);
545                  scm_putc ('>', port);
546                }
547            break;            break;
548          case scm_tc7_variable:          case scm_tc7_variable:
549            scm_i_variable_print (exp, port, pstate);            scm_i_variable_print (exp, port, pstate);

Legend:
Removed from v.1.138  
changed lines
  Added in v.1.139

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26