mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Change from Thomas Morgan:

Browse source 
* variable.c: Include eq.h.
(var_equal): New function.
(variable_smob): Use var_equal as the discriminator for variables.
This commit is contained in:
Jim Blandy 1997-02-04 22:21:37 +00:00
parent 995a6fd817
commit a7254b728d
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/variable.c
View file

@ -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;