From db071766650d10c67524b3ddb00decfd60c55741 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 24 Oct 2013 10:19:07 +0200 Subject: Add stringbuf printer * libguile/strings.h: * libguile/strings.c (scm_i_print_stringbuf): * libguile/print.c (iprin1): Add a printer for stringbufs. The disassembler can print a stringbuf. --- libguile/strings.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'libguile/strings.h') diff --git a/libguile/strings.h b/libguile/strings.h index 445d9c878..130c436a6 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -179,6 +179,8 @@ SCM_API SCM scm_makfromstrs (int argc, char **argv); #define SCM_I_STRINGBUF_F_SHARED 0x100 #define SCM_I_STRINGBUF_F_WIDE 0x400 +SCM_INTERNAL void scm_i_print_stringbuf (SCM exp, SCM port, + scm_print_state *pstate); /* internal accessor functions. Arguments must be valid. */ -- cgit v1.2.3