Update code that did ">alist sort-" to just "sort-".

[factor.git] / basis / xml / syntax / inverse / inverse.factor

diff --git a/basis/xml/syntax/inverse/inverse.factor b/basis/xml/syntax/inverse/inverse.factor
index 1d37a8dedbabc01383885a63f8fae8440724efad..0d757b378cfdc5b2d574a56cb43fc4b9e3f5db2d 100644 (file)
--- a/basis/xml/syntax/inverse/inverse.factor
+++ b/basis/xml/syntax/inverse/inverse.factor
@@ -67,7 +67,7 @@ M: interpolated [undo-xml]
 
 : >enum ( assoc -- enum )
     ! Assumes keys are 0..n
-    >alist sort-keys values <enum> ;
+    sort-keys values <enum> ;
 
 : undo-xml ( xml -- quot )
     [undo-xml] '[ H{ } clone [ _ bind ] keep >enum ] ;