Fix comments to be ! not #!.

[factor.git] / basis / compiler / tree / dead-code / simple / simple.factor

diff --git a/basis/compiler/tree/dead-code/simple/simple.factor b/basis/compiler/tree/dead-code/simple/simple.factor
index d0bbbc47dbef332b60b7f8eb38b02ee1fbda8d5b..55a2137b6834c1620b40e759f0d72120b8b76705 100644 (file)
--- a/basis/compiler/tree/dead-code/simple/simple.factor
+++ b/basis/compiler/tree/dead-code/simple/simple.factor
@@ -26,8 +26,8 @@ M: #return mark-live-values* look-at-inputs ;
     [ index ] dip over [ nth look-at-value ] [ 2drop ] if ;
 
 M: #copy compute-live-values*
-    #! If the output of a copy is live, then the corresponding
-    #! input is live also.
+    ! If the output of a copy is live, then the corresponding
+    ! input is live also.
     [ out-d>> ] [ in-d>> ] bi look-at-mapping ;
 
 M: #call compute-live-values* nip look-at-inputs ;
@@ -41,8 +41,8 @@ M: #alien-node compute-live-values* nip look-at-inputs ;
     live-values get '[ drop _ key? ] assoc-filter ;
 
 : filter-corresponding ( new old -- old' )
-    #! Remove elements from 'old' if the element with the same
-    #! index in 'new' is dead.
+    ! Remove elements from 'old' if the element with the same
+    ! index in 'new' is dead.
     zip filter-mapping values ;
 
 : filter-live ( values -- values' )