X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FMList.scl;h=74b0c2482c4f2c1910aa987c0da63259a1b89e6c;hb=6c99e980d250fb9201aba93be7dcb1f55564dccd;hp=fc4f941144a69950360b1895359f1d5a7a471a0e;hpb=331406ad9dfcb7332a645ddc7029a863ef064d2f;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.runtime/scl/MList.scl b/bundles/org.simantics.scl.runtime/scl/MList.scl
index fc4f94114..74b0c2482 100644
--- a/bundles/org.simantics.scl.runtime/scl/MList.scl
+++ b/bundles/org.simantics.scl.runtime/scl/MList.scl
@@ -24,6 +24,16 @@ removeLast l = if isEmpty l
                then Nothing
                else Just (remove l (Java.isub (size l) 1))
 
+"Returns the first element of a list"
+@inline
+first :: T a -> <Proc> a
+first s = get s 0
+
+"Returns the last element of a list"
+@inline
+last :: T a -> <Proc> a
+last s = get s (Java.isub (size s) 1)
+
 @inline
 iter :: (a -> <e> ()) -> T a -> <e,Proc> ()
 iter f s = Iterator.iter f (iterator s)