mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +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)) (let ((entered #f))
(dynamic-wind (dynamic-wind
(lambda () (lambda ()
(if entered (when entered
(error "thunk may only be entered once: ~a" thunk)) (error "thunk may only be entered once: ~a" thunk))
(set! entered #t)) (set! entered #t))
thunk thunk
(lambda () #t)))) (lambda () #t))))