ip-parser: use byte-array in ipv4-aton to force fixnum math.

2014-02-09 11:07:31 -08:00 · 2014-02-09 11:07:31 -08:00 · bffeeed589
parent 9aa160ad91
commit bffeeed589
1 changed files with 1 additions and 1 deletions
--- 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 ;