diff options
| author | johnvg | 2002-11-19 15:26:50 +0000 |
|---|---|---|
| committer | johnvg | 2002-11-19 15:26:50 +0000 |
| commit | 673464ec0e307dc61c48671073fc47bde7e571d8 (patch) | |
| tree | 7feacc65d98c33932793d853f20b3a4a758663d2 /frontend/hashtable.icl | |
| parent | - type synonyms in type definition written to a tcl-file are fully expanded now. (diff) | |
use rem instead of mod
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1285 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/hashtable.icl')
| -rw-r--r-- | frontend/hashtable.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/hashtable.icl b/frontend/hashtable.icl index 1c2d8a3..a50c393 100644 --- a/frontend/hashtable.icl +++ b/frontend/hashtable.icl @@ -71,7 +71,7 @@ cHashTableSize :== 1023 hashValue :: !String -> Int hashValue name - # hash_val = hash_value name (size name) 0 mod cHashTableSize + # hash_val = hash_value name (size name) 0 rem cHashTableSize | hash_val < 0 = hash_val + cHashTableSize = hash_val |