Artifact
58bebc500b27b05e4fa916138324b8578585a744:
0000: 28 6c 69 62 72 61 72 79 20 28 73 72 66 69 20 73 (library (srfi s
0010: 39 38 20 6f 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 98 os-environmen
0020: 74 2d 76 61 72 69 61 62 6c 65 73 29 0a 20 20 28 t-variables). (
0030: 65 78 70 6f 72 74 0a 20 20 20 20 28 72 65 6e 61 export. (rena
0040: 6d 65 20 28 6c 6f 6f 6b 75 70 2d 70 72 6f 63 65 me (lookup-proce
0050: 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 67 ss-environment g
0060: 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 76 et-environment-v
0070: 61 72 69 61 62 6c 65 29 0a 20 20 20 20 20 20 20 ariable).
0080: 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 65 6e (process-en
0090: 76 69 72 6f 6e 6d 65 6e 74 2d 3e 61 6c 69 73 74 vironment->alist
00a0: 20 67 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 get-environment
00b0: 2d 76 61 72 69 61 62 6c 65 73 29 29 29 0a 20 20 -variables))).
00c0: 28 69 6d 70 6f 72 74 0a 20 20 20 20 28 6f 6e 6c (import. (onl
00d0: 79 20 28 63 6f 72 65 29 20 6c 6f 6f 6b 75 70 2d y (core) lookup-
00e0: 70 72 6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d process-environm
00f0: 65 6e 74 20 70 72 6f 63 65 73 73 2d 65 6e 76 69 ent process-envi
0100: 72 6f 6e 6d 65 6e 74 2d 3e 61 6c 69 73 74 29 29 ronment->alist))
0110: 29 0a ).