diff options
Diffstat (limited to 'module/system/base/compile.scm')
-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)))) |