Add function call semantics

* geesh/shell.scm (exec-let): Find and use functions when appropriate.
2018-11-08 22:18:32 -05:00 · 2018-11-08 22:18:32 -05:00 · 93a5cba568
parent 58f5644d2a
commit 93a5cba568
1 changed files with 5 additions and 1 deletions
--- a/geesh/shell.scm
+++ b/geesh/shell.scm
@ -97,7 +97,11 @@ it cannot be found, return @code{#f}."
                             bindings)
                   (let ((exit-val (apply proc env args)))
                     (set-environment-status! env exit-val))))
-          ;; TODO: Functions.
+          (and=> (environment-function-ref env name)
+                 (lambda (proc)
+                   (with-environment-arguments env args
+                     (lambda ()
+                       (apply proc env args)))))
          (and=> (search-built-ins name)
                 (lambda (proc)
                   ;; TODO: Use 'bindings' here.