summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/mbstrings.c4
-rw-r--r--libguile/print.c2
-rw-r--r--libguile/read.c4
-rw-r--r--libguile/throw.c2
4 files changed, 6 insertions, 6 deletions
diff --git a/libguile/mbstrings.c b/libguile/mbstrings.c
index 520847596..41e04bf80 100644
--- a/libguile/mbstrings.c
+++ b/libguile/mbstrings.c
@@ -383,8 +383,8 @@ scm_print_mb_symbol (exp, port)
char * str;
int weird;
int maybe_weird;
- int mw_pos;
- int inc;
+ int mw_pos = 0; /* initialized to placate compiler */
+ int inc = 0; /* same */
xwchar_t c;
len = SCM_LENGTH (exp);
diff --git a/libguile/print.c b/libguile/print.c
index 75ae40e6f..adc70482c 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -411,7 +411,7 @@ taloop:
char * str;
int weird;
int maybe_weird;
- int mw_pos;
+ int mw_pos = 0;
len = SCM_LENGTH (exp);
str = SCM_CHARS (exp);
diff --git a/libguile/read.c b/libguile/read.c
index fec5bf775..48badf976 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -696,8 +696,8 @@ scm_lreadrecparen (tok_buf, port, name, case_i, sharp, copy)
{
register int c;
register SCM tmp;
- register SCM tl, tl2;
- SCM ans, ans2;
+ register SCM tl, tl2 = SCM_EOL;
+ SCM ans, ans2 = SCM_EOL;
/* Need to capture line and column numbers here. */
int line = SCM_LINUM (port);
int column = SCM_COL (port) - 1;
diff --git a/libguile/throw.c b/libguile/throw.c
index 1ca91780e..7e67df4da 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -389,7 +389,7 @@ scm_ithrow (key, args, noreturn)
}
else
{
- SCM dynpair;
+ SCM dynpair = SCM_UNDEFINED;
SCM winds;
if (noreturn)