Profiling results ----------------- Total cpu time observed: 38578ms (out of 38988ms) Number of samples taken: 124 (once every 311ms) (Hiding functions with self<1.0% and local<2.0%: 2 of 109 hidden) ====================================================================== Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee ====================================================================== run [8] 50.0% [1] 38578(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [5] 50.0% run-improve47 [4] 50.0% ---------------------------------------------------------------------- matcher [41] 100.0% [2] 1654(4.3%) 0(0.0%) ??? ...-interface-bugs/src/core/matcher.rkt:128:11 for-loop [6] 69.8% for-loop [7] 30.2% ---------------------------------------------------------------------- hash-ref! [55] 100.0% [3] 328(0.9%) 0(0.0%) ??? ...e/fix-interface-bugs/src/programs.rkt:163:5 loop [39] 100.0% ---------------------------------------------------------------------- ??? [1] 100.0% [4] 38578(100.0%) 0(0.0%) run-improve47 ...rface-bugs/src/mainloop.rkt:345:0 simplify! [9] 92.0% for-loop [10] 5.1% loop [11] 2.8% ---------------------------------------------------------------------- ??? [1] 100.0% [5] 38578(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [8] 100.0% ---------------------------------------------------------------------- ??? [2] 100.0% [6] 1326(3.4%) 0(0.0%) for-loop ...rface-bugs/src/core/matcher.rkt:130:15 matcher [41] 100.0% ---------------------------------------------------------------------- ??? [2] 100.0% [7] 672(1.7%) 0(0.0%) for-loop ...erface-bugs/src/core/matcher.rkt:104:4 foldl [53] 100.0% ---------------------------------------------------------------------- profile-thunk16 [5] 100.0% [8] 38578(100.0%) 0(0.0%) run ...et-7.2/share/pkgs/profile-lib/main.rkt:39:2 ??? [1] 100.0% ---------------------------------------------------------------------- run-improve47 [4] 100.0% [9] 35510(92.0%) 0(0.0%) simplify! ...interface-bugs/src/mainloop.rkt:223:0 ??? [12] 100.0% ---------------------------------------------------------------------- run-improve47 [4] 100.0% [10] 1980(5.1%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:364:4 run-iter! [13] 100.0% ---------------------------------------------------------------------- run-improve47 [4] 100.0% [11] 1088(2.8%) 0(0.0%) loop ...ie/fix-interface-bugs/src/points.rkt:292:2 make-exacts-walkup [14] 64.3% loop [15] 35.7% ---------------------------------------------------------------------- simplify! [9] 100.0% [12] 35510(92.0%) 0(0.0%) ??? ...x-interface-bugs/src/core/simplify.rkt:26:0 for-loop [16] 99.2% ---------------------------------------------------------------------- for-loop [10] 100.0% [13] 1980(5.1%) 0(0.0%) run-iter! ...interface-bugs/src/mainloop.rkt:326:0 gen-rewrites! [17] 83.5% localize! [19] 16.5% ---------------------------------------------------------------------- loop [11] 100.0% [14] 700(1.8%) 0(0.0%) make-exacts-walkup ...ce-bugs/src/points.rkt:233:0 loop [39] 53.1% eval-prog [18] 46.9% ---------------------------------------------------------------------- loop [11] 100.0% [15] 388(1.0%) 0(0.0%) loop ...ie/fix-interface-bugs/src/points.rkt:238:4 loop [39] 100.0% ---------------------------------------------------------------------- ??? [12] 100.0% [16] 35210(91.3%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:35:2 one-iter [20] 100.0% ---------------------------------------------------------------------- run-iter! [13] 100.0% [17] 1654(4.3%) 0(0.0%) gen-rewrites! ...rface-bugs/src/mainloop.rkt:182:0 for-loop [21] 100.0% ---------------------------------------------------------------------- make-exacts-walkup [14] 100.0% [18] 328(0.9%) 0(0.0%) eval-prog ...-interface-bugs/src/programs.rkt:83:0 hash-ref! [55] 100.0% ---------------------------------------------------------------------- run-iter! [13] 100.0% [19] 326(0.8%) 0(0.0%) localize! ...interface-bugs/src/mainloop.rkt:126:0 localize-error [22] 100.0% ---------------------------------------------------------------------- for-loop [16] 100.0% [20] 35210(91.3%) 0(0.0%) one-iter ...erface-bugs/src/core/simplify.rkt:72:0 for-loop [23] 77.1% find-matches [24] 20.2% for-loop [26] 1.8% for-loop [27] 0.9% ---------------------------------------------------------------------- gen-rewrites! [17] 100.0% [21] 1654(4.3%) 0(0.0%) for-loop ...interface-bugs/src/mainloop.rkt:190:11 rewrite-expression-head20 [25]100.0% ---------------------------------------------------------------------- localize! [19] 100.0% [22] 326(0.8%) 0(0.0%) localize-error ...-bugs/src/core/localize.rkt:64:0 hash-ref! [55] 100.0% ---------------------------------------------------------------------- one-iter [20] 100.0% [23] 27160(70.4%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:74:2 for-loop [28] 100.0% ---------------------------------------------------------------------- one-iter [20] 100.0% [24] 7098(18.4%) 0(0.0%) find-matches ...ce-bugs/src/core/simplify.rkt:62:0 for-loop [29] 100.0% ---------------------------------------------------------------------- for-loop [21] 100.0% [25] 1654(4.3%) 0(0.0%) rewrite-expression-head20 ...core/matcher.rkt:86:0 rewriter [30] 100.0% ---------------------------------------------------------------------- one-iter [20] 100.0% [26] 626(1.6%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:81:2 set-precompute! [31] 100.0% ---------------------------------------------------------------------- one-iter [20] 100.0% [27] 326(0.8%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:84:2 update-leader! [50] 100.0% ---------------------------------------------------------------------- for-loop [23] 100.0% [28] 27160(70.4%) 300(0.8%) for-loop ...erface-bugs/src/core/simplify.rkt:77:4 merge-egraph-nodes! [38] 45.7% dedup-children! [48] 33.1% mk-enode-rec! [33] 11.1% pattern-substitute [34] 9.0% ---------------------------------------------------------------------- for-loop [29] 50.0% find-matches [24] 50.0% [29] 7098(18.4%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:64:8 for-loop [29] 50.0% match-e [32] 50.0% ---------------------------------------------------------------------- matcher [41] 46.6% rewrite-expression-head20 [25] 53.4% [30] 1654(4.3%) 0(0.0%) rewriter ...terface-bugs/src/core/matcher.rkt:88:2 for-loop [35] 85.9% *rules* [36] 14.1% ---------------------------------------------------------------------- for-loop [26] 100.0% [31] 626(1.6%) 0(0.0%) set-precompute! ...bugs/src/core/simplify.rkt:88:0 for-loop [37] 100.0% ---------------------------------------------------------------------- for-loop [49] 29.8% for-loop [29] 70.2% [32] 7098(18.4%) 922(2.4%) match-e ...interface-bugs/src/core/ematch.rkt:39:0 for-loop [40] 77.3% constant? [92] 8.7% variable? [42] 5.2% ---------------------------------------------------------------------- loop [39] 24.8% for-loop [28] 75.2% [33] 3008(7.8%) 890(2.3%) mk-enode-rec! ...ce-bugs/src/core/egraph.rkt:117:0 loop [39] 34.8% hash-has-key? [44] 16.1% do-curry [54] 14.7% new-enode [46] 9.8% ---------------------------------------------------------------------- pattern-substitute [34] 40.0% for-loop [28] 60.0% [34] 2446(6.3%) 298(0.8%) pattern-substitute ...gs/src/core/matcher.rkt:46:0 pattern-substitute [34] 40.0% ??? [51] 18.4% constant? [92] 16.0% variable? [42] 6.8% return/no-unsupplied [70] 6.7% ---------------------------------------------------------------------- rewriter [30] 100.0% [35] 1654(4.3%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:90:4 matcher [41] 90.9% for-loop [45] 9.1% ---------------------------------------------------------------------- rewriter [30] 100.0% [36] 680(1.8%) 0(0.0%) *rules* ...terface-bugs/src/syntax/rules.rkt:666:0 for-loop [43] 100.0% ---------------------------------------------------------------------- set-precompute! [31] 100.0% [37] 626(1.6%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:90:2 merge-egraph-nodes! [38] 100.0% ---------------------------------------------------------------------- merge-egraph-nodes! [38] 2.4% for-loop [37] 4.8% for-loop [28] 91.7% [38] 13046(33.8%) 0(0.0%) merge-egraph-nodes! ...s/src/core/egraph.rkt:145:0 loop! [47] 80.0% update-leader! [50] 14.1% merge-egraph-nodes! [38] 2.4% dedup-children! [48] 2.4% ---------------------------------------------------------------------- loop [15] 0.0% make-exacts-walkup [14] 0.2% map [87] 0.3% ??? [3] 2.9% mk-enode-rec! [33] 13.2% loop! [47] 17.3% loop [39] 66.1% [39] 11314(29.3%) 302(0.8%) loop ...-7.2/collects/racket/private/map.rkt:40:19 loop [39] 66.1% loop! [47] 17.3% mk-enode-rec! [33] 10.6% hash-ref! [55] 2.9% ??? [51] 1.3% ??? [94] 0.3% composed [57] 0.2% ??? [68] 0.0% ---------------------------------------------------------------------- match-e [32] 100.0% [40] 6474(16.8%) 2112(5.5%) for-loop ...terface-bugs/src/core/ematch.rkt:52:11 for-loop [49] 55.3% cartesian-product [56] 7.3% foldl [53] 4.6% make-curried [58] 2.5% do-curry [54] 2.3% ---------------------------------------------------------------------- for-loop [6] 36.6% for-loop [35] 63.4% [41] 1654(4.3%) 0(0.0%) matcher ...terface-bugs/src/core/matcher.rkt:116:2 ??? [2] 63.4% rewriter [30] 36.6% ---------------------------------------------------------------------- pattern-substitute [34] 26.0% match-e [32] 74.0% [42] 1284(3.3%) 0(0.0%) variable? ...face-bugs/src/syntax/syntax.rkt:729:0 ??? [52] 76.2% value? [100] 23.8% ---------------------------------------------------------------------- *rules* [36] 100.0% [43] 680(1.8%) 358(0.9%) for-loop ...fix-interface-bugs/src/common.rkt:74:9 flag-set? [59] 47.4% ---------------------------------------------------------------------- mk-enode-rec! [33] 100.0% [44] 634(1.6%) 634(1.6%) hash-has-key? ...ket/private/more-scheme.rkt:371:2 ---------------------------------------------------------------------- for-loop [35] 100.0% [45] 302(0.8%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:97:8 fix-up-variables [60] 100.0% ---------------------------------------------------------------------- mk-enode-rec! [33] 100.0% [46] 294(0.8%) 0(0.0%) new-enode ...terface-bugs/src/core/enode.rkt:101:0 type-of-enode-expr [61] 100.0% ---------------------------------------------------------------------- loop [39] 39.0% merge-egraph-nodes! [38] 61.0% [47] 10894(28.2%) 2448(6.3%) loop! ...x-interface-bugs/src/core/enode.rkt:194:2 loop [39] 39.0% set [63] 27.5% custom-set-union [64] 16.9% update-en-expr [67] 4.4% ---------------------------------------------------------------------- merge-egraph-nodes! [38] 3.3% for-loop [28] 96.7% [48] 9294(24.1%) 0(0.0%) dedup-children! ...e-bugs/src/core/enode.rkt:202:0 loop [62] 83.1% loop [65] 16.9% ---------------------------------------------------------------------- for-loop [40] 100.0% [49] 4354(11.3%) 0(0.0%) for-loop ...terface-bugs/src/core/ematch.rkt:58:37 match-e [32] 89.1% ??? [71] 10.9% ---------------------------------------------------------------------- for-loop [27] 15.0% merge-egraph-nodes! [38] 85.0% [50] 2170(5.6%) 0(0.0%) update-leader! ...e-bugs/src/core/egraph.rkt:213:0 for-loop [66] 72.3% for-loop [74] 14.2% custom-set-union! [76] 13.5% ---------------------------------------------------------------------- loop [39] 24.8% pattern-substitute [34] 75.2% [51] 1194(3.1%) 1194(3.1%) ??? ...cket-7.2/collects/racket/function.rkt:93:12 ---------------------------------------------------------------------- variable? [42] 100.0% [52] 978(2.5%) 978(2.5%) ??? ...contract/private/arrow-val-first.rkt:390:18 ---------------------------------------------------------------------- for-loop [40] 30.9% for-loop [7] 69.1% [53] 972(2.5%) 300(0.8%) foldl ....2/collects/racket/private/list.rkt:229:4 ??? [69] 69.1% ---------------------------------------------------------------------- for-loop [40] 33.8% mk-enode-rec! [33] 66.2% [54] 894(2.3%) 894(2.3%) do-curry ...-7.2/collects/racket/function.rkt:71:2 ---------------------------------------------------------------------- eval-prog [18] 10.0% localize-error [22] 12.5% map [87] 37.4% loop [39] 40.1% [55] 654(1.7%) 0(0.0%) hash-ref! .../racket/private/more-scheme.rkt:376:2 parse-loop30 [73] 49.8% ??? [3] 40.1% bigfloat-hash [72] 10.0% ---------------------------------------------------------------------- for-loop [40] 100.0% [56] 620(1.6%) 620(1.6%) cartesian-product ...ollects/racket/list.rkt:822:0 ---------------------------------------------------------------------- loop [39] 100.0% [57] 372(1.0%) 0(0.0%) composed ...ollects/racket/private/list.rkt:321:16 ??? [68] 100.0% ---------------------------------------------------------------------- for-loop [40] 100.0% [58] 330(0.9%) 330(0.9%) make-curried ...collects/racket/function.rkt:130:9 ---------------------------------------------------------------------- for-loop [43] 100.0% [59] 322(0.8%) 0(0.0%) flag-set? ...ix-interface-bugs/src/config.rkt:28:0 return/no-unsupplied [70] 100.0% ---------------------------------------------------------------------- for-loop [45] 100.0% [60] 302(0.8%) 0(0.0%) fix-up-variables ...ugs/src/core/matcher.rkt:109:2 for-loop [75] 100.0% ---------------------------------------------------------------------- new-enode [46] 100.0% [61] 294(0.8%) 0(0.0%) type-of-enode-expr ...bugs/src/core/enode.rkt:66:0 table-ref [77] 100.0% ---------------------------------------------------------------------- dedup-children! [48] 22.6% loop [62] 77.4% [62] 7724(20.0%) 0(0.0%) loop ...racket-7.2/collects/racket/list.rkt:417:34 loop [62] 77.4% member [79] 14.0% loop [78] 8.5% ---------------------------------------------------------------------- loop! [47] 100.0% [63] 5348(13.9%) 5348(13.9%) set ...collects/racket/private/set-types.rkt:981:0 ---------------------------------------------------------------------- loop! [47] 100.0% [64] 2140(5.5%) 908(2.4%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [81] 43.6% for-loop [89] 14.0% ---------------------------------------------------------------------- dedup-children! [48] 36.0% loop [65] 64.0% [65] 1570(4.1%) 1570(4.1%) loop ...racket-7.2/collects/racket/list.rkt:434:17 loop [65] 64.0% ---------------------------------------------------------------------- update-leader! [50] 100.0% [66] 1568(4.1%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:218:6 for-loop [80] 60.8% hash-update! [93] 39.2% ---------------------------------------------------------------------- loop! [47] 100.0% [67] 958(2.5%) 958(2.5%) update-en-expr ...e-bugs/src/core/egraph.rkt:207:0 ---------------------------------------------------------------------- composed [57] 48.9% loop [39] 51.1% [68] 760(2.0%) 0(0.0%) ??? ...e/fix-interface-bugs/src/programs.rkt:115:2 ??? [83] 51.1% ??? [84] 48.9% ---------------------------------------------------------------------- foldl [53] 100.0% [69] 672(1.7%) 0(0.0%) ??? ...ix-interface-bugs/src/core/matcher.rkt:26:7 fallback-update [95] 51.2% core651 [86] 48.8% ---------------------------------------------------------------------- flag-set? [59] 49.7% pattern-substitute [34] 50.3% [70] 648(1.7%) 648(1.7%) return/no-unsupplied ...ct/private/arr-i.rkt:542:0 ---------------------------------------------------------------------- for-loop [49] 100.0% [71] 622(1.6%) 0(0.0%) ??? ...fix-interface-bugs/src/core/ematch.rkt:43:5 for-loop [82] 100.0% ---------------------------------------------------------------------- hash-ref! [55] 100.0% [72] 328(0.9%) 0(0.0%) bigfloat-hash ...h/private/bigfloat/mpfr.rkt:167:0 bfcanonicalize [85] 100.0% ---------------------------------------------------------------------- hash-ref! [55] 100.0% [73] 326(0.8%) 0(0.0%) parse-loop30 ...s/racket/match/compiler.rkt:418:15 map [87] 100.0% ---------------------------------------------------------------------- update-leader! [50] 100.0% [74] 308(0.8%) 308(0.8%) for-loop ...terface-bugs/src/core/egraph.rkt:228:6 ---------------------------------------------------------------------- fix-up-variables [60] 100.0% [75] 302(0.8%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:42:9 for-loop [88] 100.0% ---------------------------------------------------------------------- update-leader! [50] 100.0% [76] 294(0.8%) 0(0.0%) custom-set-union! ...t/private/set-types.rkt:245:0 for-loop [90] 100.0% ---------------------------------------------------------------------- type-of-enode-expr [61] 100.0% [77] 294(0.8%) 0(0.0%) table-ref ...ix-interface-bugs/src/common.rkt:45:0 dict? [91] 100.0% ---------------------------------------------------------------------- loop [62] 100.0% [78] 4622(12.0%) 4622(12.0%) loop (unknown source) ---------------------------------------------------------------------- loop [62] 100.0% [79] 3102(8.0%) 3102(8.0%) member (unknown source) ---------------------------------------------------------------------- for-loop [66] 100.0% [80] 954(2.5%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:219:8 hash-update! [93] 100.0% ---------------------------------------------------------------------- custom-set-union [64] 100.0% [81] 932(2.4%) 294(0.8%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [96] 68.5% ---------------------------------------------------------------------- ??? [71] 100.0% [82] 622(1.6%) 0(0.0%) for-loop ...nterface-bugs/src/core/ematch.rkt:44:7 constant? [92] 100.0% ---------------------------------------------------------------------- ??? [68] 100.0% [83] 388(1.0%) 0(0.0%) ??? ...tract/private/arrow-higher-order.rkt:360:33 bf [97] 100.0% ---------------------------------------------------------------------- ??? [68] 100.0% [84] 372(1.0%) 0(0.0%) ??? ...t-7.2/collects/racket/private/kw.rkt:594:14 ??? [94] 100.0% ---------------------------------------------------------------------- bigfloat-hash [72] 100.0% [85] 328(0.9%) 0(0.0%) bfcanonicalize .../private/bigfloat/mpfr.rkt:157:0 bigfloat->sig+exp [98] 100.0% ---------------------------------------------------------------------- ??? [69] 100.0% [86] 328(0.9%) 0(0.0%) core651 ...acket/contract/private/arr-i.rkt:929:19 un-dep/maybe-chaperone [99] 100.0% ---------------------------------------------------------------------- parse-loop30 [73] 100.0% [87] 326(0.8%) 0(0.0%) map ...t-7.2/collects/racket/private/map.rkt:35:13 hash-ref! [55] 75.0% loop [39] 25.0% ---------------------------------------------------------------------- for-loop [75] 100.0% [88] 302(0.8%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:27:9 fallback-update [95] 100.0% ---------------------------------------------------------------------- custom-set-union [64] 100.0% [89] 300(0.8%) 300(0.8%) for-loop ...cts/racket/private/set-types.rkt:152:2 ---------------------------------------------------------------------- custom-set-union! [76] 100.0% [90] 294(0.8%) 294(0.8%) for-loop ...cts/racket/private/set-types.rkt:253:4 ---------------------------------------------------------------------- table-ref [77] 100.0% [91] 294(0.8%) 294(0.8%) dict? ...ollects/racket/private/generic.rkt:146:11 ---------------------------------------------------------------------- pattern-substitute [34] 27.4% for-loop [82] 28.9% match-e [32] 43.7% [92] 2152(5.6%) 0(0.0%) constant? ...face-bugs/src/syntax/syntax.rkt:726:0 value? [100] 100.0% ---------------------------------------------------------------------- for-loop [66] 39.2% for-loop [80] 60.8% [93] 1568(4.1%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [101] 100.0% ---------------------------------------------------------------------- loop [39] 46.7% ??? [84] 53.3% [94] 698(1.8%) 326(0.8%) ??? ...-racket/utils/simple-result-arrow.rkt:39:12 bfcos [102] 53.3% ---------------------------------------------------------------------- for-loop [88] 46.7% ??? [69] 53.3% [95] 646(1.7%) 646(1.7%) fallback-update ...s/racket/private/dict.rkt:115:2 ---------------------------------------------------------------------- for-loop [81] 100.0% [96] 638(1.7%) 638(1.7%) for-loop ...cts/racket/private/set-types.rkt:178:5 ---------------------------------------------------------------------- ??? [83] 100.0% [97] 388(1.0%) 0(0.0%) bf ...ath-lib/math/private/bigfloat/mpfr.rkt:601:2 ??? [105] 100.0% ---------------------------------------------------------------------- bfcanonicalize [85] 100.0% [98] 328(0.9%) 328(0.9%) bigfloat->sig+exp ...ivate/bigfloat/mpfr.rkt:372:0 ---------------------------------------------------------------------- core651 [86] 100.0% [99] 328(0.9%) 0(0.0%) un-dep/maybe-chaperone ...private/arr-i.rkt:1108:2 ??? [103] 100.0% ---------------------------------------------------------------------- variable? [42] 12.4% constant? [92] 87.6% [100] 2458(6.4%) 2458(6.4%) value? ...interface-bugs/src/syntax/types.rkt:18:0 ---------------------------------------------------------------------- hash-update! [93] 100.0% [101] 1568(4.1%) 0(0.0%) ??? ...x-interface-bugs/src/core/egraph.rkt:221:24 for-loop [104] 100.0% ---------------------------------------------------------------------- ??? [94] 100.0% [102] 372(1.0%) 0(0.0%) bfcos ...-lib/math/private/bigfloat/mpfr.rkt:618:4 ??? [105] 100.0% ---------------------------------------------------------------------- un-dep/maybe-chaperone [99] 100.0% [103] 328(0.9%) 0(0.0%) ??? ...llects/racket/contract/private/orc.rkt:88:2 ??? [106] 100.0% ---------------------------------------------------------------------- ??? [101] 100.0% [104] 1568(4.1%) 1568(4.1%) for-loop ...erface-bugs/src/core/egraph.rkt:222:26 ---------------------------------------------------------------------- bfcos [102] 48.9% bf [97] 51.1% [105] 760(2.0%) 760(2.0%) ??? /opt/racket-7.2/collects/ffi/unsafe.rkt:905:4 ---------------------------------------------------------------------- ??? [103] 100.0% [106] 328(0.9%) 0(0.0%) ??? ...cts/racket/contract/private/guts.rkt:837:10 ??? [107] 100.0% ---------------------------------------------------------------------- ??? [106] 100.0% [107] 328(0.9%) 328(0.9%) ??? ...ntract/private/arrow-higher-order.rkt:560:2 ----------------------------------------------------------------------