From 49dee0bd3d9977a5c1d10cb74ffe0eebd31c220b Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Fri, 5 Jan 2024 03:08:48 +0100 Subject: Fix "-r" CLI switch for reversing points order. --- make-points.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'make-points.scm') 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 (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)) -- cgit v1.2.3