mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

s/'x/'foo/ in two places that I missed before.

Browse source
This commit is contained in:
Greg J. Badros 2000-03-07 18:45:41 +00:00
parent 3fcc798d33
commit 10d7b66590
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/hash.c
View file

@ -170,7 +170,7 @@ SCM_DEFINE (scm_hashq, "hashq", 2, 0, 0,
"guaranteed to deliver the same value if the key object gets\n" "guaranteed to deliver the same value if the key object gets\n"
"garbage collected in between. This can happen, for example\n" "garbage collected in between. This can happen, for example\n"
"with symbols: (hashq 'foo n) (gc) (hashq 'foo n) may produce two\n" "with symbols: (hashq 'foo n) (gc) (hashq 'foo n) may produce two\n"
"different values, since 'x will be garbage collected.") "different values, since 'foo will be garbage collected.")
#define FUNC_NAME s_scm_hashq #define FUNC_NAME s_scm_hashq
{ {
SCM_VALIDATE_INUM_MIN (2, size, 0); SCM_VALIDATE_INUM_MIN (2, size, 0);
@ -205,7 +205,7 @@ SCM_DEFINE (scm_hashv, "hashv", 2, 0, 0,
"guaranteed to deliver the same value if the key object gets\n" "guaranteed to deliver the same value if the key object gets\n"
"garbage collected in between. This can happen, for example\n" "garbage collected in between. This can happen, for example\n"
"with symbols: (hashv 'foo n) (gc) (hashv 'foo n) may produce two\n" "with symbols: (hashv 'foo n) (gc) (hashv 'foo n) may produce two\n"
"different values, since 'x will be garbage collected.") "different values, since 'foo will be garbage collected.")
#define FUNC_NAME s_scm_hashv #define FUNC_NAME s_scm_hashv
{ {
SCM_VALIDATE_INUM_MIN (2, size, 0); SCM_VALIDATE_INUM_MIN (2, size, 0);