diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-08-02 00:09:46 -0700 |
| commit | 879f4fa041cfdefee655eb877f1a91f86a9c62b7 (patch) | |
| tree | bc68ac058e5d0a7cf8e7815cbe1070fd60e75589 /rgx.c | |
| parent | d13fcf5c0bd68f67059b2561c28c40b55e1117a3 (diff) | |
| download | scm-879f4fa041cfdefee655eb877f1a91f86a9c62b7.tar.gz scm-879f4fa041cfdefee655eb877f1a91f86a9c62b7.zip | |
New upstream version 5f2
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 |