I tried to load the package and saw a bunch of errors. However I'm
not sure they all matter, as they seem to refer to tests and other
files that are non-core. So you might be able to use it as is (I
haven't tried).
For implementing labelled gotos you can use mutually recursive
functions. Escape continuations give you early exits.
Here's a contrived example:
(let/ec break
(define counter 10)
(define (label-1)
(if (zero? counter)
(label-2)
(begin
(set! counter (sub1 counter))
(label-1))))
(define (label-2) (break 'bye))
(label-1))
HTH,
N.