Profiling results ----------------- Total cpu time observed: 692888ms (out of 694712ms) Number of samples taken: 2371 (once every 292ms) (Hiding functions with self<1.0% and local<2.0%: 3 of 110 hidden) =========================================================================== Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee =========================================================================== ??? [5] 100.0% [1] 692888(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [3] 100.0% --------------------------------------------------------------------------- ??? [5] 100.0% [2] 300(0.0%) 0(0.0%) errors ...lies/herbie/develop/src/points.rkt:228:0 for-loop [4] 100.0% --------------------------------------------------------------------------- profile-thunk16 [1] 100.0% [3] 692888(100.0%) 0(0.0%) run ...et-7.0/share/pkgs/profile-lib/main.rkt:39:2 ??? [5] 100.0% --------------------------------------------------------------------------- errors [2] 100.0% [4] 300(0.0%) 0(0.0%) for-loop ...es/herbie/develop/src/points.rkt:230:2 ??? [5] 100.0% --------------------------------------------------------------------------- for-loop [4] 0.0% run [3] 50.0% [5] 692888(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [1] 50.0% run-improve40 [6] 49.4% prepare-points-intervals [7] 0.3% oracle-error [8] 0.2% eval-errors [9] 0.0% errors [2] 0.0% ??? [22] 0.0% --------------------------------------------------------------------------- ??? [5] 100.0% [6] 684996(98.9%) 0(0.0%) run-improve40 ...ie/develop/src/mainloop.rkt:336:0 simplify! [10] 100.0% --------------------------------------------------------------------------- ??? [5] 100.0% [7] 4338(0.6%) 0(0.0%) prepare-points-intervals ...p/src/points.rkt:133:0 loop [11] 100.0% --------------------------------------------------------------------------- ??? [5] 100.0% [8] 2954(0.4%) 0(0.0%) oracle-error ...erbie/develop/src/points.rkt:212:0 for-loop [12] 100.0% --------------------------------------------------------------------------- ??? [5] 100.0% [9] 300(0.0%) 0(0.0%) eval-errors ...herbie/develop/src/points.rkt:203:0 for-loop [13] 100.0% --------------------------------------------------------------------------- run-improve40 [6] 100.0% [10] 684996(98.9%) 0(0.0%) simplify! ...herbie/develop/src/mainloop.rkt:213:0 ??? [14] 100.0% --------------------------------------------------------------------------- prepare-points-intervals [7] 100.0% [11] 4338(0.6%) 298(0.0%) loop ...htlies/herbie/develop/src/points.rkt:145:4 loop [15] 71.6% ??? [17] 21.5% --------------------------------------------------------------------------- oracle-error [8] 100.0% [12] 2954(0.4%) 0(0.0%) for-loop ...es/herbie/develop/src/points.rkt:213:2 map [16] 55.2% loop [59] 44.8% --------------------------------------------------------------------------- eval-errors [9] 100.0% [13] 300(0.0%) 300(0.0%) for-loop ...es/herbie/develop/src/points.rkt:205:2 --------------------------------------------------------------------------- simplify! [10] 100.0% [14] 684996(98.9%) 0(0.0%) ??? ...s/herbie/develop/src/core/simplify.rkt:26:0 for-loop [18] 100.0% loop [20] 0.0% --------------------------------------------------------------------------- loop [11] 100.0% [15] 3106(0.4%) 0(0.0%) loop ...htlies/herbie/develop/src/points.rkt:104:2 ??? [22] 80.2% ??? [72] 10.1% ??? [81] 9.7% --------------------------------------------------------------------------- for-loop [12] 100.0% [16] 1632(0.2%) 0(0.0%) map ...t-7.0/collects/racket/private/map.rkt:35:13 ??? [19] 100.0% --------------------------------------------------------------------------- loop [11] 100.0% [17] 934(0.1%) 0(0.0%) ??? ...ghtlies/herbie/develop/src/points.rkt:129:2 ??? [72] 66.6% compose [39] 33.4% --------------------------------------------------------------------------- ??? [14] 100.0% [18] 684698(98.8%) 0(0.0%) for-loop ...bie/develop/src/core/simplify.rkt:33:2 one-iter [21] 100.0% --------------------------------------------------------------------------- map [16] 100.0% [19] 1632(0.2%) 0(0.0%) ??? ...htlies/herbie/develop/src/points.rkt:214:26 ??? [22] 100.0% --------------------------------------------------------------------------- ??? [14] 100.0% [20] 298(0.0%) 0(0.0%) loop ...herbie/develop/src/core/simplify.rkt:143:2 for-loop [23] 100.0% --------------------------------------------------------------------------- for-loop [18] 100.0% [21] 684698(98.8%) 304(0.0%) one-iter ...bie/develop/src/core/simplify.rkt:86:0 for-loop [24] 79.3% find-matches [25] 20.3% for-loop [27] 0.3% --------------------------------------------------------------------------- ??? [5] 6.8% ??? [19] 36.9% loop [15] 56.3% [22] 4424(0.6%) 0(0.0%) ??? ...tlies/herbie/develop/src/programs.rkt:146:2 ??? [26] 93.2% ??? [72] 6.8% --------------------------------------------------------------------------- loop [20] 100.0% [23] 298(0.0%) 0(0.0%) for-loop ...ie/develop/src/core/simplify.rkt:149:4 loop [28] 100.0% --------------------------------------------------------------------------- one-iter [21] 100.0% [24] 543152(78.4%) 0(0.0%) for-loop ...bie/develop/src/core/simplify.rkt:95:2 loop [29] 100.0% --------------------------------------------------------------------------- one-iter [21] 100.0% [25] 138996(20.1%) 0(0.0%) find-matches ...develop/src/core/simplify.rkt:56:0 for-loop [30] 100.0% --------------------------------------------------------------------------- ??? [22] 100.0% [26] 4124(0.6%) 0(0.0%) ??? ...t-7.0/collects/racket/private/kw.rkt:592:14 ??? [32] 39.6% ??? [72] 36.9% ??? [100] 23.6% --------------------------------------------------------------------------- one-iter [21] 100.0% [27] 2246(0.3%) 0(0.0%) for-loop ...ie/develop/src/core/simplify.rkt:111:2 set-precompute! [31] 100.0% --------------------------------------------------------------------------- for-loop [23] 100.0% [28] 298(0.0%) 0(0.0%) loop .../racket-7.0/collects/racket/list.rkt:751:4 expression-cost [33] 100.0% --------------------------------------------------------------------------- loop [29] 3.7% for-loop [24] 96.3% [29] 543152(78.4%) 298(0.0%) loop ...herbie/develop/src/core/simplify.rkt:100:4 apply-match [34] 96.3% loop [29] 3.7% --------------------------------------------------------------------------- for-loop [30] 48.5% find-matches [25] 51.5% [30] 138996(20.1%) 39930(5.8%) for-loop ...bie/develop/src/core/simplify.rkt:58:8 for-loop [30] 48.5% match-e [38] 35.5% ??? [63] 0.1% --------------------------------------------------------------------------- for-loop [27] 100.0% [31] 2246(0.3%) 0(0.0%) set-precompute! ...lop/src/core/simplify.rkt:117:0 for-loop [35] 87.8% make-sequence [71] 12.2% --------------------------------------------------------------------------- ??? [26] 100.0% [32] 1632(0.2%) 308(0.0%) ??? ...herbie/develop/src/syntax/syntax.rkt:317:17 return/no-unsupplied [88] 81.1% --------------------------------------------------------------------------- loop [28] 100.0% [33] 298(0.0%) 0(0.0%) expression-cost .../develop/src/programs.rkt:204:0 compile [36] 100.0% --------------------------------------------------------------------------- loop [29] 100.0% [34] 542854(78.3%) 540(0.1%) apply-match .../develop/src/core/simplify.rkt:65:0 for-loop [37] 96.9% match-e [38] 2.6% set [61] 0.4% --------------------------------------------------------------------------- set-precompute! [31] 100.0% [35] 1972(0.3%) 578(0.1%) for-loop ...ie/develop/src/core/simplify.rkt:119:2 compose [39] 46.6% curried [57] 13.5% setfindf [41] 10.6% --------------------------------------------------------------------------- expression-cost [33] 100.0% [36] 298(0.0%) 0(0.0%) compile ...s/herbie/develop/src/programs.rkt:181:0 hash-ref! [40] 100.0% --------------------------------------------------------------------------- apply-match [34] 100.0% [37] 526016(75.9%) 1352(0.2%) for-loop ...bie/develop/src/core/simplify.rkt:78:2 merge-egraph-nodes! [42] 53.0% dedup-children! [48] 46.1% substitute-e [44] 0.5% mk-enode! [65] 0.2% --------------------------------------------------------------------------- apply-match [34] 9.1% for-loop [49] 13.0% for-loop [30] 77.9% [38] 112698(16.3%) 38314(5.5%) match-e ...herbie/develop/src/core/ematch.rkt:39:0 for-loop [43] 61.3% make-sequence [71] 3.6% ??? [81] 2.8% variable? [51] 1.4% --------------------------------------------------------------------------- ??? [17] 25.4% for-loop [35] 74.6% [39] 1230(0.2%) 1230(0.2%) compose ...collects/racket/private/list.rkt:385:12 --------------------------------------------------------------------------- ??? [45] 50.0% compile [36] 50.0% [40] 298(0.0%) 298(0.0%) hash-ref! .../racket/private/more-scheme.rkt:376:2 ??? [45] 50.0% --------------------------------------------------------------------------- for-loop [35] 100.0% [41] 210(0.0%) 0(0.0%) setfindf ...es/herbie/develop/src/common.rkt:139:0 for-loop [46] 100.0% --------------------------------------------------------------------------- merge-egraph-nodes! [42] 1.7% for-loop [37] 98.3% [42] 278596(40.2%) 0(0.0%) merge-egraph-nodes! ...p/src/core/egraph.rkt:145:0 loop! [47] 92.5% dedup-children! [48] 3.2% update-leader! [50] 2.7% merge-egraph-nodes! [42] 1.7% --------------------------------------------------------------------------- match-e [38] 100.0% [43] 78972(11.4%) 44264(6.4%) for-loop ...rbie/develop/src/core/ematch.rkt:52:11 for-loop [49] 36.3% cartesian-product [52] 3.6% foldr [53] 3.4% foldl [55] 1.7% curry* [56] 1.1% curried [57] 0.2% cp-2 [64] 0.2% --------------------------------------------------------------------------- for-loop [54] 36.1% for-loop [37] 63.9% [44] 2862(0.4%) 682(0.1%) substitute-e ...e/develop/src/core/ematch.rkt:64:0 for-loop [54] 55.2% ??? [81] 22.6% variable? [51] 4.6% --------------------------------------------------------------------------- hash-ref! [40] 100.0% [45] 298(0.0%) 0(0.0%) ??? ...tlies/herbie/develop/src/programs.rkt:189:5 hash-ref! [40] 100.0% --------------------------------------------------------------------------- setfindf [41] 100.0% [46] 210(0.0%) 0(0.0%) for-loop ...es/herbie/develop/src/common.rkt:140:2 ??? [81] 100.0% --------------------------------------------------------------------------- loop [59] 24.3% merge-egraph-nodes! [42] 75.7% [47] 262364(37.9%) 52776(7.6%) loop! ...s/herbie/develop/src/core/enode.rkt:191:2 custom-set-union [60] 47.3% loop [59] 28.7% set [61] 11.3% update-en-expr [99] 1.7% --------------------------------------------------------------------------- merge-egraph-nodes! [42] 3.5% for-loop [37] 96.5% [48] 251220(36.3%) 0(0.0%) dedup-children! ...evelop/src/core/enode.rkt:199:0 loop [58] 100.0% --------------------------------------------------------------------------- for-loop [43] 100.0% [49] 31934(4.6%) 1676(0.2%) for-loop ...rbie/develop/src/core/ematch.rkt:58:37 match-e [38] 87.0% ??? [63] 8.7% --------------------------------------------------------------------------- merge-egraph-nodes! [42] 100.0% [50] 7398(1.1%) 168(0.0%) update-leader! ...evelop/src/core/egraph.rkt:213:0 for-loop [62] 92.6% custom-set-union! [68] 5.2% --------------------------------------------------------------------------- substitute-e [44] 6.5% match-e [38] 93.5% [51] 4002(0.6%) 300(0.0%) variable? .../develop/src/syntax/syntax.rkt:1159:0 ??? [81] 92.5% --------------------------------------------------------------------------- for-loop [43] 100.0% [52] 3110(0.4%) 3110(0.4%) cartesian-product ...ollects/racket/list.rkt:822:0 --------------------------------------------------------------------------- for-loop [43] 100.0% [53] 2842(0.4%) 1480(0.2%) foldr ....0/collects/racket/private/list.rkt:242:4 cp-2 [64] 47.9% --------------------------------------------------------------------------- substitute-e [44] 100.0% [54] 2534(0.4%) 0(0.0%) for-loop ...rbie/develop/src/core/ematch.rkt:73:24 substitute-e [44] 78.5% mk-enode! [65] 21.5% --------------------------------------------------------------------------- for-loop [43] 100.0% [55] 1656(0.2%) 610(0.1%) foldl ....0/collects/racket/private/list.rkt:229:4 merge2 [66] 63.2% --------------------------------------------------------------------------- for-loop [43] 100.0% [56] 856(0.1%) 0(0.0%) curry* ...et-7.0/collects/racket/function.rkt:44:2 procedure-arity [67] 100.0% --------------------------------------------------------------------------- for-loop [35] 46.5% for-loop [43] 53.5% [57] 572(0.1%) 572(0.1%) curried ...-7.0/collects/racket/function.rkt:71:18 --------------------------------------------------------------------------- dedup-children! [48] 3.2% loop [58] 96.8% [58] 251220(36.3%) 251220(36.3%) loop ...racket-7.0/collects/racket/list.rkt:434:17 loop [58] 96.8% --------------------------------------------------------------------------- for-loop [12] 0.9% loop! [47] 2.2% loop [59] 96.9% [59] 140444(20.3%) 11434(1.7%) loop ...-7.0/collects/racket/private/map.rkt:40:19 loop [59] 96.9% loop! [47] 2.0% ??? [72] 0.9% --------------------------------------------------------------------------- loop! [47] 100.0% [60] 129926(18.8%) 57176(8.3%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [69] 50.7% for-loop [70] 5.3% --------------------------------------------------------------------------- apply-match [34] 3.4% loop! [47] 96.6% [61] 61514(8.9%) 59718(8.6%) set ...collects/racket/private/set-types.rkt:981:0 for-loop [74] 2.9% --------------------------------------------------------------------------- update-leader! [50] 100.0% [62] 6848(1.0%) 0(0.0%) for-loop ...rbie/develop/src/core/egraph.rkt:218:6 hash-update! [82] 60.2% for-loop [73] 39.8% --------------------------------------------------------------------------- for-loop [30] 9.8% for-loop [49] 90.2% [63] 3068(0.4%) 1496(0.2%) ??? ...ies/herbie/develop/src/core/ematch.rkt:43:5 for-loop [75] 40.3% make-sequence [71] 11.0% --------------------------------------------------------------------------- for-loop [43] 15.3% foldr [53] 84.7% [64] 1608(0.2%) 1042(0.2%) cp-2 .../racket-7.0/collects/racket/list.rkt:826:2 for-loop [76] 35.2% --------------------------------------------------------------------------- for-loop [54] 40.0% for-loop [37] 60.0% [65] 1366(0.2%) 598(0.1%) mk-enode! ...rbie/develop/src/core/egraph.rkt:99:0 new-enode [77] 40.1% hash-has-key? [78] 16.1% --------------------------------------------------------------------------- foldl [55] 100.0% [66] 1046(0.2%) 1046(0.2%) merge2 .../herbie/develop/src/core/ematch.rkt:24:0 --------------------------------------------------------------------------- curry* [56] 100.0% [67] 856(0.1%) 856(0.1%) procedure-arity ...ket/private/norm-arity.rkt:7:27 --------------------------------------------------------------------------- update-leader! [50] 100.0% [68] 382(0.1%) 224(0.0%) custom-set-union! ...t/private/set-types.rkt:245:0 for-loop [79] 41.4% --------------------------------------------------------------------------- custom-set-union [60] 100.0% [69] 65818(9.5%) 36290(5.2%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [80] 44.9% --------------------------------------------------------------------------- custom-set-union [60] 100.0% [70] 6932(1.0%) 6932(1.0%) for-loop ...cts/racket/private/set-types.rkt:152:2 --------------------------------------------------------------------------- set-precompute! [31] 5.4% ??? [63] 6.6% match-e [38] 88.0% [71] 5094(0.7%) 5094(0.7%) make-sequence ...ects/racket/private/for.rkt:528:2 --------------------------------------------------------------------------- ??? [22] 7.4% loop [15] 7.7% ??? [17] 15.3% loop [59] 32.4% ??? [26] 37.3% [72] 4078(0.6%) 0(0.0%) ??? ...tract/private/arrow-higher-order.rkt:357:33 ->flonum [83] 47.5% ival-mult [84] 37.3% sample-multi-bounded [85] 15.3% --------------------------------------------------------------------------- for-loop [62] 100.0% [73] 2726(0.4%) 0(0.0%) for-loop ...rbie/develop/src/core/egraph.rkt:219:8 hash-update! [82] 100.0% --------------------------------------------------------------------------- set [61] 100.0% [74] 1796(0.3%) 1796(0.3%) for-loop ...cts/racket/private/set-types.rkt:937:4 --------------------------------------------------------------------------- ??? [63] 100.0% [75] 1236(0.2%) 300(0.0%) for-loop ...erbie/develop/src/core/ematch.rkt:44:7 ??? [81] 75.7% --------------------------------------------------------------------------- cp-2 [64] 100.0% [76] 566(0.1%) 566(0.1%) for-loop ...ket-7.0/collects/racket/list.rkt:827:4 --------------------------------------------------------------------------- mk-enode! [65] 100.0% [77] 548(0.1%) 0(0.0%) new-enode ...erbie/develop/src/core/enode.rkt:96:0 type-of-enode-expr [86] 100.0% --------------------------------------------------------------------------- mk-enode! [65] 100.0% [78] 220(0.0%) 220(0.0%) hash-has-key? ...ket/private/more-scheme.rkt:371:2 --------------------------------------------------------------------------- custom-set-union! [68] 100.0% [79] 158(0.0%) 158(0.0%) for-loop ...cts/racket/private/set-types.rkt:253:4 --------------------------------------------------------------------------- for-loop [69] 100.0% [80] 29528(4.3%) 29528(4.3%) for-loop ...cts/racket/private/set-types.rkt:178:5 --------------------------------------------------------------------------- for-loop [46] 1.6% loop [15] 2.3% for-loop [75] 7.2% substitute-e [44] 10.5% variable? [51] 28.3% match-e [38] 50.1% [81] 13076(1.9%) 12246(1.8%) ??? ...contract/private/arrow-val-first.rkt:388:18 ??? [89] 6.3% --------------------------------------------------------------------------- for-loop [73] 39.8% for-loop [62] 60.2% [82] 6848(1.0%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [87] 100.0% --------------------------------------------------------------------------- ??? [72] 100.0% [83] 1936(0.3%) 0(0.0%) ->flonum ...s/herbie/develop/src/programs.rkt:38:0 return/no-unsupplied [88] 68.3% ??? [90] 31.7% --------------------------------------------------------------------------- ??? [72] 100.0% [84] 1520(0.2%) 298(0.0%) ival-mult ...bie/develop/src/biginterval.rkt:105:0 classify-ival [91] 38.9% ...higher-order.rkt:361:33 [102] 21.8% bf* [93] 19.6% --------------------------------------------------------------------------- ??? [72] 100.0% [85] 622(0.1%) 298(0.0%) sample-multi-bounded ...evelop/src/points.rkt:16:0 loop [92] 52.1% --------------------------------------------------------------------------- new-enode [77] 100.0% [86] 548(0.1%) 302(0.0%) type-of-enode-expr ...elop/src/core/enode.rkt:69:0 table-ref [94] 44.9% --------------------------------------------------------------------------- hash-update! [82] 100.0% [87] 6848(1.0%) 0(0.0%) ??? ...s/herbie/develop/src/core/egraph.rkt:221:24 for-loop [95] 100.0% --------------------------------------------------------------------------- ->flonum [83] 50.0% ??? [32] 50.0% [88] 2646(0.4%) 1324(0.2%) return/no-unsupplied ...ct/private/arr-i.rkt:534:0 filter [96] 50.0% --------------------------------------------------------------------------- ??? [81] 100.0% [89] 830(0.1%) 830(0.1%) ??? ...ects/racket/contract/private/guts.rkt:746:8 --------------------------------------------------------------------------- ->flonum [83] 100.0% [90] 614(0.1%) 614(0.1%) ??? ...s/racket/contract/private/arr-i.rkt:1252:29 --------------------------------------------------------------------------- ival-mult [84] 100.0% [91] 592(0.1%) 0(0.0%) classify-ival ...develop/src/biginterval.rkt:310:0 fold-binary-pred [97] 100.0% --------------------------------------------------------------------------- sample-multi-bounded [85] 100.0% [92] 324(0.0%) 0(0.0%) loop ...ghtlies/herbie/develop/src/points.rkt:45:6 random-exp [98] 100.0% --------------------------------------------------------------------------- ival-mult [84] 100.0% [93] 298(0.0%) 0(0.0%) bf* ...ath/private/bigfloat/bigfloat-mpfr.rkt:95:0 ??? [103] 100.0% --------------------------------------------------------------------------- type-of-enode-expr [86] 100.0% [94] 246(0.0%) 246(0.0%) table-ref ...es/herbie/develop/src/common.rkt:42:0 --------------------------------------------------------------------------- ??? [87] 100.0% [95] 6848(1.0%) 6548(0.9%) for-loop ...bie/develop/src/core/egraph.rkt:222:26 update-en-expr [99] 4.4% --------------------------------------------------------------------------- return/no-unsupplied [88] 100.0% [96] 1322(0.2%) 1322(0.2%) filter ...0/collects/racket/private/list.rkt:256:2 --------------------------------------------------------------------------- classify-ival [91] 100.0% [97] 592(0.1%) 0(0.0%) fold-binary-pred ...gfloat/bigfloat-mpfr.rkt:117:0 ??? [100] 100.0% --------------------------------------------------------------------------- loop [92] 100.0% [98] 324(0.0%) 324(0.0%) random-exp .../herbie/develop/src/common.rkt:173:0 --------------------------------------------------------------------------- for-loop [95] 3.3% loop! [47] 96.7% [99] 9136(1.3%) 9136(1.3%) update-en-expr ...evelop/src/core/egraph.rkt:207:0 --------------------------------------------------------------------------- fold-binary-pred [97] 37.9% ??? [26] 62.1% [100] 1564(0.2%) 592(0.1%) ??? ...tract/private/arrow-higher-order.rkt:361:33 ival-add [101] 62.1% --------------------------------------------------------------------------- ??? [100] 100.0% [101] 972(0.1%) 0(0.0%) ival-add ...erbie/develop/src/biginterval.rkt:87:0 ...higher-order.rkt:361:33 [102] 69.1% ??? [103] 30.9% --------------------------------------------------------------------------- ival-mult [84] 33.1% ival-add [101] 66.9% [102] 1004(0.1%) 668(0.1%) ...higher-order.rkt:361:33 (unknown source) ??? [105] 33.5% --------------------------------------------------------------------------- bf* [93] 49.8% ival-add [101] 50.2% [103] 598(0.1%) 0(0.0%) ??? ...-racket/utils/simple-result-arrow.rkt:39:12 bfadd [104] 100.0% --------------------------------------------------------------------------- ??? [103] 100.0% [104] 598(0.1%) 0(0.0%) bfadd ...-lib/math/private/bigfloat/mpfr.rkt:821:4 new-mpfr [106] 50.2% ??? [107] 49.8% --------------------------------------------------------------------------- ...higher-order.rkt:361:33 [102]100.0% [105] 336(0.0%) 336(0.0%) ??? ...cts/racket/contract/private/list.rkt:209:10 --------------------------------------------------------------------------- bfadd [104] 100.0% [106] 300(0.0%) 300(0.0%) new-mpfr ...b/math/private/bigfloat/mpfr.rkt:335:0 --------------------------------------------------------------------------- bfadd [104] 100.0% [107] 298(0.0%) 298(0.0%) ??? /opt/racket-7.0/collects/ffi/unsafe.rkt:898:4 ---------------------------------------------------------------------------