[aisleriot] Eval in the current module

[Christian Persch <chpe src gnome org>]

commit 74eb6b9dc144b2526063d82b6d91e9eff2a97fdc
Author: Christian Persch <chpe gnome org>
Date:   Mon Apr 18 23:00:10 2011 +0200

    Eval in the current module

 games/sol.scm |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)
---
diff --git a/games/sol.scm b/games/sol.scm
index 9c6aeff..2fc588d 100644
--- a/games/sol.scm
+++ b/games/sol.scm
@@ -648,7 +648,7 @@
   (lambda (names)
     (if (equal? '() names)
         '()
-        (cons (eval (list 'copy-tree (car names)))
+        (cons (eval (list 'copy-tree (car names)) (current-module))
               (save-variables (cdr names))))))
 
 ; Restore all the state variables for a game
@@ -656,8 +656,6 @@
   (lambda (names values)
     (or (equal? '() names)
         (begin
-          (eval (list 'set! (car names) (list 'quote (car values))))
+          (eval (list 'set! (car names) (list 'quote (car values))) (current-module))
           (restore-variables (cdr names) (cdr values))
           ))))
-
-