@ -13,6 +13,9 @@
(define host
(make-parameter #f))
(define hostname
(define user
@ -37,7 +40,8 @@
(define-syntax-rule
(with-host remote expr ...)
(parameterize
([host remote])
([host remote]
[hostname (remote-host remote)])
(begin expr ...)))