register srfi-194 feature

1 files changed, 10 insertions, 8 deletions

diff --git a/194.sld b/194.sld
index cf0866d..5b12dbb 100644
--- a/194.sld
+++ b/194.sld
@@ -3,19 +3,20 @@
 
 (define-library (srfi 194)
   (cond-expand
-   (gambit
-    ;; Should work for any Gambit no earlier than
-    ;; v4.9.5-104-g562e58da 20240201212453
-    (import (gambit)))
-   (else
-    (import (scheme base)
-            (srfi 133))))
+    (gambit
+     ;; Should work for any Gambit no earlier than
+     ;; v4.9.5-104-g562e58da 20240201212453
+     (import (gambit)))
+    (else
+     (import (scheme base)
+             (srfi 133))))
   (import (scheme case-lambda)
           (scheme inexact)
           (scheme complex)
           (scheme write)
           (srfi 27)
-          (srfi 158))
+          (srfi 158)
+          (chicken platform))
   (export
    clamp-real-number
    current-random-source
@@ -45,6 +46,7 @@
    make-ball-generator
    make-random-source-generator
    gsampling)
+  (begin (register-feature! 'srfi-194))
   (include "194-impl.scm")
   (include "zipf-zri.scm")
   (include "sphere.scm"))