guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. release_1-9-1-49-g32b


From: Michael Gran
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-1-49-g32be573
Date: Mon, 10 Aug 2009 12:51:37 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=32be5735cd89931048f12283f3977c72cd292f77

The branch, master has been updated
       via  32be5735cd89931048f12283f3977c72cd292f77 (commit)
      from  6ce6923b6826db2f2ddc8a5f787ab57d7072f0e8 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 32be5735cd89931048f12283f3977c72cd292f77
Author: Michael Gran <address@hidden>
Date:   Mon Aug 10 05:51:05 2009 -0700

    Make scm_charprint and scm_i_string_wide_chars SCM_INTERNAL.
    
    Also, scm_charprint is renamed to scm_i_charprint.
    
            * libguile/strings.h: make scm_i_string_wide_chars internal.
    
            * libguile/print.h: rename scm_charprint to scm_i_charprint.  Make
            internal.
    
            * libguile/print.c (scm_i_charprint): renamed from scm_charprint
            (scm_charprint): renamed to scm_i_charprint. All callers changed.

-----------------------------------------------------------------------

Summary of changes:
 libguile/print.c   |    4 ++--
 libguile/print.h   |    2 +-
 libguile/strings.h |    2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/libguile/print.c b/libguile/print.c
index 6f31fcf..85f030e 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -582,7 +582,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
                   else if (ch == '"' || ch == '\\')
                     {
                       scm_putc ('\\', port);
-                      scm_charprint (ch, port);
+                      scm_i_charprint (ch, port);
                       printed = 1;
                     }
                   else
@@ -824,7 +824,7 @@ scm_prin1 (SCM exp, SCM port, int writingp)
 /* Print a character.
  */
 void
-scm_charprint (scm_t_uint32 ch, SCM port)
+scm_i_charprint (scm_t_uint32 ch, SCM port)
 {
   scm_t_wchar *wbuf;
   SCM wstr = scm_i_make_wide_string (1, &wbuf);
diff --git a/libguile/print.h b/libguile/print.h
index 1df2952..00648ef 100644
--- a/libguile/print.h
+++ b/libguile/print.h
@@ -77,7 +77,7 @@ SCM_API SCM scm_print_options (SCM setting);
 SCM_API SCM scm_make_print_state (void);
 SCM_API void scm_free_print_state (SCM print_state);
 SCM_INTERNAL SCM scm_i_port_with_print_state (SCM port, SCM print_state);
-SCM_API void scm_charprint (scm_t_uint32 c, SCM port);
+SCM_INTERNAL void scm_i_charprint (scm_t_uint32 c, SCM port);
 SCM_API void scm_intprint (scm_t_intmax n, int radix, SCM port);
 SCM_API void scm_uintprint (scm_t_uintmax n, int radix, SCM port);
 SCM_API void scm_ipruk (char *hdr, SCM ptr, SCM port);
diff --git a/libguile/strings.h b/libguile/strings.h
index 2bbab3a..8c06e47 100644
--- a/libguile/strings.h
+++ b/libguile/strings.h
@@ -137,8 +137,8 @@ SCM_INTERNAL SCM scm_i_substring_shared (SCM str, size_t 
start, size_t end);
 SCM_INTERNAL SCM scm_i_substring_copy (SCM str, size_t start, size_t end);
 SCM_INTERNAL size_t scm_i_string_length (SCM str);
 SCM_API /* FIXME: not internal */ const char *scm_i_string_chars (SCM str);
-SCM_API const scm_t_wchar *scm_i_string_wide_chars (SCM str);
 SCM_API /* FIXME: not internal */ char *scm_i_string_writable_chars (SCM str);
+SCM_INTERNAL const scm_t_wchar *scm_i_string_wide_chars (SCM str);
 SCM_INTERNAL SCM scm_i_string_start_writing (SCM str);
 SCM_INTERNAL void scm_i_string_stop_writing (void);
 SCM_INTERNAL int scm_i_is_narrow_string (SCM str);


hooks/post-receive
-- 
GNU Guile




reply via email to

[Prev in Thread] Current Thread [Next in Thread]