mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

* boot-9.scm (setenv): new procedure, scsh compatible.

Browse source
This commit is contained in:
Gary Houston 1997-07-26 20:37:05 +00:00
parent b3460a507a
commit 956055a9d6
4 changed files with 329 additions and 224 deletions
Download patch file Download diff file Expand all files Collapse all files

5
NEWS
View file

@ -99,6 +99,11 @@ Returns an existing output port which has FDES as its underlying file
descriptor, if one exists, and increments its revealed count.
Otherwise, returns a new output port with a revealed count of 1.
** setenv [NAME] [VALUE]
If VALUE is `#f', removes NAME from the environment. Otherwise
adds the string NAME=VALUE to the environment, replacing any previous
value for NAME.
** primitive-exit [STATUS]
Terminates the current process without unwinding the Scheme stack.
This would usually be used after a fork.

539
configure vendored
View file

File diff suppressed because it is too large Load diff

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
Sat Jul 26 08:00:42 1997 Gary Houston <ghouston@actrix.gen.nz>
* boot-9.scm (setenv): new procedure, scsh compatible.
Sat Jul 26 21:30:10 1997 Marius Vollmer <mvo@zagadka.ping.de>
* boot-9.scm (with-fluids): New macro to go with the

5
ice-9/boot-9.scm
View file

@ -839,6 +839,11 @@
(set-port-revealed! port (+ (port-revealed port) 1))
(fileno port))
(define (setenv name value)
(if value
(putenv (string-append name "=" value))
(putenv name)))
;;; {Load Paths}
;;;