diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-06-09 20:27:23 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-06-09 20:27:23 +0000 |
commit | 38d0f691cefdf7a1b6dea6776128890f3fb5030a (patch) | |
tree | 69afa3442fa422188781f1e94907b2af1fd3345f /libguile/gh.h | |
parent | cf266109003fc1b202bc62d9a23615ba3e45d545 (diff) | |
download | guile-38d0f691cefdf7a1b6dea6776128890f3fb5030a.tar.gz |
* gh.h (gh_memv, gh_member): Fixed typos in macro definitions.
(gh_write): Added declaration. (Thanks to Eiichi Takamori.)
Diffstat (limited to 'libguile/gh.h')
-rw-r--r-- | libguile/gh.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/gh.h b/libguile/gh.h index af4eef937..8cd82d172 100644 --- a/libguile/gh.h +++ b/libguile/gh.h @@ -179,8 +179,8 @@ SCM gh_append4(SCM l1, SCM l2, SCM l3, SCM l4); #define gh_list_tail(ls, k) scm_list_tail(ls, k) #define gh_list_ref(ls, k) scm_list_ref(ls, k) #define gh_memq(x, ls) scm_memq(x, ls) -#define gh_memv(x, ls) scm_memqv(x, ls) -#define gh_member(x, ls) scm_memqber(x, ls) +#define gh_memv(x, ls) scm_memv(x, ls) +#define gh_member(x, ls) scm_member(x, ls) #define gh_assq(x, alist) scm_assq(x, alist) #define gh_assv(x, alist) scm_assv(x, alist) #define gh_assoc(x, alist) scm_assoc(x, alist) @@ -215,6 +215,7 @@ SCM gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3); /* reading and writing Scheme objects. */ void gh_display (SCM x); +void gh_write (SCM x); void gh_newline (void); /* void gh_gc_mark(SCM) : mark an SCM as in use. */ |