[aisleriot] guile: Remove definition of list-head from api.scm



commit 754f6b0714aeeca9c8e6b1f528de8d46e02535f2
Author: Christian Persch <chpe gnome org>
Date:   Wed Nov 30 19:07:47 2011 +0100

    guile: Remove definition of list-head from api.scm
    
    WARNING: (guile-user): imported module (aisleriot api) overrides core binding `list-head'

 games/api.scm |    6 ------
 1 files changed, 0 insertions(+), 6 deletions(-)
---
diff --git a/games/api.scm b/games/api.scm
index 2963037..7897f70 100644
--- a/games/api.scm
+++ b/games/api.scm
@@ -623,12 +623,6 @@
 (define-public (nthcdr n lst)
   (if (zero? n) lst (nthcdr (+ -1 n) (cdr lst))))
 
-; guile library function I'm not sure I can rely on
-(define-public (list-head lst k)
-  (if (= k 0)
-      '()
-      (cons (car lst) (list-head (cdr lst) (- k 1)))))
-
 ;; INTERNAL procedures
 
 ; global variables



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]