~bouncepaw/agidel

76016fd9606167c18b245ba6b9493a5642b167a0 — Timur Ismagilov 5 years ago adeacda
Use new version of Agidel/sh in agidel.lisp
1 files changed, 7 insertions(+), 8 deletions(-)

M agidel.lisp
M agidel.lisp => agidel.lisp +7 -8
@@ 1,19 1,18 @@
(shebang!)
(set 'import_statement
(set import_statement
     "(import (prefix (only scheme define string-append display)
                      AGIDEL/)
              (only scheme quote)")
(for-each-cli-arg
 'plugin
 (set 'import_statement '+ "(agidel-plugin $plugin)"))
(set 'import_statement '+ ")")
['csi '$csi_args
      '-batch '-quiet '-eval
      "(begin
 plugin
 (set import_statement + "(agidel-plugin $plugin)"))
(set import_statement + ")")
[csi -batch -quiet -eval
     "(begin
        (module agidel_temp (main)
                $import_statement
                (AGIDEL/define (main)
                   (AGIDEL/display (AGIDEL/string-append $(cat /dev/stdin)))))
        (import agidel_temp)
        (main))"]
['echo]
[echo]