projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
08a1571
)
Fix over-long line.
author
Chris Hanson
<org/chris-hanson/cph>
Sat, 26 Dec 2009 21:34:06 +0000
(13:34 -0800)
committer
Chris Hanson
<org/chris-hanson/cph>
Sat, 26 Dec 2009 21:34:06 +0000
(13:34 -0800)
src/microcode/prmhash.c
patch
|
blob
|
history
diff --git
a/src/microcode/prmhash.c
b/src/microcode/prmhash.c
index 2ca98ee6d519b7850f00a1b7543f20688da1202a..8b3d1bc11486a417893a02bd526d46c851367555 100644
(file)
--- a/
src/microcode/prmhash.c
+++ b/
src/microcode/prmhash.c
@@
-209,7
+209,8
@@
DEFINE_PRIMITIVE ("MHASH", Prim_mhash, 4, 4, 0)
CHECK_ARG (2, STRING_P);
{
SCHEME_OBJECT string = (ARG_REF (2));
- unsigned long end = (arg_ulong_index_integer (4, ((STRING_LENGTH (string)) + 1)));
+ unsigned long end
+ = (arg_ulong_index_integer (4, ((STRING_LENGTH (string)) + 1)));
unsigned long start = (arg_ulong_index_integer (3, (end + 1)));
mhash ((arg_context (1)), (STRING_LOC (string, start)), (end - start));
}