diff --git a/Makefile b/Makefile
index e2bed677..82eddd15 100644
--- a/Makefile
+++ b/Makefile
@@ -367,6 +367,7 @@ install-base: all
 	$(INSTALL) -m0644 lib/srfi/159/*.scm $(DESTDIR)$(MODDIR)/srfi/159/
 	$(INSTALL) -m0644 lib/srfi/159/*.sld $(DESTDIR)$(MODDIR)/srfi/159/
 	$(INSTALL) -m0644 lib/srfi/160/*.sld $(DESTDIR)$(MODDIR)/srfi/160/
+	$(INSTALL) -m0644 lib/srfi/160/*.scm $(DESTDIR)$(MODDIR)/srfi/160/
 	$(INSTALL) -m0644 lib/srfi/166/*.sld $(DESTDIR)$(MODDIR)/srfi/166/
 	$(INSTALL) -m0644 lib/srfi/166/*.scm $(DESTDIR)$(MODDIR)/srfi/166/
 	$(INSTALL) -m0644 lib/srfi/146/*.sld $(DESTDIR)$(MODDIR)/srfi/146/
diff --git a/lib/srfi/160/f16.sld b/lib/srfi/160/f16.sld
index 28c27c17..b6f5944c 100644
--- a/lib/srfi/160/f16.sld
+++ b/lib/srfi/160/f16.sld
@@ -60,31 +60,8 @@
                   vector-append vector-copy vector-copy!
                   vector-map vector-for-each)
           (scheme write)
-          (srfi 160 base)
-          (srfi 160 prims)
-          (rename (only (chibi) list->uvector make-uvector)
-                  (list->uvector list->uniform-vector)
-                  (make-uvector make-uniform-vector)))
+          (srfi 160 mini))
   (begin
-    (define (f16? x) (and (real? x) (inexact? x)))
-    (define f16vector-length uvector-length)
-    (define (make-f16vector len . o)
-      (let ((res (make-uniform-vector SEXP_F16 len)))
-        (if (and (pair? o) (not (zero? (car o))))
-            (do ((i 0 (+ i 1)))
-                ((>= i len))
-              (f16vector-set! res i (car o))))
-        res))
-    (define (f16vector->list uv . o)
-      (let ((start (if (pair? o) (car o) 0))
-            (end (if (and (pair? o) (pair? (cdr o)))
-                     (cadr o)
-                     (f16vector-length uv))))
-        (do ((i (- end 1) (- i 1))
-             (res '() (cons (f16vector-ref uv i) res)))
-            ((< i start) res))))
-    (define (list->f16vector ls) (list->uniform-vector SEXP_F16 ls))
-    (define (f16vector . args) (list->f16vector args))
     (define uvector? f16vector?)
     (define make-uvector make-f16vector)
     (define vector f16vector)
diff --git a/lib/srfi/160/f8.sld b/lib/srfi/160/f8.sld
index 109007ed..9bc2e437 100644
--- a/lib/srfi/160/f8.sld
+++ b/lib/srfi/160/f8.sld
@@ -60,31 +60,8 @@
                   vector-append vector-copy vector-copy!
                   vector-map vector-for-each)
           (scheme write)
-          (srfi 160 base)
-          (srfi 160 prims)
-          (rename (only (chibi) list->uvector make-uvector)
-                  (list->uvector list->uniform-vector)
-                  (make-uvector make-uniform-vector)))
+          (srfi 160 mini))
   (begin
-    (define (f8? x) (and (real? x) (inexact? x)))
-    (define f8vector-length uvector-length)
-    (define (make-f8vector len . o)
-      (let ((res (make-uniform-vector SEXP_F8 len)))
-        (if (and (pair? o) (not (zero? (car o))))
-            (do ((i 0 (+ i 1)))
-                ((>= i len))
-              (f8vector-set! res i (car o))))
-        res))
-    (define (f8vector->list uv . o)
-      (let ((start (if (pair? o) (car o) 0))
-            (end (if (and (pair? o) (pair? (cdr o)))
-                     (cadr o)
-                     (f8vector-length uv))))
-        (do ((i (- end 1) (- i 1))
-             (res '() (cons (f8vector-ref uv i) res)))
-            ((< i start) res))))
-    (define (list->f8vector ls) (list->uniform-vector SEXP_F8 ls))
-    (define (f8vector . args) (list->f8vector args))
     (define uvector? f8vector?)
     (define make-uvector make-f8vector)
     (define vector f8vector)
diff --git a/lib/srfi/231.sld b/lib/srfi/231.sld
index 15e8c3f0..f791d645 100644
--- a/lib/srfi/231.sld
+++ b/lib/srfi/231.sld
@@ -56,21 +56,15 @@
    )
   (include "231/transforms.scm")
   (cond-expand
-   ((and chibi (library (srfi 160 f8)))
-    (import (srfi 160 f8))
+   ((and chibi (library (srfi 160 mini)))
+    (import (srfi 160 mini))
     (begin
       (define-storage-class f8-storage-class
-        f8vector-ref f8vector-set! f8? make-f8vector f8vector-length 0)))
-   (else
-    (begin
-      (define f8-storage-class f32-storage-class))))
-  (cond-expand
-   ((and chibi (library (srfi 160 f16)))
-    (import (srfi 160 f16))
-    (begin
+        f8vector-ref f8vector-set! f8? make-f8vector f8vector-length 0)
       (define-storage-class f16-storage-class
         f16vector-ref f16vector-set! f16? make-f16vector f16vector-length 0)))
    (else
     (begin
+      (define f8-storage-class f32-storage-class)
       (define f16-storage-class f32-storage-class))))
   )