From 20e65892409946fd40f5ae3412649b0466289fb3a0b8fc7aa876a56ff75656fb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Linus=20Bj=C3=B6rnstam?= Date: Fri, 2 Oct 2026 22:08:16 +0200 Subject: [PATCH] The manual has the new loop clauses, and the example says level MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The manual submodule moves to 1fe22a4: :finish, :abandon, :while, :until and the :subloop form. A :for after a non-:for clause opens a level, which the homepage example now calls it, since a subloop is now the :subloop form. 🤖 Generated with [ECA](https://eca.dev) (anthropic/claude-opus-5-5) Co-Authored-By: eca-agent --- index.sz | 4 ++-- manual | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/index.sz b/index.sz index 8914c7b..d46a875 100644 --- a/index.sz +++ b/index.sz @@ -57,8 +57,8 @@ This sums every line and every char read from stdin. When the port is closed, th (def line-seq (port->seq read-line (deref current-input-port))) (loop (:for line line-seq) (:acc lines (summing 1)) - ;; Any :for after a non-:for clause opens a new subloop - ;; so this loops over ever char in the line. + ;; A :for after a non-:for clause opens a new level, + ;; so this loops over every char in the line. (:for ch line) (:acc chars (summing 1) :when (not (char-whitespace? ch))) => (show [(tabular [["Lines:" nl "Chars:" nl] diff --git a/manual b/manual index d35a116..1fe22a4 160000 --- a/manual +++ b/manual @@ -1 +1 @@ -Subproject commit d35a116b8a550b166f53e250f74c480ec49b1f77969883a7e6af87c24571d150 +Subproject commit 1fe22a4dfdf0b2084d3fb91986a6a98d3109756f43c36e9efba661832bedd14d