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