cleanup some use of with-scope.

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

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index 14fc02f8824fd9e6f115629388e3f8280b0a58e8..ac43c94d0a69682c956c95b85075259eaab9a3f0 100644 (file)
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -193,10 +193,7 @@ TUPLE: tag value ;
 : <tag> ( -- <tag> ) 4 tag boa ;
 
 : with-ber ( quot -- )
-    [
-        <tag> tagnum set
-        call
-    ] with-scope ; inline
+    [ <tag> tagnum ] dip with-variable ; inline
 
 : set-tag ( value -- )
     tagnum get value<< ;