From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Dec 2009 21:34:06 +0000 (-0800)
Subject: Fix over-long line.
X-Git-Tag: 20100708-Gtk~178^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=983a62710bb0e0e5659c48c5f877fe025e4b0fc0;p=mit-scheme.git

Fix over-long line.
---

diff --git a/src/microcode/prmhash.c b/src/microcode/prmhash.c
index 2ca98ee6d..8b3d1bc11 100644
--- 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));
   }