Forráskód Böngészése

[cli] fix reserved define namespace check

Jens Fischer 6 éve
szülő
commit
8dac95e27f
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      src/compiler/main.ml

+ 1 - 1
src/compiler/main.ml

@@ -567,7 +567,7 @@ try
 			in
 			if List.mem var reserved_flags then raise_reserved (Printf.sprintf "`%s` is a reserved copiler flag" var);
 			List.iter (fun ns ->
-				if ExtString.String.starts_with var ns then raise_reserved (Printf.sprintf "`%s` uses the reserved compiler flag namespace `%s.*`" var ns)
+				if ExtString.String.starts_with var (ns ^ ".") then raise_reserved (Printf.sprintf "`%s` uses the reserved compiler flag namespace `%s.*`" var ns)
 			) reserved_flag_namespaces;
 			Common.raw_define com var;
 		),"<var[=value]>","define a conditional compilation flag");