Block@in-scope

in-scope definition.the.hs

(b: Block) in-scope :=
    Object clone do: {
        delegates-to: b
        call := b scope do: b
        call: vs := b scope do: b with: vs
    }

in-scope with extra bindings.the.hs

the $ the
> x = 0
> [1, 2, 3] map: { n | x = x + n; x } in-scope
[1, 3, 6]
> x
6
> { 1 + 1 } in-scope contents -- delegates to the original, so this still works
[(1 + 1)]