PasteRack.org | ||
Paste # 28946 | ||
2017-11-23 10:24:47 | ||
Fork as a new paste. | ||
Paste viewed 81 times. | ||
Tweet | ||
Embed: | ||
=>
#<procedure:>>
'(begin
(define id
(make-parameter
#f
(lambda (a) (and (string-environment-variable-name? a) a))))
(define serc
(make-parameter
#f
(lambda (a) (and (string-environment-variable-name? a) a))))
(define dst
(make-parameter
#f
(lambda (a) (and (string-environment-variable-name? a) a)))))
'(begin
(define id
(make-parameter
#f
(lambda (a) (and (string-environment-variable-name? a) a))))
(define serc
(make-parameter
#f
(lambda (a) (and (string-environment-variable-name? a) a))))
(define dst
(make-parameter
#f
(lambda (a) (and (string-environment-variable-name? a) a)))))