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

* eval.c: Don't #define scm_lookupcar to scm_lookupcar1. Instead

Browse source 
make sure that there always is a "real" scm_lookupcar.
This commit is contained in:
Mikael Djurfeldt 1998-11-01 04:40:33 +00:00
parent d1306c276b
commit d0b7bad785
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
1998-11-01 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* eval.c: Don't #define scm_lookupcar to scm_lookupcar1. Instead
make sure that there always is a "real" scm_lookupcar.
1998-11-01 Mikael Djurfeldt <mdj@barbara.nada.kth.se> 1998-11-01 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* read.c, read.h (history-length, history-file): New read options. * read.c, read.h (history-length, history-file): New read options.

7
libguile/eval.c
View file

@ -242,8 +242,13 @@ scm_ilookup (iloc, env)
#endif /* USE_THREADS */ #endif /* USE_THREADS */
#ifdef USE_THREADS
static SCM * static SCM *
scm_lookupcar1 (SCM vloc, SCM genv) scm_lookupcar1 (SCM vloc, SCM genv)
#else
SCM *
scm_lookupcar (SCM vloc, SCM genv)
#endif
{ {
SCM env = genv; SCM env = genv;
register SCM *al, fl, var = SCM_CAR (vloc); register SCM *al, fl, var = SCM_CAR (vloc);
@ -371,8 +376,6 @@ scm_lookupcar (vloc, genv)
abort (); abort ();
return loc; return loc;
} }
#else /* not USE_THREADS */
#define scm_lookupcar scm_lookupcar1
#endif #endif
#define unmemocar scm_unmemocar #define unmemocar scm_unmemocar