summaryrefslogtreecommitdiffstats
path: root/rgx.c
diff options
context:
space:
mode:
Diffstat (limited to 'rgx.c')
-rw-r--r--rgx.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/rgx.c b/rgx.c
index 1f3b4f0..81af5c4 100644
--- a/rgx.c
+++ b/rgx.c
@@ -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