Fix comments to be ! not #!.

[factor.git] / core / generic / single / single.factor

diff --git a/core/generic/single/single.factor b/core/generic/single/single.factor
index 7978434c92b5ad7b83ee8c19b7e486be3a0503c3..afa6376983f0854a75970989f0f0049fe3cc81af 100644 (file)
--- a/core/generic/single/single.factor
+++ b/core/generic/single/single.factor
@@ -64,7 +64,7 @@ M: single-combination make-default-method
 ! ! ! Build an engine ! ! !
 
 : find-default ( methods -- default )
-    #! Side-effects methods.
+    ! Side-effects methods.
     [ object bootstrap-word ] dip delete-at* [
         drop generic-word get "default-method" word-prop
     ] unless ;
@@ -108,9 +108,9 @@ TUPLE: tuple-dispatch-engine echelons ;
     [ ?set-at ] change-at ;
 
 : echelon-sort ( assoc -- assoc' )
-    #! Convert an assoc mapping classes to methods into an
-    #! assoc mapping echelons to assocs. The first echelon
-    #! is always there
+    ! Convert an assoc mapping classes to methods into an
+    ! assoc mapping echelons to assocs. The first echelon
+    ! is always there
     H{ { 0 f } } clone [ [ push-echelon ] curry assoc-each ] keep ;
 
 : copy-superclass-methods ( engine superclass assoc -- )
@@ -121,11 +121,11 @@ TUPLE: tuple-dispatch-engine echelons ;
     [ swapd copy-superclass-methods ] 2curry each ;
 
 : convert-tuple-inheritance ( assoc -- assoc' )
-    #! A method on a superclass A might have a higher precedence
-    #! than a method on a subclass B, if the methods are
-    #! defined on incomparable classes that happen to contain
-    #! A and B, respectively. Copy A's methods into B's set so
-    #! that they can be sorted and selected properly.
+    ! A method on a superclass A might have a higher precedence
+    ! than a method on a subclass B, if the methods are
+    ! defined on incomparable classes that happen to contain
+    ! A and B, respectively. Copy A's methods into B's set so
+    ! that they can be sorted and selected properly.
     dup dup [ copy-superclasses-methods ] curry assoc-each ;
 
 : <tuple-dispatch-engine> ( methods -- engine )