diff options
| author | johnvg | 2002-06-17 11:29:50 +0000 |
|---|---|---|
| committer | johnvg | 2002-06-17 11:29:50 +0000 |
| commit | 2503354503ecdd697bb1dbea7c9fb8fee3f77ae6 (patch) | |
| tree | 3abf7a922862ca12c2c78a3fc03220290f8e9549 /frontend/scanner.dcl | |
| parent | removed hello and bye, replace testArgs by [] (diff) | |
removed ingnored !'s
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1097 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/scanner.dcl')
| -rw-r--r-- | frontend/scanner.dcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/scanner.dcl b/frontend/scanner.dcl index 88a919e..1a5f057 100644 --- a/frontend/scanner.dcl +++ b/frontend/scanner.dcl @@ -10,7 +10,7 @@ import StdEnv, general } :: ModTimeFunction f - :== ({#Char} !f -> *(!{#Char}, !f)) + :== ({#Char} f -> *(!{#Char}, !f)) // ... RWS @@ -129,7 +129,7 @@ instance <<< FilePosition class getFilename state :: !*state -> (!String,!*state) instance getFilename ScanState -class tokenBack state :: !*state -> !*state +class tokenBack state :: !*state -> *state instance tokenBack ScanState class nextToken state :: !ScanContext !*state -> (!Token, !*state) |