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 302,9689
(define simpleopt-hits 372,12417
(define (do-simple-optimizations 374,12444
(define (simpleopt 383,12714
(define removed-count 481,15721
(define (do-trim 483,15747
(define (analyze 537,17060
(define (do-one-round 548,17327

backend.scm,442
(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 (wrap-out 95,2630
(define (cexp-subst 104,2968
(define (emit 120,3669
(define (emit-registers 560,20801
(define (emit-constructed 594,22077
(define c-string-safe?680,25536
(define (char->oct-encoding 686,25751
(define (c-string 697,26019
(define (emit-lookup-field 717,26455

compile.scm,215
(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 (main)54,1651

context.scm,488
(define (make-context)3,24
(define (vars-get-var 24,506
(define (vars-get-flag 31,724
(define (vars-set-flag! 35,841
(define (vars-inc-calls! 39,976
(define VFLAG-RECURSIVE 43,1103
(define VFLAG-ESCAPES 44,1160
(define VFLAG-FUNCTION 45,1221
(define VFLAG-ALLOCATES 46,1274
(define VFLAG-FREE 47,1328
(define VFLAG-NFLAGS 48,1396
(define (add-var 51,1455
(define (add-vars 59,1752
(define (build-vars 78,2180
(define (lookup-label-code 82,2267
(define (print-vars 91,2508

cps.scm,311
(define (make-register-allocator)53,2706
(define k/free65,3034
(define k/target69,3114
(define add-free-regs73,3200
(define (compile 77,3343
(define (print-insn 599,21262
(define (walk-insns 672,24714
(define done-insn 718,26392
(define (make-insn-generator 720,26440
(define (iterate-insns 728,26658

graph.scm,186
(define (build-dependency-graph 6,77
(define (transpose 31,806
(define (print-graph 46,1132
(define (strongly 68,1931
(define (partition-fix 110,2996
(define (reorder-fix 145,4002

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 394,12070
(define (read-string 399,12230
(define sexp->symbol402,12285
(define sexp->int406,12364
(define field=411,12455
(define sexp=416,12574
(define (sexp1 431,13245
(define repr-field435,13391
(define repr439,13503
(define indent454,14131
(define pp-size-field458,14210
(define pp-size461,14328
(define (pp 475,15036
(define (test-file)492,15481

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,163
(defmacro or19,361
(defmacro let25,470
(defmacro cond50,1215
(defmacro while58,1437
(defmacro for-range65,1552

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