Commit 480b40ef authored by John van Groningen's avatar John van Groningen
Browse files

use rem instead of mod

parent 8b5a14d2
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment