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 (recsexpr): Give this a dummy definition if

Browse source 
DEBUG_EXTENSIONS isn't #defined.
This commit is contained in:
Jim Blandy 1997-07-10 05:26:17 +00:00
parent b1edcd363e
commit 604d4dd95c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/read.c
View file

@ -184,7 +184,9 @@ scm_casei_streq (s1, s2)
/* recsexpr is used when recording expressions
* constructed by read:sharp.
*/
#ifndef DEBUG_EXTENSIONS
#define recsexpr(obj, line, column, filename) (obj)
#else
static SCM recsexpr SCM_P ((SCM obj, int line, int column, SCM filename));
static SCM
@ -236,7 +238,7 @@ recsexpr (obj, line, column, filename)
return obj;
}
}
#endif
/* Consume an SCSH-style block comment. Assume that we've already
read the initial `#!', and eat characters until we get a