diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
| commit | 710a97992705d67c3ded0d4b270c5978ce29b11f (patch) | |
| tree | ddcb2f7a91cbb86ce582e74227768b7b898c29e1 /rgx.c | |
| parent | 50eb784bfcf15ee3c6b0b53d747db92673395040 (diff) | |
| download | scm-710a97992705d67c3ded0d4b270c5978ce29b11f.tar.gz scm-710a97992705d67c3ded0d4b270c5978ce29b11f.zip | |
Import Upstream version 5e4upstream/5e4
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 |