From 3df4030bf821ef33539594c4e3685aa0ce477472 Mon Sep 17 00:00:00 2001
From: "Sven M. Hallberg" <pesco@khjk.org>
Date: Wed, 23 Jan 2013 19:10:36 +0100
Subject: [PATCH] cosmetics

---
 examples/glue.h | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/examples/glue.h b/examples/glue.h
index 5716197b..d428e06d 100644
--- a/examples/glue.h
+++ b/examples/glue.h
@@ -50,12 +50,12 @@ const HParsedToken *h_act_flatten(const HParseResult *p);
 // Token constructors...
 
 HParsedToken *h_make(HArena *arena, HTokenType type, void *value);
-HParsedToken *h_make_seq(HArena *arena);
+HParsedToken *h_make_seq(HArena *arena);  // Makes empty sequence.
 
 // Standard short-hand to make a user-type token.
 #define H_MAKE(TYP, VAL) h_make(p->arena, TT_ ## TYP, VAL)
 
-// Sequences...
+// Sequence access...
 
 // Access a sequence element by index.
 HParsedToken *h_seq_index_token(const HParsedToken *p, size_t i);
@@ -67,6 +67,12 @@ HParsedToken *h_seq_index_token(const HParsedToken *p, size_t i);
 // Standard short-hand to access a user-type field on a sequence token.
 #define H_FIELD(TYP, IDX)  H_SEQ_INDEX(TYP, p->ast, IDX)
 
+// Lower-level helper for H_SEQ_INDEX.
+void *h_seq_index(HTokenType type, const HParsedToken *p, size_t i);
+HParsedToken *h_carray_index(const HCountedArray *a, size_t i); // XXX -> internal
+
+// Sequence modification...
+
 // Append elements to a sequence.
 void h_seq_snoc(HParsedToken *xs, const HParsedToken *x);     // append one
 void h_seq_append(HParsedToken *xs, const HParsedToken *ys);  // append many
@@ -74,9 +80,5 @@ void h_seq_append(HParsedToken *xs, const HParsedToken *ys);  // append many
 // Flatten nested sequences into one.
 const HParsedToken *h_seq_flatten(HArena *arena, const HParsedToken *p);
 
-// Helpers for implementing H_SEQ_INDEX.
-void *h_seq_index(HTokenType type, const HParsedToken *p, size_t i); // XXX helper
-HParsedToken *h_carray_index(const HCountedArray *a, size_t i); // XXX -> internal
-
 
 #endif
-- 
GitLab