Merge pull request #3 from arvyy/master

125 & 126 based implementations

1 files changed, 21 insertions, 5 deletions

diff --git a/dictionaries-impl.scm b/dictionaries-impl.scm
index 60e5b86..f97cf0e 100644
--- a/dictionaries-impl.scm
+++ b/dictionaries-impl.scm
@@ -12,9 +12,25 @@
  (register-plist!)) 
 
 (cond-expand
-  ((or srfi-69 srfi-125 chibi kawa)
-   (begin
-     (let ()
-      (include "srfi-69-impl.scm")
-      (register-srfi-69!))))
+  ((library (srfi 126))
+   (let ()
+    (include "srfi-126-impl.scm")
+    (register-srfi-126!)))
+  (else))
+
+(cond-expand
+  ((and (library (srfi 125))
+        (not (library (srfi 69))))
+   (let ()
+    (include "srfi-125-impl.scm")
+    (register-srfi-125!)))
+  (else))
+
+(cond-expand
+  ((or kawa
+       (and (library (srfi 69))
+            (not (library (srfi 125)))))
+   (let ()
+    (include "srfi-69-impl.scm")
+    (register-srfi-69!)))
   (else))