1. Christian Kellermann
  2. doodle

Commits

Christian Kellermann  committed bf669dc

Fix mismatched parentheses in text procedure

  • Participants
  • Parent commits cb94c4f
  • Branches master

Comments (0)

Files changed (1)

File doodle.scm

View file
  • Ignore whitespace
                 (let ((fx (case align
                             ((#:center) (- x (/ w 2)))
                             ((#:left) x)
-                            ((#:right (- x w)))
+                            ((#:right) (- x w))
                             (else x)))
                       (fy y))
                   (apply cairo-set-source-rgba `(,*c* ,@(font-color)))