~bouncepaw/agidel-syntrans

d654518555a7842e9f979dc396cca7747acd41de — Timur Ismagilov 5 years ago 4cf2a74
Restructure `main` @ `prepare`
1 files changed, 7 insertions(+), 7 deletions(-)

M prepare.scm
M prepare.scm => prepare.scm +7 -7
@@ 82,10 82,10 @@
   signature-parser)


  (define (main source-string plugin-list)
    (set! signatures (plugin/arities plugin-list))
    (-> source-string
        core/parse-string
        (->> (map aeval)
             (map (lambda (x) (format "~S" x))))
        (as-> x (string-join x "\n" 'suffix)))))
 (define (main source-string plugin-list)
   (set! signatures (plugin/signatures plugin-list))
   (-> source-string
       core/parse-string
       (as-> x (map aeval x))
       (as-> x (map (lambda (e) (format "~S" e)) x))
       (as-> x (string-join x "\n" 'suffix)))))