Fix duplication

2008-10-28 16:22:54 -07:00 · 2008-10-28 16:22:54 -07:00 · 2fb17458e3
parent 500ee30266
commit 2fb17458e3
1 changed files with 1 additions and 1 deletions
--- a/core/generic/standard/engines/tag/tag.factor
+++ b/core/generic/standard/engines/tag/tag.factor
@ -49,7 +49,7 @@ C: <hi-tag-dispatch-engine> hi-tag-dispatch-engine
    \ hi-tag def>> ;

 M: hi-tag-dispatch-engine engine>quot
-    methods>> engines>quots* [ >r "type" word-prop r> ] assoc-map
+    methods>> engines>quots* [ >r hi-tag-number r> ] assoc-map
    [
        picker % hi-tag-quot % [
            linear-dispatch-quot