mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* read.c: fix various preprocessor usages of new public

Browse source 
symbols to expect 0 or 1 values rather than 1 or undefined.
i.e. change #ifdef to #if, etc.
This commit is contained in:
Rob Browning 2003-03-27 20:09:40 +00:00
parent c7ad1f89f7
commit 971d1e36f0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/read.c
View file

@ -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));