Work around missing case expressions

* geesh/eval.scm (exps->thunk): Filter out '#f' expressions.
2018-12-05 00:41:51 -05:00 · 2018-12-05 00:41:51 -05:00 · 2db92dd274
parent 9fd1eb9edf
commit 2db92dd274
1 changed files with 7 additions and 1 deletions
--- a/geesh/eval.scm
+++ b/geesh/eval.scm
@ -55,7 +55,13 @@
  (lambda () (eval-sh exp)))

 (define (exps->thunk exps)
-  (lambda () (eval-sh `(<sh-begin> ,@exps))))
+  ;; 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)
+        (() noop)
+        (exps (lambda () (eval-sh `(<sh-begin> ,@exps)))))
+      noop))

 (define (eval-sh exp)
  "Evaluate the Shell expression @var{exp}."