From 69031bf02f738e652ec2676de57266bb645191b3 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Mon, 21 Feb 2011 08:42:20 +0530
Subject: [PATCH] added some test results

---
 src/sicp/ex3_25.rkt | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/src/sicp/ex3_25.rkt b/src/sicp/ex3_25.rkt
index 2481d26..bd62088 100644
--- a/src/sicp/ex3_25.rkt
+++ b/src/sicp/ex3_25.rkt
@@ -81,3 +81,26 @@
 97
 > 
 |#
+
+#|
+> (define t (list '*table*
+                  (list 'math
+                        (cons '+ 43)
+                        (cons '- 45)
+                        (cons '* 42))
+                  (list 'letters
+                        (cons 'a 97)
+                        (cons 'b 98))))
+> (display t)
+(*table* (math (+ . 43) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> (insert-in! '(earth asia india) 'delhi t)
+> (display t)
+(*table* (earth (asia (india . delhi))) (math (+ . 43) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> (insert-in! '(math +) 83 t)
+> (display t)
+(*table* (earth (asia (india . delhi))) (math (+ . 83) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> (insert-in! '(math /) 99 t)
+> (display t)
+(*table* (earth (asia (india . delhi))) (math (+ . 83) (/ . 99) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> 
+|#
-- 
2.45.2