xml.entities: use with-variable in with-entities.
parent
d9cdb80b90
commit
4717d39e69
|
@ -39,4 +39,4 @@ CONSTANT: entities
|
||||||
}
|
}
|
||||||
|
|
||||||
: with-entities ( entities quot -- )
|
: with-entities ( entities quot -- )
|
||||||
[ swap extra-entities set call ] with-scope ; inline
|
[ extra-entities ] dip with-variable ; inline
|
||||||
|
|
Loading…
Reference in New Issue