From a7254b728d48c6509ab46e76cce6c9899ed21c9f Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 4 Feb 1997 22:21:37 +0000 Subject: [PATCH] Change from Thomas Morgan: * variable.c: Include eq.h. (var_equal): New function. (variable_smob): Use var_equal as the discriminator for variables. --- libguile/variable.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) 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 #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; -- 2.20.1