diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-23 21:55:41 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:41 +0200 |
| commit | 219a8d5b40fbfb886126154118c2e1536f7f13d9 (patch) | |
| tree | 76f07c78a9f9e36980ee55b116a2728c77176770 /bin/evaluate.in | |
| parent | fba9b37dc9943a9e2b5b650be031c0c0243e621c (diff) | |
| download | cuirass-219a8d5b40fbfb886126154118c2e1536f7f13d9.tar cuirass-219a8d5b40fbfb886126154118c2e1536f7f13d9.tar.gz | |
evaluate: Use 'read' instead of 'eval-string'.
Diffstat (limited to 'bin/evaluate.in')
| -rw-r--r-- | bin/evaluate.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index ed9e94b..6998767 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -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) |