summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2001-07-22 12:49:02 +0000
committerGary Houston <ghouston@arglist.com>2001-07-22 12:49:02 +0000
commit6a1677a396302f218b8ce82973d3f50f7d1b9487 (patch)
tree7bcb5233dcd45ef09a379564157bb934c3089345 /libguile/regex-posix.c
parent9977b4fb1f0e255226fe047defed6e5710d95e05 (diff)
downloadguile-6a1677a396302f218b8ce82973d3f50f7d1b9487.tar.gz
* regex-posix.c (s_scm_regexp_exec): use scm_long2num not
SCM_MAKINUM to convert regoff_t value to SCM.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r--libguile/regex-posix.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index 1a232d59f..d5d8fba63 100644
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -278,8 +278,8 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
SCM_VELTS(mvec)[i+1] = scm_cons (SCM_MAKINUM (-1), SCM_MAKINUM (-1));
else
SCM_VELTS(mvec)[i+1]
- = scm_cons(SCM_MAKINUM(matches[i].rm_so + offset),
- SCM_MAKINUM(matches[i].rm_eo + offset));
+ = scm_cons (scm_long2num (matches[i].rm_so + offset),
+ scm_long2num (matches[i].rm_eo + offset));
}
scm_must_free ((char *) matches);
SCM_ALLOW_INTS;