diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-05 23:51:50 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-05 23:51:50 +0200 |
commit | 1bc8f0c31fd94b3936fc13ed325ecd8308d73f87 (patch) | |
tree | c9217c0daf92743b903685dd19eda1288c6ad9e6 /module/util.scm | |
parent | HTML output seems to work in full now. (diff) | |
download | calp-1bc8f0c31fd94b3936fc13ed325ecd8308d73f87.tar.gz calp-1bc8f0c31fd94b3936fc13ed325ecd8308d73f87.tar.xz |
Fix day-stream, and in effect terminal output.
Diffstat (limited to 'module/util.scm')
-rw-r--r-- | module/util.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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) |