Fix bug

Author: pavpanchekha

src/formats/datafile.rkt

@@ -42,7 +42,7 @@
           (ninf . ,inf-)
           (pinf . ,inf+)
           (end-est . ,end-est)
-          (vars . ,(if vars (map ~a vars) #f))
+          (vars . ,(if vars (map symbol->string vars) #f))
           (samplers . ,(if samplers (map ~a samplers) #f))
           (input . ,(~a input))
           (output . ,(~a output))

src/sandbox.rkt

@@ -136,11 +136,11 @@
     (define link (path-element->string (last (explode-path rdir))))
     (define test (test-failure-test result))
     (table-row (test-name test) "crash"
-               #f #f #f #f #f #f (program-variables (test-input test)) (test-sampling-expr test) (test-input test) #f
+               #f #f #f #f #f #f (test-vars test) (test-sampling-expr test) (test-input test) #f
                (test-failure-time result) (test-failure-bits result) link)]
    [(test-timeout? result)
     (define link (path-element->string (last (explode-path rdir))))
     (define test (test-timeout-test result))
     (table-row (test-name (test-timeout-test result)) "timeout"
-               #f #f #f #f #f #f (program-variables (test-input test)) (test-sampling-expr test) (test-input test) #f
+               #f #f #f #f #f #f (test-vars test) (test-sampling-expr test) (test-input test) #f
                (test-timeout-time result) (test-timeout-bits result) link)]))