1 files changed, 5 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm
index bf7d746d..1a7c5471 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -123,6 +123,11 @@
        (lambda (k k* ...)
          (let* (rest ...)
            body ...)))]
+
+    ;; Declare variable without a value (actuall #f).
+    ;; Useful for inner mutation.
+    [(_ (v rest ...) body ...)
+     (let* ((v #f) rest ...) body ...)]
     ))
 
 (define (improper->proper-list lst len)