Profiling results ----------------- Total cpu time observed: 21282ms (out of 21716ms) Number of samples taken: 77 (once every 276ms) ====================================================================== Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee ====================================================================== ??? [8] 100.0% [1] 21282(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [5] 100.0% ---------------------------------------------------------------------- match-e [55] 100.0% [2] 874(4.1%) 0(0.0%) variable? ...sugaring/src/syntax/syntax.rkt:1159:0 ??? [59] 100.0% ---------------------------------------------------------------------- ??? [8] 100.0% [3] 760(3.6%) 0(0.0%) errors ...bie/move-desugaring/src/points.rkt:228:0 for-loop [6] 100.0% ---------------------------------------------------------------------- ??? [88] 100.0% [4] 250(1.2%) 0(0.0%) approximate9 ...esugaring/src/core/taylor.rkt:12:0 loop [7] 100.0% ---------------------------------------------------------------------- profile-thunk16 [1] 100.0% [5] 21282(100.0%) 0(0.0%) run ...et-7.0/share/pkgs/profile-lib/main.rkt:39:2 ??? [8] 100.0% ---------------------------------------------------------------------- errors [3] 100.0% [6] 760(3.6%) 0(0.0%) for-loop ...e/move-desugaring/src/points.rkt:230:2 ??? [8] 100.0% ---------------------------------------------------------------------- approximate9 [4] 100.0% [7] 250(1.2%) 0(0.0%) loop ...e/move-desugaring/src/core/taylor.rkt:87:4 ??? [88] 100.0% ---------------------------------------------------------------------- for-loop [6] 1.2% run [5] 49.4% [8] 21282(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [1] 49.4% run-improve40 [9] 33.5% prepare-points-intervals [10] 12.8% eval-errors [11] 1.2% errors [3] 1.2% ??? [23] 1.2% oracle-error [12] 0.7% ---------------------------------------------------------------------- ??? [8] 100.0% [9] 14270(67.1%) 0(0.0%) run-improve40 ...desugaring/src/mainloop.rkt:336:0 for-loop [13] 96.6% simplify! [22] 3.4% ---------------------------------------------------------------------- ??? [8] 100.0% [10] 5446(25.6%) 0(0.0%) prepare-points-intervals ...g/src/points.rkt:133:0 loop [14] 100.0% ---------------------------------------------------------------------- ??? [8] 100.0% [11] 526(2.5%) 0(0.0%) eval-errors ...ove-desugaring/src/points.rkt:203:0 for-loop [15] 100.0% ---------------------------------------------------------------------- ??? [8] 100.0% [12] 280(1.3%) 0(0.0%) oracle-error ...ve-desugaring/src/points.rkt:212:0 for-loop [16] 100.0% ---------------------------------------------------------------------- run-improve40 [9] 100.0% [13] 13790(64.8%) 0(0.0%) for-loop ...move-desugaring/src/mainloop.rkt:351:4 run-iter! [17] 97.8% debug5 [21] 2.2% ---------------------------------------------------------------------- prepare-points-intervals [10] 100.0% [14] 5446(25.6%) 0(0.0%) loop ...erbie/move-desugaring/src/points.rkt:145:4 loop [18] 62.1% ??? [19] 32.3% andmap [20] 5.7% ---------------------------------------------------------------------- eval-errors [11] 100.0% [15] 526(2.5%) 0(0.0%) for-loop ...e/move-desugaring/src/points.rkt:205:2 ??? [23] 52.1% ??? [88] 47.9% ---------------------------------------------------------------------- oracle-error [12] 100.0% [16] 280(1.3%) 0(0.0%) for-loop ...e/move-desugaring/src/points.rkt:213:2 loop [84] 100.0% ---------------------------------------------------------------------- for-loop [13] 100.0% [17] 13484(63.4%) 0(0.0%) run-iter! ...ove-desugaring/src/mainloop.rkt:317:0 simplify! [22] 95.7% finalize-iter! [24] 2.5% gen-series! [29] 1.9% ---------------------------------------------------------------------- loop [14] 100.0% [18] 3380(15.9%) 0(0.0%) loop ...erbie/move-desugaring/src/points.rkt:104:2 ??? [23] 91.4% ??? [88] 8.6% ---------------------------------------------------------------------- loop [14] 100.0% [19] 1758(8.3%) 588(2.8%) ??? ...herbie/move-desugaring/src/points.rkt:129:2 ??? [88] 17.3% compose [26] 17.1% curried [27] 16.8% curry* [28] 15.4% ---------------------------------------------------------------------- loop [14] 100.0% [20] 308(1.4%) 308(1.4%) andmap ...0/collects/racket/private/map.rkt:102:13 ---------------------------------------------------------------------- for-loop [13] 100.0% [21] 306(1.4%) 0(0.0%) debug5 ...rbie/move-desugaring/src/debug.rkt:102:0 assoc-ref [25] 100.0% ---------------------------------------------------------------------- run-improve40 [9] 3.6% run-iter! [17] 96.4% [22] 13378(62.9%) 0(0.0%) simplify! ...ove-desugaring/src/mainloop.rkt:213:0 ??? [30] 100.0% ---------------------------------------------------------------------- for-loop [15] 6.6% ??? [8] 18.4% loop [18] 74.9% [23] 4124(19.4%) 600(2.8%) ??? ...rbie/move-desugaring/src/programs.rkt:146:2 ??? [31] 65.3% ??? [88] 20.2% ---------------------------------------------------------------------- run-iter! [17] 100.0% [24] 336(1.6%) 0(0.0%) finalize-iter! ...esugaring/src/mainloop.rkt:268:0 ??? [59] 100.0% ---------------------------------------------------------------------- debug5 [21] 100.0% [25] 306(1.4%) 306(1.4%) assoc-ref ...collects/racket/private/dict.rkt:56:0 ---------------------------------------------------------------------- ??? [19] 100.0% [26] 300(1.4%) 300(1.4%) compose ...collects/racket/private/list.rkt:385:12 ---------------------------------------------------------------------- ??? [19] 100.0% [27] 296(1.4%) 296(1.4%) curried ...-7.0/collects/racket/function.rkt:71:18 ---------------------------------------------------------------------- ??? [19] 100.0% [28] 270(1.3%) 270(1.3%) curry* ...et-7.0/collects/racket/function.rkt:44:2 ---------------------------------------------------------------------- run-iter! [17] 100.0% [29] 250(1.2%) 0(0.0%) gen-series! ...e-desugaring/src/mainloop.rkt:149:0 for-loop [32] 100.0% ---------------------------------------------------------------------- simplify! [22] 100.0% [30] 13378(62.9%) 332(1.6%) ??? .../move-desugaring/src/core/simplify.rkt:26:0 for-loop [33] 56.8% one-iter [38] 30.1% loop [34] 10.6% ---------------------------------------------------------------------- ??? [23] 100.0% [31] 2692(12.6%) 332(1.6%) ??? ...t-7.0/collects/racket/private/kw.rkt:592:14 ??? [88] 57.4% ??? [35] 19.4% ??? [36] 10.8% ---------------------------------------------------------------------- gen-series! [29] 100.0% [32] 250(1.2%) 0(0.0%) for-loop ...move-desugaring/src/mainloop.rkt:156:7 taylor-alt [37] 100.0% ---------------------------------------------------------------------- ??? [30] 100.0% [33] 7604(35.7%) 0(0.0%) for-loop ...-desugaring/src/core/simplify.rkt:33:2 one-iter [38] 100.0% ---------------------------------------------------------------------- ??? [30] 100.0% [34] 1420(6.7%) 0(0.0%) loop ...ove-desugaring/src/core/simplify.rkt:143:2 for-loop [39] 100.0% ---------------------------------------------------------------------- ??? [31] 100.0% [35] 522(2.5%) 274(1.3%) ??? ...ove-desugaring/src/syntax/syntax.rkt:317:17 ??? [42] 47.5% ---------------------------------------------------------------------- ??? [31] 100.0% [36] 292(1.4%) 0(0.0%) ??? ...tract/private/arrow-higher-order.rkt:361:33 ival-add [40] 100.0% ---------------------------------------------------------------------- for-loop [32] 100.0% [37] 250(1.2%) 0(0.0%) taylor-alt ...ve-desugaring/src/mainloop.rkt:135:0 for-loop [41] 100.0% ---------------------------------------------------------------------- ??? [30] 34.6% for-loop [33] 65.4% [38] 11626(54.6%) 250(1.2%) one-iter ...-desugaring/src/core/simplify.rkt:86:0 find-matches [43] 64.3% for-loop [44] 33.6% ---------------------------------------------------------------------- loop [34] 100.0% [39] 1420(6.7%) 0(0.0%) for-loop ...desugaring/src/core/simplify.rkt:149:4 loop [45] 43.1% for-loop [46] 37.5% argmin [48] 19.4% ---------------------------------------------------------------------- ??? [36] 100.0% [40] 292(1.4%) 0(0.0%) ival-add ...ve-desugaring/src/biginterval.rkt:87:0 ...higher-order.rkt:361:33 [47]100.0% ---------------------------------------------------------------------- taylor-alt [37] 100.0% [41] 250(1.2%) 0(0.0%) for-loop ...move-desugaring/src/mainloop.rkt:141:6 ??? [88] 100.0% ---------------------------------------------------------------------- ??? [35] 100.0% [42] 248(1.2%) 248(1.2%) ??? ...s/racket/contract/private/arr-i.rkt:1252:29 ---------------------------------------------------------------------- one-iter [38] 100.0% [43] 7470(35.1%) 0(0.0%) find-matches ...ugaring/src/core/simplify.rkt:56:0 for-loop [49] 100.0% ---------------------------------------------------------------------- one-iter [38] 100.0% [44] 3906(18.4%) 0(0.0%) for-loop ...-desugaring/src/core/simplify.rkt:95:2 loop [50] 81.3% update-leader! [65] 18.7% ---------------------------------------------------------------------- for-loop [39] 100.0% [45] 612(2.9%) 0(0.0%) loop .../racket-7.0/collects/racket/list.rkt:751:4 expression-cost [51] 100.0% ---------------------------------------------------------------------- for-loop [39] 100.0% [46] 532(2.5%) 248(1.2%) for-loop ...esugaring/src/core/simplify.rkt:153:16 for-loop [52] 53.4% ---------------------------------------------------------------------- ival-add [40] 100.0% [47] 292(1.4%) 292(1.4%) ...higher-order.rkt:361:33 (unknown source) ---------------------------------------------------------------------- for-loop [39] 100.0% [48] 276(1.3%) 0(0.0%) argmin ...acket-7.0/collects/racket/list.rkt:765:0 expression-cost [51] 100.0% ---------------------------------------------------------------------- for-loop [49] 50.0% find-matches [43] 50.0% [49] 7470(35.1%) 630(3.0%) for-loop ...-desugaring/src/core/simplify.rkt:58:8 for-loop [49] 50.0% match-e [55] 45.8% ---------------------------------------------------------------------- for-loop [44] 100.0% [50] 3176(14.9%) 0(0.0%) loop ...ove-desugaring/src/core/simplify.rkt:100:4 apply-match [53] 100.0% ---------------------------------------------------------------------- argmin [48] 31.1% loop [45] 68.9% [51] 888(4.2%) 0(0.0%) expression-cost ...sugaring/src/programs.rkt:204:0 compile [54] 100.0% ---------------------------------------------------------------------- for-loop [46] 100.0% [52] 284(1.3%) 284(1.3%) for-loop ...esugaring/src/core/simplify.rkt:157:23 ---------------------------------------------------------------------- loop [50] 100.0% [53] 3176(14.9%) 0(0.0%) apply-match ...sugaring/src/core/simplify.rkt:65:0 for-loop [56] 85.9% custom-set-intersect [57] 7.4% match-e [55] 6.7% ---------------------------------------------------------------------- expression-cost [51] 100.0% [54] 888(4.2%) 0(0.0%) compile .../move-desugaring/src/programs.rkt:181:0 hash-ref! [96] 100.0% ---------------------------------------------------------------------- apply-match [53] 1.5% for-loop [64] 16.0% for-loop [49] 82.5% [55] 7052(33.1%) 1212(5.7%) match-e ...ove-desugaring/src/core/ematch.rkt:39:0 for-loop [58] 75.8% variable? [2] 4.6% ??? [59] 2.4% ---------------------------------------------------------------------- apply-match [53] 100.0% [56] 2728(12.8%) 0(0.0%) for-loop ...-desugaring/src/core/simplify.rkt:78:2 merge-egraph-nodes! [60] 46.3% dedup-children! [61] 19.8% substitute-e [62] 18.0% mk-enode! [74] 15.9% ---------------------------------------------------------------------- apply-match [53] 100.0% [57] 236(1.1%) 0(0.0%) custom-set-intersect ...rivate/set-types.rkt:195:0 for-loop [63] 100.0% ---------------------------------------------------------------------- match-e [55] 100.0% [58] 5840(27.4%) 1608(7.6%) for-loop ...e-desugaring/src/core/ematch.rkt:52:11 for-loop [64] 39.1% loop [84] 33.7% cartesian-product [72] 3.9% ---------------------------------------------------------------------- finalize-iter! [24] 19.6% match-e [55] 29.4% variable? [2] 51.0% [59] 1714(8.1%) 1378(6.5%) ??? ...contract/private/arrow-val-first.rkt:388:18 for-loop [67] 19.6% ---------------------------------------------------------------------- merge-egraph-nodes! [60] 9.1% for-loop [56] 90.9% [60] 1262(5.9%) 0(0.0%) merge-egraph-nodes! ...g/src/core/egraph.rkt:145:0 update-leader! [65] 71.6% loop! [70] 19.3% merge-egraph-nodes! [60] 9.1% ---------------------------------------------------------------------- for-loop [56] 100.0% [61] 540(2.5%) 0(0.0%) dedup-children! ...garing/src/core/enode.rkt:199:0 loop [68] 50.4% loop [69] 49.6% ---------------------------------------------------------------------- for-loop [56] 100.0% [62] 492(2.3%) 0(0.0%) substitute-e ...esugaring/src/core/ematch.rkt:64:0 for-loop [66] 100.0% ---------------------------------------------------------------------- custom-set-intersect [57] 100.0% [63] 236(1.1%) 0(0.0%) for-loop ...cts/racket/private/set-types.rkt:207:3 for-loop [71] 100.0% ---------------------------------------------------------------------- for-loop [58] 100.0% [64] 2458(11.5%) 442(2.1%) for-loop ...e-desugaring/src/core/ematch.rkt:58:37 match-e [55] 73.1% ??? [78] 9.0% ---------------------------------------------------------------------- for-loop [44] 41.8% merge-egraph-nodes! [60] 58.2% [65] 1748(8.2%) 0(0.0%) update-leader! ...garing/src/core/egraph.rkt:213:0 for-loop [73] 100.0% ---------------------------------------------------------------------- substitute-e [62] 100.0% [66] 492(2.3%) 0(0.0%) for-loop ...e-desugaring/src/core/ematch.rkt:73:24 mk-enode! [74] 100.0% ---------------------------------------------------------------------- ??? [59] 100.0% [67] 336(1.6%) 0(0.0%) for-loop ...desugaring/src/core/alt-table.rkt:56:2 atab-add-altn [75] 100.0% ---------------------------------------------------------------------- dedup-children! [61] 3.2% loop [68] 96.8% [68] 272(1.3%) 272(1.3%) loop ...racket-7.0/collects/racket/list.rkt:434:17 loop [68] 96.8% ---------------------------------------------------------------------- dedup-children! [61] 9.1% loop [69] 90.9% [69] 268(1.3%) 0(0.0%) loop ...racket-7.0/collects/racket/list.rkt:417:34 loop [69] 90.9% loop [76] 9.1% ---------------------------------------------------------------------- merge-egraph-nodes! [60] 100.0% [70] 244(1.1%) 0(0.0%) loop! .../move-desugaring/src/core/enode.rkt:191:2 custom-set-union [77] 100.0% ---------------------------------------------------------------------- for-loop [63] 100.0% [71] 236(1.1%) 236(1.1%) for-loop ...cts/racket/private/set-types.rkt:201:4 ---------------------------------------------------------------------- for-loop [58] 100.0% [72] 226(1.1%) 226(1.1%) cartesian-product ...ollects/racket/list.rkt:822:0 ---------------------------------------------------------------------- update-leader! [65] 100.0% [73] 1748(8.2%) 0(0.0%) for-loop ...e-desugaring/src/core/egraph.rkt:218:6 hash-update! [85] 56.4% for-loop [79] 43.6% ---------------------------------------------------------------------- for-loop [56] 46.9% for-loop [66] 53.1% [74] 926(4.4%) 244(1.1%) mk-enode! ...e-desugaring/src/core/egraph.rkt:99:0 new-enode [80] 46.9% mutable-set [82] 26.8% ---------------------------------------------------------------------- for-loop [67] 100.0% [75] 336(1.6%) 0(0.0%) atab-add-altn ...ring/src/core/alt-table.rkt:202:0 append-at-pnts [81] 100.0% ---------------------------------------------------------------------- loop [69] 100.0% [76] 268(1.3%) 268(1.3%) loop (unknown source) ---------------------------------------------------------------------- loop! [70] 100.0% [77] 244(1.1%) 0(0.0%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [83] 100.0% ---------------------------------------------------------------------- for-loop [64] 100.0% [78] 220(1.0%) 220(1.0%) ??? ...ie/move-desugaring/src/core/ematch.rkt:43:5 ---------------------------------------------------------------------- for-loop [73] 100.0% [79] 762(3.6%) 0(0.0%) for-loop ...e-desugaring/src/core/egraph.rkt:219:8 hash-update! [85] 100.0% ---------------------------------------------------------------------- mk-enode! [74] 100.0% [80] 434(2.0%) 0(0.0%) new-enode ...ve-desugaring/src/core/enode.rkt:96:0 type-of-enode-expr [86] 100.0% ---------------------------------------------------------------------- atab-add-altn [75] 100.0% [81] 336(1.6%) 0(0.0%) append-at-pnts ...ing/src/core/alt-table.rkt:146:0 loop [84] 100.0% ---------------------------------------------------------------------- mk-enode! [74] 100.0% [82] 248(1.2%) 248(1.2%) mutable-set .../racket/private/set-types.rkt:999:0 ---------------------------------------------------------------------- custom-set-union [77] 100.0% [83] 244(1.1%) 0(0.0%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [87] 100.0% ---------------------------------------------------------------------- append-at-pnts [81] 0.1% for-loop [58] 6.0% for-loop [16] 10.8% loop [84] 83.0% [84] 2582(12.1%) 240(1.1%) loop ...-7.0/collects/racket/private/map.rkt:40:19 loop [84] 83.0% ??? [88] 10.8% foldl [90] 1.4% ??? [92] 0.1% ---------------------------------------------------------------------- for-loop [79] 43.6% for-loop [73] 56.4% [85] 1748(8.2%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [89] 100.0% ---------------------------------------------------------------------- new-enode [80] 100.0% [86] 434(2.0%) 0(0.0%) type-of-enode-expr ...ring/src/core/enode.rkt:69:0 table-ref [91] 100.0% ---------------------------------------------------------------------- for-loop [83] 100.0% [87] 244(1.1%) 244(1.1%) for-loop ...cts/racket/private/set-types.rkt:178:5 ---------------------------------------------------------------------- loop [7] 2.2% location-do [100] 2.2% for-loop [41] 2.2% for-loop [15] 6.7% loop [84] 7.5% loop [18] 7.7% ??? [19] 8.1% ??? [23] 22.2% ??? [31] 41.2% [88] 3754(17.6%) 306(1.4%) ??? ...tract/private/arrow-higher-order.rkt:357:33 ival-mult [95] 33.0% ->flonum [97] 28.5% mk-ival [98] 15.6% sample-multi-bounded [99] 8.1% location-do [100] 2.2% approximate9 [4] 2.2% hash-ref! [96] 2.2% ---------------------------------------------------------------------- hash-update! [85] 100.0% [89] 1748(8.2%) 0(0.0%) ??? .../move-desugaring/src/core/egraph.rkt:221:24 for-loop [93] 100.0% ---------------------------------------------------------------------- loop [84] 100.0% [90] 1726(8.1%) 0(0.0%) foldl ....0/collects/racket/private/list.rkt:229:4 merge2 [94] 100.0% ---------------------------------------------------------------------- type-of-enode-expr [86] 100.0% [91] 434(2.0%) 214(1.0%) table-ref ...e/move-desugaring/src/common.rkt:42:0 for-loop [101] 50.7% ---------------------------------------------------------------------- loop [84] 100.0% [92] 336(1.6%) 336(1.6%) ??? ...ove-desugaring/src/core/alt-table.rkt:149:8 ---------------------------------------------------------------------- ??? [89] 100.0% [93] 1748(8.2%) 1748(8.2%) for-loop ...-desugaring/src/core/egraph.rkt:222:26 ---------------------------------------------------------------------- foldl [90] 100.0% [94] 1726(8.1%) 1726(8.1%) merge2 ...move-desugaring/src/core/ematch.rkt:24:0 ---------------------------------------------------------------------- ??? [88] 100.0% [95] 1240(5.8%) 0(0.0%) ival-mult ...-desugaring/src/biginterval.rkt:105:0 bf* [103] 51.3% classify-ival [104] 48.7% ---------------------------------------------------------------------- ??? [88] 22.0% compile [54] 35.0% ??? [102] 43.1% [96] 1138(5.3%) 888(4.2%) hash-ref! .../racket/private/more-scheme.rkt:376:2 ??? [102] 43.1% simplify [107] 22.0% ---------------------------------------------------------------------- ??? [88] 100.0% [97] 1070(5.0%) 818(3.8%) ->flonum .../move-desugaring/src/programs.rkt:38:0 return/no-unsupplied [106] 23.6% ---------------------------------------------------------------------- ??? [88] 100.0% [98] 584(2.7%) 0(0.0%) mk-ival ...ove-desugaring/src/biginterval.rkt:59:0 bf [105] 100.0% ---------------------------------------------------------------------- ??? [88] 100.0% [99] 304(1.4%) 304(1.4%) sample-multi-bounded ...garing/src/points.rkt:16:0 ---------------------------------------------------------------------- ??? [88] 100.0% [100] 250(1.2%) 0(0.0%) location-do ...e-desugaring/src/programs.rkt:111:0 ??? [88] 100.0% ---------------------------------------------------------------------- table-ref [91] 100.0% [101] 220(1.0%) 220(1.0%) for-loop ...ie/move-desugaring/src/common.rkt:44:4 ---------------------------------------------------------------------- hash-ref! [96] 100.0% [102] 888(4.2%) 0(0.0%) ??? ...rbie/move-desugaring/src/programs.rkt:189:5 hash-ref! [96] 100.0% ---------------------------------------------------------------------- ival-mult [95] 100.0% [103] 636(3.0%) 304(1.4%) bf* ...ath/private/bigfloat/bigfloat-mpfr.rkt:95:0 ??? [109] 52.2% ---------------------------------------------------------------------- ival-mult [95] 100.0% [104] 604(2.8%) 604(2.8%) classify-ival ...ugaring/src/biginterval.rkt:310:0 ---------------------------------------------------------------------- mk-ival [98] 100.0% [105] 584(2.7%) 0(0.0%) bf ...ath-lib/math/private/bigfloat/mpfr.rkt:601:2 new-mpfr [108] 100.0% ---------------------------------------------------------------------- ->flonum [97] 100.0% [106] 252(1.2%) 252(1.2%) return/no-unsupplied ...ct/private/arr-i.rkt:534:0 ---------------------------------------------------------------------- hash-ref! [96] 100.0% [107] 250(1.2%) 250(1.2%) simplify ...ve-desugaring/src/core/reduce.rkt:16:0 ---------------------------------------------------------------------- bf [105] 100.0% [108] 584(2.7%) 584(2.7%) new-mpfr ...b/math/private/bigfloat/mpfr.rkt:335:0 ---------------------------------------------------------------------- bf* [103] 100.0% [109] 332(1.6%) 0(0.0%) ??? ...-racket/utils/simple-result-arrow.rkt:39:12 bfmul [110] 100.0% ---------------------------------------------------------------------- ??? [109] 100.0% [110] 332(1.6%) 0(0.0%) bfmul ...-lib/math/private/bigfloat/mpfr.rkt:821:4 ??? [111] 100.0% ---------------------------------------------------------------------- bfmul [110] 100.0% [111] 332(1.6%) 332(1.6%) ??? /opt/racket-7.0/collects/ffi/unsafe.rkt:898:4 ----------------------------------------------------------------------