Merge remote-tracking branch 'origin/trunk' into low-level-ops

This commit is contained in:
Richard Feldman 2020-07-07 21:02:03 -04:00
commit 1cd49689c2
29 changed files with 1630 additions and 440 deletions

View file

@ -301,12 +301,10 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
SolvedType::Func(vec![num_type(flex(TVAR1))], Box::new(bool_type())),
);
// Int module
// highest : Int
// maxInt : Int
add_type(Symbol::NUM_MAX_INT, int_type());
// lowest : Int
// minInt : Int
add_type(Symbol::NUM_MIN_INT, int_type());
// div : Int, Int -> Result Int [ DivByZero ]*
@ -399,10 +397,10 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
SolvedType::Func(vec![float_type()], Box::new(float_type())),
);
// highest : Float
// maxFloat : Float
add_type(Symbol::NUM_MAX_FLOAT, float_type());
// lowest : Float
// minFloat : Float
add_type(Symbol::NUM_MIN_FLOAT, float_type());
// Bool module
@ -536,6 +534,15 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
),
);
// reverse : List elem -> List elem
add_type(
Symbol::LIST_REVERSE,
SolvedType::Func(
vec![list_type(flex(TVAR1))],
Box::new(list_type(flex(TVAR1))),
),
);
// len : List * -> Int
add_type(
Symbol::LIST_LEN,

View file

@ -571,6 +571,28 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
)
});
// reverse : Attr * (List (Attr * a)) -> Attr * (List (Attr * a))
add_type(Symbol::LIST_REVERSE, {
let_tvars! { a, star1, star2 };
unique_function(
vec![SolvedType::Apply(
Symbol::ATTR_ATTR,
vec![
flex(star1),
SolvedType::Apply(Symbol::LIST_LIST, vec![flex(a)]),
],
)],
SolvedType::Apply(
Symbol::ATTR_ATTR,
vec![
boolean(star2),
SolvedType::Apply(Symbol::LIST_LIST, vec![flex(a)]),
],
),
)
});
// To repeat an item, it must be shared!
//
// repeat : Attr * Int