function isNotEmpty added

frontend/utilities.dcl

@@ -21,6 +21,8 @@ isSpecialChar	:: ! Char	-> Bool
 	For Lists
 */
 
+isNotEmpty :: ![a] -> Bool
+
 mapSt :: !(.a -> (.st -> (.c,.st))) ![.a] !.st -> (![.c],!.st)
 
 app2St :: !(!.(.a -> .(.st -> (.c,.st))),!.(.e -> .(.st -> (.f,.st)))) !(.a,.e) !.st -> (!(.c,.f),!.st)

frontend/utilities.icl

@@ -74,6 +74,10 @@ isSpecialChar ':'	= True
 isSpecialChar '.'	= True
 isSpecialChar c	= False
 
+isNotEmpty :: ![a] -> Bool
+isNotEmpty [] = False
+isNotEmpty _  = True
+
 strictMap :: !(.a -> .b) ![.a] -> [.b]
 strictMap f [x : xs]
 		#!	head = f x