[Guile-commits] GNU Guile branch, master, updated. v2.1.0-464-gfe8935d

[Andy Wingo]

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=fe8935d432989aa2a71db5bdf6522abee08f09d1

The branch, master has been updated
       via  fe8935d432989aa2a71db5bdf6522abee08f09d1 (commit)
       via  6a9d9e3a625f6fc844eed7c74339df1c95981a38 (commit)
       via  05326efbb1edae065b31fdc483aab7d810f7c002 (commit)
       via  84800dffc2c6a8371c890bd315916dbb1f5928bb (commit)
      from  c30edbbd5b6cfeeca6b8a66578107df17ec96a51 (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 fe8935d432989aa2a71db5bdf6522abee08f09d1
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 27 19:50:13 2013 +0100

    Fix uninitialized variable error in some peek-char error cases
    
    * libguile/ports.c (scm_peek_char): Don't require error cases to
      set *len.  Fixes a bug caught by GCC whereby an EOF while reading a
      multibyte character with iconv would leave len uninitialized.

commit 6a9d9e3a625f6fc844eed7c74339df1c95981a38
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 27 19:36:46 2013 +0100

    Declare scm_i_open_file to silence a warning
    
    * libguile/fports.c (scm_i_open_file): Declare.

commit 05326efbb1edae065b31fdc483aab7d810f7c002
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 27 19:31:09 2013 +0100

    Remove generalized vector interface; deprecated in 2.0 already.
    
    * libguile/deprecated.c: Remove the generalized-vector interface,
      deprecated since 2.0.8.

commit 84800dffc2c6a8371c890bd315916dbb1f5928bb
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 27 19:30:18 2013 +0100

    Declare scm_nil_p
    
    * libguile/boolean.h: Declare scm_nil_p.

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

Summary of changes:
 libguile/boolean.h    |    3 +-
 libguile/deprecated.c |   83 -------------------------------------------------
 libguile/fports.c     |    2 +
 libguile/ports.c      |    2 +-
 4 files changed, 5 insertions(+), 85 deletions(-)

diff --git a/libguile/boolean.h b/libguile/boolean.h
index 8f55f1e..df72728 100644
--- a/libguile/boolean.h
+++ b/libguile/boolean.h
@@ -3,7 +3,7 @@
 #ifndef SCM_BOOLEAN_H
 #define SCM_BOOLEAN_H
 
-/* Copyright (C) 1995,1996,2000, 2006, 2008, 2009, 2010 Free Software 
Foundation, Inc.
+/* Copyright (C) 1995,1996,2000, 2006, 2008, 2009, 2010, 2013 Free Software 
Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
@@ -126,6 +126,7 @@ SCM_API int scm_to_bool (SCM x);
 
 SCM_API SCM scm_not (SCM x);
 SCM_API SCM scm_boolean_p (SCM obj);
+SCM_API SCM scm_nil_p (SCM obj);
 
 SCM_INTERNAL void scm_init_boolean (void);
 
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index cca1454..8de28ad 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -78,89 +78,6 @@ scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr,
 
 
 
-
-SCM_DEFINE (scm_generalized_vector_p, "generalized-vector?", 1, 0, 0,
-           (SCM obj),
-           "Return @code{#t} if @var{obj} is a vector, string,\n"
-           "bitvector, or uniform numeric vector.")
-#define FUNC_NAME s_scm_generalized_vector_p
-{
-  scm_c_issue_deprecation_warning
-    ("generalized-vector? is deprecated.  Use array? and check the "
-     "array-rank instead.");
-  return scm_from_bool (scm_is_generalized_vector (obj));
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_generalized_vector_length, "generalized-vector-length", 1, 0, 
0,
-           (SCM v),
-           "Return the length of the generalized vector @var{v}.")
-#define FUNC_NAME s_scm_generalized_vector_length
-{
-  scm_c_issue_deprecation_warning
-    ("generalized-vector-length is deprecated.  Use array-length instead.");
-  return scm_from_size_t (scm_c_generalized_vector_length (v));
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_generalized_vector_ref, "generalized-vector-ref", 2, 0, 0,
-           (SCM v, SCM idx),
-           "Return the element at index @var{idx} of the\n"
-           "generalized vector @var{v}.")
-#define FUNC_NAME s_scm_generalized_vector_ref
-{
-  scm_c_issue_deprecation_warning
-    ("generalized-vector-ref is deprecated.  Use array-ref instead.");
-  return scm_c_generalized_vector_ref (v, scm_to_size_t (idx));
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_generalized_vector_set_x, "generalized-vector-set!", 3, 0, 0,
-           (SCM v, SCM idx, SCM val),
-           "Set the element at index @var{idx} of the\n"
-           "generalized vector @var{v} to @var{val}.")
-#define FUNC_NAME s_scm_generalized_vector_set_x
-{
-  scm_c_issue_deprecation_warning
-    ("generalized-vector-set! is deprecated.  Use array-set! instead.  "
-     "Note the change in argument order!");
-  scm_c_generalized_vector_set_x (v, scm_to_size_t (idx), val);
-  return SCM_UNSPECIFIED;
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_generalized_vector_to_list, "generalized-vector->list", 1, 0, 
0,
-           (SCM v),
-           "Return a new list whose elements are the elements of the\n"
-           "generalized vector @var{v}.")
-#define FUNC_NAME s_scm_generalized_vector_to_list
-{
-  /* FIXME: This duplicates `array_to_list'.  */
-  SCM ret = SCM_EOL;
-  long inc;
-  ssize_t pos, i;
-  scm_t_array_handle h;
-
-  scm_c_issue_deprecation_warning
-    ("generalized-vector->list is deprecated.  Use array->list instead.");
-
-  scm_generalized_vector_get_handle (v, &h);
-
-  i = h.dims[0].ubnd - h.dims[0].lbnd + 1;
-  inc = h.dims[0].inc;
-  pos = (i - 1) * inc;
-
-  for (; i > 0; i--, pos -= inc)
-    ret = scm_cons (h.impl->vref (&h, h.base + pos), ret);
-
-  scm_array_handle_release (&h);
-  return ret;
-}
-#undef FUNC_NAME
-
-
-
-
 void
 scm_i_init_deprecated ()
 {
diff --git a/libguile/fports.c b/libguile/fports.c
index 13d1dd7..dc3d45c 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -470,6 +470,8 @@ scm_open_file (SCM filename, SCM mode)
 static SCM k_guess_encoding = SCM_UNDEFINED;
 static SCM k_encoding       = SCM_UNDEFINED;
 
+SCM_INTERNAL SCM scm_i_open_file (SCM, SCM, SCM);
+
 SCM_DEFINE (scm_i_open_file, "open-file", 2, 0, 1,
            (SCM filename, SCM mode, SCM keyword_args),
            "Open the file whose name is @var{filename}, and return a port\n"
diff --git a/libguile/ports.c b/libguile/ports.c
index 44416cb..960dfa8 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2221,7 +2221,7 @@ SCM_DEFINE (scm_peek_char, "peek-char", 0, 1, 0,
   scm_t_wchar c;
   char bytes[SCM_MBCHAR_BUF_SIZE];
   long column, line;
-  size_t len;
+  size_t len = 0;
 
   if (SCM_UNBNDP (port))
     port = scm_current_input_port ();


hooks/post-receive
-- 
GNU Guile