From bffeeed58915b14da5fd5300f1e6bfe6acdcc375 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 9 Feb 2014 11:07:31 -0800
Subject: [PATCH] ip-parser: use byte-array in ipv4-aton to force fixnum math.

---
 extra/ip-parser/ip-parser.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/ip-parser/ip-parser.factor b/extra/ip-parser/ip-parser.factor
index 431288ca9a..dd9e1be82a 100644
--- a/extra/ip-parser/ip-parser.factor
+++ b/extra/ip-parser/ip-parser.factor
@@ -43,4 +43,4 @@ PRIVATE>
     cleave "%s.%s.%s.%s" sprintf ;
 
 : ipv4-aton ( ip -- integer )
-    (parse-ipv4) { 24 16 8 0 } [ shift ] [ + ] 2map-reduce ;
+    (parse-ipv4) B{ 24 16 8 0 } [ shift ] [ + ] 2map-reduce ;