diff --git a/fcore/cursor.sml b/fcore/cursor.sml index e0a567a..888e2be 100644 --- a/fcore/cursor.sml +++ b/fcore/cursor.sml @@ -448,7 +448,7 @@ struct * but line has fewer chars than preferredColumn * note: if in double \n\n linebreak, * then return absIdx of second linebreak. *) - if strPos = String.size str - 1 then + if strPos < String.size str - 1 then if String.sub (str, strPos + 1) = #"\n" then (* we are in double linebreak *) absIdx + 1 diff --git a/shf b/shf index 29be86a..19c8e4e 100755 Binary files a/shf and b/shf differ