summaryrefslogtreecommitdiff
path: root/srfi/srfi-14.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-08 15:58:11 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-08 15:58:11 +0000
commit93ccaef0c60868bb1a6e0747387ce34c0172b53e (patch)
tree867f5f7dbb2cdf28ed68ce2bac89f0c8878be657 /srfi/srfi-14.c
parent43240c9caf66f802ba50df685e3e8b44e38906a5 (diff)
downloadguile-93ccaef0c60868bb1a6e0747387ce34c0172b53e.tar.gz
* numbers.h (SCM_MAKINUM, SCM_I_MAKINUM): Renamed SCM_MAKINUM to
SCM_I_MAKINUM and changed all uses.
Diffstat (limited to 'srfi/srfi-14.c')
-rw-r--r--srfi/srfi-14.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/srfi/srfi-14.c b/srfi/srfi-14.c
index 0ab29672a..551514aba 100644
--- a/srfi/srfi-14.c
+++ b/srfi/srfi-14.c
@@ -186,7 +186,7 @@ SCM_DEFINE (scm_char_set_hash, "char-set-hash", 1, 1, 0,
if (p[k] != 0)
val = p[k] + (val << 1);
}
- return SCM_MAKINUM (val % bnd);
+ return SCM_I_MAKINUM (val % bnd);
}
#undef FUNC_NAME
@@ -204,7 +204,7 @@ SCM_DEFINE (scm_char_set_cursor, "char-set-cursor", 1, 0, 0,
if (SCM_CHARSET_GET (cs, idx))
break;
}
- return SCM_MAKINUM (idx);
+ return SCM_I_MAKINUM (idx);
}
#undef FUNC_NAME
@@ -247,7 +247,7 @@ SCM_DEFINE (scm_char_set_cursor_next, "char-set-cursor-next", 2, 0, 0,
if (SCM_CHARSET_GET (cs, ccursor))
break;
}
- return SCM_MAKINUM (ccursor);
+ return SCM_I_MAKINUM (ccursor);
}
#undef FUNC_NAME
@@ -752,7 +752,7 @@ SCM_DEFINE (scm_char_set_size, "char-set-size", 1, 0, 0,
for (k = 0; k < SCM_CHARSET_SIZE; k++)
if (SCM_CHARSET_GET (cs, k))
count++;
- return SCM_MAKINUM (count);
+ return SCM_I_MAKINUM (count);
}
#undef FUNC_NAME
@@ -775,7 +775,7 @@ SCM_DEFINE (scm_char_set_count, "char-set-count", 2, 0, 0,
if (scm_is_true (res))
count++;
}
- return SCM_MAKINUM (count);
+ return SCM_I_MAKINUM (count);
}
#undef FUNC_NAME