Fix comments to be ! not #!.

[factor.git] / basis / compiler / tree / propagation / info / info.factor

diff --git a/basis/compiler/tree/propagation/info/info.factor b/basis/compiler/tree/propagation/info/info.factor
index 1705c4411af634ac31f00577b81bda3d9f70e98a..9d1ba98e4af59d28ca3285781b97db6b376e432a 100644 (file)
--- a/basis/compiler/tree/propagation/info/info.factor
+++ b/basis/compiler/tree/propagation/info/info.factor
@@ -34,8 +34,8 @@ CONSTANT: null-info T{ value-info-state f null empty-interval }
 CONSTANT: object-info T{ value-info-state f object full-interval }
 
 : interval>literal ( class interval -- literal literal? )
-    #! If interval has zero length and the class is sufficiently
-    #! precise, we can turn it into a literal
+    ! If interval has zero length and the class is sufficiently
+    ! precise, we can turn it into a literal
     dup special-interval? [
         2drop f f
     ] [
@@ -60,7 +60,7 @@ DEFER: <literal-info>
 UNION: fixed-length array byte-array string ;
 
 : literal-class ( obj -- class )
-    #! Handle forgotten tuples and singleton classes properly
+    ! Handle forgotten tuples and singleton classes properly
     dup singleton-class? [
         class-of dup class? [
             drop tuple