From 86937c861f382b728610ec8a1c32e99595a65f63 Mon Sep 17 00:00:00 2001
From: Falco Nogatz <fnogatz@gmail.com>
Date: Tue, 3 Jan 2017 17:05:27 +0100
Subject: [PATCH] Avoid SWI6-specific split_string/4 in favor of
 atomic_list_concat/3 (Issue #54)

---
 lib-pl/xsd2json.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib-pl/xsd2json.pl b/lib-pl/xsd2json.pl
index 9d8a538..8477d79 100644
--- 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),