Profiling results ----------------- Total cpu time observed: 22272ms (out of 22524ms) Number of samples taken: 64 (once every 348ms) ================================================================================ Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee ================================================================================ run [9] 50.0% [1] 22272(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [5] 50.0% run-improve47 [4] 50.0% -------------------------------------------------------------------------------- matcher [65] 100.0% [2] 2946(13.2%) 0(0.0%) ??? ...-interface-bugs/src/core/matcher.rkt:128:11 for-loop [6] 94.9% for-loop [8] 5.1% -------------------------------------------------------------------------------- ??? [54] 100.0% [3] 304(1.4%) 0(0.0%) approximate9 ...face-bugs/src/core/taylor.rkt:12:0 taylor-quotient [7] 100.0% -------------------------------------------------------------------------------- ??? [1] 100.0% [4] 22272(100.0%) 0(0.0%) run-improve47 ...rface-bugs/src/mainloop.rkt:345:0 simplify! [10] 77.1% for-loop [11] 14.6% prepare-points-intervals [12] 8.3% -------------------------------------------------------------------------------- ??? [1] 100.0% [5] 22272(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [9] 100.0% -------------------------------------------------------------------------------- ??? [2] 100.0% [6] 2946(13.2%) 0(0.0%) for-loop ...rface-bugs/src/core/matcher.rkt:130:15 matcher [65] 100.0% -------------------------------------------------------------------------------- approximate9 [3] 100.0% [7] 304(1.4%) 0(0.0%) taylor-quotient ...-bugs/src/core/taylor.rkt:334:0 first-nonzero-exp [13] 100.0% -------------------------------------------------------------------------------- ??? [2] 100.0% [8] 302(1.4%) 0(0.0%) for-loop ...erface-bugs/src/core/matcher.rkt:104:4 foldl [14] 100.0% -------------------------------------------------------------------------------- profile-thunk16 [5] 100.0% [9] 22272(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% [10] 17178(77.1%) 0(0.0%) simplify! ...interface-bugs/src/mainloop.rkt:223:0 ??? [15] 100.0% -------------------------------------------------------------------------------- run-improve47 [4] 100.0% [11] 3250(14.6%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:364:4 run-iter! [16] 100.0% -------------------------------------------------------------------------------- run-improve47 [4] 100.0% [12] 1844(8.3%) 0(0.0%) prepare-points-intervals ...s/src/points.rkt:121:0 loop [17] 100.0% -------------------------------------------------------------------------------- taylor-quotient [7] 100.0% [13] 304(1.4%) 0(0.0%) first-nonzero-exp ...ugs/src/core/taylor.rkt:266:0 hash-ref! [18] 100.0% -------------------------------------------------------------------------------- for-loop [8] 100.0% [14] 302(1.4%) 0(0.0%) foldl ....2/collects/racket/private/list.rkt:229:4 ??? [19] 100.0% -------------------------------------------------------------------------------- simplify! [10] 100.0% [15] 17178(77.1%) 0(0.0%) ??? ...x-interface-bugs/src/core/simplify.rkt:26:0 for-loop [20] 98.3% loop [26] 1.7% -------------------------------------------------------------------------------- for-loop [11] 100.0% [16] 3250(14.6%) 0(0.0%) run-iter! ...interface-bugs/src/mainloop.rkt:326:0 gen-rewrites! [21] 90.6% gen-series! [25] 9.4% -------------------------------------------------------------------------------- prepare-points-intervals [12] 100.0% [17] 1844(8.3%) 0(0.0%) loop ...ie/fix-interface-bugs/src/points.rkt:134:4 loop [22] 83.3% ??? [23] 16.7% -------------------------------------------------------------------------------- first-nonzero-exp [13] 100.0% [18] 304(1.4%) 0(0.0%) hash-ref! .../racket/private/more-scheme.rkt:376:2 simplify [24] 100.0% -------------------------------------------------------------------------------- foldl [14] 100.0% [19] 302(1.4%) 0(0.0%) ??? ...ix-interface-bugs/src/core/matcher.rkt:26:7 core651 [105] 100.0% -------------------------------------------------------------------------------- ??? [15] 100.0% [20] 16878(75.8%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:35:2 one-iter [27] 100.0% -------------------------------------------------------------------------------- run-iter! [16] 100.0% [21] 2946(13.2%) 0(0.0%) gen-rewrites! ...rface-bugs/src/mainloop.rkt:182:0 for-loop [28] 100.0% -------------------------------------------------------------------------------- loop [17] 100.0% [22] 1536(6.9%) 0(0.0%) loop ...bie/fix-interface-bugs/src/points.rkt:80:2 ??? [29] 100.0% -------------------------------------------------------------------------------- loop [17] 100.0% [23] 308(1.4%) 0(0.0%) ??? ...bie/fix-interface-bugs/src/points.rkt:114:6 sample-multi-bounded [30] 100.0% -------------------------------------------------------------------------------- hash-ref! [18] 100.0% [24] 304(1.4%) 0(0.0%) simplify ...nterface-bugs/src/core/reduce.rkt:16:0 f45 [31] 100.0% -------------------------------------------------------------------------------- run-iter! [16] 100.0% [25] 304(1.4%) 0(0.0%) gen-series! ...terface-bugs/src/mainloop.rkt:159:0 for-loop [32] 100.0% -------------------------------------------------------------------------------- ??? [15] 100.0% [26] 300(1.3%) 0(0.0%) loop ...nterface-bugs/src/core/extraction.rkt:25:2 for-loop [33] 100.0% -------------------------------------------------------------------------------- for-loop [20] 100.0% [27] 16878(75.8%) 0(0.0%) one-iter ...erface-bugs/src/core/simplify.rkt:72:0 for-loop [34] 69.3% find-matches [35] 28.5% for-loop [38] 2.2% -------------------------------------------------------------------------------- gen-rewrites! [21] 100.0% [28] 2946(13.2%) 0(0.0%) for-loop ...interface-bugs/src/mainloop.rkt:190:11 rewrite-expression-head20 [36] 100.0% -------------------------------------------------------------------------------- loop [22] 100.0% [29] 1536(6.9%) 0(0.0%) ??? ...e/fix-interface-bugs/src/programs.rkt:115:2 ??? [37] 100.0% -------------------------------------------------------------------------------- ??? [23] 100.0% [30] 308(1.4%) 0(0.0%) sample-multi-bounded ...e-bugs/src/points.rkt:15:0 random-ranges [39] 100.0% -------------------------------------------------------------------------------- map [40] 50.0% simplify [24] 50.0% [31] 304(1.4%) 0(0.0%) f45 ...2/collects/racket/match/compiler.rkt:507:40 map [40] 100.0% -------------------------------------------------------------------------------- gen-series! [25] 100.0% [32] 304(1.4%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:166:7 taylor-alt [41] 100.0% -------------------------------------------------------------------------------- loop [26] 100.0% [33] 300(1.3%) 0(0.0%) for-loop ...face-bugs/src/core/extraction.rkt:29:4 for-loop [42] 100.0% -------------------------------------------------------------------------------- one-iter [27] 100.0% [34] 11700(52.5%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:74:2 for-loop [43] 100.0% -------------------------------------------------------------------------------- one-iter [27] 100.0% [35] 4810(21.6%) 0(0.0%) find-matches ...ce-bugs/src/core/simplify.rkt:62:0 for-loop [44] 100.0% -------------------------------------------------------------------------------- for-loop [28] 100.0% [36] 2946(13.2%) 0(0.0%) rewrite-expression-head20 ...core/matcher.rkt:86:0 rewriter [45] 100.0% -------------------------------------------------------------------------------- ??? [29] 100.0% [37] 1536(6.9%) 0(0.0%) ??? ...t-7.2/collects/racket/private/kw.rkt:594:14 ??? [46] 60.5% ??? [54] 39.5% -------------------------------------------------------------------------------- one-iter [27] 100.0% [38] 368(1.7%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:81:2 set-precompute! [47] 100.0% -------------------------------------------------------------------------------- sample-multi-bounded [30] 100.0% [39] 308(1.4%) 308(1.4%) random-ranges ...terface-bugs/src/common.rkt:183:0 -------------------------------------------------------------------------------- f45 [31] 100.0% [40] 304(1.4%) 0(0.0%) map ...t-7.2/collects/racket/private/map.rkt:35:13 f45 [31] 50.0% simplify-node [48] 50.0% -------------------------------------------------------------------------------- for-loop [32] 100.0% [41] 304(1.4%) 0(0.0%) taylor-alt ...nterface-bugs/src/mainloop.rkt:145:0 for-loop [49] 100.0% -------------------------------------------------------------------------------- for-loop [33] 100.0% [42] 300(1.3%) 300(1.3%) for-loop ...ace-bugs/src/core/extraction.rkt:37:16 -------------------------------------------------------------------------------- for-loop [34] 100.0% [43] 11700(52.5%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:77:4 merge-egraph-nodes! [50] 68.4% dedup-children! [61] 26.3% mk-enode-rec! [56] 2.8% pattern-substitute [60] 2.6% -------------------------------------------------------------------------------- for-loop [44] 43.6% find-matches [35] 56.4% [44] 4810(21.6%) 612(2.7%) for-loop ...erface-bugs/src/core/simplify.rkt:64:8 for-loop [44] 43.6% match-e [51] 43.6% -------------------------------------------------------------------------------- rewrite-expression-head20 [36] 24.1% matcher [65] 75.9% [45] 2946(13.2%) 0(0.0%) rewriter ...terface-bugs/src/core/matcher.rkt:88:2 for-loop [52] 85.0% *rules* [53] 15.0% -------------------------------------------------------------------------------- ??? [37] 100.0% [46] 930(4.2%) 314(1.4%) ??? ...tract/private/arrow-higher-order.rkt:364:33 ival-sub [58] 33.1% ival-log [57] 33.1% -------------------------------------------------------------------------------- for-loop [38] 100.0% [47] 368(1.7%) 0(0.0%) set-precompute! ...bugs/src/core/simplify.rkt:88:0 for-loop [55] 100.0% -------------------------------------------------------------------------------- map [40] 100.0% [48] 304(1.4%) 0(0.0%) simplify-node ...ace-bugs/src/core/reduce.rkt:48:0 gather-additive-terms6 [59] 100.0% -------------------------------------------------------------------------------- taylor-alt [41] 100.0% [49] 304(1.4%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:151:6 ??? [54] 100.0% -------------------------------------------------------------------------------- merge-egraph-nodes! [50] 5.7% for-loop [63] 18.5% for-loop [43] 75.8% [50] 8004(35.9%) 0(0.0%) merge-egraph-nodes! ...s/src/core/egraph.rkt:145:0 update-leader! [64] 34.2% loop! [66] 24.4% for-loop [63] 18.5% dedup-children! [61] 17.2% merge-egraph-nodes! [50] 5.7% -------------------------------------------------------------------------------- for-loop [79] 20.3% for-loop [44] 79.7% [51] 4198(18.8%) 0(0.0%) match-e ...interface-bugs/src/core/ematch.rkt:39:0 for-loop [62] 84.5% constant? [70] 10.7% variable? [72] 2.4% ??? [75] 2.4% -------------------------------------------------------------------------------- rewriter [45] 100.0% [52] 2946(13.2%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:90:4 matcher [65] 96.0% for-loop [68] 4.0% -------------------------------------------------------------------------------- rewriter [45] 100.0% [53] 1962(8.8%) 0(0.0%) *rules* ...terface-bugs/src/syntax/rules.rkt:666:0 for-loop [67] 100.0% -------------------------------------------------------------------------------- location-do [74] 16.7% for-loop [49] 16.7% ??? [37] 66.6% [54] 910(4.1%) 0(0.0%) ??? ...tract/private/arrow-higher-order.rkt:360:33 ival-mult [69] 66.6% location-do [74] 16.7% approximate9 [3] 16.7% -------------------------------------------------------------------------------- set-precompute! [47] 100.0% [55] 368(1.7%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:90:2 setfindf [71] 100.0% -------------------------------------------------------------------------------- for-loop [43] 100.0% [56] 322(1.4%) 322(1.4%) mk-enode-rec! ...ce-bugs/src/core/egraph.rkt:117:0 -------------------------------------------------------------------------------- ??? [46] 100.0% [57] 308(1.4%) 308(1.4%) ival-log ...terface-bugs/src/biginterval.rkt:186:0 -------------------------------------------------------------------------------- ??? [46] 100.0% [58] 308(1.4%) 0(0.0%) ival-sub ...terface-bugs/src/biginterval.rkt:100:0 bfmul [85] 100.0% -------------------------------------------------------------------------------- simplify-node [48] 100.0% [59] 304(1.4%) 0(0.0%) gather-additive-terms6 ...src/core/reduce.rkt:70:0 append-map [73] 100.0% -------------------------------------------------------------------------------- pattern-substitute [60] 50.0% for-loop [43] 50.0% [60] 300(1.3%) 300(1.3%) pattern-substitute ...gs/src/core/matcher.rkt:46:0 pattern-substitute [60] 50.0% -------------------------------------------------------------------------------- merge-egraph-nodes! [50] 44.4% for-loop [43] 55.6% [61] 5528(24.8%) 0(0.0%) dedup-children! ...e-bugs/src/core/enode.rkt:202:0 loop [76] 100.0% -------------------------------------------------------------------------------- match-e [51] 100.0% [62] 3898(17.5%) 2694(12.1%) for-loop ...terface-bugs/src/core/ematch.rkt:52:11 for-loop [79] 30.9% procedure-reduce-keyword-arity-mask [89] 7.7% -------------------------------------------------------------------------------- merge-egraph-nodes! [50] 100.0% [63] 3064(13.8%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:199:4 merge-egraph-nodes! [50] 100.0% -------------------------------------------------------------------------------- merge-egraph-nodes! [50] 100.0% [64] 3038(13.6%) 0(0.0%) update-leader! ...e-bugs/src/core/egraph.rkt:213:0 for-loop [77] 100.0% -------------------------------------------------------------------------------- for-loop [6] 48.3% for-loop [52] 51.7% [65] 2946(13.2%) 0(0.0%) matcher ...terface-bugs/src/core/matcher.rkt:116:2 ??? [2] 51.7% rewriter [45] 48.3% -------------------------------------------------------------------------------- loop [78] 32.2% merge-egraph-nodes! [50] 67.8% [66] 2512(11.3%) 0(0.0%) loop! ...x-interface-bugs/src/core/enode.rkt:194:2 custom-set-union [83] 35.7% loop [78] 32.2% set [80] 20.3% update-en-expr [86] 11.8% -------------------------------------------------------------------------------- *rules* [53] 100.0% [67] 1962(8.8%) 366(1.6%) for-loop ...fix-interface-bugs/src/common.rkt:74:9 ormap [81] 48.5% flag-set? [91] 16.9% do-curry [87] 15.9% -------------------------------------------------------------------------------- for-loop [52] 100.0% [68] 682(3.1%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:97:8 fix-up-variables [84] 100.0% -------------------------------------------------------------------------------- ??? [54] 100.0% [69] 606(2.7%) 296(1.3%) ival-mult ...erface-bugs/src/biginterval.rkt:112:0 bfmul [85] 51.2% -------------------------------------------------------------------------------- match-e [51] 100.0% [70] 600(2.7%) 0(0.0%) constant? ...face-bugs/src/syntax/syntax.rkt:726:0 value? [82] 100.0% -------------------------------------------------------------------------------- for-loop [55] 100.0% [71] 368(1.7%) 368(1.7%) setfindf ...ix-interface-bugs/src/common.rkt:142:0 -------------------------------------------------------------------------------- match-e [51] 100.0% [72] 306(1.4%) 0(0.0%) variable? ...face-bugs/src/syntax/syntax.rkt:729:0 value? [82] 100.0% -------------------------------------------------------------------------------- gather-additive-terms6 [59] 100.0% [73] 304(1.4%) 0(0.0%) append-map ...t-7.2/collects/racket/list.rkt:586:2 parse-loop373 [88] 100.0% -------------------------------------------------------------------------------- ??? [54] 100.0% [74] 304(1.4%) 0(0.0%) location-do ...nterface-bugs/src/programs.rkt:64:0 ??? [54] 100.0% -------------------------------------------------------------------------------- match-e [51] 100.0% [75] 298(1.3%) 298(1.3%) ??? ...contract/private/arrow-val-first.rkt:390:18 -------------------------------------------------------------------------------- dedup-children! [61] 6.7% loop [76] 93.3% [76] 5528(24.8%) 5528(24.8%) loop ...racket-7.2/collects/racket/list.rkt:434:17 loop [76] 93.3% -------------------------------------------------------------------------------- update-leader! [64] 100.0% [77] 3038(13.6%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:218:6 for-loop [90] 80.1% hash-update! [99] 19.9% -------------------------------------------------------------------------------- loop! [66] 9.1% loop [78] 90.9% [78] 1616(7.3%) 0(0.0%) loop ...-7.2/collects/racket/private/map.rkt:40:19 loop [78] 90.9% loop! [66] 9.1% -------------------------------------------------------------------------------- for-loop [62] 100.0% [79] 1504(6.8%) 0(0.0%) for-loop ...terface-bugs/src/core/ematch.rkt:58:37 match-e [51] 100.0% -------------------------------------------------------------------------------- loop! [66] 100.0% [80] 1022(4.6%) 1022(4.6%) set ...collects/racket/private/set-types.rkt:981:0 -------------------------------------------------------------------------------- for-loop [67] 100.0% [81] 952(4.3%) 0(0.0%) ormap ....2/collects/racket/private/map.rkt:141:13 flag-set? [91] 65.8% ??? [93] 34.2% -------------------------------------------------------------------------------- variable? [72] 33.8% constant? [70] 66.2% [82] 906(4.1%) 906(4.1%) value? ...interface-bugs/src/syntax/types.rkt:18:0 -------------------------------------------------------------------------------- loop! [66] 100.0% [83] 896(4.0%) 298(1.3%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [97] 33.7% for-loop [98] 33.0% -------------------------------------------------------------------------------- for-loop [68] 100.0% [84] 682(3.1%) 0(0.0%) fix-up-variables ...ugs/src/core/matcher.rkt:109:2 for-loop [92] 100.0% -------------------------------------------------------------------------------- ival-sub [58] 49.8% ival-mult [69] 50.2% [85] 618(2.8%) 0(0.0%) bfmul ...-lib/math/private/bigfloat/mpfr.rkt:821:4 ??? [94] 50.2% new-mpfr [95] 49.8% -------------------------------------------------------------------------------- loop! [66] 100.0% [86] 594(2.7%) 594(2.7%) update-en-expr ...e-bugs/src/core/egraph.rkt:207:0 -------------------------------------------------------------------------------- for-loop [67] 100.0% [87] 312(1.4%) 312(1.4%) do-curry ...-7.2/collects/racket/function.rkt:71:2 -------------------------------------------------------------------------------- append-map [73] 100.0% [88] 304(1.4%) 0(0.0%) parse-loop373 .../racket/match/compiler.rkt:418:15 make-multiplication-node [96] 100.0% -------------------------------------------------------------------------------- for-loop [62] 100.0% [89] 300(1.3%) 300(1.3%) procedure-reduce-keyword-arity-mask ....rkt:1562:4 -------------------------------------------------------------------------------- for-loop [77] 100.0% [90] 2432(10.9%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:219:8 hash-update! [99] 100.0% -------------------------------------------------------------------------------- for-loop [67] 34.7% ormap [81] 65.3% [91] 958(4.3%) 626(2.8%) flag-set? ...ix-interface-bugs/src/config.rkt:28:0 return/no-unsupplied [101] 34.7% -------------------------------------------------------------------------------- fix-up-variables [84] 100.0% [92] 682(3.1%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:42:9 for-loop [100] 100.0% -------------------------------------------------------------------------------- ormap [81] 100.0% [93] 326(1.5%) 326(1.5%) ??? ...cket-7.2/collects/racket/function.rkt:93:12 -------------------------------------------------------------------------------- bfmul [85] 100.0% [94] 310(1.4%) 310(1.4%) ??? /opt/racket-7.2/collects/ffi/unsafe.rkt:905:4 -------------------------------------------------------------------------------- bfmul [85] 100.0% [95] 308(1.4%) 308(1.4%) new-mpfr ...b/math/private/bigfloat/mpfr.rkt:335:0 -------------------------------------------------------------------------------- parse-loop373 [88] 100.0% [96] 304(1.4%) 0(0.0%) make-multiplication-node .../core/reduce.rkt:234:0 make-multiplication-subnode [102] 100.0% -------------------------------------------------------------------------------- custom-set-union [83] 100.0% [97] 302(1.4%) 0(0.0%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [103] 100.0% -------------------------------------------------------------------------------- custom-set-union [83] 100.0% [98] 296(1.3%) 296(1.3%) for-loop ...cts/racket/private/set-types.rkt:152:2 -------------------------------------------------------------------------------- for-loop [77] 19.9% for-loop [90] 80.1% [99] 3038(13.6%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [104] 100.0% -------------------------------------------------------------------------------- for-loop [92] 100.0% [100] 682(3.1%) 0(0.0%) for-loop ...terface-bugs/src/core/matcher.rkt:27:9 core651 [105] 100.0% -------------------------------------------------------------------------------- flag-set? [91] 100.0% [101] 332(1.5%) 0(0.0%) return/no-unsupplied ...ct/private/arr-i.rkt:542:0 filter [106] 100.0% -------------------------------------------------------------------------------- make-multiplication-node [96] 100.0% [102] 304(1.4%) 0(0.0%) make-multiplication-subnode ...re/reduce.rkt:244:0 group-by61 [107] 100.0% -------------------------------------------------------------------------------- for-loop [97] 100.0% [103] 302(1.4%) 302(1.4%) for-loop ...cts/racket/private/set-types.rkt:178:5 -------------------------------------------------------------------------------- hash-update! [99] 100.0% [104] 3038(13.6%) 0(0.0%) ??? ...x-interface-bugs/src/core/egraph.rkt:221:24 for-loop [108] 100.0% -------------------------------------------------------------------------------- ??? [19] 30.7% for-loop [100] 69.3% [105] 984(4.4%) 0(0.0%) core651 ...acket/contract/private/arr-i.rkt:929:19 or/c [109] 66.9% unsafe-chaperone-procedure [110] 33.1% -------------------------------------------------------------------------------- return/no-unsupplied [101] 100.0% [106] 332(1.5%) 332(1.5%) filter ...2/collects/racket/private/list.rkt:256:2 -------------------------------------------------------------------------------- make-multiplication-subnode [102] 100.0% [107] 304(1.4%) 304(1.4%) group-by61 ...t-7.2/collects/racket/list.rkt:771:0 -------------------------------------------------------------------------------- ??? [104] 100.0% [108] 3038(13.6%) 3038(13.6%) for-loop ...erface-bugs/src/core/egraph.rkt:222:26 -------------------------------------------------------------------------------- core651 [105] 100.0% [109] 658(3.0%) 658(3.0%) or/c ...lects/racket/contract/private/orc.rkt:16:2 -------------------------------------------------------------------------------- core651 [105] 100.0% [110] 326(1.5%) 326(1.5%) unsafe-chaperone-procedure ...ivate/kw.rkt:1772:11 --------------------------------------------------------------------------------