(unsetenv): New, for completeness.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 36fc114..7dfa381 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -599,6 +599,10 @@
       (putenv (string-append name "=" value))
       (putenv name)))
 
+(define (unsetenv name)
+  "Remove the entry for NAME from the environment."
+  (putenv name))
+
 \f
 ;;; {Load Paths}
 ;;;