| TacticAst.Set (loc, name, value) ->
let value =
if name = "baseuri" then
- MatitaMisc.strip_trailing_slash value
+ let v = MatitaMisc.strip_trailing_slash value in
+ try
+ ignore (String.index v ' ');
+ command_error "baseuri can't contain spaces"
+ with Not_found -> v
else
value
in