# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406271114 25200
# Node ID 9a30510f6e524ed8053213cf8a74524bcf7fcd14
# Parent  d1dc2d70bdfd1f5546d1e6689731d49023022a45
Fix trim method on strings

diff -r d1dc2d70bdfd -r 9a30510f6e52 modules/string.tp
--- a/modules/string.tp	Thu Jul 24 21:58:26 2014 -0700
+++ b/modules/string.tp	Thu Jul 24 23:51:54 2014 -0700
@@ -47,8 +47,8 @@
 		}
 	}
 
-	llMessage: print withVars: {} andCode: {
-		fwrite: data 1 bytes stdout
+	print <- {
+		(file stdout) write: self
 		self
 	}
 
@@ -295,11 +295,11 @@
 		end <- l
 		while: {
 			if: end > 0 {
-				b <- byte: end
+				b <- byte: end - 1
 				b = space || b = tab || b = nl || b = cr
 			}
 		} do: {
-			end <- end + 1
+			end <- end - 1
 		}
 		from: start withLength: (end - start)
 	}