From 66488698605e0e15e0af6c3f6d5af54026713fe3 Mon Sep 17 00:00:00 2001 From: Johan Ceuppens Date: Mon, 16 Jan 2012 23:24:23 +0000 Subject: [PATCH] put in example --- scsh/scgame/scgamedictionaries.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scsh/scgame/scgamedictionaries.scm b/scsh/scgame/scgamedictionaries.scm index 92d334c..a80c8d0 100644 --- a/scsh/scgame/scgamedictionaries.scm +++ b/scsh/scgame/scgamedictionaries.scm @@ -25,13 +25,16 @@ ;;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -;; Dictionary ADT with ref,set!,add!,make public methods at the end + (load "scgameutil.scm") -;; Usage : +;; Example : ;; (define d (make-color-dictionary 1024)) ;; (dictionary-ref d 'Navy) ;; returns "000080" +;; (string->color "000080") ;; returns 751, the RGB/BGR value + +;; Dictionary ADT with ref,set!,add!,make public methods at the end (define (make-dictionary1) ;; methods are FIFO (first fixed first out)