Fix comments to be ! not #!.

[factor.git] / basis / ui / gadgets / sliders / sliders.factor

diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor
index 0234c1eccae975390552717125ebdd44d76944ae..27417563f092ff24df12ed395b0073949b0b888d 100644 (file)
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@@ -49,9 +49,9 @@ CONSTANT: min-thumb-dim 30
     [ elevator-length ] bi min ;
 
 : slider-scale ( slider -- n )
-    #! A scaling factor such that if x is a slider co-ordinate,
-    #! x*n is the screen position of the thumb, and conversely
-    #! for x/n. The '1 max' calls avoid division by zero.
+    ! A scaling factor such that if x is a slider co-ordinate,
+    ! x*n is the screen position of the thumb, and conversely
+    ! for x/n. The '1 max' calls avoid division by zero.
     [ [ elevator-length ] [ thumb-dim ] bi - 1 max ]
     [ slider-length* 1 max ]
     bi / ;