shithub: fnt

Info  •  Files  •  Log  •  Branches

remove needless noise in autoparse

--- a/otf.rkt

+++ b/otf.rkt

@@ -80,8 +80,8 @@

   (λ (b [index 0])

     (letrec ([f (λ (index shift)

                   (let* ([x (- shift 8)] [next (if (positive? x) (~a " | " (f (add1 index) x)) "")])

-                    (~a "(" ctype ")" b "[" index "]<<" x next)))])

-      (~a "(" (f index bits) ")"))))

+                    (~a (if (> x 24) (~a "(" ctype ")") "") b "[" index "]" (if (positive? x) (~a "<<" x) "") next)))])

+      (~a (if (<= bits 32) (~a "(" ctype ")") "") "(" (f index bits) ")"))))

 (define-syntax mktype

   (syntax-rules ()