mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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 /* recsexpr is used when recording expressions
* constructed by read:sharp. * 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 recsexpr SCM_P ((SCM obj, int line, int column, SCM filename));
static SCM static SCM
@ -236,7 +238,7 @@ recsexpr (obj, line, column, filename)
return obj; return obj;
} }
} }
#endif
/* Consume an SCSH-style block comment. Assume that we've already /* Consume an SCSH-style block comment. Assume that we've already
read the initial `#!', and eat characters until we get a read the initial `#!', and eat characters until we get a