diff options
Diffstat (limited to 'rgx.c')
| -rw-r--r-- | rgx.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -55,7 +55,7 @@ #endif static char rcsid[] = - "$Id: rgx.c,v 1.16 2002/11/25 20:34:31 jaffer Exp $"; + "$Id: rgx.c,v 1.18 2007/11/24 19:56:56 jaffer Exp $"; #ifdef HAVE_ALLOCA # include <alloca.h> @@ -135,9 +135,9 @@ int prinregex(exp, port, writing) SCM exp; SCM port; int writing; { lputs("#<regex ", port); - intprint(CDR(exp), -16, port); + scm_intprint(CDR(exp), -16, port); lputc(' ', port); - iprin1(RGX_PATTERN(exp), port, writing); + scm_iprin1(RGX_PATTERN(exp), port, writing); lputc('>', port); return 1; } @@ -201,12 +201,12 @@ SCM lregcomp(pattern, flags) info=(regex_info*)CHARS(z); prog = &(info->rgx); #ifdef __REGEXP_LIBRARY_H__ - for(i=sizeof(regex_t);i--;((char *)prog)[i] = 0); + for (i=sizeof(regex_t);i--;((char *)prog)[i] = 0); # ifndef _GNU_SOURCE { regex_t *prog2; prog2 = &(info->rgx_anchored); - for(i=sizeof(regex_t);i--;((char *)prog2)[i] = 0); + for (i=sizeof(regex_t);i--;((char *)prog2)[i] = 0); } # endif #endif |