* mu-guile-store.c: fix mu:store:for-each with nil EXPR

2011-12-13 07:47:42 +02:00
parent 2783ff893a
commit e75f42b081
1 changed files with 1 additions and 1 deletions
--- a/src/guile/mu-guile-store.c
+++ b/src/guile/mu-guile-store.c
@ -93,7 +93,7 @@ SCM_DEFINE_PUBLIC (store_foreach, "mu:store:for-each", 1, 1, 0,
 	const char* expr;

 	SCM_ASSERT (scm_procedure_p (FUNC), FUNC, SCM_ARG1, FUNC_NAME);
-	SCM_ASSERT (scm_is_string (EXPR) || EXPR == SCM_UNDEFINED,
+	SCM_ASSERT (SCM_UNBNDP(EXPR) || scm_is_string (EXPR),
 		    EXPR, SCM_ARG2, FUNC_NAME);

 	query = get_query ();