Fix comments to be ! not #!.

[factor.git] / extra / trees / trees.factor

diff --git a/extra/trees/trees.factor b/extra/trees/trees.factor
index b182d67aa673b5652c42803e3484c52233a821e1..e59af367cdb76cef1abfbb398a05027b20810563 100644 (file)
--- a/extra/trees/trees.factor
+++ b/extra/trees/trees.factor
@@ -151,8 +151,8 @@ DEFER: delete-node
     ] if* ;
 
 : prune-extremity ( node -- new-extremity )
-    #! remove and return the leftmost or rightmost child of this node.
-    #! assumes at least one child
+    ! remove and return the leftmost or rightmost child of this node.
+    ! assumes at least one child
     dup node-link (prune-extremity) ;
 
 : replace-with-child ( node -- node )
@@ -168,11 +168,11 @@ DEFER: delete-node
     ] if ;
 
 : delete-node-with-two-children ( node -- node )
-    #! randomised to minimise tree unbalancing
+    ! randomised to minimise tree unbalancing
     random-side [ replace-with-extremity ] with-side ;
 
 : delete-node ( node -- node )
-    #! delete this node, returning its replacement
+    ! delete this node, returning its replacement
     dup [ right>> ] [ left>> ] bi [
         swap [
             drop delete-node-with-two-children