/[guile]/guile/guile-core/libguile/read.c
ViewVC logotype

Diff of /guile/guile-core/libguile/read.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.88 by mvo, Sat Apr 5 19:10:22 2003 UTC revision 1.89 by dirk, Sun Apr 20 07:19:38 2003 UTC
# Line 214  scm_casei_streq (char *s1, char *s2) Line 214  scm_casei_streq (char *s1, char *s2)
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  {  {
# Line 262  recsexpr (SCM obj, long line, int column Line 259  recsexpr (SCM obj, long line, int column
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

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26