##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-14/14:11-0400 ##+ # # trylock.icn, lock a mutex if not already locked # procedure main() x := 1 mtx := mutex() if trylock(mtx) then { write("locked mtx") x := x + 1 unlock(mtx) } end