summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-02-04 22:21:37 +0000
committerJim Blandy <jimb@red-bean.com>1997-02-04 22:21:37 +0000
commita7254b728d48c6509ab46e76cce6c9899ed21c9f (patch)
treebe2a81109dd0b7715723108a1fba54b49df184b9
parent995a6fd81708992115a701f89aefd833534ebb8c (diff)
downloadguile-a7254b728d48c6509ab46e76cce6c9899ed21c9f.tar.gz
Change from Thomas Morgan:
* variable.c: Include eq.h. (var_equal): New function. (variable_smob): Use var_equal as the discriminator for variables.
-rw-r--r--libguile/variable.c13
1 files changed, 12 insertions, 1 deletions
diff --git a/libguile/variable.c b/libguile/variable.c
index 692219c0a..f87887f1f 100644
--- a/libguile/variable.c
+++ b/libguile/variable.c
@@ -42,6 +42,7 @@
#include <stdio.h>
#include "_scm.h"
+#include "eq.h"
#include "genio.h"
#include "smob.h"
@@ -97,8 +98,18 @@ scm_markvar (ptr)
return SCM_CDR (ptr);
}
+static SCM var_equal SCM_P ((SCM var1, SCM var2));
+
+static SCM
+var_equal (var1, var2)
+ SCM var1;
+ SCM var2;
+{
+ return scm_equal_p (SCM_CDR (var1), SCM_CDR (var2));
+}
+
int scm_tc16_variable;
-static scm_smobfuns variable_smob = {scm_markvar, free_var, prin_var, 0};
+static scm_smobfuns variable_smob = {scm_markvar, free_var, prin_var, var_equal};
static SCM anonymous_variable_sym;