Merge pull request #86 from DavidAlphaFox/master

srfi-98 can't work on FreeBSD 14 64bit
arcfide · Mar 5, 2024 · 79928de · 79928de
2 parents 6bc86fe + cdf2d3c
commit 79928de
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/%3a98/os-environment-variables.chezscheme.sls b/%3a98/os-environment-variables.chezscheme.sls
@@ -123,5 +123,12 @@
            (if (= ptr-to-ptr 0)
                0
                (foreign-ref 'void* ptr-to-ptr 0))))]
+      [(ta6fb a6fb)
+        (load-shared-object "libc.so.7")
+        (lambda ()
+          (let ([ptr-to-ptr (foreign-entry "environ")])
+            (if (= ptr-to-ptr 0)
+              0
+              (foreign-ref 'void* ptr-to-ptr 0))))]
       [else (error 'get-environment-variables
                    "currently unsupoorted on ~s" (machine-type))])))