assocs: Add of and ?of. Change all the things at once! Fixes #701.

[factor.git] / extra / asn1 / asn1.factor

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index ac43c94d0a69682c956c95b85075259eaab9a3f0..047f0133ffd5e1719d95bd31a3b6225d8c816135 100644 (file)
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -100,10 +100,10 @@ TUPLE: element syntax id tag tagclass encoding contentlength newobj objtype ;
 
 : set-objtype ( syntax -- )
     builtin-syntax 2array [
-        elements get tagclass>> swap at
-        elements get encoding>> swap at
+        elements get tagclass>> of
+        elements get encoding>> of
         elements get tag>>
-        swap at [ 
+        of [ 
             elements get objtype<<
         ] when*
     ] each ;