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. descriptor, if one exists, and increments its revealed count.
Otherwise, returns a new output port with a revealed count of 1. 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] ** primitive-exit [STATUS]
Terminates the current process without unwinding the Scheme stack. Terminates the current process without unwinding the Scheme stack.
This would usually be used after a fork. 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> Sat Jul 26 21:30:10 1997 Marius Vollmer <mvo@zagadka.ping.de>
* boot-9.scm (with-fluids): New macro to go with the * 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)) (set-port-revealed! port (+ (port-revealed port) 1))
(fileno port)) (fileno port))
(define (setenv name value)
(if value
(putenv (string-append name "=" value))
(putenv name)))
;;; {Load Paths} ;;; {Load Paths}
;;; ;;;