From dd4ecaecd34f180e6db3aada0891a53a3f739e98 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Thu, 14 Jul 2022 22:21:31 +0000
Subject: bugfix: fields were reversed

---
 libs/fstring.neb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'libs')

diff --git a/libs/fstring.neb b/libs/fstring.neb
index 82a3d2c..570d6bf 100644
--- a/libs/fstring.neb
+++ b/libs/fstring.neb
@@ -36,17 +36,17 @@
                         (list "<" (string->int cur))))
                 (branch
                     ((>= (length val) (last align-width))
-                        (list val (rest-char str)))
+                        (list (rest-char str) val))
                     ((eq? "<" (first align-width))  ; align left
-                        (list (concat val (repeat (- (last align-width) (length val)))) (rest-char str)))
+                        (list (rest-char str) (concat val (repeat (- (last align-width) (length val))))))
                     ((eq? ">" (first align-width))  ; align right
-                        (list (concat (repeat (- (last align-width) (length val))) val) (rest-char str)))
+                        (list (rest-char str) (concat (repeat (- (last align-width) (length val))) val)))
                     (#true  ; align center
                         (block
                             (def half (/ (- (last align-width) (length val)) 2))
                             (if (int? half)
-                                (list (concat (repeat half) val (repeat half)) (rest-char str))
-                                (list (concat (repeat (floor half)) val (repeat (+ 1 (floor half)))) (rest-char str)))))))
+                                (list (rest-char str) (concat (repeat half) val (repeat half)))
+                                (list (rest-char str) (concat (repeat (floor half)) val (repeat (+ 1 (floor half))))))))))
 
             (special-parse (rest-char str) (concat cur (first-char str)) val)))
 
-- 
cgit v1.2.3