~bouncepaw/agidel-syntrans

7a09c721273f790d93a4d343f525b95f055fc8ef — Timur Ismagilov 5 years ago f5fe906
Make syntranses add `/agidel` instead of `/agidel/`

That extra slash is included in Agidel macros' original names now
2 files changed, 3 insertions(+), 3 deletions(-)

M prepare.scm
M run.scm
M prepare.scm => prepare.scm +1 -1
@@ 52,7 52,7 @@
   (cond
    ((list? expr)
     (let* ((name-of-λ   (string->symbol (car expr)))
            (name-of-λ*  (symbol-append '/agidel/ name-of-λ))
            (name-of-λ*  (symbol-append '/agidel name-of-λ))
            (args        (cdr expr))
            (parser      (make-parser name-of-λ))
            (parsed-args (apply parser args)))

M run.scm => run.scm +2 -2
@@ 14,10 14,10 @@
 ;; `source-tree` is a LIST, not a STRING!
 ;; This functions outputs a string though.
 (define (main source-tree plugins)
   ;; Import all plugins, prefixing Agidel macros from them with '/agidel/.
   ;; Import all plugins, prefixing Agidel macros from them with '/agidel.
   (->> plugins
        (map (lambda (p)
               `(prefix ,(symbol-append 'agidel-plugin. p) /agidel/)))
               `(prefix ,(symbol-append 'agidel-plugin. p) /agidel)))
        (cons 'import)
        eval)
   ;; Eval it, convert to string.