diff options
| author | sjakie | 1999-11-12 11:23:28 +0000 |
|---|---|---|
| committer | sjakie | 1999-11-12 11:23:28 +0000 |
| commit | 11af9c62a99dd5561499161d4100fe0967f1bb20 (patch) | |
| tree | b51ee761d80d130c1c18fd87b97b749c5e936d3e /frontend/utilities.dcl | |
| parent | vergeten, traces wegteheugen (diff) | |
minor bug fix, some code polishing
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@45 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/utilities.dcl')
| -rw-r--r-- | frontend/utilities.dcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/frontend/utilities.dcl b/frontend/utilities.dcl index 5abecf4..a7a58d5 100644 --- a/frontend/utilities.dcl +++ b/frontend/utilities.dcl @@ -3,6 +3,7 @@ definition module utilities from StdString import String from StdEnv import Eq, not, Ord, IncDec import StdMisc, general + /* For Strings */ @@ -72,6 +73,7 @@ foldSt op l st :== fold_st l st fold_st [] st = st fold_st [a:x] st = fold_st x (op a st) +// iFoldSt :: (Int -> .(.b -> .b)) !Int !Int .b -> .b iFoldSt op fr to st :== i_fold_st fr to st where i_fold_st fr to st @@ -82,7 +84,7 @@ iFoldSt op fr to st :== i_fold_st fr to st iterateSt op st :== iterate_st op st where iterate_st op st - # (continue, st) = op (False, st) + # (continue, st) = op st | continue = iterate_st op st = st |