diff --git a/ExtCore/Collections.List.fs b/ExtCore/Collections.List.fs index 5a303b5..9b0e56a 100644 --- a/ExtCore/Collections.List.fs +++ b/ExtCore/Collections.List.fs @@ -1,4 +1,4 @@ -(* +(* Copyright 2010-2012 TidePowerd Ltd. Copyright 2013 Jack Pappas @@ -23,8 +23,10 @@ module ExtCore.Collections.List open LanguagePrimitives open OptimizedClosures -open ExtCore +let private checkNonNull name value = + if value = Unchecked.defaultof<_> then + raise <| System.ArgumentNullException(name) /// A curried "cons" operator. /// @@ -776,4 +778,3 @@ let distinct (list : 'T list) : 'T list = // Return the result list. result -