From c62973eb7d0af525fe5e9e6d1e9d8a8971aab8b2 Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Wed, 27 Sep 2006 01:01:56 +0000 Subject: interim checkin --- src/cli/runtime/RT.cs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/cli') diff --git a/src/cli/runtime/RT.cs b/src/cli/runtime/RT.cs index 7a932f78..1f97c081 100644 --- a/src/cli/runtime/RT.cs +++ b/src/cli/runtime/RT.cs @@ -136,7 +136,17 @@ static public Object first(Object x) return null; return seq(x).first(); } + +static public Object second(Object x) + { + return first(rest(x)); + } +static public Object third(Object x) + { + return first(rest(rest(x))); + } + static public ISeq rest(Object x) { if (x == null) -- cgit v1.2.3-70-g09d2