 
 ! Like word>gc-info but uses the compiler
 : word>gc-info-expected ( word -- seq/f )
-    test-regs first cfg>gc-maps tally-gc-maps ;
+    test-regs first [ cfg set ] [ cfg>gc-maps tally-gc-maps ] bi ;
 
 ! Handle f f as input. Deferred words don't have any gc-info. See #1394.
 : same-gc-info? ( compiler-gc-info/f gc-info/f -- ? )

USING: accessors alien.c-types alien.syntax arrays assocs bit-arrays
classes.struct combinators combinators.short-circuit compiler
compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.linearization
compiler.cfg.stack-frame compiler.codegen.gc-maps compiler.units fry generic
grouping io io.encodings.binary io.streams.byte-array kernel math namespaces

QUALIFIED: cpu.x86.features.private
QUALIFIED: crypto.aes.utils
QUALIFIED: effects
QUALIFIED: gtk-samples.opengl
QUALIFIED: opencl

: normal? ( word -- ? )
