diff options
| author | mryouse | 2022-07-14 22:21:31 +0000 |
|---|---|---|
| committer | mryouse | 2022-07-14 22:21:31 +0000 |
| commit | dd4ecaecd34f180e6db3aada0891a53a3f739e98 (patch) | |
| tree | c50470c5bcc12d9b6af03ea2eaefc8acc35e910f | |
| parent | 2154c4fd811c5669c217593250476dda860aac36 (diff) | |
bugfix: fields were reversed
| -rw-r--r-- | libs/fstring.neb | 10 |
1 files changed, 5 insertions, 5 deletions
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))) |