From 1bc8f0c31fd94b3936fc13ed325ecd8308d73f87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 5 Oct 2019 23:51:50 +0200
Subject: Fix day-stream, and in effect terminal output.

---
 module/util.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 6aadbc79..707cba90 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -363,6 +363,9 @@
      (-> (func obj) rest ...)]))
 
 
+;; Non-destructive set, syntax extension from set-fields from (srfi
+;; srfi-9 gnu). Also doubles as a non-destructive mod!, if the `='
+;; operator is used.
 (define-syntax set
   (syntax-rules (=)
     [(set (acc obj)  value)
-- 
cgit v1.2.3