diff --git a/basis/xml/entities/entities.factor b/basis/xml/entities/entities.factor index 9edca9359c..d79b4eea79 100644 --- a/basis/xml/entities/entities.factor +++ b/basis/xml/entities/entities.factor @@ -39,4 +39,4 @@ CONSTANT: entities } : with-entities ( entities quot -- ) - [ swap extra-entities set call ] with-scope ; inline + [ extra-entities ] dip with-variable ; inline