summaryrefslogtreecommitdiff
path: root/module/system/base
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-05-07 21:22:26 +0200
committerAndy Wingo <wingo@pobox.com>2020-05-07 21:22:26 +0200
commitcdb9030f45cf75e23c3f5c8c19aa7fa5e73868e4 (patch)
tree330b2fc0ed3b922fa07f9be1a02fd65c27292303 /module/system/base
parentf38735ffc63a3c7c51529b2ea963fb7fb665b2aa (diff)
downloadguile-cdb9030f45cf75e23c3f5c8c19aa7fa5e73868e4.tar.gz
Slight (system base compile) refactor
* module/system/base/compile.scm (call-once): Use when instead of if.
Diffstat (limited to 'module/system/base')
-rw-r--r--module/system/base/compile.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 5929cb532..ea73cc52b 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -37,8 +37,8 @@
(let ((entered #f))
(dynamic-wind
(lambda ()
- (if entered
- (error "thunk may only be entered once: ~a" thunk))
+ (when entered
+ (error "thunk may only be entered once: ~a" thunk))
(set! entered #t))
thunk
(lambda () #t))))