From 083af64921be0776de06f568e616fb835b9dc23f Mon Sep 17 00:00:00 2001
From: Tuukka Lehtonen <tuukka.lehtonen@semantum.fi>
Date: Fri, 2 Nov 2018 15:26:39 +0200
Subject: [PATCH] Added first and last functions to MList module

gitlab #177

Change-Id: I6cdcbbbe91f5074747eba64a9439e4f3ed123d60
---
 bundles/org.simantics.scl.runtime/scl/MList.scl | 10 ++++++++++
 1 file changed, 10 insertions(+)

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)
-- 
2.43.2