diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-11 15:09:33 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-11 15:09:33 +0000 |
commit | 9374451b7ea211b27b122456c4a4f0568b721c49 (patch) | |
tree | 6d3a0e138d06bd6cb8ef3eefe63316cc41764628 | |
parent | d5c390692dc320a47808d8b9d8cef55c6fa5c82e (diff) | |
download | guile-9374451b7ea211b27b122456c4a4f0568b721c49.tar.gz |
* eval.c (scm_lookupcar1): Inserted SCM_ASWORD in expressions
dealing with ilocs.
-rw-r--r-- | libguile/eval.c | 6 |
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 |