Fix comments to be ! not #!.

[factor.git] / extra / jamshred / oint / oint.factor

diff --git a/extra/jamshred/oint/oint.factor b/extra/jamshred/oint/oint.factor
index b50d9ac2fbbe1b5765413c2263b96d3afb75df56..8d9bfdca0c9a6642d704e3ddb7dc521087e0662d 100644 (file)
--- a/extra/jamshred/oint/oint.factor
+++ b/extra/jamshred/oint/oint.factor
@@ -62,7 +62,7 @@ PRIVATE>
     over forward>> rotate-oint ;
 
 : random-float+- ( n -- m )
-    #! find a random float between -n/2 and n/2
+    ! find a random float between -n/2 and n/2
     dup 10000 * >integer random 10000 / swap 2 / - ;
 
 : random-turn ( oint theta -- )
@@ -81,7 +81,7 @@ PRIVATE>
     distance-vector norm ;
 
 : scalar-projection ( v1 v2 -- n )
-    #! the scalar projection of v1 onto v2
+    ! the scalar projection of v1 onto v2
     [ v. ] [ norm ] bi / ;
 
 : proj-perp ( u v -- w )
@@ -92,7 +92,7 @@ PRIVATE>
     -rot up>> scalar-projection abs + ;
 
 :: reflect ( v n -- v' )
-    #! bounce v on a surface with normal n
+    ! bounce v on a surface with normal n
     v v n v. n n v. / 2 * n n*v v- ;
 
 : half-way ( p1 p2 -- p3 )