Christopher Baines <[email protected]> skribis:

> +             (environment (fold (lambda (name alist)
> +                                  (let ((value (getenv name)))
> +                                    (if value
> +                                        (cons (cons name value) alist)
> +                                        alist)))
> +                                '()
> +                                ;; Pass through the TERM environment variable
> +                                ;; to inform processes about the capabilities
> +                                ;; of the terminal
> +                                '("TERM"))))

I changed that to ‘filter-map’, which is slightly more concise.

Ludo’.

Reply via email to