summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-11 15:09:33 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-11 15:09:33 +0000
commit9374451b7ea211b27b122456c4a4f0568b721c49 (patch)
tree6d3a0e138d06bd6cb8ef3eefe63316cc41764628
parentd5c390692dc320a47808d8b9d8cef55c6fa5c82e (diff)
downloadguile-9374451b7ea211b27b122456c4a4f0568b721c49.tar.gz
* eval.c (scm_lookupcar1): Inserted SCM_ASWORD in expressions
dealing with ilocs.
-rw-r--r--libguile/eval.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 6a494faa5..7b48cf66e 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998, 1999 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -364,10 +364,10 @@ scm_lookupcar (SCM vloc, SCM genv, int check)
completely. */
race:
var = SCM_CAR (vloc);
- if ((var & 7) == 1)
+ if (SCM_ITAG3 (var) == 1)
return SCM_GLOC_VAL_LOC (var);
#ifdef MEMOIZE_LOCALS
- if ((var & 127) == (127 & SCM_ILOC00))
+ if ((SCM_ASWORD (var) & 127) == (127 & SCM_ASWORD (SCM_ILOC00)))
return scm_ilookup (var, genv);
#endif
/* We can't cope with anything else than glocs and ilocs. When