Non-deterministic Gash error in ‘gcc-mesboot-4.9.4’

source directory: "/tmp/guix-build-gcc-mesboot-4.9.4.drv-0/gcc-4.9.4" (relative from build: ".")

build directory: "/tmp/guix-build-gcc-mesboot-4.9.4.drv-0/gcc-4.9.4"

configure flags: ("CONFIG_SHELL=/gnu/store/bhmkf29xki04mmydpm0axpbh35md4vfb-gash-boot-0.3.0/bin/bash" "SHELL=/gnu/store/bhmkf29xki04mmydpm0axpbh35md4vfb-gash-boot-0.3.0/bin/bash" "--prefix=/gnu/store/mgbd56zvid129vkk8l9zir7pf46r5038-gcc-mesboot-4.9.4" "--enable-fast-install" "--build=x86_64-unknown-linux-gnu" "--prefix=/gnu/store/mgbd56zvid129vkk8l9zir7pf46r5038-gcc-mesboot-4.9.4" "--build=i686-unknown-linux-gnu" "--host=i686-unknown-linux-gnu" "--with-host-libstdcxx=-lsupc++" "--with-native-system-header-dir=/gnu/store/qxp7icgwbn1hqqwvkan7aljgzfn439zh-glibc-mesboot-2.16.0/include" "--with-build-sysroot=/gnu/store/qxp7icgwbn1hqqwvkan7aljgzfn439zh-glibc-mesboot-2.16.0/include" "--disable-bootstrap" "--disable-decimal-float" "--disable-libatomic" "--disable-libcilkrts" "--disable-libgomp" "--disable-libitm" "--disable-libmudflap" "--disable-libquadmath" "--disable-libsanitizer" "--disable-libssp" "--disable-libvtv" "--disable-lto" "--disable-lto-plugin" "--disable-multilib" "--disable-plugin" "--disable-threads" "--enable-languages=c,c++" "--enable-static" "--enable-shared" "--enable-threads=single" "--disable-libstdcxx-pch" "--disable-build-with-cxx")

Backtrace:

In gash/eval.scm:

