~bouncepaw/agidel-syntrans

b84cd774ec2975d37e7726b47bbce6aa9be4a9d7 — Timur Ismagilov 5 years ago 3e26dfb
Fix smth
1 files changed, 2 insertions(+), 2 deletions(-)

M prepare.scm
M prepare.scm => prepare.scm +2 -2
@@ 60,10 60,10 @@
     (lambda args
       (let* ((normal-part-length (length+ args))
              (normal-part-signature
               (map q/e->λ (take args normal-part-length)))
               (map q/e->λ (take signature normal-part-length)))
              (normal-part (take args normal-part-length))
              (rest-part-q/e
               (q/e->λ (drop args normal-part-length)))
               (q/e->λ (drop signature normal-part-length)))
              (rest-part (drop args normal-part-length)))
         (append (map eval (zip normal-part-signature normal-part))
                 (map rest-part-q/e rest-part)))))