diff options
| author | Wojtek Kosior <koszko@koszko.org> | 2024-01-05 03:08:48 +0100 |
|---|---|---|
| committer | Wojtek Kosior <koszko@koszko.org> | 2024-01-05 03:08:48 +0100 |
| commit | 49dee0bd3d9977a5c1d10cb74ffe0eebd31c220b (patch) | |
| tree | 08756780f798c044d5e041e1a4595d3d17d04f0b /make-points.scm | |
| parent | 5d6730edaf8dd5820837ab698d74c265c309d8a6 (diff) | |
| download | connect-the-dots-49dee0bd3d9977a5c1d10cb74ffe0eebd31c220b.tar.gz connect-the-dots-49dee0bd3d9977a5c1d10cb74ffe0eebd31c220b.zip | |
Fix "-r" CLI switch for reversing points order.
Diffstat (limited to 'make-points.scm')
| -rwxr-xr-x | make-points.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/make-points.scm b/make-points.scm index 56c711f..abbdaba 100755 --- a/make-points.scm +++ b/make-points.scm @@ -133,7 +133,9 @@ Copyright (C) 2023 Wojtek Kosior <koszko@koszko.org> (loop position* command (cons position* path-points) rest)))))) (define point-coords - (parse-path point-coords-text)) + ((if (option-ref %options 'reverse-order #f) + reverse identity) + (parse-path point-coords-text))) (define points-count (length point-coords)) |