[aisleriot] Remove obsolete compat code

[Christian Persch <chpe src gnome org>]

commit bec3ef15982adda83bfb026187df0e3f1043965c
Author: Christian Persch <chpe gnome org>
Date:   Mon Apr 18 22:33:40 2011 +0200

    Remove obsolete compat code

 games/sol.scm |   11 ++---------
 1 files changed, 2 insertions(+), 9 deletions(-)
---
diff --git a/games/sol.scm b/games/sol.scm
index 67875aa..9c6aeff 100644
--- a/games/sol.scm
+++ b/games/sol.scm
@@ -16,13 +16,6 @@
 
 (use-modules (ice-9 format))
 
-;; Compatibility code so we run on both guile 1.3 and 1.5
-
-(define (eval-1 code)
-  (if (string<? (version) "1.5")
-      (eval code)
-      (eval code (current-module))))
-        
 ;; Feature masks:
 (define droppable-feature 1)
 (define scores-disabled 2)
@@ -655,7 +648,7 @@
   (lambda (names)
     (if (equal? '() names)
         '()
-        (cons (eval-1 (list 'copy-tree (car names))) 
+        (cons (eval (list 'copy-tree (car names)))
               (save-variables (cdr names))))))
 
 ; Restore all the state variables for a game
@@ -663,7 +656,7 @@
   (lambda (names values)
     (or (equal? '() names)
         (begin
-          (eval-1 (list 'set! (car names) (list 'quote (car values))))
+          (eval (list 'set! (car names) (list 'quote (car values))))
           (restore-variables (cdr names) (cdr values))
           ))))