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); |