Add unstable suffix to hash libraries

live/hash/adler32.sld → live/hash/adler32/unstable.sld

@@ -1,10 +1,12 @@
-(define-library (live hash adler32)
+(define-library (live hash adler32 unstable)
   (export adler32-accumulator
           adler32-bytevector
           adler32-port)
-  (import (scheme base) (live port) (live typecheck))
+  (import (scheme base)
+          (live port unstable)
+          (live typecheck unstable))
   (cond-expand
     (gauche
      (import (rename (only (rfc zlib) adler32)
                      (adler32 gauche-adler32)))
-     (include "adler32.gauche.scm"))))
+     (include "live.gauche.scm"))))

live/hash/sha/unstable.sld

@@ -0,0 +1,19 @@
+(define-library (live hash sha unstable)
+  (export
+   sha-1-accumulator
+   sha-1-bytevector
+   sha-1-port
+   sha-256-accumulator
+   sha-256-bytevector
+   sha-256-port
+   sha-512-accumulator
+   sha-512-bytevector
+   sha-512-port)
+  (import (scheme base)
+          (live port unstable))
+  (cond-expand
+    (gauche
+     (import (only (gauche base) make)
+             (util digest)
+             (rfc sha))
+     (include "live.gauche.scm"))))

tests/adler32.scm → tests/hash-adler32.scm

@@ -1,4 +1,6 @@
-(import (scheme base) (live hash adler32) (live test))
+(import (scheme base)
+        (live test)
+        (live hash adler32 unstable))
 
 (test-begin "live/hash/adler32")
 

tests/sha.scm → tests/hash-sha.scm

@@ -1,4 +1,6 @@
-(import (scheme base) (live hash sha) (live test))
+(import (scheme base)
+        (live test)
+        (live hash sha unstable))
 
 (test-begin "live/hash/sha")