comment on constants on mlvm/constants.ml

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

diff --git a/mlvm/constants.ml b/mlvm/constants.ml
index fbcea8c859716105030581bececdb87b634bebed..50007b90fd03b9f5187860d1934928861d870d54 100644 (file)
--- a/mlvm/constants.ml
+++ b/mlvm/constants.ml
@@ -23,6 +23,7 @@ let redo_log_lv_name = "mlvm_redo_log"
 let mib = Int64.mul 1024L 1024L
 let tib = Int64.mul mib mib
 
+(* Ahem, mutable constants? *)
 let dummy_mode = ref false 
 let dummy_base = ref "/tmp"
 let mapper_name = ref "mapper"