factor: more top level forms.

[factor.git] / basis / io / sockets / icmp / icmp.factor

diff --git a/basis/io/sockets/icmp/icmp.factor b/basis/io/sockets/icmp/icmp.factor
index b1f62cb19b9729973eada7625b7076ccfe476a7f..ebb9dca597284dce7de885a6a0c5c47fc62794d5 100644 (file)
--- a/basis/io/sockets/icmp/icmp.factor
+++ b/basis/io/sockets/icmp/icmp.factor
@@ -3,14 +3,12 @@
 
 USING: accessors arrays combinators io.sockets
 io.sockets.private kernel sequences system
-vocabs.parser ;
+vocabs.parser vocabs.platforms ;
 
 IN: io.sockets.icmp
 
-<< {
-    { [ os windows? ] [ "windows.winsock" ] }
-    { [ os unix? ] [ "unix.ffi" ] }
-} cond use-vocab >>
+USE-WINDOWS: windows.winsock
+USE-UNIX: unix.ffi
 
 <PRIVATE