format shell vars, fix bug

bolt.rkt

@@ -2,6 +2,7 @@
 
 (require remote-shell/ssh)
 (require "directory.rkt")
+(require "shell_env.rkt")
 
 (define (strip-first-line st)
   (string-join
@@ -101,4 +102,4 @@
 (define pwd (make-cmd "pwd"))
 
 (provide
-  (all-defined-out) remote compress)
+  (all-defined-out) remote compress shell-env set-vars format-vars)

shell_env.rkt

@@ -8,7 +8,7 @@
   (define h2-vs  (hash->list h2))
   (make-hash (append h1-vs h2-vs)))
 
-(define (merge-hashes . hs ...)
+(define (merge-hashes . hs)
   (foldl merge-hash #hash() hs))
 
 (define (set-vars vars)
@@ -17,3 +17,16 @@
     (list
       (shell-env)
       (make-hash vars))))
+
+(define (format-vars)
+  (string-join
+    (hash-map
+      (shell-env)
+      (lambda (k v)
+        (format "~a=~a" k v)))))
+
+(provide
+  shell-env
+  merge-hashes
+  set-vars
+  format-vars)