From 2876e0b6dda45b41e1f8d88b748b30fe3c69e971 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 5 Apr 2019 18:15:05 +0200 Subject: Add extra case to let*. --- module/util.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'module/util.scm') 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) -- cgit v1.2.3