[aisleriot] guile: Fix procedure check

[Christian Persch <chpe src gnome org>]

commit 70b71afca97dfb15a5320ce09666f81668805504
Author: Christian Persch <chpe gnome org>
Date:   Mon Jun 6 21:22:52 2011 +0200

    guile: Fix procedure check

 src/game.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/src/game.c b/src/game.c
index 4cb9c17..ea18e11 100644
--- a/src/game.c
+++ b/src/game.c
@@ -1699,7 +1699,7 @@ game_scm_load_game (void *user_data)
                            scm_from_int (DROPPABLE_LAMBDA),
                            game->lambdas[i]));
   if ((game->features & FEATURE_DEALABLE) &&
-      scm_is_false (game->lambdas[DEALABLE_LAMBDA]))
+      scm_is_false (scm_procedure_p (game->lambdas[DEALABLE_LAMBDA])))
     scm_throw (scm_from_locale_symbol ("aisleriot-invalid-lambda"),
                scm_list_3 (scm_from_locale_string ("Not a procedure"),
                            scm_from_int (DEALABLE_LAMBDA),