214 |
/* recsexpr is used when recording expressions |
/* recsexpr is used when recording expressions |
215 |
* constructed by read:sharp. |
* constructed by read:sharp. |
216 |
*/ |
*/ |
|
#ifndef DEBUG_EXTENSIONS |
|
|
#define recsexpr(obj, line, column, filename) (obj) |
|
|
#else |
|
217 |
static SCM |
static SCM |
218 |
recsexpr (SCM obj, long line, int column, SCM filename) |
recsexpr (SCM obj, long line, int column, SCM filename) |
219 |
{ |
{ |
259 |
return obj; |
return obj; |
260 |
} |
} |
261 |
} |
} |
|
#endif |
|
262 |
|
|
263 |
/* Consume an SCSH-style block comment. Assume that we've already |
/* Consume an SCSH-style block comment. Assume that we've already |
264 |
read the initial `#!', and eat characters until we get a |
read the initial `#!', and eat characters until we get a |