mirror of https://notabug.org/mthl/cuirass.git
evaluate: Use 'read' instead of 'eval-string'.
parent
fba9b37dc9
commit
219a8d5b40
|
@ -87,7 +87,7 @@ if required."
|
||||||
(assq-ref spec #:name) "/"
|
(assq-ref spec #:name) "/"
|
||||||
(assq-ref spec #:load-path))
|
(assq-ref spec #:load-path))
|
||||||
(%package-cachedir)
|
(%package-cachedir)
|
||||||
(string-append "'" (object->string spec))))
|
(object->string spec)))
|
||||||
(jobs (read port)))
|
(jobs (read port)))
|
||||||
(close-pipe port)
|
(close-pipe port)
|
||||||
;; Keep track of SPEC id in the returned jobs.
|
;; Keep track of SPEC id in the returned jobs.
|
||||||
|
|
|
@ -60,8 +60,8 @@ value."
|
||||||
(match args
|
(match args
|
||||||
((command load-path cachedir specstr)
|
((command load-path cachedir specstr)
|
||||||
;; Load FILE, a Scheme file that defines Hydra jobs.
|
;; Load FILE, a Scheme file that defines Hydra jobs.
|
||||||
(let* ((%user-module (make-fresh-user-module))
|
(let ((%user-module (make-fresh-user-module))
|
||||||
(spec (eval-string specstr %user-module))
|
(spec (with-input-from-string specstr read))
|
||||||
(stdout (current-output-port))
|
(stdout (current-output-port))
|
||||||
(stderr (current-error-port)))
|
(stderr (current-error-port)))
|
||||||
(save-module-excursion
|
(save-module-excursion
|
||||||
|
|
Loading…
Reference in New Issue