diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-02-04 22:21:37 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-02-04 22:21:37 +0000 |
commit | a7254b728d48c6509ab46e76cce6c9899ed21c9f (patch) | |
tree | be2a81109dd0b7715723108a1fba54b49df184b9 | |
parent | 995a6fd81708992115a701f89aefd833534ebb8c (diff) | |
download | guile-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.c | 13 |
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; |