修正一处代码注释错误，感谢 ljf007 的提醒。

tom165 · Jun 25, 2013 · 9c66040 · 9c66040
1 parent 5be48a4
commit 9c66040
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/chp2/code/31-tree-map-using-map.scm b/chp2/code/31-tree-map-using-map.scm
@@ -3,6 +3,6 @@
 (define (tree-map f tree)
     (map (lambda (sub-tree)
              (if (pair? sub-tree)
-                 (tree-map f sub-tree)  ; 递归处理左右分支
-                 (f sub-tree)))
+                 (tree-map f sub-tree)  ; 处理子树
+                 (f sub-tree)))         ; 处理节点
          tree))