eval: Use 'identity' instead of 'values'.

* gash/eval.scm (exps->thunk): Use 'identity' instead of 'values'.
This commit is contained in:
Timothy Sample 2023-02-08 11:49:36 -06:00
parent 864e51250b
commit 3b14c5cb2d
1 changed files with 1 additions and 1 deletions

View File

@ -163,7 +163,7 @@ and arithmetic substitions."
;; XXX: It probably makes more sense to exclude '#f' expressions at
;; the syntax level. For now, we filter them out here.
(if exps
(match (filter values exps)
(match (filter identity exps)
(() noop)
(exps (lambda () (eval-sh `(<sh-begin> ,@exps)))))
(lambda () (set-status! 0))))