From 931f4d8aa473ad4b84a26a43a50efee7580498db Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Wed, 7 Dec 2022 17:53:50 +0300 Subject: [PATCH] Fix signals sorting (put clock on the top) --- _web_server/server/playground-server.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm index fc07686..2fe175a 100755 --- a/_web_server/server/playground-server.scm +++ b/_web_server/server/playground-server.scm @@ -343,19 +343,18 @@ (let ((tstart (apply min (vcd-timestamps vcd))) (tend (apply max (vcd-timestamps vcd))) (signals (sort - (remove - (lambda (sig) (< (length (vcd-signal-scope sig)) 2)) - (vcd-signals vcd)) + (vcd-signals vcd) (lambda (a b) - (or - (and (equal? (vcd-signal-name a) "clock") - (not (equal? (vcd-signal-name b) "clock"))) + (and (not (equal? (vcd-signal-name b) "clock")) + (or + (and (equal? (vcd-signal-name a) "clock") + (not (equal? (vcd-signal-name b) "clock"))) - (< (length (vcd-signal-scope a)) - (length (vcd-signal-scope b))) + (< (length (vcd-signal-scope a)) + (length (vcd-signal-scope b))) - (string-ci