diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 15:58:11 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 15:58:11 +0000 |
commit | 93ccaef0c60868bb1a6e0747387ce34c0172b53e (patch) | |
tree | 867f5f7dbb2cdf28ed68ce2bac89f0c8878be657 /srfi/srfi-14.c | |
parent | 43240c9caf66f802ba50df685e3e8b44e38906a5 (diff) | |
download | guile-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.c | 10 |
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 |