From 971d1e36f0a0a912f06c6d4a542cfe6331de2c92 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Thu, 27 Mar 2003 20:09:40 +0000 Subject: [PATCH] * read.c: fix various preprocessor usages of new public symbols to expect 0 or 1 values rather than 1 or undefined. i.e. change #ifdef to #if, etc. --- libguile/read.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/read.c b/libguile/read.c index bb6836bb8..6718224a0 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -442,7 +442,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy) c = scm_flush_ws (port, (char *)NULL); goto tryagain_no_flush_ws; -#ifdef SCM_HAVE_ARRAYS +#if SCM_HAVE_ARRAYS case '*': j = scm_read_token (c, tok_buf, port, 0); p = scm_istr2bve (SCM_STRING_CHARS (*tok_buf) + 1, (long) (j - 1));