diff options
| author | martinw | 2000-06-09 15:09:23 +0000 |
|---|---|---|
| committer | martinw | 2000-06-09 15:09:23 +0000 |
| commit | ff89baf334aaf2727f8192764bfc9600d578d2a2 (patch) | |
| tree | 104c566b9c4f0274e129cc3caf5fc38b0dd78fa2 /frontend/utilities.dcl | |
| parent | Added preprocessor directives, so that one and the same source can be (diff) | |
bugfix in trans. utilites: renaming of mapSt into map_st was necessary, otherwise
the compiler would not be able to compile itself.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@156 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/utilities.dcl')
| -rw-r--r-- | frontend/utilities.dcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/utilities.dcl b/frontend/utilities.dcl index 3ae0b5e..909f859 100644 --- a/frontend/utilities.dcl +++ b/frontend/utilities.dcl @@ -30,15 +30,15 @@ isNotEmpty :: ![a] -> Bool //mapSt :: !(.a -> (.st -> (.c,.st))) ![.a] !.st -> (![.c],!.st) -mapSt f l s :== mapSt l s +mapSt f l s :== map_st l s where - mapSt [x : xs] s + map_st [x : xs] s # (x, s) = f x s - mapSt_result = mapSt xs s + mapSt_result = map_st xs s (xs, _) = mapSt_result #! s = second_of_2_tuple mapSt_result = ([x : xs], s) - mapSt [] s + map_st [] s = ([], s) second_of_2_tuple t :== e2 |