analyze.scm,456
(define (find-recursion 22,1030
(define (find-leaves 47,1743
(define (find-refs 60,2021
(define (symbol-add-suffix 79,2469
(define inline-threshold 82,2566
(define (do-inlining 84,2596
(define (escape-analysis 304,9887
(define simpleopt-hits 374,12615
(define (do-simple-optimizations 376,12642
(define (simpleopt 385,12912
(define removed-count 483,15919
(define (do-trim 485,15945
(define (analyze 539,17265
(define (do-one-round 550,17532

backend.scm,537
(define (make-writer 8,134
(define (make-name-frobber)28,688
(define label-maker61,1513
(define encode-immediate66,1627
(define (wrap-in 74,1912
(define (irken-type->c-type 98,2766
(define c-int-types111,3275
(define (wrap-out 117,3486
(define (cexp-subst 130,4012
(define first-env 146,4713
(define (emit 148,4736
(define (emit-registers 634,24312
(define (emit-constructed 668,25588
(define c-string-safe?760,29169
(define (char->oct-encoding 766,29384
(define (c-string 777,29652
(define (emit-lookup-field 797,30088

compile.scm,271
(define (find-base 5,54
(define (read-template)12,265
(define sentinel0 20,535
(define sentinel1 21,585
(define (get-header-parts)23,637
(define (getenv-or 36,1165
(define (gcc 42,1277
(define (get-options 55,1739
(defmacro verbose67,2103
(define (main)70,2196

context.scm,519
(define (make-options)3,24
(define (make-context)10,118
(define (vars-get-var 32,642
(define (vars-get-flag 39,866
(define (vars-set-flag! 43,983
(define (vars-inc-calls! 47,1118
(define VFLAG-RECURSIVE 51,1245
(define VFLAG-ESCAPES 52,1302
(define VFLAG-FUNCTION 53,1363
(define VFLAG-ALLOCATES 54,1416
(define VFLAG-FREE 55,1470
(define VFLAG-NFLAGS 56,1538
(define (add-var 59,1597
(define (add-vars 67,1906
(define (build-vars 86,2334
(define (lookup-label-code 90,2421
(define (print-vars 99,2662

cps.scm,311
(define (make-register-allocator)58,3053
(define k/free70,3381
(define k/target74,3461
(define add-free-regs78,3547
(define (compile 82,3690
(define (print-insn 623,22369
(define (walk-insns 696,25860
(define done-insn 742,27543
(define (make-insn-generator 744,27591
(define (iterate-insns 752,27809

graph.scm,291
(define (symbol-set-class)7,101
(define symbol-set-maker0 39,818
(define (symbol-set-maker 40,864
(define (build-dependency-graph 45,976
(define (transpose 73,1782
(define (print-graph 89,2165
(define (strongly 111,2964
(define (partition-fix 153,4057
(define (reorder-fix 189,5103

lisp_reader.scm,796
(defmacro sexp44,1091
(define (char-class 49,1188
(define hex-map61,1452
(define dec-map69,1703
(define oct-map75,1838
(define whitespace 81,1957
(define delimiters 82,2016
(define letters 83,2065
(define all-delimiters 84,2159
(define digits 85,2214
(define whitespace? 87,2267
(define delim? 88,2340
(define digit? 89,2392
(define letter? 90,2436
(define field? 91,2481
(define (reader 93,2554
(define (read-file 395,12126
(define (read-string 400,12286
(define sexp->symbol403,12341
(define sexp->int407,12420
(define field=412,12511
(define sexp=417,12630
(define (sexp1 432,13301
(define repr-field436,13447
(define repr440,13559
(define indent455,14187
(define pp-size-field459,14266
(define pp-size462,14384
(define (pp 476,15092
(define (test-file)493,15537

match.scm,231
(define rule->code 20,307
(define rule->pats 21,351
(define match-error 23,396
(define match-fail 24,467
(define match-counter 26,532
(define (new-match-var)27,572
(define notdotdotdot30,656
(define (compile-pattern 35,721

mbe.scm,358
(define matches-list?18,551
(define (angle-bracket-equal? 34,941
(define matches-pattern?41,1143
(define (get-ellipsis-nestings 71,2265
(define intersect?81,2648
(define ellipsis-sub-envs 92,2866
(define (get-bindings 110,3562
(define (mbe/assoc 130,4085
(define (expand-pattern 141,4321
(define (expand-list 150,4594
(define (make-macro 174,5289

nodes.scm,1356
(define node-counter 34,752
(define (sum-size 37,842
(define no-type 40,910
(define no-type?42,942
(define (node-get-flag 50,1124
(define (node-set-flag! 52,1182
(define NFLAG-RECURSIVE 56,1281
(define NFLAG-ESCAPES 57,1308
(define NFLAG-LEAF 58,1335
(define NFLAG-NFLAGS 59,1362
(define (make-node 61,1390
(define (node/varref 65,1504
(define (node/varset 68,1570
(define varref->name71,1647
(define (node/literal 75,1729
(define (node/cexp 78,1795
(define (node/sequence 81,1891
(define (node/if 84,1957
(define (node/function 88,2064
(define (function? 91,2163
(define (function->name 96,2255
(define (node/call 101,2378
(define (node/fix 105,2486
(define (node/let 109,2606
(define (node/nvcase 113,2726
(define (node/subst 117,2890
(define (node/primapp 120,2973
(define (node-copy 123,3061
(define (unpack-fix 131,3304
(define literal->string138,3540
(define (flags-repr 149,4093
(define indent1158,4313
(define (pp-node 162,4392
(define (get-formals 193,5984
(define (unpack-bindings 199,6151
(define (parse-cexp-sig 210,6484
(define (sort-fix-inits 216,6705
(define walk252,7853
(define build-list-literal330,11942
(define (build-literal 336,12199
(define (frob 349,12637
(define (make-vardef 352,12716
(define (make-var-map)357,12862
(define (rename-variables 370,13195
(define (apply-substs 434,15288

selfmac.scm,137
(defmacro and12,187
(defmacro or19,385
(defmacro let25,494
(defmacro cond50,1239
(defmacro while58,1461
(defmacro for-range65,1576

transform.scm,108
(define (transformer 11,249
(define (prepend-standard-macros 445,13512
(define (print-datatype 448,13624

types.scm,792
(define (pred 10,246
(define (arrow 13,343
(define tvar-counter 16,433
(define (new-tvar)18,473
(define (is-pred? 21,573
(define int-type	28,704
(define char-type	29,738
(define string-type	30,774
(define undefined-type	31,814
(define bool-type	32,860
(define symbol-type	33,896
(define base-types35,937
(define (rproduct 45,1111
(define (rsum 46,1172
(define (rdefault 47,1229
(define (rlabel 48,1290
(define (rabs)49,1360
(define (rpre 50,1409
(define (make-label 51,1463
(define type-repr53,1512
(define (get-tvars 61,1951
(define type->trec69,2150
(define (type-find 73,2219
(define (type-union 81,2443
(define (parse-type* 90,2858
(define (parse-type 145,4417
(define get-record-sig150,4561
(define (get-record-sig-sexp 171,5294
(define (test-types)175,5401

typing.scm,113
(define (unify 3,24
(define (apply-subst 100,2976
(define scheme-repr121,3491
(define (type-program 131,3808