Profiling results ----------------- Total cpu time observed: 27148ms (out of 27388ms) Number of samples taken: 76 (once every 357ms) ================================================================================ Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee ================================================================================ run [6] 50.0% [1] 27148(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [4] 50.0% run-improve47 [3] 50.0% -------------------------------------------------------------------------------- matcher [48] 100.0% [2] 6788(25.0%) 0(0.0%) ??? ...-interface-bugs/src/core/matcher.rkt:128:11 for-loop [5] 97.0% foldl [70] 3.0% -------------------------------------------------------------------------------- ??? [1] 100.0% [3] 27148(100.0%) 0(0.0%) run-improve47 ...rface-bugs/src/mainloop.rkt:345:0 simplify! [7] 62.1% for-loop [8] 28.3% prepare-points-intervals [9] 9.6% -------------------------------------------------------------------------------- ??? [1] 100.0% [4] 27148(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [6] 100.0% -------------------------------------------------------------------------------- ??? [2] 100.0% [5] 6788(25.0%) 362(1.3%) for-loop ...rface-bugs/src/core/matcher.rkt:130:15 matcher [48] 99.2% -------------------------------------------------------------------------------- profile-thunk16 [4] 100.0% [6] 27148(100.0%) 0(0.0%) run ...et-7.2/share/pkgs/profile-lib/main.rkt:39:2 ??? [1] 100.0% -------------------------------------------------------------------------------- run-improve47 [3] 100.0% [7] 16862(62.1%) 0(0.0%) simplify! ...interface-bugs/src/mainloop.rkt:223:0 ??? [10] 100.0% -------------------------------------------------------------------------------- run-improve47 [3] 100.0% [8] 7684(28.3%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:364:4 run-iter! [11] 100.0% -------------------------------------------------------------------------------- run-improve47 [3] 100.0% [9] 2602(9.6%) 0(0.0%) prepare-points-intervals ...s/src/points.rkt:121:0 loop [12] 100.0% -------------------------------------------------------------------------------- simplify! [7] 100.0% [10] 16862(62.1%) 0(0.0%) ??? ...x-interface-bugs/src/core/simplify.rkt:26:0 for-loop [13] 89.4% one-iter [17] 8.8% loop [20] 1.8% -------------------------------------------------------------------------------- for-loop [8] 100.0% [11] 7684(28.3%) 0(0.0%) run-iter! ...interface-bugs/src/mainloop.rkt:326:0 gen-rewrites! [14] 96.1% localize! [16] 3.9% -------------------------------------------------------------------------------- prepare-points-intervals [9] 100.0% [12] 2602(9.6%) 0(0.0%) loop ...ie/fix-interface-bugs/src/points.rkt:134:4 loop [15] 100.0% -------------------------------------------------------------------------------- ??? [10] 100.0% [13] 15070(55.5%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:35:2 one-iter [17] 97.8% loop [20] 2.2% -------------------------------------------------------------------------------- run-iter! [11] 100.0% [14] 7384(27.2%) 0(0.0%) gen-rewrites! ...rface-bugs/src/mainloop.rkt:182:0 for-loop [18] 96.0% for-loop [22] 4.0% -------------------------------------------------------------------------------- loop [12] 100.0% [15] 2602(9.6%) 0(0.0%) loop ...bie/fix-interface-bugs/src/points.rkt:80:2 ??? [19] 100.0% -------------------------------------------------------------------------------- run-iter! [11] 100.0% [16] 300(1.1%) 0(0.0%) localize! ...interface-bugs/src/mainloop.rkt:126:0 localize-error [21] 100.0% -------------------------------------------------------------------------------- ??? [10] 9.2% for-loop [13] 90.8% [17] 16226(59.8%) 0(0.0%) one-iter ...erface-bugs/src/core/simplify.rkt:72:0 find-matches [23] 61.8% for-loop [25] 38.2% -------------------------------------------------------------------------------- gen-rewrites! [14] 100.0% [18] 7088(26.1%) 300(1.1%) for-loop ...interface-bugs/src/mainloop.rkt:190:11 rewrite-expression-head20 [24] 95.8% -------------------------------------------------------------------------------- loop [15] 100.0% [19] 2602(9.6%) 0(0.0%) ??? ...e/fix-interface-bugs/src/programs.rkt:115:2 ??? [26] 87.5% loop [61] 12.5% -------------------------------------------------------------------------------- ??? [10] 47.2% for-loop [13] 52.8% [20] 636(2.3%) 0(0.0%) loop ...nterface-bugs/src/core/extraction.rkt:25:2 for-loop [27] 100.0% -------------------------------------------------------------------------------- localize! [16] 100.0% [21] 300(1.1%) 0(0.0%) localize-error ...-bugs/src/core/localize.rkt:64:0 hash-ref! [28] 100.0% -------------------------------------------------------------------------------- gen-rewrites! [14] 100.0% [22] 296(1.1%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:207:4 for-loop [29] 100.0% -------------------------------------------------------------------------------- one-iter [17] 100.0% [23] 10020(36.9%) 0(0.0%) find-matches ...ce-bugs/src/core/simplify.rkt:62:0 for-loop [30] 100.0% -------------------------------------------------------------------------------- for-loop [18] 100.0% [24] 6788(25.0%) 0(0.0%) rewrite-expression-head20 ...core/matcher.rkt:86:0 rewriter [31] 100.0% -------------------------------------------------------------------------------- one-iter [17] 100.0% [25] 6206(22.9%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:74:2 for-loop [32] 100.0% -------------------------------------------------------------------------------- ??? [19] 100.0% [26] 2278(8.4%) 0(0.0%) ??? ...t-7.2/collects/racket/private/kw.rkt:594:14 ??? [92] 65.0% ??? [33] 35.0% -------------------------------------------------------------------------------- loop [20] 100.0% [27] 636(2.3%) 0(0.0%) for-loop ...face-bugs/src/core/extraction.rkt:29:4 for-loop [34] 100.0% -------------------------------------------------------------------------------- localize-error [21] 25.0% map [46] 75.0% [28] 300(1.1%) 0(0.0%) hash-ref! .../racket/private/more-scheme.rkt:376:2 parse-loop30 [35] 100.0% -------------------------------------------------------------------------------- for-loop [22] 100.0% [29] 296(1.1%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:208:6 change-apply [36] 100.0% -------------------------------------------------------------------------------- for-loop [30] 46.9% find-matches [23] 53.1% [30] 10020(36.9%) 628(2.3%) for-loop ...erface-bugs/src/core/simplify.rkt:64:8 for-loop [30] 46.9% match-e [37] 46.9% -------------------------------------------------------------------------------- rewrite-expression-head20 [24] 18.6% matcher [48] 81.4% [31] 6788(25.0%) 1650(6.1%) rewriter ...terface-bugs/src/core/matcher.rkt:88:2 for-loop [38] 91.3% *rules* [40] 1.6% -------------------------------------------------------------------------------- for-loop [25] 100.0% [32] 6206(22.9%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:77:4 merge-egraph-nodes! [39] 64.8% dedup-children! [50] 20.2% mk-enode-rec! [42] 10.2% pattern-substitute [69] 4.8% -------------------------------------------------------------------------------- ??? [26] 100.0% [33] 798(2.9%) 0(0.0%) ??? ...tract/private/arrow-higher-order.rkt:364:33 ival-sub [43] 54.9% ival-div [44] 45.1% -------------------------------------------------------------------------------- for-loop [27] 100.0% [34] 636(2.3%) 0(0.0%) for-loop ...ace-bugs/src/core/extraction.rkt:37:16 for-loop [41] 100.0% -------------------------------------------------------------------------------- hash-ref! [28] 100.0% [35] 300(1.1%) 0(0.0%) parse-loop30 ...s/racket/match/compiler.rkt:418:15 map [46] 75.0% for-loop [45] 25.0% -------------------------------------------------------------------------------- for-loop [29] 100.0% [36] 296(1.1%) 0(0.0%) change-apply ...ace-bugs/src/core/matcher.rkt:70:0 pattern-substitute [69] 100.0% -------------------------------------------------------------------------------- for-loop [59] 34.2% for-loop [30] 65.8% [37] 9392(34.6%) 3100(11.4%) match-e ...interface-bugs/src/core/ematch.rkt:39:0 for-loop [47] 62.3% constant? [85] 10.0% custom-in-set [54] 5.1% variable? [51] 3.5% -------------------------------------------------------------------------------- rewriter [31] 100.0% [38] 6788(25.0%) 354(1.3%) for-loop ...terface-bugs/src/core/matcher.rkt:90:4 matcher [48] 93.9% for-loop [49] 5.4% -------------------------------------------------------------------------------- for-loop [55] 4.0% for-loop [32] 96.0% [39] 4024(14.8%) 0(0.0%) merge-egraph-nodes! ...s/src/core/egraph.rkt:145:0 loop! [68] 68.4% update-leader! [53] 12.3% enode-merge! [57] 7.8% dedup-children! [50] 7.5% for-loop [55] 4.0% -------------------------------------------------------------------------------- rewriter [31] 100.0% [40] 672(2.5%) 0(0.0%) *rules* ...terface-bugs/src/syntax/rules.rkt:666:0 for-loop [52] 100.0% -------------------------------------------------------------------------------- for-loop [34] 100.0% [41] 636(2.3%) 636(2.3%) for-loop ...ace-bugs/src/core/extraction.rkt:41:23 -------------------------------------------------------------------------------- loop [61] 25.5% for-loop [32] 74.5% [42] 632(2.3%) 0(0.0%) mk-enode-rec! ...ce-bugs/src/core/egraph.rkt:117:0 loop [61] 74.5% for-loop [56] 25.5% -------------------------------------------------------------------------------- ??? [33] 100.0% [43] 438(1.6%) 0(0.0%) ival-sub ...terface-bugs/src/biginterval.rkt:100:0 bfmul [102] 100.0% -------------------------------------------------------------------------------- ??? [33] 100.0% [44] 360(1.3%) 360(1.3%) ival-div ...terface-bugs/src/biginterval.rkt:148:0 -------------------------------------------------------------------------------- parse-loop30 [35] 100.0% [45] 300(1.1%) 0(0.0%) for-loop ...rface-bugs/src/core/localize.rkt:51:21 for-loop [58] 100.0% -------------------------------------------------------------------------------- parse-loop30 [35] 100.0% [46] 300(1.1%) 0(0.0%) map ...t-7.2/collects/racket/private/map.rkt:35:13 hash-ref! [28] 100.0% -------------------------------------------------------------------------------- match-e [37] 100.0% [47] 7830(28.8%) 1560(5.7%) for-loop ...terface-bugs/src/core/ematch.rkt:52:11 for-loop [59] 72.2% loop [61] 3.9% do-curry [83] 3.9% foldl [70] 2.1% procedure-reduce-keyword-arity-mask [67] 1.9% -------------------------------------------------------------------------------- for-loop [5] 48.9% for-loop [38] 51.1% [48] 6788(25.0%) 0(0.0%) matcher ...terface-bugs/src/core/matcher.rkt:116:2 ??? [2] 51.1% rewriter [31] 48.9% -------------------------------------------------------------------------------- for-loop [38] 100.0% [49] 2796(10.3%) 324(1.2%) for-loop ...terface-bugs/src/core/matcher.rkt:97:8 fix-up-variables [60] 88.4% -------------------------------------------------------------------------------- merge-egraph-nodes! [39] 19.3% for-loop [32] 80.7% [50] 1554(5.7%) 0(0.0%) dedup-children! ...e-bugs/src/core/enode.rkt:202:0 loop [62] 100.0% -------------------------------------------------------------------------------- match-e [37] 100.0% [51] 988(3.6%) 0(0.0%) variable? ...face-bugs/src/syntax/syntax.rkt:729:0 ??? [78] 66.4% value? [91] 33.6% -------------------------------------------------------------------------------- *rules* [40] 100.0% [52] 672(2.5%) 0(0.0%) for-loop ...fix-interface-bugs/src/common.rkt:74:9 ormap [65] 50.0% flag-set? [64] 50.0% -------------------------------------------------------------------------------- merge-egraph-nodes! [39] 100.0% [53] 656(2.4%) 0(0.0%) update-leader! ...e-bugs/src/core/egraph.rkt:213:0 for-loop [63] 100.0% -------------------------------------------------------------------------------- match-e [37] 100.0% [54] 632(2.3%) 632(2.3%) custom-in-set ...acket/private/set-types.rkt:577:0 -------------------------------------------------------------------------------- merge-egraph-nodes! [39] 100.0% [55] 324(1.2%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:199:4 merge-egraph-nodes! [39] 100.0% -------------------------------------------------------------------------------- mk-enode-rec! [42] 100.0% [56] 322(1.2%) 322(1.2%) for-loop ...erface-bugs/src/core/egraph.rkt:109:10 -------------------------------------------------------------------------------- merge-egraph-nodes! [39] 100.0% [57] 314(1.2%) 0(0.0%) enode-merge! ...face-bugs/src/core/enode.rkt:131:0 adopt-enode! [66] 100.0% -------------------------------------------------------------------------------- for-loop [45] 100.0% [58] 300(1.1%) 0(0.0%) for-loop ...rface-bugs/src/core/localize.rkt:52:23 ??? [104] 100.0% -------------------------------------------------------------------------------- for-loop [47] 100.0% [59] 6282(23.1%) 0(0.0%) for-loop ...terface-bugs/src/core/ematch.rkt:58:37 match-e [37] 92.6% ??? [72] 7.4% -------------------------------------------------------------------------------- for-loop [49] 100.0% [60] 2472(9.1%) 0(0.0%) fix-up-variables ...ugs/src/core/matcher.rkt:109:2 pattern-match [71] 42.9% pattern-substitute [69] 42.7% for-loop [73] 14.4% -------------------------------------------------------------------------------- loop! [68] 0.8% for-loop [47] 1.2% ??? [19] 20.7% loop [61] 36.9% mk-enode-rec! [42] 40.5% [61] 1562(5.8%) 310(1.1%) loop ...-7.2/collects/racket/private/map.rkt:40:19 loop [61] 36.9% ??? [92] 20.7% mk-enode-rec! [42] 20.6% foldl [70] 1.2% loop! [68] 0.8% -------------------------------------------------------------------------------- dedup-children! [50] 25.8% loop [62] 74.2% [62] 1554(5.7%) 1554(5.7%) loop ...racket-7.2/collects/racket/list.rkt:434:17 loop [62] 74.2% -------------------------------------------------------------------------------- update-leader! [53] 100.0% [63] 656(2.4%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:218:6 hash-update! [80] 50.6% for-loop [75] 49.4% -------------------------------------------------------------------------------- for-loop [52] 100.0% [64] 336(1.2%) 336(1.2%) flag-set? ...ix-interface-bugs/src/config.rkt:28:0 -------------------------------------------------------------------------------- for-loop [52] 100.0% [65] 336(1.2%) 0(0.0%) ormap ....2/collects/racket/private/map.rkt:141:13 ??? [74] 100.0% -------------------------------------------------------------------------------- enode-merge! [57] 100.0% [66] 314(1.2%) 314(1.2%) adopt-enode! ...face-bugs/src/core/enode.rkt:109:0 -------------------------------------------------------------------------------- for-loop [47] 100.0% [67] 300(1.1%) 300(1.1%) procedure-reduce-keyword-arity-mask ....rkt:1562:4 -------------------------------------------------------------------------------- loop [61] 7.2% merge-egraph-nodes! [39] 92.8% [68] 2754(10.1%) 0(0.0%) loop! ...x-interface-bugs/src/core/enode.rkt:194:2 custom-set-union [76] 89.2% loop [61] 7.2% set [84] 3.6% -------------------------------------------------------------------------------- change-apply [36] 6.0% for-loop [32] 9.0% fix-up-variables [60] 41.9% pattern-substitute [69] 43.2% [69] 1648(6.1%) 296(1.1%) pattern-substitute ...gs/src/core/matcher.rkt:46:0 pattern-substitute [69] 43.2% ??? [93] 30.8% ??? [78] 11.1% do-curry [83] 6.0% -------------------------------------------------------------------------------- loop [61] 19.3% for-loop [47] 20.8% ??? [2] 59.8% [70] 1594(5.9%) 0(0.0%) foldl ....2/collects/racket/private/list.rkt:229:4 ??? [79] 59.8% merge2 [81] 40.2% -------------------------------------------------------------------------------- fix-up-variables [60] 100.0% [71] 1060(3.9%) 0(0.0%) pattern-match ...ce-bugs/src/core/matcher.rkt:30:0 for-loop [77] 100.0% -------------------------------------------------------------------------------- for-loop [59] 100.0% [72] 624(2.3%) 0(0.0%) ??? ...fix-interface-bugs/src/core/ematch.rkt:43:5 for-loop [82] 100.0% -------------------------------------------------------------------------------- fix-up-variables [60] 100.0% [73] 356(1.3%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:42:9 for-loop [77] 100.0% -------------------------------------------------------------------------------- ormap [65] 100.0% [74] 336(1.2%) 336(1.2%) ??? ...cket-7.2/collects/racket/function.rkt:93:12 -------------------------------------------------------------------------------- for-loop [63] 100.0% [75] 324(1.2%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:219:8 hash-update! [80] 100.0% -------------------------------------------------------------------------------- loop! [68] 100.0% [76] 2456(9.0%) 1824(6.7%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [88] 25.7% -------------------------------------------------------------------------------- for-loop [73] 25.1% pattern-match [71] 74.9% [77] 1416(5.2%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:27:9 core651 [86] 50.6% return/no-unsupplied [89] 25.6% fallback-update [90] 23.9% -------------------------------------------------------------------------------- pattern-substitute [69] 35.8% variable? [51] 64.2% [78] 1022(3.8%) 1022(3.8%) ??? ...contract/private/arrow-val-first.rkt:390:18 -------------------------------------------------------------------------------- foldl [70] 100.0% [79] 954(3.5%) 302(1.1%) ??? ...ix-interface-bugs/src/core/matcher.rkt:26:7 core651 [86] 68.3% -------------------------------------------------------------------------------- for-loop [75] 49.4% for-loop [63] 50.6% [80] 656(2.4%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [87] 100.0% -------------------------------------------------------------------------------- foldl [70] 100.0% [81] 640(2.4%) 640(2.4%) merge2 ...-interface-bugs/src/core/ematch.rkt:24:0 -------------------------------------------------------------------------------- ??? [72] 100.0% [82] 624(2.3%) 0(0.0%) for-loop ...nterface-bugs/src/core/ematch.rkt:44:7 constant? [85] 100.0% -------------------------------------------------------------------------------- pattern-substitute [69] 49.3% for-loop [47] 50.7% [83] 600(2.2%) 600(2.2%) do-curry ...-7.2/collects/racket/function.rkt:71:2 -------------------------------------------------------------------------------- loop! [68] 100.0% [84] 298(1.1%) 298(1.1%) set ...collects/racket/private/set-types.rkt:981:0 -------------------------------------------------------------------------------- for-loop [82] 33.4% match-e [37] 66.6% [85] 1868(6.9%) 0(0.0%) constant? ...face-bugs/src/syntax/syntax.rkt:726:0 value? [91] 100.0% -------------------------------------------------------------------------------- ??? [79] 47.7% for-loop [77] 52.3% [86] 1368(5.0%) 326(1.2%) core651 ...acket/contract/private/arr-i.rkt:929:19 un-dep/maybe-chaperone [94] 49.9% ??? [93] 26.3% -------------------------------------------------------------------------------- hash-update! [80] 100.0% [87] 656(2.4%) 0(0.0%) ??? ...x-interface-bugs/src/core/egraph.rkt:221:24 for-loop [95] 100.0% -------------------------------------------------------------------------------- custom-set-union [76] 100.0% [88] 632(2.3%) 0(0.0%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [96] 100.0% -------------------------------------------------------------------------------- for-loop [77] 100.0% [89] 362(1.3%) 362(1.3%) return/no-unsupplied ...ct/private/arr-i.rkt:542:0 -------------------------------------------------------------------------------- for-loop [77] 100.0% [90] 338(1.2%) 0(0.0%) fallback-update ...s/racket/private/dict.rkt:115:2 ??? [92] 100.0% -------------------------------------------------------------------------------- variable? [51] 15.1% constant? [85] 84.9% [91] 2200(8.1%) 2200(8.1%) value? ...interface-bugs/src/syntax/types.rkt:18:0 -------------------------------------------------------------------------------- loop [61] 15.1% fallback-update [90] 15.8% ??? [26] 69.1% [92] 2142(7.9%) 660(2.4%) ??? ...tract/private/arrow-higher-order.rkt:360:33 ival-mult [97] 54.1% bf [101] 15.1% -------------------------------------------------------------------------------- core651 [86] 34.3% pattern-substitute [69] 65.7% [93] 1050(3.9%) 0(0.0%) ??? ...ects/racket/contract/private/guts.rkt:772:8 dict? [98] 65.7% ??? [99] 34.3% -------------------------------------------------------------------------------- core651 [86] 100.0% [94] 682(2.5%) 0(0.0%) un-dep/maybe-chaperone ...private/arr-i.rkt:1108:2 ??? [103] 52.2% ??? [100] 47.8% -------------------------------------------------------------------------------- ??? [87] 100.0% [95] 656(2.4%) 656(2.4%) for-loop ...erface-bugs/src/core/egraph.rkt:222:26 -------------------------------------------------------------------------------- for-loop [88] 100.0% [96] 632(2.3%) 632(2.3%) for-loop ...cts/racket/private/set-types.rkt:178:5 -------------------------------------------------------------------------------- ??? [92] 100.0% [97] 1158(4.3%) 0(0.0%) ival-mult ...erface-bugs/src/biginterval.rkt:112:0 bfmul [102] 100.0% -------------------------------------------------------------------------------- ??? [93] 100.0% [98] 690(2.5%) 690(2.5%) dict? ...ollects/racket/private/generic.rkt:146:11 -------------------------------------------------------------------------------- ??? [93] 100.0% [99] 360(1.3%) 360(1.3%) ??? /opt/racket-7.2/collects/racket/dict.rkt:11:8 -------------------------------------------------------------------------------- un-dep/maybe-chaperone [94] 100.0% [100] 326(1.2%) 0(0.0%) ??? ...llects/racket/contract/private/orc.rkt:88:2 ??? [103] 100.0% -------------------------------------------------------------------------------- ??? [92] 100.0% [101] 324(1.2%) 0(0.0%) bf ...ath-lib/math/private/bigfloat/mpfr.rkt:601:2 new-mpfr [105] 100.0% -------------------------------------------------------------------------------- ival-sub [43] 27.4% ival-mult [97] 72.6% [102] 1596(5.9%) 0(0.0%) bfmul ...-lib/math/private/bigfloat/mpfr.rkt:821:4 ??? [104] 72.6% new-mpfr [105] 27.4% -------------------------------------------------------------------------------- ??? [100] 47.8% un-dep/maybe-chaperone [94] 52.2% [103] 682(2.5%) 0(0.0%) ??? ...cts/racket/contract/private/guts.rkt:837:10 ??? [106] 100.0% -------------------------------------------------------------------------------- for-loop [58] 20.6% bfmul [102] 79.4% [104] 1458(5.4%) 1458(5.4%) ??? /opt/racket-7.2/collects/ffi/unsafe.rkt:905:4 -------------------------------------------------------------------------------- bf [101] 42.5% bfmul [102] 57.5% [105] 762(2.8%) 762(2.8%) new-mpfr ...b/math/private/bigfloat/mpfr.rkt:335:0 -------------------------------------------------------------------------------- ??? [103] 100.0% [106] 682(2.5%) 682(2.5%) ??? ...ntract/private/arrow-higher-order.rkt:560:2 --------------------------------------------------------------------------------