Function map can provoke OOM

[Acaccia]

It seems like map does not allocate space for its result, which might lead to OOM.

Here is an example of a failing program:

#[test]
fn foo() {
    let snippet = "(map + (list 1 2 3) (list 1 2 3) (list 1 2 3))".repeat(700);

    let expected = Value::Sequence(SequenceData::List(ListData {
        data: vec![Value::Int(3), Value::Int(6), Value::Int(9)],
        type_signature: ListTypeData::new_list(TypeSignature::IntType, 3).unwrap(),
    }));

    crosscheck(&snippet, Ok(Some(expected)))
}

[smcclellan]

Related to #407.