diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
| commit | fd5f104f287427fee885583bc398c137674e6af0 (patch) | |
| tree | 151d1875fdbbc52fd992f53ee197f7070c5f73d1 /rgx.c | |
| parent | 90889a692076f2c62486607d0354e0fca52364bc (diff) | |
| download | scm-7c9d2cc9d07b51358f0bccbf14f9eba54c346b90.tar.gz scm-7c9d2cc9d07b51358f0bccbf14f9eba54c346b90.zip | |
New upstream version 5f2upstream/5f2upstream
Diffstat (limited to 'rgx.c')
| -rwxr-xr-x[-rw-r--r--] | rgx.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -31,7 +31,7 @@ #endif static char rcsid[] = - "$Id: rgx.c,v 1.19 2008/01/31 03:32:33 jaffer Exp $"; + "$Id: rgx.c,v 1.20 2013/03/14 04:42:23 jaffer Exp $"; #ifdef HAVE_ALLOCA # include <alloca.h> @@ -586,7 +586,7 @@ SCM lstringedit(prog, editspec, args) count = CAR(CDR(args)); ASRTER(INUMP(count)||(count==BOOL_T), count, ARG4, s_stringedit); } else - count = MAKINUM(1); + count = MAKINUM(1L); /* process the editspec - break it into a list of dotted pairs * of integers for substrings to be inserted and |