diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-30 23:47:49 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-30 23:47:49 +0000 |
commit | 6662998f741ca886c8b2050085283ebcb7445f6f (patch) | |
tree | 103629f21314c289649d8687cc4f48e7181dcfc4 /libguile/print.h | |
parent | fec1807cdbadd4692e45250a76211266bc6fbc44 (diff) | |
download | guile-6662998f741ca886c8b2050085283ebcb7445f6f.tar.gz |
* print.c (scm_simple_format): Support "~~" and "~%". Signal
error for unsupported format controls and for superflous
arguments. Thanks to David Skarda!
* print.h, print.c (scm_print_symbol_name): Factored out of
scm_iprin1.
(scm_iprin1): Call it.
* print.c (scm_print_symbol_name): Symbols whose name starts with `#' or `:'
or ends with `:' are considered weird.
Diffstat (limited to 'libguile/print.h')
-rw-r--r-- | libguile/print.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/print.h b/libguile/print.h index 25fa3d5db..a9c544292 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -107,6 +107,7 @@ void scm_free_print_state (SCM print_state); extern void scm_intprint (long n, int radix, SCM port); extern void scm_ipruk (char *hdr, SCM ptr, SCM port); extern void scm_iprlist (char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate); +extern void scm_print_symbol_name (const char *str, size_t len, SCM port); extern void scm_prin1 (SCM exp, SCM port, int writingp); extern void scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate); extern SCM scm_write (SCM obj, SCM port); |