1 files changed, 2 insertions(+), 0 deletions(-)

M flatten.scm
M flatten.scm +2 -0
@@ 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 '()))