Profiling results ----------------- Total cpu time observed: 143176ms (out of 146608ms) Number of samples taken: 353 (once every 406ms) (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 [10] 50.0% [1] 143176(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [5] 50.0% loop [17] 37.6% run-improve39 [6] 12.4% ----------------------------------------------------------------------------- loop [54] 100.0% [2] 26908(18.8%) 0(0.0%) set-precompute! ...ler/src/core/simplify.rkt:151:0 for-loop [7] 100.0% ----------------------------------------------------------------------------- loop [33] 33.8% for-loop [75] 66.2% [3] 970(0.7%) 0(0.0%) syntax-e (unknown source) syntax-e/no-taint [8] 100.0% ----------------------------------------------------------------------------- for-loop [75] 100.0% [4] 328(0.2%) 0(0.0%) dispatch-transformer41 (unknown source) apply-transformer52 [9] 100.0% ----------------------------------------------------------------------------- ??? [1] 100.0% [5] 143176(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [10] 100.0% ----------------------------------------------------------------------------- ??? [1] 100.0% [6] 35554(24.8%) 0(0.0%) run-improve39 ...al-sampler/src/mainloop.rkt:287:0 for-loop [11] 86.5% setup-prog!32 [13] 11.7% for-loop [15] 1.8% ----------------------------------------------------------------------------- set-precompute! [2] 100.0% [7] 26908(18.8%) 0(0.0%) for-loop ...al-sampler/src/core/simplify.rkt:153:2 reduce-to-new! [12] 49.7% update-leader! [62] 43.1% eval-const-expr [14] 7.2% ----------------------------------------------------------------------------- syntax-e [3] 100.0% [8] 970(0.7%) 0(0.0%) syntax-e/no-taint (unknown source) loop [33] 100.0% ----------------------------------------------------------------------------- dispatch-transformer41 [4] 100.0% [9] 328(0.2%) 0(0.0%) apply-transformer52 (unknown source) apply-transformer-in-context [16] 100.0% ----------------------------------------------------------------------------- profile-thunk16 [5] 100.0% [10] 143176(100.0%) 0(0.0%) run ...racket/share/pkgs/profile-lib/main.rkt:39:2 ??? [1] 100.0% ----------------------------------------------------------------------------- run-improve39 [6] 100.0% [11] 30756(21.5%) 0(0.0%) for-loop ...terval-sampler/src/mainloop.rkt:299:29 ??? [18] 100.0% ----------------------------------------------------------------------------- for-loop [7] 100.0% [12] 13372(9.3%) 0(0.0%) reduce-to-new! ...ampler/src/core/egraph.rkt:334:0 merge-egraph-nodes! [55] 97.5% hash-update! [79] 2.5% ----------------------------------------------------------------------------- run-improve39 [6] 100.0% [13] 4146(2.9%) 0(0.0%) setup-prog!32 ...val-sampler/src/mainloop.rkt:63:0 loop [17] 100.0% ----------------------------------------------------------------------------- for-loop [7] 100.0% [14] 1930(1.3%) 0(0.0%) eval-const-expr ...-sampler/src/programs.rkt:127:0 eval-prog [19] 100.0% ----------------------------------------------------------------------------- run-improve39 [6] 100.0% [15] 652(0.5%) 0(0.0%) for-loop ...nterval-sampler/src/mainloop.rkt:304:8 run-iter! [20] 100.0% ----------------------------------------------------------------------------- apply-transformer52 [9] 100.0% [16] 328(0.2%) 0(0.0%) apply-transformer-in-context (unknown source) parse-app [21] 100.0% ----------------------------------------------------------------------------- setup-prog!32 [13] 3.7% ??? [1] 96.3% [17] 111768(78.1%) 0(0.0%) loop ...e/biginterval-sampler/src/points.rkt:241:2 loop [29] 34.6% loop [22] 32.7% make-exacts-walkup [30] 32.7% ----------------------------------------------------------------------------- for-loop [11] 100.0% [18] 30756(21.5%) 0(0.0%) ??? ...interval-sampler/src/core/simplify.rkt:31:0 iterate-egraph!7 [23] 98.9% loop [27] 1.1% ----------------------------------------------------------------------------- make-exacts-walkup [30] 25.8% eval-const-expr [14] 74.2% [19] 2600(1.8%) 0(0.0%) eval-prog ...terval-sampler/src/programs.rkt:108:0 temp68_2 [24] 75.6% inductor [26] 24.4% ----------------------------------------------------------------------------- for-loop [15] 100.0% [20] 652(0.5%) 0(0.0%) run-iter! ...terval-sampler/src/mainloop.rkt:268:0 localize-error [25] 100.0% ----------------------------------------------------------------------------- apply-transformer-in-context [16] 100.0% [21] 328(0.2%) 0(0.0%) parse-app ...collects/racket/private/kw.rkt:1105:2 syntax->list [28] 100.0% ----------------------------------------------------------------------------- loop [17] 100.0% [22] 36600(25.6%) 0(0.0%) loop ...e/biginterval-sampler/src/points.rkt:124:2 loop [29] 56.1% make-exacts-walkup [30] 43.9% ----------------------------------------------------------------------------- ??? [18] 100.0% [23] 30420(21.2%) 0(0.0%) iterate-egraph!7 ...ler/src/core/simplify.rkt:61:0 one-iter [31] 100.0% ----------------------------------------------------------------------------- eval-prog [19] 100.0% [24] 1966(1.4%) 0(0.0%) temp68_2 (unknown source) compile16 [32] 100.0% ----------------------------------------------------------------------------- run-iter! [20] 100.0% [25] 652(0.5%) 0(0.0%) localize-error ...mpler/src/core/localize.rkt:51:0 hash-ref! [34] 100.0% ----------------------------------------------------------------------------- eval-prog [19] 100.0% [26] 634(0.4%) 0(0.0%) inductor ...nterval-sampler/src/programs.rkt:113:4 table-ref [86] 100.0% ----------------------------------------------------------------------------- ??? [18] 100.0% [27] 336(0.2%) 0(0.0%) loop ...terval-sampler/src/core/simplify.rkt:195:2 for-loop [35] 100.0% ----------------------------------------------------------------------------- parse-app [21] 100.0% [28] 328(0.2%) 0(0.0%) syntax->list (unknown source) loop [33] 100.0% ----------------------------------------------------------------------------- loop [22] 34.7% loop [17] 65.3% [29] 59172(41.3%) 0(0.0%) loop ...e/biginterval-sampler/src/points.rkt:107:4 loop [54] 97.1% composed [61] 2.9% ----------------------------------------------------------------------------- loop [22] 30.5% loop [17] 69.5% [30] 52596(36.7%) 0(0.0%) make-exacts-walkup ...sampler/src/points.rkt:104:0 loop [54] 98.7% eval-prog [19] 1.3% ----------------------------------------------------------------------------- iterate-egraph!7 [23] 100.0% [31] 30420(21.2%) 0(0.0%) one-iter ...val-sampler/src/core/simplify.rkt:72:0 map-enodes [36] 88.5% for-loop [37] 8.4% for-loop [39] 3.1% ----------------------------------------------------------------------------- temp68_2 [24] 100.0% [32] 1966(1.4%) 0(0.0%) compile16 (unknown source) temp74_0 [38] 100.0% ----------------------------------------------------------------------------- syntax->list [28] 10.0% for-loop [75] 40.7% syntax-e/no-taint [8] 49.3% [33] 1636(1.1%) 658(0.5%) loop (unknown source) expand-id-application-form17 [40] 40.7% gf [44] 19.1% syntax-e [3] 10.0% ----------------------------------------------------------------------------- map [48] 10.5% loop [54] 31.5% localize-error [25] 58.0% [34] 652(0.5%) 0(0.0%) hash-ref! .../racket/private/more-scheme.rkt:376:2 f8 [41] 58.0% parse-loop14 [42] 42.0% ----------------------------------------------------------------------------- loop [27] 100.0% [35] 336(0.2%) 0(0.0%) for-loop ...l-sampler/src/core/simplify.rkt:188:29 argmin [43] 100.0% ----------------------------------------------------------------------------- one-iter [31] 100.0% [36] 26908(18.8%) 0(0.0%) map-enodes ...al-sampler/src/core/egraph.rkt:140:0 loop [54] 100.0% ----------------------------------------------------------------------------- one-iter [31] 100.0% [37] 2560(1.8%) 0(0.0%) for-loop ...al-sampler/src/core/simplify.rkt:123:2 for-loop [45] 75.8% update-leader! [62] 24.2% ----------------------------------------------------------------------------- compile16 [32] 100.0% [38] 1966(1.4%) 0(0.0%) temp74_0 (unknown source) expand-single [46] 83.2% compile-top9 [51] 16.8% ----------------------------------------------------------------------------- for-loop [39] 50.0% one-iter [31] 50.0% [39] 952(0.7%) 0(0.0%) for-loop ...al-sampler/src/core/simplify.rkt:83:12 for-loop [39] 50.0% match-e [49] 33.9% ??? [53] 16.1% ----------------------------------------------------------------------------- loop [33] 100.0% [40] 666(0.5%) 0(0.0%) expand-id-application-form17 (unknown source) resolve+shift28 [47] 100.0% ----------------------------------------------------------------------------- hash-ref! [34] 100.0% [41] 652(0.5%) 0(0.0%) f8 ...et/collects/racket/match/compiler.rkt:507:40 map [48] 100.0% ----------------------------------------------------------------------------- hash-ref! [34] 100.0% [42] 342(0.2%) 0(0.0%) parse-loop14 ...s/racket/match/compiler.rkt:418:15 loop [54] 100.0% ----------------------------------------------------------------------------- for-loop [35] 100.0% [43] 336(0.2%) 0(0.0%) argmin ...92/racket/collects/racket/list.rkt:765:0 for-loop [50] 100.0% ----------------------------------------------------------------------------- loop [33] 100.0% [44] 312(0.2%) 0(0.0%) gf (unknown source) propagation-apply [52] 100.0% ----------------------------------------------------------------------------- for-loop [37] 100.0% [45] 1940(1.4%) 0(0.0%) for-loop ...al-sampler/src/core/simplify.rkt:106:4 merge-egraph-nodes! [55] 49.1% substitute-e [58] 33.6% mk-enode! [71] 17.3% ----------------------------------------------------------------------------- temp74_0 [38] 100.0% [46] 1636(1.1%) 0(0.0%) expand-single (unknown source) expand-capturing-lifts [56] 100.0% ----------------------------------------------------------------------------- expand-id-application-form17 [40] 100.0% [47] 666(0.5%) 0(0.0%) resolve+shift28 (unknown source) fallback-loop [57] 100.0% ----------------------------------------------------------------------------- loop [54] 26.2% f8 [41] 73.8% [48] 652(0.5%) 0(0.0%) map ...acket/collects/racket/private/map.rkt:35:13 loop [54] 47.5% hash-ref! [34] 26.2% ??? [64] 26.2% ----------------------------------------------------------------------------- for-loop [39] 100.0% [49] 646(0.5%) 346(0.2%) match-e ...terval-sampler/src/core/ematch.rkt:39:0 make-sequence [60] 46.4% ----------------------------------------------------------------------------- argmin [43] 100.0% [50] 336(0.2%) 0(0.0%) for-loop ...nterval-sampler/src/programs.rkt:183:2 table-ref [86] 100.0% ----------------------------------------------------------------------------- temp74_0 [38] 100.0% [51] 330(0.2%) 0(0.0%) compile-top9 (unknown source) compile-forms31 [59] 100.0% ----------------------------------------------------------------------------- gf [44] 100.0% [52] 312(0.2%) 312(0.2%) propagation-apply (unknown source) ----------------------------------------------------------------------------- for-loop [39] 100.0% [53] 306(0.2%) 306(0.2%) ??? ...iginterval-sampler/src/core/ematch.rkt:43:5 ----------------------------------------------------------------------------- map [48] 0.0% parse-loop14 [42] 0.0% loop [29] 0.3% map-enodes [36] 0.5% make-exacts-walkup [30] 0.6% loop [54] 98.6% [54] 136970(95.7%) 310(0.2%) loop ...cket/collects/racket/private/map.rkt:40:19 loop [54] 98.6% composed [61] 0.9% set-precompute! [2] 0.5% hash-ref! [34] 0.0% map [48] 0.0% ??? [64] 0.0% ----------------------------------------------------------------------------- for-loop [45] 6.8% reduce-to-new! [12] 91.9% [55] 13988(9.8%) 0(0.0%) merge-egraph-nodes! ...r/src/core/egraph.rkt:153:0 update-leader! [62] 96.2% for-loop [66] 2.6% ----------------------------------------------------------------------------- expand-single [46] 100.0% [56] 1636(1.1%) 0(0.0%) expand-capturing-lifts (unknown source) lambda-clause-expander [63] 100.0% ----------------------------------------------------------------------------- resolve+shift28 [47] 100.0% [57] 666(0.5%) 0(0.0%) fallback-loop (unknown source) for-loop [75] 100.0% ----------------------------------------------------------------------------- for-loop [65] 22.9% for-loop [45] 77.1% [58] 652(0.5%) 0(0.0%) substitute-e ...l-sampler/src/core/ematch.rkt:64:0 for-loop [65] 100.0% ----------------------------------------------------------------------------- compile-top9 [51] 100.0% [59] 330(0.2%) 0(0.0%) compile-forms31 (unknown source) for-loop [75] 100.0% ----------------------------------------------------------------------------- match-e [49] 100.0% [60] 300(0.2%) 300(0.2%) make-sequence ...ects/racket/private/for.rkt:528:2 ----------------------------------------------------------------------------- loop [29] 1.5% loop [54] 98.5% [61] 109906(76.8%) 0(0.0%) composed ...ollects/racket/private/list.rkt:321:16 ??? [67] 100.0% ----------------------------------------------------------------------------- for-loop [37] 2.4% for-loop [7] 44.9% merge-egraph-nodes! [55] 52.7% [62] 25852(18.1%) 0(0.0%) update-leader! ...ampler/src/core/egraph.rkt:215:0 for-loop [68] 97.6% custom-set-union! [72] 2.4% ----------------------------------------------------------------------------- expand-capturing-lifts [56] 100.0% [63] 1636(1.1%) 0(0.0%) lambda-clause-expander (unknown source) finish-bodys [69] 100.0% ----------------------------------------------------------------------------- map [48] 22.3% loop [54] 77.7% [64] 1534(1.1%) 514(0.4%) ??? ...tract/private/arrow-higher-order.rkt:357:33 ->flonum [70] 66.5% ----------------------------------------------------------------------------- substitute-e [58] 100.0% [65] 652(0.5%) 0(0.0%) for-loop ...rval-sampler/src/core/ematch.rkt:73:24 mk-enode! [71] 77.1% substitute-e [58] 22.9% ----------------------------------------------------------------------------- merge-egraph-nodes! [55] 100.0% [66] 362(0.3%) 362(0.3%) for-loop ...iginterval-sampler/src/common.rkt:92:9 ----------------------------------------------------------------------------- composed [61] 100.0% [67] 109906(76.8%) 0(0.0%) ??? .../biginterval-sampler/src/programs.rkt:124:2 ??? [73] 100.0% ----------------------------------------------------------------------------- update-leader! [62] 100.0% [68] 25232(17.6%) 660(0.5%) for-loop ...rval-sampler/src/core/egraph.rkt:220:6 for-loop [74] 96.1% update-en-expr [97] 1.3% ----------------------------------------------------------------------------- lambda-clause-expander [63] 16.1% for-loop [75] 83.9% [69] 1636(1.1%) 0(0.0%) finish-bodys (unknown source) for-loop [75] 100.0% ----------------------------------------------------------------------------- ??? [64] 100.0% [70] 1020(0.7%) 1020(0.7%) ->flonum ...interval-sampler/src/programs.rkt:36:0 ----------------------------------------------------------------------------- for-loop [45] 34.0% for-loop [65] 66.0% [71] 988(0.7%) 0(0.0%) mk-enode! ...val-sampler/src/core/egraph.rkt:102:0 new-enode [76] 100.0% ----------------------------------------------------------------------------- update-leader! [62] 100.0% [72] 620(0.4%) 0(0.0%) custom-set-union! ...t/private/set-types.rkt:245:0 for-loop [77] 100.0% ----------------------------------------------------------------------------- ??? [67] 100.0% [73] 109906(76.8%) 8812(6.2%) ??? ...acket/collects/racket/private/kw.rkt:592:14 ??? [78] 88.2% bf [80] 2.0% ??? [82] 0.9% ----------------------------------------------------------------------------- for-loop [68] 100.0% [74] 24238(16.9%) 0(0.0%) for-loop ...rval-sampler/src/core/egraph.rkt:221:8 hash-update! [79] 100.0% ----------------------------------------------------------------------------- fallback-loop [57] 3.7% for-loop [75] 6.7% compile-forms31 [59] 16.8% finish-bodys [69] 72.8% [75] 1966(1.4%) 996(0.7%) for-loop (unknown source) finish-bodys [69] 61.9% for-loop [75] 6.7% syntax-e [3] 3.9% loop [33] 3.7% dispatch-transformer41 [4] 3.3% ----------------------------------------------------------------------------- mk-enode! [71] 100.0% [76] 988(0.7%) 0(0.0%) new-enode ...erval-sampler/src/core/enode.rkt:95:0 type-of-enode-expr [81] 100.0% ----------------------------------------------------------------------------- custom-set-union! [72] 100.0% [77] 620(0.4%) 620(0.4%) for-loop ...cts/racket/private/set-types.rkt:253:4 ----------------------------------------------------------------------------- ??? [73] 100.0% [78] 96900(67.7%) 1008(0.7%) ??? ...tract/private/arrow-higher-order.rkt:361:33 bf-complex-mult [83] 89.9% bf-complex-add [85] 9.1% ----------------------------------------------------------------------------- reduce-to-new! [12] 1.4% for-loop [74] 98.6% [79] 24574(17.2%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [84] 98.6% ??? [88] 1.4% ----------------------------------------------------------------------------- ??? [73] 100.0% [80] 2166(1.5%) 964(0.7%) bf ...ath-lib/math/private/bigfloat/mpfr.rkt:601:2 new-mpfr [103] 55.5% ----------------------------------------------------------------------------- new-enode [76] 100.0% [81] 988(0.7%) 0(0.0%) type-of-enode-expr ...pler/src/core/enode.rkt:68:0 for-loop [102] 35.8% ??? [89] 34.0% table-ref [86] 30.2% ----------------------------------------------------------------------------- ??? [73] 100.0% [82] 956(0.7%) 0(0.0%) ??? ...ects/racket/contract/private/prop.rkt:519:4 ??? [87] 100.0% ----------------------------------------------------------------------------- ??? [78] 100.0% [83] 87094(60.8%) 5218(3.6%) bf-complex-mult ...sampler/src/bigcomplex.rkt:30:0 bf* [90] 56.4% ??? [96] 32.0% ...higher-order.rkt:361:33 [92] 5.6% ----------------------------------------------------------------------------- hash-update! [79] 100.0% [84] 24238(16.9%) 0(0.0%) ??? ...interval-sampler/src/core/egraph.rkt:223:24 for-loop [91] 100.0% ----------------------------------------------------------------------------- ??? [78] 100.0% [85] 8798(6.1%) 0(0.0%) bf-complex-add ...-sampler/src/bigcomplex.rkt:23:0 ??? [96] 94.1% ...higher-order.rkt:361:33 [92] 5.9% ----------------------------------------------------------------------------- type-of-enode-expr [81] 23.5% for-loop [50] 26.5% inductor [26] 50.0% [86] 1268(0.9%) 0(0.0%) table-ref ...ginterval-sampler/src/common.rkt:47:0 ??? [93] 75.2% ??? [107] 24.8% ----------------------------------------------------------------------------- ??? [82] 100.0% [87] 956(0.7%) 956(0.7%) ??? ...lects/racket/contract/private/orc.rkt:83:14 ----------------------------------------------------------------------------- hash-update! [79] 100.0% [88] 336(0.2%) 0(0.0%) ??? ...interval-sampler/src/core/egraph.rkt:346:16 for-loop [94] 100.0% ----------------------------------------------------------------------------- type-of-enode-expr [81] 100.0% [89] 336(0.2%) 0(0.0%) ??? ...ects/racket/contract/private/hash.rkt:227:4 contract-pos/neg-doubling/proc [95]100.0% ----------------------------------------------------------------------------- bf-complex-mult [83] 100.0% [90] 49082(34.3%) 346(0.2%) bf* ...ath/private/bigfloat/bigfloat-mpfr.rkt:95:0 ??? [96] 99.3% ----------------------------------------------------------------------------- ??? [84] 100.0% [91] 24238(16.9%) 19252(13.4%) for-loop ...val-sampler/src/core/egraph.rkt:224:26 update-en-expr [97] 20.6% ----------------------------------------------------------------------------- bf-complex-add [85] 9.6% bf-complex-mult [83] 90.4% [92] 5418(3.8%) 0(0.0%) ...higher-order.rkt:361:33 (unknown source) ??? [105] 100.0% ----------------------------------------------------------------------------- table-ref [86] 100.0% [93] 954(0.7%) 634(0.4%) ??? ...ects/racket/contract/private/list.rkt:798:4 for-loop [98] 33.5% ----------------------------------------------------------------------------- ??? [88] 100.0% [94] 336(0.2%) 336(0.2%) for-loop ...val-sampler/src/core/egraph.rkt:347:18 ----------------------------------------------------------------------------- ??? [89] 100.0% [95] 336(0.2%) 336(0.2%) contract-pos/neg-doubling/proc ...e/guts.rkt:956:0 ----------------------------------------------------------------------------- bf-complex-add [85] 9.8% bf-complex-mult [83] 32.9% bf* [90] 57.4% [96] 84910(59.3%) 6306(4.4%) ??? ...-racket/utils/simple-result-arrow.rkt:39:12 bfmul [99] 85.7% bfneg [100] 6.9% ----------------------------------------------------------------------------- for-loop [68] 6.3% for-loop [91] 93.7% [97] 5320(3.7%) 2712(1.9%) update-en-expr ...ampler/src/core/egraph.rkt:209:0 for-loop [101] 49.0% ----------------------------------------------------------------------------- ??? [93] 100.0% [98] 320(0.2%) 0(0.0%) for-loop ...acket/contract/private/list.rkt:804:12 for-loop [102] 100.0% ----------------------------------------------------------------------------- ??? [96] 100.0% [99] 72746(50.8%) 2248(1.6%) bfmul ...-lib/math/private/bigfloat/mpfr.rkt:821:4 new-mpfr [103] 68.1% ??? [104] 28.8% ----------------------------------------------------------------------------- ??? [96] 100.0% [100] 5858(4.1%) 950(0.7%) bfneg ...-lib/math/private/bigfloat/mpfr.rkt:618:4 new-mpfr [103] 68.0% ??? [104] 15.8% ----------------------------------------------------------------------------- update-en-expr [97] 100.0% [101] 2608(1.8%) 2608(1.8%) for-loop ...rval-sampler/src/core/egraph.rkt:211:6 ----------------------------------------------------------------------------- for-loop [98] 47.5% type-of-enode-expr [81] 52.5% [102] 674(0.5%) 0(0.0%) for-loop ...racket/contract/private/hash.rkt:277:6 ??? [105] 100.0% ----------------------------------------------------------------------------- bf [80] 2.2% bfneg [100] 7.3% bfmul [99] 90.5% [103] 54730(38.2%) 54730(38.2%) new-mpfr ...b/math/private/bigfloat/mpfr.rkt:335:0 ----------------------------------------------------------------------------- bfneg [100] 4.2% bfmul [99] 95.8% [104] 21878(15.3%) 21878(15.3%) ??? /home/p92/racket/collects/ffi/unsafe.rkt:898:4 ----------------------------------------------------------------------------- for-loop [102] 11.1% ...higher-order.rkt:361:33 [92] 88.9% [105] 6092(4.3%) 4638(3.2%) ??? ...cts/racket/contract/private/list.rkt:209:10 ??? [107] 18.1% ??? [106] 5.8% ----------------------------------------------------------------------------- ??? [105] 100.0% [106] 354(0.2%) 0(0.0%) ??? ...ects/racket/contract/private/list.rkt:747:7 ??? [107] 100.0% ----------------------------------------------------------------------------- table-ref [86] 17.8% ??? [106] 20.0% ??? [105] 62.2% [107] 1768(1.2%) 1768(1.2%) ??? ...ects/racket/contract/private/guts.rkt:746:8 -----------------------------------------------------------------------------