Avoid SWI6-specific split_string/4 in favor of atomic_list_concat/3 (…

…Issue #54)
fnogatz · Jan 3, 2017 · 86937c8 · 86937c8
1 parent 721e285
commit 86937c8
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib-pl/xsd2json.pl b/lib-pl/xsd2json.pl
@@ -332,9 +332,7 @@
   !.
 namespace(Name_String,Namespace,Name_Without_NS) :-
   atom(Name_String),
-  split_string(Name_String,':','',[Namespace_Str, Name_Without_NS_Str]),
-  atom_string(Namespace,Namespace_Str),
-  atom_string(Name_Without_NS,Name_Without_NS_Str).
+  atomic_list_concat([Namespace,Name_Without_NS],':',Name_String).
 % no namespace present
 namespace(Name,_,Name_Term) :-
   \+atom(Name),