mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* eq.c: include <string.h>

Browse source
This commit is contained in:
Gary Houston 2002-07-10 22:25:55 +00:00
parent dd235de4a6
commit 9540b68f94
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/ChangeLog
View file

@ -1,5 +1,6 @@
2002-07-10 Gary Houston <ghouston@arglist.com>
* eq.c: include <string.h>
* dynl.c: docstring editing.
2002-07-09 Gary Houston <ghouston@arglist.com>

8
libguile/eq.c
View file

@ -39,8 +39,8 @@
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */
#include "libguile/_scm.h"
#include "libguile/ramap.h"
#include "libguile/stackchk.h"
@ -54,6 +54,12 @@
#include "libguile/validate.h"
#include "libguile/eq.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
SCM_DEFINE1 (scm_eq_p, "eq?", scm_tc7_rpsubr,
(SCM x, SCM y),
"Return @code{#t} iff @var{x} references the same object as @var{y}.\n"