! Copyright (C) 2021 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs continuations formatting kernel
-sequences vocabs vocabs.parser ;
+sequences ui.tools.debugger vocabs vocabs.parser ;
IN: fixups
CONSTANT: vocab-renames {
- { "math.intervals" { "intervals" ".99" } }
- { "math.ranges" { "ranges" ".99" } }
- { "asdfasdf" { "asdfasdf2" ".99" } }
+ { "math.intervals" { "intervals" "0.99" } }
+ { "math.ranges" { "ranges" "0.99" } }
+ { "asdfasdf" { "asdfasdf2" "0.99" } }
}
CONSTANT: word-renames {
- { "lines" { "io:read-lines" ".99" } }
- { "lines" { "splitting:split-lines" ".99" } }
- { "words" { "splitting:split-words" ".99" } }
- { "contents" { "io:read-contents" ".99" } }
- { "exists?" { "io.files:file-exists?" ".99" } }
- { "string-lines" { "splitting:split-lines" ".99" } }
- { "split-lines" { "documents.private:?split-lines" ".99" } }
- { "[-inf,a)" { "math.intervals:[-inf,b)" ".99" } }
- { "[-inf,a]" { "math.intervals:[-inf,b]" ".99" } }
- { "(a,b)" { "math.ranges:(a..b)" ".99" } }
- { "(a,b]" { "math.ranges:(a..b]" ".99" } }
- { "[a,b)" { "math.ranges:[a..b)" ".99" } }
- { "[a,b]" { "math.ranges:[a..b]" ".99" } }
- { "assoc-merge" { "assocs.extras:assoc-collect" ".99" } }
- { "assoc-merge!" { "assocs.extras:assoc-collect!" ".99" } }
- { "peek-from" { "modern.html:peek1-from" ".99" } }
- { "in?" { "interval-sets:interval-in?" ".99" } }
- { "substitute" { "regexp.classes:(substitute)" ".99" } }
- { "combine" { "sets:union-all" ".99" } }
- { "refine" { "sets:intersect-all" ".99" } }
- { "read-json-objects" { "json.reader:read-json" ".99" } }
+ { "lines" { "io:read-lines" "0.99" } }
+ { "lines" { "splitting:split-lines" "0.99" } }
+ { "words" { "splitting:split-words" "0.99" } }
+ { "contents" { "io:read-contents" "0.99" } }
+ { "exists?" { "io.files:file-exists?" "0.99" } }
+ { "string-lines" { "splitting:split-lines" "0.99" } }
+ { "split-lines" { "documents.private:?split-lines" "0.99" } }
+ { "[-inf,a)" { "math.intervals:[-inf,b)" "0.99" } }
+ { "[-inf,a]" { "math.intervals:[-inf,b]" "0.99" } }
+ { "(a,b)" { "math.ranges:(a..b)" "0.99" } }
+ { "(a,b]" { "math.ranges:(a..b]" "0.99" } }
+ { "[a,b)" { "math.ranges:[a..b)" "0.99" } }
+ { "[a,b]" { "math.ranges:[a..b]" "0.99" } }
+ { "assoc-merge" { "assocs.extras:assoc-collect" "0.99" } }
+ { "assoc-merge!" { "assocs.extras:assoc-collect!" "0.99" } }
+ { "peek-from" { "modern.html:peek1-from" "0.99" } }
+ { "in?" { "interval-sets:interval-in?" "0.99" } }
+ { "substitute" { "regexp.classes:(substitute)" "0.99" } }
+ { "combine" { "sets:union-all" "0.99" } }
+ { "refine" { "sets:intersect-all" "0.99" } }
+ { "read-json-objects" { "json.reader:read-json" "0.99" } }
+ { "iota" { "sequences:<iota>" ".98" } }
}
: compute-assoc-fixups ( continuation name assoc -- seq )
GENERIC: compute-fixups ( continuation error -- seq )
M: object compute-fixups
- error>> compute-fixups ;
+ [ error>> compute-fixups ] [ 3drop { } ] recover ;
M: f compute-fixups 2drop { } ;