#
# Ruby implementation of the Intercal COME FROM statement
#

$come_from_labels = {}

def label(l)
    if $come_from_labels[l]
        $come_from_labels[l].call
    end
end

def come_from(l)
    callcc do |block|
        $come_from_labels[l] = block
    end
end