core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / basis / io / sockets / secure / openssl / openssl.factor

diff --git a/basis/io/sockets/secure/openssl/openssl.factor b/basis/io/sockets/secure/openssl/openssl.factor
index 4aec171ae34a64fe11ac1d692c7244a47edc27d0..413d323aeeae1aff184f0c7f5be08745d55eff2a 100644 (file)
--- a/basis/io/sockets/secure/openssl/openssl.factor
+++ b/basis/io/sockets/secure/openssl/openssl.factor
@@ -338,7 +338,7 @@ M: ssl-handle dispose*
     X509_get_issuer_name x509name>string ;
 
 : name-stack>sequence ( name-stack -- seq )
-    dup sk_num iota [ sk_value GENERAL_NAME_st memory>struct ] with map ;
+    dup sk_num <iota> [ sk_value GENERAL_NAME_st memory>struct ] with map ;
 
 : alternative-dns-names ( certificate -- dns-names )
     NID_subject_alt_name f f X509_get_ext_d2i