From cdb9030f45cf75e23c3f5c8c19aa7fa5e73868e4 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 7 May 2020 21:22:26 +0200
Subject: [PATCH] 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 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))))