221: 19 [eval-sh (<sh-set!> ("ac_useropt" (<sh-cmd-sub> #)))]

In srfi/srfi-1.scm:

642: 18 [for-each #<procedure 1502320 at gash/eval.scm:221:17 (name word)> # #]

In gash/eval.scm:

222: 17 [#<procedure 1502320 at gash/eval.scm:221:17 (name word)> "ac_useropt" #]

131: 16 [eval-word (<sh-cmd-sub> (<sh-pipeline> # #)) #:output string ...]

121: 15 [expand-word (<sh-cmd-sub> (<sh-pipeline> # #)) #:output string ...]

In gash/shell.scm:

289: 14 [sh:substitute-command #<procedure 15022a0 at gash/eval.scm:129:35 ()>]

270: 13 [%subshell #<procedure v ()>]

In ice-9/boot-9.scm:

157: 12 [catch quit #<procedure v ()> ...]

In ice-9/r4rs.scm:

176: 11 [with-output-to-port #<variable 13a02e0 value: #<output: file 39>> ...]

In srfi/srfi-1.scm:

619: 10 [for-each #<procedure eval-sh (exp)> ((<sh-pipeline> # #))]

In gash/shell.scm:

344: 9 [sh:pipeline #<procedure 1506f40 at gash/eval.scm:149:6 ()> ...]

310: 8 [plumb #<input: #{read pipe}# 36> #f ...]

270: 7 [%subshell #<procedure thunk* ()>]

In ice-9/boot-9.scm:

157: 6 [catch quit #<procedure thunk* ()> ...]

In gash/shell.scm:

316: 5 [thunk*]

129: 4 [sh:exec-let () "sed" "s/[-+.]/_/g"]

92: 3 [exec-utility () ...]

In srfi/srfi-1.scm:

616: 2 [for-each #<procedure ec3b20 at gash/shell.scm:70:12 (i)> (0 1 2 ...)]

In ice-9/boot-9.scm:

1473: 1 [dup->port #<input: file 38> "r" 7]

In unknown file:

?: 0 [fdopen 7 "r"]

ERROR: In procedure fdopen:

ERROR: In procedure scm_fdes_to_port: Bad file descriptor

Backtrace:

In gash/eval.scm:

221: 19 [eval-sh (<sh-set!> ("ac_useropt" (<sh-cmd-sub> #)))]

In srfi/srfi-1.scm:

642: 18 [for-each #<procedure 1502320 at gash/eval.scm:221:17 (name word)> # #]

In gash/eval.scm:

222: 17 [#<procedure 1502320 at gash/eval.scm:221:17 (name word)> "ac_useropt" #]

131: 16 [eval-word (<sh-cmd-sub> (<sh-pipeline> # #)) #:output string ...]

121: 15 [expand-word (<sh-cmd-sub> (<sh-pipeline> # #)) #:output string ...]

In gash/shell.scm:

289: 14 [sh:substitute-command #<procedure 15022a0 at gash/eval.scm:129:35 ()>]

270: 13 [%subshell #<procedure v ()>]

In ice-9/boot-9.scm:

157: 12 [catch quit #<procedure v ()> ...]

In ice-9/r4rs.scm:

176: 11 [with-output-to-port #<variable 13a02e0 value: #<output: file 39>> ...]

In srfi/srfi-1.scm:

619: 10 [for-each #<procedure eval-sh (exp)> ((<sh-pipeline> # #))]

In gash/shell.scm:

347: 9 [sh:pipeline #<procedure 1506f40 at gash/eval.scm:149:6 ()> ...]

310: 8 [plumb #f #<output: #{write pipe}# 38> ...]

270: 7 [%subshell #<procedure thunk* ()>]

In ice-9/boot-9.scm:

157: 6 [catch quit #<procedure thunk* ()> ...]

In gash/shell.scm:

316: 5 [thunk*]

129: 4 [sh:exec-let () "printf" "%s\\n" "libsanitizer"]

92: 3 [exec-utility () ...]

In srfi/srfi-1.scm:

616: 2 [for-each #<procedure ec3b20 at gash/shell.scm:70:12 (i)> (0 1 2 ...)]

In ice-9/boot-9.scm:

1473: 1 [dup->port #<input: file 36> "r" 7]

In unknown file:

?: 0 [fdopen 7 "r"]

ERROR: In procedure fdopen:

ERROR: In procedure scm_fdes_to_port: Bad file descriptor

checking build system type... i686-unknown-linux-gnu

checking host system type... i686-unknown-linux-gnu

checking target system type... i686-unknown-linux-gnu

checking for a BSD-compatible install... ./install-sh -c

checking whether ln works... yes

checking whether ln -s works... yes

checking for a sed that does not truncate output... /gnu/store/i61mvrw30k8ng8hxym8s180nydnsbji6-gash-utils-boot-0.2.0/bin/sed

checking for gawk... gawk

checking for libsanitizer support... yes

checking for struct sigaction.sa_sigaction... yes

checking for volatile sig_atomic_t... yes

checking for sighandler_t... yes

checking for sigprocmask... (cached) yes

checking whether sleep is declared... yes

checking for working sleep... yes

checking for socklen_t... Backtrace:

In gash/shell.scm:

129: 19 [sh:exec-let () "ac_fn_c_try_compile" "2817"]

In gash/environment.scm:

215: 18 [save-variables-excursion () ...]

292: 17 [with-arguments # #<procedure 2210f00 at gash/shell.scm:145:25 ()>]

389: 16 [call-with-return #<procedure 2210e40 at gash/shell.scm:147:28 ()>]

In srfi/srfi-1.scm:

619: 15 [for-each #<procedure eval-sh (exp)> ((<sh-begin> # # # ...))]

619: 14 [for-each #<procedure eval-sh (exp)> (# # # # ...)]

In gash/shell.scm:

441: 13 [sh:cond # #]

55: 12 [without-errexit #<procedure 13185e0 at gash/eval.scm:149:6 ()>]

372: 11 [sh:and #<procedure 1318560 at gash/eval.scm:149:6 ()> ...]

55: 10 [without-errexit #<procedure 1318560 at gash/eval.scm:149:6 ()>]

372: 9 [sh:and #<procedure 1318500 at gash/eval.scm:149:6 ()> ...]

55: 8 [without-errexit #<procedure 1318500 at gash/eval.scm:149:6 ()>]

In srfi/srfi-1.scm:

616: 7 [for-each #<procedure eval-sh (exp)> (# # # # ...)]

619: 6 [for-each #<procedure eval-sh (exp)> (# # #)]

In gash/shell.scm:

245: 5 [#<procedure 1f63030 at gash/shell.scm:239:17 ()>]

129: 4 [sh:exec-let () "grep" "-v" "^ *+" "conftest.err"]

92: 3 [exec-utility () ...]

In srfi/srfi-1.scm:

616: 2 [for-each #<procedure ea9a60 at gash/shell.scm:70:12 (i)> (0 1 2 ...)]

In ice-9/boot-9.scm:

1473: 1 [dup->port #<input: file 20> "r" 7]

In unknown file:

?: 0 [fdopen 7 "r"]

ERROR: In procedure fdopen:

ERROR: In procedure scm_fdes_to_port: Bad file descriptor

yes

checking whether symlink handles trailing slash correctly... yes

checking whether <sys/ioctl.h> declares ioctl... yes

checking for unsetenv... yes

checking for unsetenv() return type... int

warning: failed to install locale: Invalid argument

Backtrace:

In gash/environment.scm:

371: 19 [call-with-break #<procedure 2dda9450 at gash/shell.scm:400:6 ()>]

In srfi/srfi-1.scm:

619: 18 [for-each #<procedure 2dda9420 at gash/shell.scm:401:18 (value)> #]

In gash/environment.scm:

353: 17 [call-with-continue #<procedure 2de13460 at gash/eval.scm:158:14 ()>]

In srfi/srfi-1.scm:

616: 16 [for-each #<procedure eval-sh (exp)> (# # #)]

619: 15 [for-each #<procedure eval-sh (exp)> ((<sh-set!> ("ac_optarg" #)))]

In gash/eval.scm:

221: 14 [eval-sh (<sh-set!> ("ac_optarg" (<sh-cmd-sub> #)))]

In srfi/srfi-1.scm:

642: 13 [for-each #<procedure 2da0f5e0 at gash/eval.scm:221:17 (name word)> # #]

In gash/eval.scm:

222: 12 [#<procedure 2da0f5e0 at gash/eval.scm:221:17 (name word)> "ac_optarg" #]

131: 11 [eval-word (<sh-cmd-sub> (<sh-exec> "expr" # ":" ...)) #:output string ...]

121: 10 [expand-word (<sh-cmd-sub> (<sh-exec> "expr" # ...)) #:output ...]

In gash/shell.scm:

289: 9 [sh:substitute-command #<procedure 2da0f560 at gash/eval.scm:129:35 ()>]

270: 8 [%subshell #<procedure v ()>]

In ice-9/boot-9.scm:

157: 7 [catch quit #<procedure v ()> ...]

In ice-9/r4rs.scm:

176: 6 [with-output-to-port #<variable 2de5dc00 value: #<output: file /dev/pts/19>> ...]

In srfi/srfi-1.scm:

619: 5 [for-each #<procedure eval-sh (exp)> ((<sh-exec> "expr" # ":" ...))]

In gash/shell.scm:

129: 4 [sh:exec-let () "expr" ...]

92: 3 [exec-utility () ...]

In srfi/srfi-1.scm:

616: 2 [for-each #<procedure 2d60f0a0 at gash/shell.scm:70:12 (i)> (0 1 2 ...)]

In ice-9/boot-9.scm:

1473: 1 [dup->port #<input: file /dev/pts/19> "r0" 7]

In unknown file:

?: 0 [fdopen 7 "r0"]

ERROR: In procedure fdopen:

ERROR: In procedure scm_fdes_to_port: Bad file descriptor

Backtrace:

In ice-9/boot-9.scm:

157: 17 [catch #t #<catch-closure 25cdf0a0> ...]

In unknown file:

?: 16 [apply-smob/1 #<catch-closure 25cdf0a0>]

In ice-9/boot-9.scm:

63: 15 [call-with-prompt prompt0 ...]

In ice-9/eval.scm:

432: 14 [eval # #]

In ice-9/boot-9.scm:

793: 13 [call-with-input-file "./configure" ...]

In gash/gash.scm:

121: 12 [#<procedure 262f7700 at gash/gash.scm:120:19 (port)> #<input: ./configure 5>]

In gash/repl.scm:

38: 11 [run-repl #<input: ./configure 5> #f]

In gash/environment.scm:

371: 10 [call-with-break #<procedure 26335c00 at gash/shell.scm:400:6 ()>]

In srfi/srfi-1.scm:

616: 9 [for-each #<procedure 26335bd0 at gash/shell.scm:401:18 (value)> #]

In gash/environment.scm:

353: 8 [call-with-continue #<procedure 26315260 at gash/eval.scm:158:14 ()>]

In srfi/srfi-1.scm:

619: 7 [for-each #<procedure eval-sh (exp)> (# # #)]

In gash/shell.scm:

441: 6 [sh:cond #]

55: 5 [without-errexit #<procedure 26861c80 at gash/eval.scm:149:6 ()>]

129: 4 [sh:exec-let () "test" "-n" ""]

92: 3 [exec-utility () ...]

In srfi/srfi-1.scm:

619: 2 [for-each #<procedure 26272b60 at gash/shell.scm:70:12 (i)> (0 1 2 ...)]

In ice-9/boot-9.scm:

1473: 1 [dup->port #<output: file /dev/pts/19> "w0" 6]

In unknown file:

?: 0 [fdopen 6 "w0"]

ERROR: In procedure fdopen:

ERROR: In procedure scm_fdes_to_port: Bad file descriptor

Backtrace:

In ice-9/boot-9.scm:

157: 13 [catch #t #<catch-closure 1879d00> ...]

In unknown file:

?: 12 [apply-smob/1 #<catch-closure 1879d00>]

In ice-9/boot-9.scm:

63: 11 [call-with-prompt prompt0 ...]

In ice-9/eval.scm:

432: 10 [eval # #]

In ice-9/boot-9.scm:

793: 9 [call-with-input-file "./configure" ...]

In gash/gash.scm:

121: 8 [#<procedure 1e905e0 at gash/gash.scm:120:19 (port)> #<input: ./configure 5>]

In gash/repl.scm:

38: 7 [run-repl #<input: ./configure 5> #f]

In gash/shell.scm:

441: 6 [sh:cond #]

55: 5 [without-errexit #<procedure 2192680 at gash/eval.scm:149:6 ()>]

129: 4 [sh:exec-let () "test" "xi686-unknown-linux-gnu" "!=" "x"]

92: 3 [exec-utility () ...]

In srfi/srfi-1.scm:

619: 2 [for-each #<procedure 1e06920 at gash/shell.scm:70:12 (i)> (0 1 2 ...)]

In ice-9/boot-9.scm:

1473: 1 [dup->port #<output: file /dev/pts/19> "w0" 6]

In unknown file:

?: 0 [fdopen 6 "w0"]

ERROR: In procedure fdopen:

ERROR: In procedure scm_fdes_to_port: Bad file descriptor

checking build system type... i686-unknown-linux-gnu

ludo@ribbon /tmp/guix-build-gcc-mesboot-4.9.4.drv-0/gcc-4.9.4$ guix build gash

/gnu/store/mz5swdf35iwplrgdvm4z256py585nxi6-gash-0.3.0

ludo@ribbon /tmp/guix-build-gcc-mesboot-4.9.4.drv-0/gcc-4.9.4$ while /gnu/store/mz5swdf35iwplrgdvm4z256py585nxi6-gash-0.3.0/bin/gash ./configure CONFIG_SHELL=/gnu/store/98bd49rhyia49y0b9d7sk8phsq14g3nk-gash-boot-0.3.0/bin/bash SHELL=/gnu/store/98bd49rhyia49y0b9d7sk8phsq14g3nk-gash-boot-0.3.0/bin/bash --prefix=/gnu/store/awkbdj5j41pv5kiy9ifs0zl40jamwfw4-gcc-mesboot-4.9.4 --enable-fast-install --build=x86_64-unknown-linux-gnu --prefix=/gnu/store/awkbdj5j41pv5kiy9ifs0zl40jamwfw4-gcc-mesboot-4.9.4 --build=i686-unknown-linux-gnu --host=i686-unknown-linux-gnu --with-host-libstdcxx=-lsupc++ --with-native-system-header-dir=/gnu/store/gc91zbacrk6prhvm91cj3x9rr3v2k17q-glibc-mesboot-2.16.0/include --with-build-sysroot=/gnu/store/gc91zbacrk6prhvm91cj3x9rr3v2k17q-glibc-mesboot-2.16.0/include --disable-bootstrap --disable-decimal-float --disable-libatomic --disable-libcilkrts --disable-libgomp --disable-libitm --disable-libmudflap --disable-libquadmath --disable-libsanitizer --disable-libssp --disable-libvtv --disable-lto --disable-lto-plugin --disable-multilib --disable-plugin --disable-threads --enable-languages=c,c++ --enable-static --enable-shared --enable-threads=single --disable-libstdcxx-pch --disable-build-with-cxx ; do : ;done

[…]

Backtrace:

In ice-9/boot-9.scm:

1752:10 18 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

In unknown file:

17 (apply-smob/0 #<thunk 7f8e78d15300>)

In ice-9/boot-9.scm:

724:2 16 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)

In ice-9/eval.scm:

619:8 15 (_ #(#(#<directory (guile-user) 7f8e78d18c80>)))

In ice-9/ports.scm:

433:17 14 (call-with-input-file _ _ #:binary _ #:encoding _ #:guess-encoding _)

In gash/gash.scm:

121:27 13 (_ _)

In gash/repl.scm:

38:14 12 (run-repl _ _)

In gash/environment.scm:

375:8 11 (call-with-break _)

In srfi/srfi-1.scm:

634:9 10 (for-each #<procedure 7f8e75612420 at gash/shell.scm:401:18 (value)> _)

In gash/environment.scm:

357:8 9 (call-with-continue _)

In srfi/srfi-1.scm:

634:9 8 (for-each #<procedure eval-sh (exp)> _)

634:9 7 (for-each #<procedure eval-sh (exp)> _)

In gash/shell.scm:

55:39 6 (sh:and _ #<procedure 7f8e75656da0 at gash/eval.scm:149:6 ()>)

245:24 5 (_)

159:10 4 (sh:exec-let _ "expr" . _)

92:9 3 (exec-utility _ "/run/current-system/profile/bin/expr" "expr" ("xliba…" …))

In srfi/srfi-1.scm:

634:9 2 (for-each #<procedure 7f8e760654c0 at gash/shell.scm:70:12 (i)> _)

In ice-9/ports.scm:

317:17 1 (dup->port _ _ _)

In unknown file:

0 (fdopen 6 "w0")

ERROR: In procedure fdopen:

In procedure scm_fdes_to_port: Bad file descriptor

15837 clone(child_stack=NULL, flags=CLONE_CHILD_CLEARTID|CLONE_CHILD_SETTID|SIGCHLD, child_tidptr=0x7fb10dad7850) = 15838

15838 set_robust_list(0x7fb10dad7860, 24) = 0

15837 wait4(15838, <unfinished ...>

15838 close(3) = 0

15838 close(4) = 0

15838 pipe2([3, 4], O_CLOEXEC) = 0

[...]

15838 clone3({flags=CLONE_VM|CLONE_FS|CLONE_FILES|CLONE_SIGHAND|CLONE_THREAD|CLONE_SYSVSEM|CLONE_SETTLS|CLONE_PARENT_SETTID|CLONE_CHILD_CLEARTID, child_tid=0x7fb10beaa990, parent_tid=0x7fb10beaa990, exit_signal=0, stack=0x7fb10b51b000, stack_size=0x98ef80, tls=0x7fb10beaa6c0} => {parent_tid=[15839]}, 88) = 15839

15839 rseq(0x7fb10beaafe0, 0x20, 0, 0x53053053 <unfinished ...>

15838 rt_sigprocmask(SIG_SETMASK, [], <unfinished ...>

[...]

15838 lseek(2, 0, SEEK_CUR) = -1 ESPIPE (Illegal seek)

15839 close(10) = 0

15839 close(17 <unfinished ...>

15838 dup2(22, 6 <unfinished ...>

15839 <... close resumed>) = 0

15838 <... dup2 resumed>) = 6

15839 close(6 <unfinished ...>

15838 fcntl(6, F_GETFL <unfinished ...>

15839 <... close resumed>) = 0

15838 <... fcntl resumed>) = -1 EBADF (Bad file descriptor)

15839 close(7) = 0

15839 close(18) = 0

15839 close(15) = 0

15839 close(12) = 0

15839 close(9) = 0

15839 close(16) = 0

15838 write(2, "Backtrace:\n", 11) = 11

(define (install-current-ports!)

"Install all current ports into their usual file descriptors. For

example, if @code{current-input-port} is a @code{file-port?}, make the

process file descriptor 0 refer to the file open for

@code{current-input-port}. If any current port is a @code{port?} but

not a @code{file-port?}, its corresponding file descriptor will refer

to @file{/dev/null}."

;; XXX: Input/output ports? Closing other FDs?

(for-each (lambda (i)

(gc) ;to trigger bugs

(let ((current-port (fd->current-port i)))

(match (current-port)

((? file-port? port)

(dup->fdes port i))

(#f #t))))

(iota *fd-count*)))

23647 pipe2([7, 9], O_CLOEXEC) = 0

23647 rt_sigprocmask(SIG_BLOCK, ~[], [], 8) = 0

23647 clone3({flags=CLONE_VM|CLONE_FS|CLONE_FILES|CLONE_SIGHAND|CLONE_THREAD|CLONE_SYSVSEM|CLONE_SETTLS|CLONE_PARENT_SETTID|CLONE_CHILD_CLEARTID, child_tid=0x7f84204b3990, parent_tid=0x7f84204b3990, exit_signal=0, stack=0x7f841fb24000, stack_size=0x98ef80, tls=0x7f84204b36c0} => {parent_tid=[23648]}, 88) = 23648

[…]

23647 write(9, "\0", 1) = 1

23648 <... read resumed>"\0", 1) = 1

23648 rt_sigprocmask(SIG_BLOCK, NULL, [], 8) = 0

23648 read(7, <unfinished ...>

23647 clock_gettime(CLOCK_PROCESS_CPUTIME_ID, {tv_sec=0, tv_nsec=35845839}) = 0

23647 dup2(12, 7) = 7

23647 fcntl(7, F_GETFL) = 0x8002 (flags O_RDWR|O_LARGEFILE)

23647 lseek(7, 0, SEEK_CUR) = -1 ESPIPE (Illegal seek)

23647 dup2(12, 7) = 7

23647 clock_gettime(CLOCK_PROCESS_CPUTIME_ID, {tv_sec=0, tv_nsec=35899320}) = 0

23647 rt_sigprocmask(SIG_BLOCK, NULL, [], 8) = 0

23647 madvise(0x7f842207c000, 12288, MADV_DONTNEED) = 0

23647 write(9, "\0", 1) = 1

23648 <... read resumed>"\0", 1) = 1

23648 rt_sigprocmask(SIG_BLOCK, NULL, [], 8) = 0

23648 read(7, <unfinished ...>

23647 clock_gettime(CLOCK_PROCESS_CPUTIME_ID, {tv_sec=0, tv_nsec=39539830}) = 0

23647 clock_gettime(CLOCK_PROCESS_CPUTIME_ID, {tv_sec=0, tv_nsec=39555997}) = 0

23647 rt_sigprocmask(SIG_BLOCK, NULL, [], 8) = 0

23647 madvise(0x7f842207c000, 12288, MADV_DONTNEED) = 0

23647 madvise(0x7f8421d74000, 8192, MADV_DONTNEED) = 0

23647 write(9, "\0", 1) = -1 EPIPE (Broken pipe)

23647 --- SIGPIPE {si_signo=SIGPIPE, si_code=SI_USER, si_pid=23647, si_uid=1000} ---

(define %set-automatic-finalization-enabled?!

;; When using a statically-linked Guile, for instance in the initrd, we

;; cannot resolve this symbol, but most of the time we don't need it

;; anyway. Thus, delay it.

(let ((proc (delay

(pointer->procedure int

(dynamic-func

"scm_set_automatic_finalization_enabled"

(dynamic-link))

(list int)))))

(lambda (enabled?)

"Switch on or off automatic finalization in a separate thread.

Turning finalization off shuts down the finalization thread as a side effect."

(->bool ((force proc) (if enabled? 1 0))))))

(define-syntax-rule (without-automatic-finalization exp ...)

"Turn off automatic finalization within the dynamic extent of EXP."

(let ((enabled? #t))

(dynamic-wind

(lambda ()

(set! enabled? (%set-automatic-finalization-enabled?! #f)))

(lambda ()

exp ...)

(lambda ()

(%set-automatic-finalization-enabled?! enabled?)))))