mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

* eval.c (scm_lookupcar1): Inserted SCM_ASWORD in expressions

Browse source 
dealing with ilocs.
This commit is contained in:
Mikael Djurfeldt 2000-03-11 15:09:33 +00:00
parent d5c390692d
commit 9374451b7e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -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 * 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 * 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. */ completely. */
race: race:
var = SCM_CAR (vloc); var = SCM_CAR (vloc);
if ((var & 7) == 1) if (SCM_ITAG3 (var) == 1)
return SCM_GLOC_VAL_LOC (var); return SCM_GLOC_VAL_LOC (var);
#ifdef MEMOIZE_LOCALS #ifdef MEMOIZE_LOCALS
if ((var & 127) == (127 & SCM_ILOC00)) if ((SCM_ASWORD (var) & 127) == (127 & SCM_ASWORD (SCM_ILOC00)))
return scm_ilookup (var, genv); return scm_ilookup (var, genv);
#endif #endif
/* We can't cope with anything else than glocs and ilocs. When /* We can't cope with anything else than glocs and ilocs. When