diff options
author | Andy Wingo <wingo@pobox.com> | 2020-05-07 21:22:26 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-05-07 21:22:26 +0200 |
commit | cdb9030f45cf75e23c3f5c8c19aa7fa5e73868e4 (patch) | |
tree | 330b2fc0ed3b922fa07f9be1a02fd65c27292303 /module/system/base | |
parent | f38735ffc63a3c7c51529b2ea963fb7fb665b2aa (diff) | |
download | guile-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.scm | 4 |
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)))) |