From 8bdbe5bfa71c52d6ee40410f6f4f1d75e4e2ccb0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 12 Jun 2017 21:19:08 -0700
Subject: Sort groups by symbol in protsym.c.

* genprotsym.txr: Sort groups so that the protsym.c
deltas, going forward, are more stable.
---
 genprotsym.txr | 1 +
 1 file changed, 1 insertion(+)

diff --git a/genprotsym.txr b/genprotsym.txr
index fefff0cc..3ba70b3a 100644
--- a/genprotsym.txr
+++ b/genprotsym.txr
@@ -42,6 +42,7 @@ val @(coll)@{sym /[A-Za-z0-9_]+_[sk]/}@/[,;]/@\
 @(bind pp-groups @[group-by pp-syms-of-sym sym])
 @(bind gsym @[mapcar (opip sort (tuples 5)) (hash-values pp-groups)])
 @(bind gpp @(hash-keys pp-groups))
+@(set (gpp gsym) @(multi-sort (list gpp gsym) [list less]))
 @(output "protsym.c")
 /* This file is generated by genprotsym.txr */
 
-- 
cgit v1.2.3