From 879f4fa041cfdefee655eb877f1a91f86a9c62b7 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Fri, 3 Mar 2017 00:56:40 -0800
Subject: New upstream version 5f2

---
 rgx.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 rgx.c

(limited to 'rgx.c')

diff --git a/rgx.c b/rgx.c
old mode 100644
new mode 100755
index df5e360..fabbb8a
--- a/rgx.c
+++ b/rgx.c
@@ -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
-- 
cgit v1.2.3