[aisleriot] api: Make get-name private.

[Vincent Povirk <vpovirk src gnome org>]

commit ab0b57d5a92900a760384d8a0d8dbd676e725763
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun May 5 17:11:32 2013 -0500

    api: Make get-name private.
    
    For bug 551859.

 games/api.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/games/api.scm b/games/api.scm
index a8dec41..18bae8f 100644
--- a/games/api.scm
+++ b/games/api.scm
@@ -400,7 +400,7 @@
 (define-public (get-joker-name card) 
   (if (is-black? card) (_"the black joker") (_"the red joker")))
 
-(define-public (get-name card)
+(define (get-name card)
   ; Do not use this function directly. To create a hint for moving a card or
   ; stack of cards, use (hint-move).
   (let ((value (get-value card)) (suit (get-suit card)))