fix function non_space_left

96b18ae0 · John van Groningen · ba3c1b44 · 96b18ae0
Commit 96b18ae0 authored Feb 27, 2013 by John van Groningen
--- a/Pm/PmDriver.icl
+++ b/Pm/PmDriver.icl
@@ -951,7 +951,9 @@ where
 		
 		non_space_left :: !Int -> Int
 		non_space_left i
-			| i < size_s && isSpace s.[i]	= non_space_left (i+1)
+			| i < size_s && isSpace s.[i]
+				= non_space_left (i+1)
+				= i

 	lSplit :: !.Char !String -> [String]
 	lSplit c s = lsplit c s (dec (size s)) []