mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Fix type-checking for the second argument of `eval'.

Browse source
This commit is contained in:
Ludovic Courtès 2008-03-06 09:51:44 +00:00
parent 3f52096714
commit 61b6542aa6
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
NEWS
View file

@ -46,6 +46,7 @@ Changes in 1.8.5 (since 1.8.4)
Previously, expressions like `(match '((foo) (bar)) (((_ ...) ...) #t))'
would trigger an unbound variable error for `match:andmap'.
** Fixed type-checking for the second argument of `eval'
** Fixed build issue for GNU/Linux on IA64
** Fixed build issues on NetBSD 1.6
** Fixed build issue on Solaris 2.10 x86_64

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2008-03-06 Ludovic Courtès <ludo@gnu.org>
* eval.c (scm_eval): If MODULE_OR_STATE is not a dynamic state,
make sure it's a module. Reported by David I. Lehn.
2008-03-02 Ludovic Courtès <ludo@gnu.org>
* pairs.h (scm_is_pair): Moved declaration to `inline.h'.

7
libguile/eval.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -4034,7 +4034,10 @@ SCM_DEFINE (scm_eval, "eval", 2, 0, 0,
if (scm_is_dynamic_state (module_or_state))
scm_dynwind_current_dynamic_state (module_or_state);
else
scm_dynwind_current_module (module_or_state);
{
SCM_VALIDATE_MODULE (2, module_or_state);
scm_dynwind_current_module (module_or_state);
}
res = scm_primitive_eval (exp);