Fix comments to be ! not #!.

[factor.git] / core / classes / mixin / mixin.factor

diff --git a/core/classes/mixin/mixin.factor b/core/classes/mixin/mixin.factor
index bacb34a385661ad01b29ebda23037d5683bb1976..93bb8e2190bf9fbe398f271bc5f12baf8214345c 100644 (file)
--- a/core/classes/mixin/mixin.factor
+++ b/core/classes/mixin/mixin.factor
@@ -41,11 +41,11 @@ ERROR: check-mixin-class-error class ;
     swap redefine-mixin-class ; inline
 
 : (add-mixin-instance) ( class mixin -- )
-    #! Call update-methods before adding the member:
-    #! - Call sites of generics specializing on 'mixin'
-    #! where the inferred type is 'class' are updated,
-    #! - Call sites where the inferred type is a subtype
-    #! of 'mixin' disjoint from 'class' are not updated
+    ! Call update-methods before adding the member:
+    ! - Call sites of generics specializing on 'mixin'
+    ! where the inferred type is 'class' are updated,
+    ! - Call sites where the inferred type is a subtype
+    ! of 'mixin' disjoint from 'class' are not updated
     dup class-usages {
         [ nip update-methods ]
         [ drop [ suffix ] change-mixin-class ]
@@ -54,11 +54,11 @@ ERROR: check-mixin-class-error class ;
     } 3cleave ;
 
 : (remove-mixin-instance) ( class mixin -- )
-    #! Call update-methods after removing the member:
-    #! - Call sites of generics specializing on 'mixin'
-    #! where the inferred type is 'class' are updated,
-    #! - Call sites where the inferred type is a subtype
-    #! of 'mixin' disjoint from 'class' are not updated
+    ! Call update-methods after removing the member:
+    ! - Call sites of generics specializing on 'mixin'
+    ! where the inferred type is 'class' are updated,
+    ! - Call sites where the inferred type is a subtype
+    ! of 'mixin' disjoint from 'class' are not updated
     dup class-usages {
         [ drop [ swap remove ] change-mixin-class ]
         [ drop "instances" word-prop delete-at ]