[Guile-commits] 03/10: Slight (system base compile) refactor

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit cdb9030f45cf75e23c3f5c8c19aa7fa5e73868e4
Author: Andy Wingo <address@hidden>
AuthorDate: Thu May 7 21:22:26 2020 +0200

    Slight (system base compile) refactor
    
    * module/system/base/compile.scm (call-once): Use when instead of if.
---
 module/system/base/compile.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 5929cb5..ea73cc5 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))))