From f0df2fcd92eae2c6dcdd9dc8d6f12b2d1abeeb46 Mon Sep 17 00:00:00 2001
From: "hyunghwan.chung" <hyunghwan.chung@c9d47f8d-4fed-4a2f-8cad-691f5fbe3904>
Date: Wed, 3 Jan 2018 15:33:09 +0000
Subject: [PATCH] changed a variable name in Socket.moo

---
 moo/kernel/Socket.moo | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/moo/kernel/Socket.moo b/moo/kernel/Socket.moo
index 0f3c93b..57454fc 100644
--- a/moo/kernel/Socket.moo
+++ b/moo/kernel/Socket.moo
@@ -100,7 +100,7 @@ class(#byte) IP6Address(IPAddress)
 
 	method __fromString: str
 	{
-		| pos size mysize ch tgpos v1 val curtok saw_xdigit colonpos |
+		| pos size mysize ch tgpos v1 val curseg saw_xdigit colonpos |
 
 		pos := 0.
 		size := str size.
@@ -114,7 +114,7 @@ class(#byte) IP6Address(IPAddress)
 		}.
 
 		tgpos := 0.
-		curtok := pos.
+		curseg := pos.
 		val := 0.
 		saw_xdigit := false.
 		colonpos := -1.
@@ -135,7 +135,7 @@ class(#byte) IP6Address(IPAddress)
 
 			if (ch == $:)
 			{
-				curtok := pos.
+				curseg := pos.
 				if (saw_xdigit not)
 				{
 					## no multiple double colons are allowed
@@ -162,14 +162,14 @@ class(#byte) IP6Address(IPAddress)
 				continue.
 			}.
 
-			if (ch == $. and: [tgpos + 4 <= mysize]
+			if (ch == $. and: [tgpos + 4 <= mysize])
 			{
+				IP4Address __fromString: (str copyFrom: curseg).
 				tgpos := tgpos + 4.
 				saw_xdigit := false.
 				break.
 			}.
 
-
 			## invalid character in the address
 			^Error.Code.EINVAL.
 		}.