Profiling results ----------------- Total cpu time observed: 19982ms (out of 20344ms) Number of samples taken: 75 (once every 266ms) (Hiding functions with self<1.0% and local<2.0%: 1 of 109 hidden) ================================================================================ Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee ================================================================================ ??? [10] 100.0% [1] 19982(100.0%) 0(0.0%) profile-thunk16 ...e/pkgs/profile-lib/main.rkt:9:0 run [6] 100.0% -------------------------------------------------------------------------------- hash-ref! [54] 100.0% [2] 332(1.7%) 0(0.0%) ??? ...ix-interface-bugs/src/core/taylor.rkt:68:15 hash-ref! [54] 66.7% ??? [44] 33.3% -------------------------------------------------------------------------------- ??? [44] 100.0% [3] 332(1.7%) 0(0.0%) approximate9 ...face-bugs/src/core/taylor.rkt:12:0 loop [7] 100.0% -------------------------------------------------------------------------------- hash-ref! [54] 100.0% [4] 332(1.7%) 0(0.0%) ??? ...x-interface-bugs/src/core/taylor.rkt:291:26 for-loop [8] 100.0% -------------------------------------------------------------------------------- ??? [10] 100.0% [5] 176(0.9%) 0(0.0%) errors .../fix-interface-bugs/src/points.rkt:216:0 for-loop [9] 100.0% -------------------------------------------------------------------------------- profile-thunk16 [1] 100.0% [6] 19982(100.0%) 0(0.0%) run ...et-7.2/share/pkgs/profile-lib/main.rkt:39:2 ??? [10] 100.0% -------------------------------------------------------------------------------- approximate9 [3] 100.0% [7] 332(1.7%) 0(0.0%) loop ...ix-interface-bugs/src/core/taylor.rkt:87:4 hash-ref! [54] 100.0% -------------------------------------------------------------------------------- ??? [4] 100.0% [8] 332(1.7%) 0(0.0%) for-loop ...erface-bugs/src/core/taylor.rkt:291:52 hash-ref! [54] 100.0% -------------------------------------------------------------------------------- errors [5] 100.0% [9] 176(0.9%) 0(0.0%) for-loop ...ix-interface-bugs/src/points.rkt:218:2 ??? [10] 100.0% -------------------------------------------------------------------------------- for-loop [9] 0.3% run [6] 49.9% [10] 19982(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk16 [1] 49.9% run-improve47 [11] 41.1% prepare-points-intervals [12] 7.6% oracle-error [13] 0.4% errors [5] 0.3% ??? [21] 0.3% -------------------------------------------------------------------------------- ??? [10] 100.0% [11] 16442(82.3%) 0(0.0%) run-improve47 ...rface-bugs/src/mainloop.rkt:345:0 for-loop [14] 100.0% -------------------------------------------------------------------------------- ??? [10] 100.0% [12] 3056(15.3%) 0(0.0%) prepare-points-intervals ...s/src/points.rkt:121:0 loop [15] 100.0% -------------------------------------------------------------------------------- ??? [10] 100.0% [13] 156(0.8%) 0(0.0%) oracle-error ...nterface-bugs/src/points.rkt:199:0 for-loop [16] 100.0% -------------------------------------------------------------------------------- run-improve47 [11] 100.0% [14] 16442(82.3%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:363:4 run-iter! [17] 100.0% -------------------------------------------------------------------------------- prepare-points-intervals [12] 100.0% [15] 3056(15.3%) 0(0.0%) loop ...ie/fix-interface-bugs/src/points.rkt:134:4 loop [18] 55.4% ??? [19] 44.6% -------------------------------------------------------------------------------- oracle-error [13] 100.0% [16] 156(0.8%) 0(0.0%) for-loop ...ix-interface-bugs/src/points.rkt:200:2 loop [80] 100.0% -------------------------------------------------------------------------------- for-loop [14] 100.0% [17] 16442(82.3%) 0(0.0%) run-iter! ...interface-bugs/src/mainloop.rkt:326:0 simplify! [20] 95.9% gen-rewrites! [23] 2.0% gen-series! [24] 2.0% -------------------------------------------------------------------------------- loop [15] 100.0% [18] 1694(8.5%) 0(0.0%) loop ...bie/fix-interface-bugs/src/points.rkt:80:2 ??? [21] 89.3% ??? [76] 10.7% -------------------------------------------------------------------------------- loop [15] 100.0% [19] 1362(6.8%) 0(0.0%) ??? ...bie/fix-interface-bugs/src/points.rkt:114:6 sample-multi-bounded [28] 56.4% loop [22] 29.4% ??? [25] 14.2% -------------------------------------------------------------------------------- run-iter! [17] 100.0% [20] 15774(78.9%) 0(0.0%) simplify! ...interface-bugs/src/mainloop.rkt:223:0 ??? [26] 100.0% -------------------------------------------------------------------------------- loop [80] 8.5% ??? [10] 9.5% loop [18] 82.0% [21] 1844(9.2%) 0(0.0%) ??? ...e/fix-interface-bugs/src/programs.rkt:115:2 ??? [27] 78.7% ??? [44] 21.3% -------------------------------------------------------------------------------- ??? [19] 100.0% [22] 400(2.0%) 0(0.0%) loop ...-7.2/collects/racket/private/map.rkt:54:19 sample-multi-bounded [28] 100.0% -------------------------------------------------------------------------------- run-iter! [17] 100.0% [23] 336(1.7%) 0(0.0%) gen-rewrites! ...rface-bugs/src/mainloop.rkt:182:0 for-loop [29] 100.0% -------------------------------------------------------------------------------- run-iter! [17] 100.0% [24] 332(1.7%) 0(0.0%) gen-series! ...terface-bugs/src/mainloop.rkt:159:0 for-loop [30] 100.0% -------------------------------------------------------------------------------- ??? [19] 100.0% [25] 194(1.0%) 194(1.0%) ??? ...tract/private/arrow-higher-order.rkt:364:33 -------------------------------------------------------------------------------- simplify! [20] 100.0% [26] 15774(78.9%) 0(0.0%) ??? ...x-interface-bugs/src/core/simplify.rkt:26:0 for-loop [31] 98.4% loop [36] 1.6% -------------------------------------------------------------------------------- ??? [21] 100.0% [27] 1452(7.3%) 0(0.0%) ??? ...t-7.2/collects/racket/private/kw.rkt:594:14 ??? [44] 77.1% ??? [34] 22.9% -------------------------------------------------------------------------------- loop [22] 34.2% ??? [19] 65.8% [28] 1168(5.8%) 0(0.0%) sample-multi-bounded ...e-bugs/src/points.rkt:15:0 random-ranges [32] 79.5% for-loop [37] 20.5% -------------------------------------------------------------------------------- gen-rewrites! [23] 100.0% [29] 336(1.7%) 0(0.0%) for-loop ...interface-bugs/src/mainloop.rkt:190:11 rewrite-expression-head20 [33] 100.0% -------------------------------------------------------------------------------- gen-series! [24] 100.0% [30] 332(1.7%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:166:7 taylor-alt [35] 100.0% -------------------------------------------------------------------------------- ??? [26] 100.0% [31] 15526(77.7%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:35:2 one-iter [38] 100.0% -------------------------------------------------------------------------------- sample-multi-bounded [28] 100.0% [32] 928(4.6%) 156(0.8%) random-ranges ...terface-bugs/src/common.rkt:171:0 cons/c [39] 83.2% -------------------------------------------------------------------------------- for-loop [29] 100.0% [33] 336(1.7%) 0(0.0%) rewrite-expression-head20 ...core/matcher.rkt:86:0 rewriter [40] 100.0% -------------------------------------------------------------------------------- ??? [27] 100.0% [34] 332(1.7%) 332(1.7%) ??? ...interface-bugs/src/syntax/syntax.rkt:214:17 -------------------------------------------------------------------------------- for-loop [30] 100.0% [35] 332(1.7%) 0(0.0%) taylor-alt ...nterface-bugs/src/mainloop.rkt:145:0 for-loop [41] 100.0% -------------------------------------------------------------------------------- ??? [26] 100.0% [36] 248(1.2%) 248(1.2%) loop ...nterface-bugs/src/core/extraction.rkt:25:2 -------------------------------------------------------------------------------- sample-multi-bounded [28] 100.0% [37] 240(1.2%) 240(1.2%) for-loop ...fix-interface-bugs/src/points.rkt:21:4 -------------------------------------------------------------------------------- for-loop [31] 100.0% [38] 15526(77.7%) 0(0.0%) one-iter ...erface-bugs/src/core/simplify.rkt:72:0 for-loop [42] 58.1% find-matches [43] 40.3% for-loop [47] 1.6% -------------------------------------------------------------------------------- random-ranges [32] 100.0% [39] 772(3.9%) 364(1.8%) cons/c .../racket/contract/private/guts.rkt:504:15 coerce-contract [45] 52.8% -------------------------------------------------------------------------------- rewrite-expression-head20 [33] 100.0% [40] 336(1.7%) 0(0.0%) rewriter ...terface-bugs/src/core/matcher.rkt:88:2 *rules* [46] 100.0% -------------------------------------------------------------------------------- taylor-alt [35] 100.0% [41] 332(1.7%) 0(0.0%) for-loop ...-interface-bugs/src/mainloop.rkt:151:6 ??? [44] 100.0% -------------------------------------------------------------------------------- one-iter [38] 100.0% [42] 9014(45.1%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:74:2 for-loop [48] 100.0% -------------------------------------------------------------------------------- one-iter [38] 100.0% [43] 6256(31.3%) 0(0.0%) find-matches ...ce-bugs/src/core/simplify.rkt:62:0 for-loop [49] 100.0% -------------------------------------------------------------------------------- ??? [2] 6.0% location-do [53] 6.0% for-loop [41] 6.0% ??? [21] 21.3% ??? [27] 60.7% [44] 1844(9.2%) 186(0.9%) ??? ...tract/private/arrow-higher-order.rkt:360:33 ival-mult [50] 60.7% bf [56] 11.2% location-do [53] 6.0% approximate9 [3] 6.0% hash-ref! [54] 6.0% -------------------------------------------------------------------------------- cons/c [39] 100.0% [45] 408(2.0%) 0(0.0%) coerce-contract ...contract/private/guts.rkt:308:0 coerce-contract/f [51] 100.0% -------------------------------------------------------------------------------- rewriter [40] 100.0% [46] 336(1.7%) 0(0.0%) *rules* ...terface-bugs/src/syntax/rules.rkt:666:0 for-loop [52] 100.0% -------------------------------------------------------------------------------- one-iter [38] 100.0% [47] 256(1.3%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:81:2 set-precompute! [55] 100.0% -------------------------------------------------------------------------------- for-loop [42] 100.0% [48] 9014(45.1%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:77:4 merge-egraph-nodes! [58] 57.2% mk-enode-rec! [59] 17.5% dedup-children! [60] 12.9% pattern-substitute [61] 12.5% -------------------------------------------------------------------------------- for-loop [49] 50.0% find-matches [43] 50.0% [49] 6256(31.3%) 0(0.0%) for-loop ...erface-bugs/src/core/simplify.rkt:64:8 for-loop [49] 50.0% match-e [57] 50.0% -------------------------------------------------------------------------------- ??? [44] 100.0% [50] 1120(5.6%) 650(3.3%) ival-mult ...erface-bugs/src/biginterval.rkt:112:0 bfmul [62] 42.0% -------------------------------------------------------------------------------- coerce-contract [45] 100.0% [51] 408(2.0%) 188(0.9%) coerce-contract/f ...ntract/private/guts.rkt:373:0 coerce-simple-value [67] 53.9% -------------------------------------------------------------------------------- *rules* [46] 100.0% [52] 336(1.7%) 0(0.0%) for-loop ...fix-interface-bugs/src/common.rkt:62:9 ormap [63] 100.0% -------------------------------------------------------------------------------- ??? [44] 100.0% [53] 332(1.7%) 0(0.0%) location-do ...nterface-bugs/src/programs.rkt:64:0 ??? [44] 100.0% -------------------------------------------------------------------------------- for-loop [8] 16.7% ??? [65] 16.7% ??? [44] 16.7% loop [7] 16.7% ??? [2] 33.3% [54] 332(1.7%) 0(0.0%) hash-ref! .../racket/private/more-scheme.rkt:376:2 ??? [2] 50.0% ??? [65] 16.7% ??? [4] 16.7% simplify [64] 16.7% -------------------------------------------------------------------------------- for-loop [47] 100.0% [55] 256(1.3%) 0(0.0%) set-precompute! ...bugs/src/core/simplify.rkt:88:0 for-loop [66] 100.0% -------------------------------------------------------------------------------- ??? [44] 100.0% [56] 206(1.0%) 0(0.0%) bf ...ath-lib/math/private/bigfloat/mpfr.rkt:601:2 new-mpfr [75] 100.0% -------------------------------------------------------------------------------- for-loop [81] 22.7% for-loop [49] 77.3% [57] 6256(31.3%) 0(0.0%) match-e ...interface-bugs/src/core/ematch.rkt:39:0 for-loop [68] 96.4% custom-in-set [79] 2.0% constant? [78] 1.6% -------------------------------------------------------------------------------- merge-egraph-nodes! [58] 3.0% for-loop [71] 6.2% for-loop [48] 90.8% [58] 5152(25.8%) 0(0.0%) merge-egraph-nodes! ...s/src/core/egraph.rkt:145:0 loop! [90] 55.3% update-leader! [69] 35.4% for-loop [71] 6.2% merge-egraph-nodes! [58] 3.0% -------------------------------------------------------------------------------- for-loop [48] 100.0% [59] 1574(7.9%) 326(1.6%) mk-enode-rec! ...ce-bugs/src/core/egraph.rkt:117:0 new-enode [70] 79.3% -------------------------------------------------------------------------------- for-loop [48] 100.0% [60] 1160(5.8%) 0(0.0%) dedup-children! ...e-bugs/src/core/enode.rkt:202:0 loop [72] 52.6% loop [74] 47.4% -------------------------------------------------------------------------------- pattern-substitute [61] 31.5% for-loop [48] 68.5% [61] 1128(5.6%) 528(2.6%) pattern-substitute ...gs/src/core/matcher.rkt:46:0 pattern-substitute [61] 31.5% ??? [73] 21.7% -------------------------------------------------------------------------------- ival-mult [50] 100.0% [62] 470(2.4%) 0(0.0%) bfmul ...-lib/math/private/bigfloat/mpfr.rkt:821:4 ??? [76] 50.2% new-mpfr [75] 49.8% -------------------------------------------------------------------------------- for-loop [52] 100.0% [63] 336(1.7%) 336(1.7%) ormap ....2/collects/racket/private/map.rkt:141:13 -------------------------------------------------------------------------------- hash-ref! [54] 100.0% [64] 332(1.7%) 0(0.0%) simplify ...nterface-bugs/src/core/reduce.rkt:16:0 f45 [77] 100.0% -------------------------------------------------------------------------------- hash-ref! [54] 100.0% [65] 332(1.7%) 0(0.0%) ??? ...ix-interface-bugs/src/core/taylor.rkt:45:15 hash-ref! [54] 100.0% -------------------------------------------------------------------------------- set-precompute! [55] 100.0% [66] 256(1.3%) 256(1.3%) for-loop ...erface-bugs/src/core/simplify.rkt:90:2 -------------------------------------------------------------------------------- coerce-contract/f [51] 100.0% [67] 220(1.1%) 220(1.1%) coerce-simple-value ...ract/private/guts.rkt:386:0 -------------------------------------------------------------------------------- match-e [57] 100.0% [68] 6256(31.3%) 2740(13.7%) for-loop ...terface-bugs/src/core/ematch.rkt:52:11 for-loop [81] 30.3% loop [80] 13.7% cp-2 [92] 8.7% do-curry [84] 5.9% procedure-reduce-keyword-arity-mask [89] 3.9% foldr [86] 2.7% -------------------------------------------------------------------------------- merge-egraph-nodes! [58] 100.0% [69] 2144(10.7%) 0(0.0%) update-leader! ...e-bugs/src/core/egraph.rkt:213:0 for-loop [82] 100.0% -------------------------------------------------------------------------------- mk-enode-rec! [59] 100.0% [70] 1248(6.2%) 0(0.0%) new-enode ...terface-bugs/src/core/enode.rkt:101:0 type-of-enode-expr [83] 73.9% check-valid-enode5 [88] 26.1% -------------------------------------------------------------------------------- merge-egraph-nodes! [58] 100.0% [71] 638(3.2%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:199:4 merge-egraph-nodes! [58] 100.0% -------------------------------------------------------------------------------- dedup-children! [60] 11.8% loop [72] 88.2% [72] 610(3.1%) 610(3.1%) loop ...racket-7.2/collects/racket/list.rkt:434:17 loop [72] 88.2% -------------------------------------------------------------------------------- pattern-substitute [61] 100.0% [73] 600(3.0%) 600(3.0%) ??? ...contract/private/arrow-val-first.rkt:390:18 -------------------------------------------------------------------------------- dedup-children! [60] 16.9% loop [74] 83.1% [74] 550(2.8%) 0(0.0%) loop ...racket-7.2/collects/racket/list.rkt:417:34 loop [74] 83.1% loop [85] 16.9% -------------------------------------------------------------------------------- bf [56] 46.8% bfmul [62] 53.2% [75] 440(2.2%) 440(2.2%) new-mpfr ...b/math/private/bigfloat/mpfr.rkt:335:0 -------------------------------------------------------------------------------- loop [18] 43.5% bfmul [62] 56.5% [76] 418(2.1%) 418(2.1%) ??? /opt/racket-7.2/collects/ffi/unsafe.rkt:905:4 -------------------------------------------------------------------------------- simplify [64] 100.0% [77] 332(1.7%) 0(0.0%) f45 ...2/collects/racket/match/compiler.rkt:507:40 map [87] 100.0% -------------------------------------------------------------------------------- match-e [57] 100.0% [78] 300(1.5%) 0(0.0%) constant? ...face-bugs/src/syntax/syntax.rkt:726:0 value? [93] 100.0% -------------------------------------------------------------------------------- match-e [57] 100.0% [79] 250(1.3%) 250(1.3%) custom-in-set ...acket/private/set-types.rkt:577:0 -------------------------------------------------------------------------------- for-loop [68] 1.8% for-loop [16] 4.6% loop! [90] 4.6% loop [80] 89.1% [80] 3422(17.1%) 246(1.2%) loop ...-7.2/collects/racket/private/map.rkt:40:19 loop [80] 89.1% loop! [90] 4.6% ??? [21] 4.6% step [94] 1.6% -------------------------------------------------------------------------------- for-loop [68] 100.0% [81] 2994(15.0%) 0(0.0%) for-loop ...terface-bugs/src/core/ematch.rkt:58:37 match-e [57] 91.7% ??? [97] 8.3% -------------------------------------------------------------------------------- update-leader! [69] 100.0% [82] 2144(10.7%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:218:6 for-loop [91] 60.6% hash-update! [98] 39.4% -------------------------------------------------------------------------------- new-enode [70] 100.0% [83] 922(4.6%) 314(1.6%) type-of-enode-expr ...bugs/src/core/enode.rkt:66:0 table-ref [95] 65.9% -------------------------------------------------------------------------------- for-loop [68] 100.0% [84] 742(3.7%) 742(3.7%) do-curry ...-7.2/collects/racket/function.rkt:71:2 -------------------------------------------------------------------------------- loop [74] 100.0% [85] 550(2.8%) 550(2.8%) loop (unknown source) -------------------------------------------------------------------------------- for-loop [68] 100.0% [86] 334(1.7%) 0(0.0%) foldr ....2/collects/racket/private/list.rkt:242:4 cp-2 [92] 100.0% -------------------------------------------------------------------------------- f45 [77] 100.0% [87] 332(1.7%) 0(0.0%) map ...t-7.2/collects/racket/private/map.rkt:35:13 simplify* [96] 100.0% -------------------------------------------------------------------------------- new-enode [70] 100.0% [88] 326(1.6%) 0(0.0%) check-valid-enode5 ...ugs/src/core/enode.rkt:211:0 value? [93] 100.0% -------------------------------------------------------------------------------- for-loop [68] 100.0% [89] 246(1.2%) 246(1.2%) procedure-reduce-keyword-arity-mask ....rkt:1562:4 -------------------------------------------------------------------------------- loop [80] 41.6% merge-egraph-nodes! [58] 58.4% [90] 3008(15.1%) 906(4.5%) loop! ...x-interface-bugs/src/core/enode.rkt:194:2 loop [80] 41.6% set [99] 23.5% custom-set-union [101] 19.8% -------------------------------------------------------------------------------- for-loop [82] 100.0% [91] 1300(6.5%) 0(0.0%) for-loop ...terface-bugs/src/core/egraph.rkt:219:8 hash-update! [98] 100.0% -------------------------------------------------------------------------------- foldr [86] 38.1% for-loop [68] 61.9% [92] 876(4.4%) 0(0.0%) cp-2 .../racket-7.2/collects/racket/list.rkt:826:2 for-loop [100] 100.0% -------------------------------------------------------------------------------- constant? [78] 47.9% check-valid-enode5 [88] 52.1% [93] 626(3.1%) 626(3.1%) value? ...interface-bugs/src/syntax/types.rkt:18:0 -------------------------------------------------------------------------------- loop [80] 100.0% [94] 608(3.0%) 608(3.0%) step ...ket-7.2/collects/racket/function.rkt:145:9 -------------------------------------------------------------------------------- type-of-enode-expr [83] 100.0% [95] 608(3.0%) 332(1.7%) table-ref ...ix-interface-bugs/src/common.rkt:33:0 dict? [103] 45.4% -------------------------------------------------------------------------------- map [87] 100.0% [96] 332(1.7%) 0(0.0%) simplify* ...terface-bugs/src/core/reduce.rkt:31:0 return/no-unsupplied [102] 100.0% -------------------------------------------------------------------------------- for-loop [81] 100.0% [97] 248(1.2%) 0(0.0%) ??? ...fix-interface-bugs/src/core/ematch.rkt:43:5 for-loop [104] 100.0% -------------------------------------------------------------------------------- for-loop [82] 39.4% for-loop [91] 60.6% [98] 2144(10.7%) 0(0.0%) hash-update! ...cket/private/more-scheme.rkt:365:4 ??? [105] 100.0% -------------------------------------------------------------------------------- loop! [90] 100.0% [99] 1506(7.5%) 1506(7.5%) set ...collects/racket/private/set-types.rkt:981:0 -------------------------------------------------------------------------------- cp-2 [92] 100.0% [100] 876(4.4%) 876(4.4%) for-loop ...ket-7.2/collects/racket/list.rkt:827:4 -------------------------------------------------------------------------------- loop! [90] 100.0% [101] 596(3.0%) 0(0.0%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [106] 100.0% -------------------------------------------------------------------------------- simplify* [96] 100.0% [102] 332(1.7%) 332(1.7%) return/no-unsupplied ...ct/private/arr-i.rkt:542:0 -------------------------------------------------------------------------------- table-ref [95] 100.0% [103] 276(1.4%) 276(1.4%) dict? ...ollects/racket/private/generic.rkt:146:11 -------------------------------------------------------------------------------- ??? [97] 100.0% [104] 248(1.2%) 248(1.2%) for-loop ...nterface-bugs/src/core/ematch.rkt:44:7 -------------------------------------------------------------------------------- hash-update! [98] 100.0% [105] 2144(10.7%) 0(0.0%) ??? ...x-interface-bugs/src/core/egraph.rkt:221:24 for-loop [107] 100.0% -------------------------------------------------------------------------------- custom-set-union [101] 100.0% [106] 596(3.0%) 274(1.4%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [108] 54.0% -------------------------------------------------------------------------------- ??? [105] 100.0% [107] 2144(10.7%) 2144(10.7%) for-loop ...erface-bugs/src/core/egraph.rkt:222:26 -------------------------------------------------------------------------------- for-loop [106] 100.0% [108] 322(1.6%) 322(1.6%) for-loop ...cts/racket/private/set-types.rkt:178:5 --------------------------------------------------------------------------------