st/lang_2023
1
0
Fork 0
mirror of https://codeberg.org/ProgramSnail/lang_2023.git synced 2025-12-05 22:48:42 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes, colored errors

Browse source
This commit is contained in:
ProgramSnail 2023-05-13 22:40:33 +03:00
parent 4b4756b657
commit 047ead6fa3
11 changed files with 166 additions and 195 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tests/test_code.lang
View file

@ -39,7 +39,7 @@ typeclass Eq =
& var ( == ) : Eq -> Bool
& var ( != ) : Eq -> Bool
namespace const Eq {
namespace var Eq {
def ( != ) : x = not: (self == x)
}
@ -51,13 +51,17 @@ struct Order =
| GT
typeclass (Ord : #Eq) =
& var compare: Ord -> Order
& var compare : Ord -> Order
& var ( < ) : Ord -> Bool
& var ( >= ) : Ord -> Bool
& var ( > ) : Ord -> Bool
& var ( <= ) : Ord -> Bool
& var min : Ord -> Ord
& var max : Ord -> Ord
decl min ('A : #Ord) : 'A -> 'A -> 'A
def min : x y = if x < y then x else y
decl max ('A : #Ord) : 'A -> 'A -> 'A
def max : x y = if x < y then y else x
namespace var Ord {
def compare : x =
@ -68,8 +72,6 @@ namespace var Ord {
def ( >= ) : x = not: (self < x)
def ( > ) : x = x < self
def ( <= ) : x = not: (x < self)
def min : x = if self < x then self else x
def max : x = if self < x then x else self
}
//