Megatest

Diff
Login

Differences From Artifact [c38be56026]:

To Artifact [b942cb1fca]:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

















1
2
3
4
5
6
7
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-







(module serialize-envmod
   *
(import scheme
	z3
	base64
	chicken.port
	chicken.pretty-print
	chicken.process-context
	chicken.base
	)

(define (gen-output)
(let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
       (zipped-env-str (z3:encode-buffer env-str))
       (b64-env-str    (base64-encode zipped-env-str)))
  (print b64-env-str))
)

(module serialize-envmod
   *
(import scheme
	z3
	base64
	chicken.port
32
33
34
35
36
37
38
39
40
41
15
16
17
18
19
20
21
22










-
-
       (zipped-env-str (z3:encode-buffer env-str))
       (b64-env-str    (base64-encode zipped-env-str)))
  (print b64-env-str))
)

(gen-output)

)

)