Fix comments to be ! not #!.

[factor.git] / basis / concurrency / locks / locks.factor

diff --git a/basis/concurrency/locks/locks.factor b/basis/concurrency/locks/locks.factor
index f1945db0843b942d0a35c72d3d0fff040e4b16f8..9e56c0425309ffee69d39e5d9dc8cfe5f9459f39 100644 (file)
--- a/basis/concurrency/locks/locks.factor
+++ b/basis/concurrency/locks/locks.factor
@@ -85,14 +85,14 @@ TUPLE: rw-lock readers writers reader# writer ;
     [ notify-writer ] [ readers>> notify-all ] if ;
 
 : reentrant-read-lock-ok? ( lock -- ? )
-    #! If we already have a write lock, then we can grab a read
-    #! lock too.
+    ! If we already have a write lock, then we can grab a read
+    ! lock too.
     writer>> self eq? ;
 
 : reentrant-write-lock-ok? ( lock -- ? )
-    #! The only case where we have a writer and > 1 reader is
-    #! write -> read re-entrancy, and in this case we prohibit
-    #! a further write -> read -> write re-entrancy.
+    ! The only case where we have a writer and > 1 reader is
+    ! write -> read re-entrancy, and in this case we prohibit
+    ! a further write -> read -> write re-entrancy.
     { [ writer>> self eq? ] [ reader#>> zero? ] } 1&& ;
 
 PRIVATE>