diff options
| author | pieter | 2000-01-12 16:48:46 +0000 |
|---|---|---|
| committer | pieter | 2000-01-12 16:48:46 +0000 |
| commit | 7fd732d4e2972148875eaa489ff719f4d4ffab63 (patch) | |
| tree | 4a59bf0cefb3613b96df15d4d516f3f631e4aa5f /frontend/utilities.icl | |
| parent | replaced all known errors (diff) | |
function isNotEmpty added
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@74 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/utilities.icl')
| -rw-r--r-- | frontend/utilities.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/frontend/utilities.icl b/frontend/utilities.icl index e844395..9c943fd 100644 --- a/frontend/utilities.icl +++ b/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 |