[aisleriot] api.scm: Use correct arguments to list-tail.



commit 5824bce7a75df921a481c9491bdafcd67b9f2f75
Author: Vincent Povirk <madewokherd gmail com>
Date:   Mon May 28 09:29:59 2012 -0500

    api.scm: Use correct arguments to list-tail.
    
    For bug 676924.

 games/api.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/games/api.scm b/games/api.scm
index f38ad1f..6249fb7 100644
--- a/games/api.scm
+++ b/games/api.scm
@@ -545,7 +545,7 @@
   (add-cards! end-slot cards))
 
 (define-public (remove-n-cards slot-id n)
-  (set-cards! slot-id (list-tail n (get-cards slot-id))))
+  (set-cards! slot-id (list-tail (get-cards slot-id) n)))
 
 (define-public (deal-cards-from-deck deck slot-list)
   (if (not (null? slot-list))



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