exposing some functions for use by other exercises

diff --git a/src/sicp/ch2_3.rkt b/src/sicp/ch2_3.rkt
index 45157585e7ef1d44f78c47019b8f90b3ff92372d..fe94cf8e24faa5b6fd407b36b6972ba86e1842f6 100644 (file)
--- a/src/sicp/ch2_3.rkt
+++ b/src/sicp/ch2_3.rkt
@@ -70,4 +70,13 @@
                                (cadr pair))
                     (make-leaf-set (cdr pairs))))))
 
-(provide make-code-tree make-leaf decode leaf? symbol-leaf left-branch right-branch symbols)
\ No newline at end of file
+(provide make-code-tree 
+         make-leaf 
+         decode 
+         leaf? 
+         symbol-leaf 
+         left-branch 
+         right-branch 
+         symbols 
+         make-leaf-set 
+         adjoin-set)
\ No newline at end of file

diff --git a/src/sicp/ex2_68.rkt b/src/sicp/ex2_68.rkt
index 06067745556e74b7240cdfa3e0f256441843f586..108001c40ebb8d7592ee56336320e25db3093e20 100644 (file)
--- a/src/sicp/ex2_68.rkt
+++ b/src/sicp/ex2_68.rkt
@@ -40,4 +40,5 @@
                        sample-tree) 
                sample-tree) 
        sample-message)
-  
\ No newline at end of file
+
+(provide encode)
\ No newline at end of file