#! nqp
# Copyright (C) 2010, Parrot Foundation.
# $Id: Runtime.pm 48133 2010-07-20 18:42:27Z mikehh $

# language-specific runtime functions go here

{
    my sub array (*@args) { @args; }
    my sub hash (*%args) { %args; }

    Q:PIR {
        $P0 = find_lex 'array'
        set_global '!array', $P0
        $P0 = find_lex 'hash'
        set_global '!hash', $P0
    }
}

sub print(*@args) {
    pir::say(pir::join('', @args));
    pir::return();
}
