# HG changeset patch
# User Linus Björnstam <linus.internet@fastmail.se>
# Date 1627848890 -7200
#      Sun Aug 01 22:14:50 2021 +0200
# Node ID 9b8ab7555fd62ad7db2fc134c3bb191bad621439
# Parent  ba78713c0aa35f76d6cd7fa110bb7fe9302a225b
Commented flatten.

diff --git a/flatten.scm b/flatten.scm
--- a/flatten.scm
+++ b/flatten.scm
@@ -1,4 +1,6 @@
 ;; Public domain code. Or CC0 if your jurisdiction doesn't have the notion of PD.
+;;
+;; This code flattens a list. It is effective, but also accepts improper lists.
 
 (define (flatten lst)
   (let loop ((lst lst) (acc '()))