mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

Slight (system base compile) refactor

Browse source 
* module/system/base/compile.scm (call-once): Use when instead of if.
This commit is contained in:
Andy Wingo 2020-05-07 21:22:26 +02:00
parent f38735ffc6
commit cdb9030f45
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/base/compile.scm
View file

@ -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))))