make get-environment-variables and get-environment-variable to wo…

…rk in the browser #284
jcubic · Jan 22, 2024 · ef65875 · ef65875
1 parent fa4a4dd
commit ef65875
Show file tree

Hide file tree

Showing 6 changed files with 19 additions and 15 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,4 +1,6 @@
 ## 1.0.0-beta.19
+### Breaking
+* `get-environment-variables` and `get-environment-variable` returns nil and undefined in the browser
 ### Features
 * add `vector-for-each` and `vector-copy!` function from R7RS
 * add `string-for-each`, `string-downcase`, and `string-upcase` from R7RS

diff --git a/README.md b/README.md
@@ -5,7 +5,7 @@
 </h1>
 
 [![X (formerly Twitter) Follow](https://img.shields.io/twitter/follow/lips_lang)](https://twitter.com/lips_lang)
-[![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.18-blue.svg)](https://www.npmjs.com/package/@jcubic/lips)
+[![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.18.1-blue.svg)](https://www.npmjs.com/package/@jcubic/lips)
 ![1.0.0 Complete](https://img.shields.io/github/milestones/progress-percent/jcubic/lips/1?label=1.0.0%20Complete)
 [![Build and test](https://github.com/jcubic/lips/actions/workflows/build.yaml/badge.svg?branch=devel&event=push)](https://github.com/jcubic/lips/actions/workflows/build.yaml)
 [![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&7951433cc9ff158c3701ffea07e0f004)](https://coveralls.io/github/jcubic/lips?branch=devel)

diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/R7RS.scm b/lib/R7RS.scm
@@ -1790,19 +1790,20 @@
 (define (get-environment-variables)
   "(get-environment-variables)
 
-   Returns all process environment variables as an alist. This function throws exception
-   when called in browser."
+   Returns all process environment variables as an alist. This function returns
+   an empty list when called in the browser."
   (if (eq? self window)
-      (throw "get-environment-variables: Node.js only function")
+      nil
       (object->alist process.env)))
 
 ;; -----------------------------------------------------------------------------
 (define (get-environment-variable name)
   "(get-environment-variable name)
 
-   Returns given environment variable. This function throws exception
-   when called in browser."
-  (. process.env name))
+   Returns given environment variable. This function returns undefined
+   when called in the browser."
+  (if (not (eq? self window))
+      (. process.env name)))
 
 ;; -----------------------------------------------------------------------------
 (define (current-second)