diff --git a/debug/read/read-cps-opt.c b/debug/read/read-cps-opt.c deleted file mode 100644 index 5ea0cb1a..00000000 --- a/debug/read/read-cps-opt.c +++ /dev/null @@ -1,3567 +0,0 @@ -((define read #f) - (define *in-port-table* #f) - (define reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(630 - (k$812 fp$262) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(628 - (r$263) - ((if r$263 - (k$812 r$263) - (list #((record-marker) - #((record-marker) #f (id args body)) - #(626 - (r$817) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(625 - (r$814) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(623 (r$815) ((k$812 r$263)))) - (set! *in-port-table* - (cons r$263 *in-port-table*)))))) - (set! r$263 r$817))))) - fp$262 - #f - 1 - 0))))) - (assoc fp$262 *in-port-table*)))))) - (define in-port:read-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(621 - (k$807 ptbl$260) - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(618 (r$809) ((k$807 (cadr ptbl$260))))) - ptbl$260 - #f))))) - (define in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) - (define in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(616 - (k$800 ptbl$258 buf$257) - ((k$800 (set-car! (cdr ptbl$258) buf$257)))))) - (define in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(614 - (k$797 ptbl$256) - ((k$797 (caddr ptbl$256)))))) - (define in-port:set-lnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(613 - (k$793 ptbl$255 lnum$254) - ((k$793 (set-car! (cddr ptbl$255) lnum$254)))))) - (define in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(611 - (k$790 ptbl$253) - ((k$790 (cadddr ptbl$253)))))) - (define in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(610 - (k$786 ptbl$252 cnum$251) - ((k$786 (set-car! (cdddr ptbl$252) cnum$251)))))) - (define add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(608 - (k$783 tok$250 toks$249) - ((k$783 (cons tok$250 toks$249)))))) - (define get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(607 - (k$778 tok$248 toks$247) - ((if (null? tok$248) - (k$778 toks$247) - (->tok #((record-marker) - #((record-marker) #f (id args body)) - #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) - tok$248)))))) - (define ->tok - #((record-marker) - #((record-marker) #f (id args body)) - #(604 - (k$774 lst$246) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(603 (r$775) ((parse-atom k$774 r$775)))) - lst$246))))) - (define dotted? - #((record-marker) - #((record-marker) #f (id args body)) - #(602 - (k$766 lst$245) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(600 - (r$767) - ((if r$767 - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(599 - (r$770) - ((k$766 (equal? (cadr r$770) (string->symbol ".")))))) - lst$245) - (k$766 #f))))) - (> (length lst$245) 2)))))) - (define ->dotted-list - #((record-marker) - #((record-marker) #f (id args body)) - #(596 - (k$756 lst$244) - ((if (null? lst$244) - (k$756 '()) - (if (equal? (car lst$244) (string->symbol ".")) - (k$756 (cadr lst$244)) - (->dotted-list - #((record-marker) - #((record-marker) #f (id args body)) - #(588 - (r$760) - ((k$756 (cons (car lst$244) r$760))))) - (cdr lst$244)))))))) - (define parse-error - #((record-marker) - #((record-marker) #f (id args body)) - #(585 - (k$750 msg$243 lnum$242 cnum$241) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(584 - (r$752) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(583 - (r$753) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(582 (r$751) ((error k$750 r$751)))) - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243))))) - (number->string cnum$241))))) - (number->string lnum$242)))))) - (define parse/tok - #((record-marker) - #((record-marker) #f (id args body)) - #(581 - (k$739 fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((if (null? tok$239) - (#((record-marker) - #((record-marker) #f (id args body)) - #(570 - (r$741) - ((parse k$739 - fp$240 - r$741 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - '()) - (if all?$237 - (#((record-marker) - #((record-marker) #f (id args body)) - #(574 - (r$742) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(573 - (r$744) - ((add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(572 - (r$743) - ((parse k$739 - fp$240 - r$742 - r$743 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - r$744 - toks$238)))) - tok$239)))) - '()) - (in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(578 - (r$745) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(577 - (r$747) - ((add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(576 (r$746) ((k$739 (car r$746))))) - r$747 - toks$238)))) - tok$239)))) - ptbl$234 - curr-char$233))))))) - (define parse - #((record-marker) - #((record-marker) #f (id args body)) - #(569 - (k$497 fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(567 - (r$736) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(566 - (r$735) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(565 - (r$498) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(564 - (k$733) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(563 - (r$734) - ((if r$734 - (in-port:read-buf! k$733 ptbl$196) - (k$733 (read-char fp$202)))))) - ptbl$196)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(561 - (c$204) - ((if (eof-object? c$204) - (#((record-marker) - #((record-marker) #f (id args body)) - #(276 - (k$506) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(275 - (r$507) - ((if r$507 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(274 - (r$508) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(273 - (r$509) - ((parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)))) - ptbl$196)))) - ptbl$196) - (k$506 #f))))) - (> parens$197 0))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) - #f - (id args body)) - #(267 - (r$502) - ((reverse k$497 r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> (length last$232) 0))))) - tok$201 - toks$200)))))) - (if comment?$198 - (if (eq? c$204 #\newline) - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(282 - (r$515) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(281 - (r$514) - ((in-port:set-lnum! - #((record-marker) - #((record-marker) - #f - (id args body)) - #(280 - (r$511) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(279 - (r$512) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(278 - (r$513) - ((parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - ptbl$196 - 0)))) - ptbl$196 - r$514)))) - (+ 1 r$515))))) - ptbl$196) - (#((record-marker) - #((record-marker) #f (id args body)) - #(284 - (r$516) - ((parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - '())) - (char-whitespace? - #((record-marker) - #((record-marker) #f (id args body)) - #(559 - (r$517) - ((if r$517 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(294 - (k$522) - ((if (equal? - c$204 - #\newline) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(292 - (r$525) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(291 - (r$524) - ((in-port:set-lnum! - k$522 - ptbl$196 - r$524)))) - (+ 1 r$525))))) - ptbl$196) - (k$522 #f))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(289 - (k$520) - ((if (equal? - c$204 - #\newline) - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))))) - (if (eq? c$204 #\;) - (parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204) - (if (eq? c$204 #\') - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(315 - (k$541) - ((if all?$199 - (k$541 #f) - (not k$541 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(313 - (r$528) - ((if r$528 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))) - (if (eq? c$204 #\`) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(335 - (k$557) - ((if all?$199 - (k$557 #f) - (not k$557 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(333 - (r$544) - ((if r$544 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))) - (if (eq? c$204 #\,) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(371 - (k$587) - ((if all?$199 - (k$587 #f) - (not k$587 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(369 - (r$560) - ((if r$560 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(363 - (k$584) - ((if (equal? - next-c$226 - #\@) - (k$584 'unquote-splicing) - (k$584 'unquote))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((if (eof-object? - next-c$226) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196) - (if (equal? - next-c$226 - #\@) - (k$578 #f) - (in-port:set-buf! - k$578 - ptbl$196 - next-c$226)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 - r$586))))) - (read-char - fp$202))))) - (set! sub$227 - #f))))) - #f - #f - #f - #f)))))) - (if (eq? c$204 #\() - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(395 - (k$607) - ((if all?$199 - (k$607 #f) - (not k$607 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(393 - (r$590) - ((if r$590 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((if (pair? sub$222) - (dotted? - k$602 - sub$222) - (k$602 #f))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))) - (if (eq? c$204 #\)) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(409 - (k$618) - ((if all?$199 - (k$618 #f) - (not k$618 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(407 - (r$610) - ((if r$610 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(406 - (r$614) - ((if r$614 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(404 - (r$617) - ((reverse - k$497 - r$617)))) - tok$201 - toks$200))))) - (= parens$197 - 0))))))) - (if (eq? c$204 #\") - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(426 - (k$631) - ((if all?$199 - (k$631 #f) - (not k$631 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(424 - (r$621) - ((if r$621 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(419 - (str$219 - toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '())))))) - (if (eq? c$204 #\#) - (if (null? tok$201) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(542 - (next-c$205) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(541 - (r$729) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(540 - (r$728) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(539 - (r$636) - ((if (eq? #\| - next-c$205) - (read-block-comment - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(429 - (r$638) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(428 - (r$639) - ((parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - fp$202 - ptbl$196) - (if (eq? #\t - next-c$205) - (if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(432 - (r$641) - ((parse k$497 - fp$202 - r$641 - (cons #t - toks$200) - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 #t)) - (if (eq? #\f - next-c$205) - (if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(435 - (r$644) - ((parse k$497 - fp$202 - r$644 - (cons #f - toks$200) - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 #f)) - (if (eq? #\e - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(437 - (r$647) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(438 - (r$649) - ((exact k$648 - r$649)))) - num$217))))) - (if (eq? #\i - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(441 - (r$651) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(442 - (r$653) - ((inexact - k$652 - r$653)))) - num$216))))) - (if (eq? #\b - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(445 - (r$655) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(446 - (r$657) - ((k$656 (string->number - r$657 - 2))))) - (list->string - num$215)))))) - (if (eq? #\o - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(449 - (r$659) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(450 - (r$661) - ((k$660 (string->number - r$661 - 8))))) - (list->string - num$214)))))) - (if (eq? #\x - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(453 - (r$663) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(454 - (r$665) - ((k$664 (string->number - r$665 - 16))))) - (list->string - num$213)))))) - (if (eq? #\u - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(487 - (r$695) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(486 - (r$667) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(485 - (k$691) - ((if (eq? #\8 - next-c$205) - (k$691 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(483 - (r$693) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(482 - (r$694) - ((parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)))) - ptbl$196)))) - ptbl$196))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(478 - (k$686) - ((if (eq? #\( - next-c$205) - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((if (pair? sub$211) - (dotted? - k$681 - sub$211) - (k$681 #f))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))) - (set! next-c$205 - r$690))))) - (read-char - fp$202))))))))) - (set! next-c$205 - r$695))))) - (read-char - fp$202)) - (if (eq? #\( - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(505 - (r$709) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(504 - (r$710) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(503 - (r$711) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(502 - (r$697) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(501 - (r$698) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(500 - (sub$208 - toks*$207) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(499 - (new-toks$209) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(498 - (k$703) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(497 - (k$707) - ((if (pair? sub$208) - (dotted? - k$707 - sub$208) - (k$707 #f))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector - sub$208)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 - r$701))))) - r$702 - toks*$207)))))))) - #f)))) - r$697 - r$698)))) - tok$201 - toks$200)))) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '()) - (if (eq? #\\ - next-c$205) - (read-pound - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(510 - (r$715) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(507 - (r$714) - ((parse k$497 - fp$202 - r$714 - (cons r$715 - toks$200) - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car (cons r$715 - toks$200))))))) - fp$202 - ptbl$196) - (if (eq? #\; - next-c$205) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(522 - (r$724) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(521 - (r$725) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(520 - (r$717) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(519 - (k$722) - ((if all?$199 - (k$722 #f) - (not k$722 - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(517 - (r$718) - ((if r$718 - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204) - (parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)))) - '())))) - '()) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(525 - (r$726) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(524 - (r$727) - ((parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)))) - ptbl$196)))) - ptbl$196)))))))))))))))) - ptbl$196 - r$728)))) - (+ 1 - r$729))))) - ptbl$196)))) - (read-char - fp$202)) - (parse k$497 - fp$202 - (cons c$204 - tok$201) - toks$200 - all?$199 - #f - parens$197 - ptbl$196)) - (if (eq? c$204 - #\|) - (parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196) - (parse k$497 - fp$202 - (cons c$204 - tok$201) - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))))))))))))) - c$204)))))))))) - ptbl$196 - r$735)))) - (+ 1 r$736))))) - ptbl$196))))) - (define read-pound - #((record-marker) - #((record-marker) #f (id args body)) - #(266 - (k$438 fp$183 ptbl$182) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(265 - (done$187 loop$186) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(211 - (r$456) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(210 - (r$439) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(191 - (r$442) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(190 - (r$440) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(189 - (r$441) - ((loop$186 k$438 r$441)))) - '())))) - (set! loop$186 r$442))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(209 - (k$443 buf$190) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(207 - (c$191) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(204 - (k$449) - ((if (eof-object? c$191) - (k$449 (eof-object? c$191)) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(203 - (k$453) - ((char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(202 - (r$454) - ((if r$454 - (k$453 (> (length - buf$190) - 0)) - (k$453 #f))))) - c$191)))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? - c$191 - #\))) - (k$449 #f))))) - (> (length buf$190) - 0))))))))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(196 - (r$445) - ((if r$445 - (done$187 k$443 buf$190) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(194 - (r$447) - ((loop$186 - k$443 - (cons r$447 buf$190))))) - (read-char fp$183)))))))))) - (peek-char fp$183))))))))) - (set! done$187 r$456))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(263 - (k$457 raw-buf$194) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(261 - (buf$195) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(259 - (r$459) - ((if r$459 - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(213 - (r$460) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(212 - (r$461) - ((parse-error - k$457 - "missing character" - r$460 - r$461)))) - ptbl$182)))) - ptbl$182) - (#((record-marker) - #((record-marker) #f (id args body)) - #(257 - (r$462) - ((if r$462 - (k$457 (car buf$195)) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(256 - (r$492) - ((if (equal? buf$195 r$492) - (k$457 #\) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(254 - (r$491) - ((if (equal? - buf$195 - r$491) - (k$457 #\) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(252 - (r$490) - ((if (equal? - buf$195 - r$490) - (k$457 #\) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(250 - (r$489) - ((if (equal? - buf$195 - r$489) - (k$457 #\) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(248 - (r$488) - ((if (equal? - buf$195 - r$488) - (k$457 #\newline) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(246 - (r$487) - ((if (equal? - buf$195 - r$487) - (k$457 #\) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(244 - (r$486) - ((if (equal? - buf$195 - r$486) - (k$457 #\ ) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(242 - (r$485) - ((if (equal? - buf$195 - r$485) - (k$457 #\space) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(240 - (r$484) - ((if (equal? - buf$195 - r$484) - (k$457 #\ ) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(238 - (k$480) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(236 - (r$481) - ((if r$481 - (k$480 (equal? - (car buf$195) - #\x)) - (k$480 #f))))) - (> (length - buf$195) - 1))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number - r$474 - 16))))) - (list->string - (cdr buf$195))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string - buf$195))))))))))) - '(#\t - #\a - #\b)))))) - '(#\s - #\p - #\a - #\c - #\e)))))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))))) - '(#\n - #\u - #\l - #\l)))))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))))) - '(#\a #\l #\a #\r #\m)))))) - (= 1 (length buf$195))))))) - (= 0 (length buf$195)))))) - raw-buf$194)))))))) - #f - #f))))) - (define read-str - #((record-marker) - #((record-marker) #f (id args body)) - #(188 - (k$426 fp$180 buf$179 ptbl$178) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(186 - (c$181) - ((if (eof-object? c$181) - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(175 - (r$429) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(174 - (r$430) - ((parse-error - k$426 - "missing closing double-quote" - r$429 - r$430)))) - ptbl$178)))) - ptbl$178) - (if (equal? #\\ c$181) - (read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(177 - (r$432) - ((read-str k$426 fp$180 r$432 ptbl$178)))) - fp$180 - buf$179 - ptbl$178) - (if (equal? #\" c$181) - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(179 (r$434) ((k$426 (list->string r$434))))) - buf$179) - (read-str - k$426 - fp$180 - (cons c$181 buf$179) - ptbl$178))))))) - (read-char fp$180)))))) - (define read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(173 - (k$410 fp$175 buf$174 ptbl$173) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(171 - (c$176) - ((if (eof-object? c$176) - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(155 - (r$413) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(154 - (r$414) - ((parse-error - k$410 - "missing escaped character within string" - r$413 - r$414)))) - ptbl$173)))) - ptbl$173) - (#((record-marker) - #((record-marker) #f (id args body)) - #(167 - (k$423) - ((if (equal? #\" c$176) - (k$423 (equal? #\" c$176)) - (k$423 (equal? #\\ c$176)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(166 - (r$415) - ((if r$415 - (k$410 (cons c$176 buf$174)) - (if (equal? #\n c$176) - (k$410 (cons #\newline buf$174)) - (list #((record-marker) - #((record-marker) #f (id args body)) - #(163 - (r$421) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(162 - (r$420) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(161 - (r$417) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(160 - (r$418) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(159 - (r$419) - ((parse-error - k$410 - r$417 - r$418 - r$419)))) - ptbl$173)))) - ptbl$173)))) - (string-append - "invalid escape character [" - r$420 - "] in string"))))) - (list->string r$421))))) - c$176))))))))))) - (read-char fp$175)))))) - (define sign? - #((record-marker) - #((record-marker) #f (id args body)) - #(153 - (k$406 c$171) - ((if (equal? c$171 #\+) - (k$406 (equal? c$171 #\+)) - (k$406 (equal? c$171 #\-))))))) - (define token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(150 - (k$386 a$167) - ((char-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(147 - (tmp$168) - ((if tmp$168 - (k$386 tmp$168) - (#((record-marker) - #((record-marker) #f (id args body)) - #(146 - (k$397) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(144 - (r$398) - ((if r$398 - (if (eq? #\. (car a$167)) - (char-numeric? k$397 (cadr a$167)) - (k$397 #f)) - (k$397 #f))))) - (> (length a$167) 1))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(139 - (tmp$169) - ((if tmp$169 - (k$386 tmp$169) - (#((record-marker) - #((record-marker) #f (id args body)) - #(137 - (r$389) - ((if r$389 - (char-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(134 - (tmp$170) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(133 - (k$393) - ((if tmp$170 - (k$393 tmp$170) - (k$393 (eq? #\. - (cadr a$167))))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(131 - (r$390) - ((if r$390 - (sign? k$386 (car a$167)) - (k$386 #f))))))))) - (cadr a$167)) - (k$386 #f))))) - (> (length a$167) 1))))))))))) - (car a$167)))))) - (define parse-atom - #((record-marker) - #((record-marker) #f (id args body)) - #(129 - (k$380 a$166) - ((token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(128 - (r$381) - ((if r$381 - (#((record-marker) - #((record-marker) #f (id args body)) - #(124 (r$382) ((k$380 (string->number r$382))))) - (list->string a$166)) - (#((record-marker) - #((record-marker) #f (id args body)) - #(126 (r$383) ((k$380 (string->symbol r$383))))) - (list->string a$166)))))) - a$166))))) - (define get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(123 - (k$376 fp$165 ptbl$164) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(122 - (r$377) - ((if r$377 - (in-port:read-buf! k$376 ptbl$164) - (k$376 (read-char fp$165)))))) - ptbl$164))))) - (define read-block-comment - #((record-marker) - #((record-marker) #f (id args body)) - #(121 - (k$371 fp$162 ptbl$161) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(119 - (c$163) - ((if (eq? #\| c$163) - (read-block-terminator k$371 fp$162 ptbl$161) - (read-block-comment k$371 fp$162 ptbl$161))))) - fp$162 - ptbl$161))))) - (define read-block-terminator - #((record-marker) - #((record-marker) #f (id args body)) - #(115 - (k$365 fp$159 ptbl$158) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(113 - (c$160) - ((if (eq? #\# c$160) - (k$365 #t) - (if (eq? #\| c$160) - (read-block-terminator k$365 fp$159 ptbl$158) - (read-block-comment k$365 fp$159 ptbl$158)))))) - fp$159 - ptbl$158))))) - (define parse-literal-identifier - #((record-marker) - #((record-marker) #f (id args body)) - #(107 - (k$358 fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(106 - (r$362) - ((parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(104 - (sym$157) - ((if all?$154 - (#((record-marker) - #((record-marker) #f (id args body)) - #(103 - (r$360) - ((parse k$358 - fp$156 - r$360 - (cons sym$157 toks$155) - all?$154 - #f - parens$153 - ptbl$152)))) - '()) - (k$358 sym$157))))) - fp$156 - r$362 - ptbl$152)))) - '()))))) - (define parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(101 - (k$343 fp$147 tok$146 ptbl$145) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(100 - (r$344) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(97 - (r$345) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(96 - (c$150 next$149) - ((if (eq? #\| c$150) - (#((record-marker) - #((record-marker) #f (id args body)) - #(88 - (k$348) - ((if (null? tok$146) - (k$348 "||") - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(86 - (r$350) - ((k$348 (list->string r$350))))) - tok$146))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(84 - (str$151) - ((k$343 (string->symbol str$151)))))) - (if (eof-object? c$150) - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(91 - (r$352) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(90 - (r$353) - ((parse-error - k$343 - "EOF encountered parsing literal identifier" - r$352 - r$353)))) - ptbl$145)))) - ptbl$145) - (next$149 k$343 c$150)))))) - r$344 - r$345)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(99 - (k$354 c$148) - ((parse-li-rec - k$354 - fp$147 - (cons c$148 tok$146) - ptbl$145)))))))) - fp$147 - ptbl$145))))) - (define parse-number - #((record-marker) - #((record-marker) #f (id args body)) - #(83 - (k$325 fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(82 - (r$340) - ((parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(80 - (num$142) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(79 - (k$333) - ((if (null? num$142) - (k$333 #f) - (token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(76 - (tmp$144) - ((if tmp$144 - (k$333 tmp$144) - (#((record-marker) - #((record-marker) #f (id args body)) - #(74 - (r$336) - ((if r$336 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(73 - (r$337) - ((if r$337 - (hex-digit? - k$333 - (car num$142)) - (k$333 #f))))) - (= base$136 16)) - (k$333 #f))))) - (> (length num$142) 0)))))) - num$142))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(71 - (r$327) - ((if r$327 - (tok->num$135 - #((record-marker) - #((record-marker) #f (id args body)) - #(65 - (result$143) - ((if all?$139 - (#((record-marker) - #((record-marker) #f (id args body)) - #(64 - (r$329) - ((parse k$325 - fp$141 - r$329 - (cons result$143 toks$140) - all?$139 - #f - parens$138 - ptbl$137)))) - '()) - (k$325 result$143))))) - num$142) - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(69 - (r$331) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(68 - (r$332) - ((parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)))) - ptbl$137)))) - ptbl$137))))))))) - base$136 - fp$141 - r$340 - ptbl$137)))) - '()))))) - (define parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(62 - (k$301 base$130 fp$129 tok$128 ptbl$127) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(61 - (r$302) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(58 - (r$303) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(57 - (c$133 next$132) - ((sign? #((record-marker) - #((record-marker) #f (id args body)) - #(56 - (r$304) - ((if r$304 - (next$132 k$301 c$133) - (if (eq? #\. c$133) - (next$132 k$301 c$133) - (char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(54 - (r$306) - ((if r$306 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(46 - (k$308) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(45 - (k$315) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(44 - (r$316) - ((if r$316 - (char>? - k$315 - c$133 - #\1) - (k$315 #f))))) - (= base$130 - 2))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(42 - (tmp$134) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(41 - (k$313) - ((if tmp$134 - (k$313 tmp$134) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(40 - (r$314) - ((if r$314 - (char>? - k$313 - c$133 - #\7) - (k$313 #f))))) - (= base$130 - 8)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))))))))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(36 - (r$307) - ((next$132 - k$301 - c$133))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(53 - (k$319) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(52 - (r$320) - ((if r$320 - (hex-digit? - k$319 - c$133) - (k$319 #f))))) - (= base$130 16))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(51 - (r$317) - ((if r$317 - (next$132 - k$301 - c$133) - (in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(49 - (r$318) - ((reverse - k$301 - tok$128)))) - ptbl$127 - c$133)))))))))) - c$133)))))) - c$133)))) - r$302 - r$303)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(60 - (k$321 c$131) - ((parse-number-rec - k$321 - base$130 - fp$129 - (cons c$131 tok$128) - ptbl$127)))))))) - fp$129 - ptbl$127))))) - (define hex-digit? - #((record-marker) - #((record-marker) #f (id args body)) - #(33 - (k$294 c$125) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(32 - (k$297) - ((char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(31 - (r$298) - ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) - c$125 - #\a)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(29 - (tmp$126) - ((if tmp$126 - (k$294 tmp$126) - (char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(28 - (r$296) - ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) - c$125 - #\A)))))))))) - (define cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(27 - (k$285 . args$123) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(26 - (k$290) - ((if (null? args$123) - (current-input-port k$290) - (k$290 (car args$123)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(23 - (fp$124) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(22 - (r$287) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(21 - (r$288) - ((reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(20 - (r$289) - ((parse k$285 - fp$124 - r$287 - r$288 - #f - #f - 0 - r$289)))) - fp$124)))) - '())))) - '()))))))))) - (define read-all - #((record-marker) - #((record-marker) #f (id args body)) - #(19 - (k$272 . args$116) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(17 - (k$281) - ((if (null? args$116) - (current-input-port k$281) - (k$281 (car args$116)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(14 - (fp$118) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(13 - (loop$119) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(7 - (r$276) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(6 - (r$274) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(5 (r$275) ((loop$119 k$272 fp$118 r$275)))) - '())))) - (set! loop$119 r$276))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(10 - (obj$122) - ((if (eof-object? obj$122) - (reverse k$277 result$120) - (loop$119 - k$277 - fp$121 - (cons obj$122 result$120)))))) - fp$121)))))))) - #f))))))))) - (define lib-init:schemeread - #((record-marker) - #((record-marker) #f (id args body)) - #(4 - (k$266) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(2 - (r$268) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(1 - (r$269) - ((k$266 (set! *in-port-table* r$269))))) - '())))) - (set! read cyc-read))))))) - diff --git a/debug/read/read-old-cps-opt.c b/debug/read/read-old-cps-opt.c deleted file mode 100644 index 5ea3cc6a..00000000 --- a/debug/read/read-old-cps-opt.c +++ /dev/null @@ -1,5075 +0,0 @@ -((define read #f) - (define *in-port-table* #f) - (define reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(630 - (k$812 fp$262) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(628 - (r$263) - ((if r$263 - (#((record-marker) - #((record-marker) #f (id args body)) - #(622 () ((k$812 r$263))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(627 - () - ((list #((record-marker) - #((record-marker) #f (id args body)) - #(626 - (r$817) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(625 - (r$814) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(624 - (r$816) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(623 (r$815) ((k$812 r$263)))) - (set! *in-port-table* r$816))))) - (cons r$263 *in-port-table*))))) - (set! r$263 r$817))))) - fp$262 - #f - 1 - 0))))))))) - (assoc fp$262 *in-port-table*)))))) - (define in-port:read-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(621 - (k$807 ptbl$260) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(619 - (result$261) - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(618 (r$809) ((k$807 result$261)))) - ptbl$260 - #f)))) - (cadr ptbl$260)))))) - (define in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) - (define in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(616 - (k$800 ptbl$258 buf$257) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) - (cdr ptbl$258)))))) - (define in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(614 - (k$797 ptbl$256) - ((k$797 (caddr ptbl$256)))))) - (define in-port:set-lnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(613 - (k$793 ptbl$255 lnum$254) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(612 - (r$794) - ((k$793 (set-car! r$794 lnum$254))))) - (cddr ptbl$255)))))) - (define in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(611 - (k$790 ptbl$253) - ((k$790 (cadddr ptbl$253)))))) - (define in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(610 - (k$786 ptbl$252 cnum$251) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(609 - (r$787) - ((k$786 (set-car! r$787 cnum$251))))) - (cdddr ptbl$252)))))) - (define add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(608 - (k$783 tok$250 toks$249) - ((k$783 (cons tok$250 toks$249)))))) - (define get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(607 - (k$778 tok$248 toks$247) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(606 - (r$779) - ((if r$779 - (k$778 toks$247) - (->tok #((record-marker) - #((record-marker) #f (id args body)) - #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) - tok$248))))) - (null? tok$248)))))) - (define ->tok - #((record-marker) - #((record-marker) #f (id args body)) - #(604 - (k$774 lst$246) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(603 (r$775) ((parse-atom k$774 r$775)))) - lst$246))))) - (define dotted? - #((record-marker) - #((record-marker) #f (id args body)) - #(602 - (k$766 lst$245) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(601 - (r$771) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(600 - (r$767) - ((if r$767 - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(599 - (r$770) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(598 - (r$768) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(597 - (r$769) - ((k$766 (equal? r$768 r$769))))) - (string->symbol "."))))) - (cadr r$770))))) - lst$245) - (k$766 #f))))) - (> r$771 2))))) - (length lst$245)))))) - (define ->dotted-list - #((record-marker) - #((record-marker) #f (id args body)) - #(596 - (k$756 lst$244) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(595 - (r$757) - ((if r$757 - (#((record-marker) - #((record-marker) #f (id args body)) - #(586 () ((k$756 '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(594 - (r$762) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(593 - (r$763) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(592 - (r$758) - ((if r$758 - (#((record-marker) - #((record-marker) #f (id args body)) - #(587 () ((k$756 (cadr lst$244)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(591 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(590 - (r$759) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(589 - (r$761) - ((->dotted-list - #((record-marker) - #((record-marker) - #f - (id args body)) - #(588 - (r$760) - ((k$756 (cons r$759 - r$760))))) - r$761)))) - (cdr lst$244))))) - (car lst$244)))))))))) - (equal? r$762 r$763))))) - (string->symbol "."))))) - (car lst$244)))))) - (null? lst$244)))))) - (define parse-error - #((record-marker) - #((record-marker) #f (id args body)) - #(585 - (k$750 msg$243 lnum$242 cnum$241) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(584 - (r$752) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(583 - (r$753) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(582 (r$751) ((error k$750 r$751)))) - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243))))) - (number->string cnum$241))))) - (number->string lnum$242)))))) - (define parse/tok - #((record-marker) - #((record-marker) #f (id args body)) - #(581 - (k$739 fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(580 - (r$740) - ((if r$740 - (#((record-marker) - #((record-marker) #f (id args body)) - #(571 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(570 - (r$741) - ((parse k$739 - fp$240 - r$741 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - '()))))) - (if all?$237 - (#((record-marker) - #((record-marker) #f (id args body)) - #(575 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(574 - (r$742) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(573 - (r$744) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(572 - (r$743) - ((parse k$739 - fp$240 - r$742 - r$743 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - r$744 - toks$238)))) - tok$239)))) - '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(579 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(578 - (r$745) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(577 - (r$747) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(576 - (r$746) - ((k$739 (car r$746))))) - r$747 - toks$238)))) - tok$239)))) - ptbl$234 - curr-char$233)))))))))) - (null? tok$239)))))) - (define parse - #((record-marker) - #((record-marker) #f (id args body)) - #(569 - (k$497 fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(568 - () - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(567 - (r$736) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(566 - (r$735) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(565 - (r$498) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(564 - (k$733) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(563 - (r$734) - ((if r$734 - (in-port:read-buf! - k$733 - ptbl$196) - (k$733 (read-char fp$202)))))) - ptbl$196)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(561 - (c$204) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(560 - (r$500) - ((if r$500 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(277 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(276 - (k$506) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(275 - (r$507) - ((if r$507 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(274 - (r$508) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(273 - (r$509) - ((parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)))) - ptbl$196)))) - ptbl$196) - (k$506 #f))))) - (> parens$197 - 0))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(267 - (r$502) - ((reverse - k$497 - r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(269 - (r$505) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> r$505 - 0))))) - (length - last$232))))) - tok$201 - toks$200)))))))))) - (if comment?$198 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(286 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(285 - (r$510) - ((if r$510 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(283 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(282 - (r$515) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(281 - (r$514) - ((in-port:set-lnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(280 - (r$511) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(279 - (r$512) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(278 - (r$513) - ((parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - ptbl$196 - 0)))) - ptbl$196 - r$514)))) - (+ 1 - r$515))))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(284 - (r$516) - ((parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - '()))))) - (eq? c$204 - #\newline)))))) - (char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(559 - (r$517) - ((if r$517 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(295 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(294 - (k$522) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(293 - (r$523) - ((if r$523 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(292 - (r$525) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(291 - (r$524) - ((in-port:set-lnum! - k$522 - ptbl$196 - r$524)))) - (+ 1 - r$525))))) - ptbl$196) - (k$522 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(289 - (k$520) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(288 - (r$521) - ((if r$521 - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(558 - (r$526) - ((if r$526 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(296 - () - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(557 - (r$527) - ((if r$527 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(316 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(315 - (k$541) - ((if all?$199 - (k$541 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(314 - (r$542) - ((not k$541 - r$542)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(313 - (r$528) - ((if r$528 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(300 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(312 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(556 - (r$543) - ((if r$543 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(336 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(335 - (k$557) - ((if all?$199 - (k$557 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(334 - (r$558) - ((not k$557 - r$558)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(333 - (r$544) - ((if r$544 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(320 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(332 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(555 - (r$559) - ((if r$559 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(372 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(371 - (k$587) - ((if all?$199 - (k$587 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(370 - (r$588) - ((not k$587 - r$588)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(369 - (r$560) - ((if r$560 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(340 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(368 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(363 - (k$584) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(362 - (r$585) - ((if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))))) - (equal? - next-c$226 - #\@))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? - next-c$226 - #\@)))))) - (eof-object? - next-c$226))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 - r$586))))) - (read-char - fp$202))))) - (set! sub$227 - #f))))) - #f - #f - #f - #f)))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(554 - (r$589) - ((if r$589 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(396 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(395 - (k$607) - ((if all?$199 - (k$607 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(394 - (r$608) - ((not k$607 - r$608)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(393 - (r$590) - ((if r$590 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(376 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(392 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(382 - (r$603) - ((if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))))) - (pair? sub$222))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(553 - (r$609) - ((if r$609 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(410 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(409 - (k$618) - ((if all?$199 - (k$618 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(408 - (r$619) - ((not k$618 - r$619)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(407 - (r$610) - ((if r$610 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(400 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(406 - (r$614) - ((if r$614 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(403 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(405 - () - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(404 - (r$617) - ((reverse - k$497 - r$617)))) - tok$201 - toks$200))))))))) - (= parens$197 - 0))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(552 - (r$620) - ((if r$620 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(427 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(426 - (k$631) - ((if all?$199 - (k$631 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(425 - (r$632) - ((not k$631 - r$632)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(424 - (r$621) - ((if r$621 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(414 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(423 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(419 - (str$219 - toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(551 - (r$633) - ((if r$633 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(546 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(545 - (r$634) - ((if r$634 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(542 - (next-c$205) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(541 - (r$729) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(540 - (r$728) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(539 - (r$636) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(538 - (r$637) - ((if r$637 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(430 - () - ((read-block-comment - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(429 - (r$638) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(428 - (r$639) - ((parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(537 - (r$640) - ((if r$640 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(433 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(432 - (r$641) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(431 - (r$642) - ((parse k$497 - fp$202 - r$641 - r$642 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #t - toks$200))))) - '()) - (k$497 #t)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(536 - (r$643) - ((if r$643 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(436 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(435 - (r$644) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(434 - (r$645) - ((parse k$497 - fp$202 - r$644 - r$645 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #f - toks$200))))) - '()) - (k$497 #f)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(535 - (r$646) - ((if r$646 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(440 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(437 - (r$647) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(438 - (r$649) - ((exact k$648 - r$649)))) - num$217))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(534 - (r$650) - ((if r$650 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(444 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(441 - (r$651) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(442 - (r$653) - ((inexact - k$652 - r$653)))) - num$216))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(533 - (r$654) - ((if r$654 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(448 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(445 - (r$655) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(446 - (r$657) - ((k$656 (string->number - r$657 - 2))))) - (list->string - num$215)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(532 - (r$658) - ((if r$658 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(452 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(449 - (r$659) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(450 - (r$661) - ((k$660 (string->number - r$661 - 8))))) - (list->string - num$214)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(531 - (r$662) - ((if r$662 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(456 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(453 - (r$663) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(454 - (r$665) - ((k$664 (string->number - r$665 - 16))))) - (list->string - num$213)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(530 - (r$666) - ((if r$666 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(488 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(487 - (r$695) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(486 - (r$667) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(485 - (k$691) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(484 - (r$692) - ((if r$692 - (k$691 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(483 - (r$693) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(482 - (r$694) - ((parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\8 - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(478 - (k$686) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(477 - (r$687) - ((if r$687 - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\( - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))) - (set! next-c$205 - r$690))))) - (read-char - fp$202))))))))) - (set! next-c$205 - r$695))))) - (read-char - fp$202)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(529 - (r$696) - ((if r$696 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(506 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(505 - (r$709) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(504 - (r$710) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(503 - (r$711) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(502 - (r$697) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(501 - (r$698) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(500 - (sub$208 - toks*$207) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(499 - (new-toks$209) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(498 - (k$703) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(497 - (k$707) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(496 - (r$708) - ((if r$708 - (dotted? - k$707 - sub$208) - (k$707 #f))))) - (pair? sub$208))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector - sub$208)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 - r$701))))) - r$702 - toks*$207)))))))) - #f)))) - r$697 - r$698)))) - tok$201 - toks$200)))) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(528 - (r$712) - ((if r$712 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(511 - () - ((read-pound - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(510 - (r$715) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(508 - (new-toks$206) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(507 - (r$714) - ((parse k$497 - fp$202 - r$714 - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$206)))))) - (cons r$715 - toks$200))))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(527 - (r$716) - ((if r$716 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(523 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(522 - (r$724) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(521 - (r$725) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(520 - (r$717) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(519 - (k$722) - ((if all?$199 - (k$722 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(518 - (r$723) - ((not k$722 - r$723)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(517 - (r$718) - ((if r$718 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(515 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(516 - () - ((parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(526 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(525 - (r$726) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(524 - (r$727) - ((parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)))) - ptbl$196)))) - ptbl$196))))))))) - (eq? #\; - next-c$205)))))) - (eq? #\\ - next-c$205)))))) - (eq? #\( - next-c$205)))))) - (eq? #\u - next-c$205)))))) - (eq? #\x - next-c$205)))))) - (eq? #\o - next-c$205)))))) - (eq? #\b - next-c$205)))))) - (eq? #\i - next-c$205)))))) - (eq? #\e - next-c$205)))))) - (eq? #\f - next-c$205)))))) - (eq? #\t - next-c$205)))))) - (eq? #\| - next-c$205))))) - ptbl$196 - r$728)))) - (+ 1 - r$729))))) - ptbl$196)))) - (read-char - fp$202)) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(544 - (r$730) - ((parse k$497 - fp$202 - r$730 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))) - (null? tok$201)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(550 - (r$731) - ((if r$731 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(547 - () - ((parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(549 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(548 - (r$732) - ((parse k$497 - fp$202 - r$732 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))))))) - (eq? c$204 - #\|)))))) - (eq? c$204 - #\#)))))) - (eq? c$204 - #\")))))) - (eq? c$204 - #\))))))) - (eq? c$204 - #\()))))) - (eq? c$204 - #\,)))))) - (eq? c$204 - #\`)))))) - (eq? c$204 - #\')))))) - (eq? c$204 #\;)))))) - c$204)))))) - (eof-object? c$204))))))))) - ptbl$196 - r$735)))) - (+ 1 r$736))))) - ptbl$196))))))))) - (define read-pound - #((record-marker) - #((record-marker) #f (id args body)) - #(266 - (k$438 fp$183 ptbl$182) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(265 - (done$187 loop$186) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(264 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(211 - (r$456) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(210 - (r$439) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(191 - (r$442) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(190 - (r$440) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(189 - (r$441) - ((loop$186 k$438 r$441)))) - '())))) - (set! loop$186 r$442))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(209 - (k$443 buf$190) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(207 - (c$191) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(205 - (tmp$192) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(204 - (k$449) - ((if tmp$192 - (k$449 tmp$192) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(203 - (k$453) - ((char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(202 - (r$454) - ((if r$454 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(201 - (r$455) - ((k$453 (> r$455 - 0))))) - (length - buf$190)) - (k$453 #f))))) - c$191)))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(198 - (r$452) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? - c$191 - #\))) - (k$449 #f))))) - (> r$452 - 0))))) - (length - buf$190))))))))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(196 - (r$445) - ((if r$445 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(192 - () - ((done$187 - k$443 - buf$190))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(195 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(194 - (r$447) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(193 - (r$446) - ((loop$186 - k$443 - r$446)))) - (cons r$447 - buf$190))))) - (read-char - fp$183)))))))))))))) - (eof-object? c$191))))) - (peek-char fp$183))))))))) - (set! done$187 r$456))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(263 - (k$457 raw-buf$194) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(261 - (buf$195) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(260 - (r$494) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(259 - (r$459) - ((if r$459 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(214 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(213 - (r$460) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(212 - (r$461) - ((parse-error - k$457 - "missing character" - r$460 - r$461)))) - ptbl$182)))) - ptbl$182))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(258 - (r$493) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(257 - (r$462) - ((if r$462 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(215 - () - ((k$457 (car buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(256 - (r$492) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(255 - (r$463) - ((if r$463 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(216 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(254 - (r$491) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(253 - (r$464) - ((if r$464 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(217 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(252 - (r$490) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(251 - (r$465) - ((if r$465 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(218 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(250 - (r$489) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(249 - (r$466) - ((if r$466 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(219 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(248 - (r$488) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(247 - (r$467) - ((if r$467 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(220 - () - ((k$457 #\newline))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(246 - (r$487) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(245 - (r$468) - ((if r$468 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(221 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(244 - (r$486) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(243 - (r$469) - ((if r$469 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(222 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(242 - (r$485) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(241 - (r$470) - ((if r$470 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(223 - () - ((k$457 #\space))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(240 - (r$484) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(239 - (r$471) - ((if r$471 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(224 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(238 - (k$480) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(237 - (r$483) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(236 - (r$481) - ((if r$481 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(235 - (r$482) - ((k$480 (equal? - r$482 - #\x))))) - (car buf$195)) - (k$480 #f))))) - (> r$483 - 1))))) - (length - buf$195))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(228 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(227 - (r$475) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number - r$474 - 16))))) - (list->string - r$475))))) - (cdr buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(233 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string - buf$195))))))))))))))) - (equal? - buf$195 - r$484))))) - '(#\t - #\a - #\b)))))) - (equal? - buf$195 - r$485))))) - '(#\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$486))))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))))) - (equal? - buf$195 - r$487))))) - '(#\n - #\u - #\l - #\l)))))) - (equal? - buf$195 - r$488))))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))))) - (equal? - buf$195 - r$489))))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))))) - (equal? - buf$195 - r$490))))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))))) - (equal? - buf$195 - r$491))))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$492))))) - '(#\a - #\l - #\a - #\r - #\m)))))) - (= 1 r$493))))) - (length buf$195)))))) - (= 0 r$494))))) - (length buf$195))))) - raw-buf$194)))))))))))) - #f - #f))))) - (define read-str - #((record-marker) - #((record-marker) #f (id args body)) - #(188 - (k$426 fp$180 buf$179 ptbl$178) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(186 - (c$181) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(185 - (r$428) - ((if r$428 - (#((record-marker) - #((record-marker) #f (id args body)) - #(176 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(175 - (r$429) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(174 - (r$430) - ((parse-error - k$426 - "missing closing double-quote" - r$429 - r$430)))) - ptbl$178)))) - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(184 - (r$431) - ((if r$431 - (#((record-marker) - #((record-marker) #f (id args body)) - #(178 - () - ((read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(177 - (r$432) - ((read-str - k$426 - fp$180 - r$432 - ptbl$178)))) - fp$180 - buf$179 - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(183 - (r$433) - ((if r$433 - (#((record-marker) - #((record-marker) #f (id args body)) - #(180 - () - ((reverse - #((record-marker) - #((record-marker) - #f - (id args body)) - #(179 - (r$434) - ((k$426 (list->string - r$434))))) - buf$179))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(182 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(181 - (r$435) - ((read-str - k$426 - fp$180 - r$435 - ptbl$178)))) - (cons c$181 buf$179)))))))))) - (equal? #\" c$181)))))) - (equal? #\\ c$181)))))) - (eof-object? c$181))))) - (read-char fp$180)))))) - (define read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(173 - (k$410 fp$175 buf$174 ptbl$173) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(171 - (c$176) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(170 - (r$412) - ((if r$412 - (#((record-marker) - #((record-marker) #f (id args body)) - #(156 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(155 - (r$413) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(154 - (r$414) - ((parse-error - k$410 - "missing escaped character within string" - r$413 - r$414)))) - ptbl$173)))) - ptbl$173))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(168 - (tmp$177) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(167 - (k$423) - ((if tmp$177 - (k$423 tmp$177) - (k$423 (equal? #\\ c$176)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(166 - (r$415) - ((if r$415 - (#((record-marker) - #((record-marker) #f (id args body)) - #(157 - () - ((k$410 (cons c$176 buf$174)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(165 - (r$416) - ((if r$416 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(158 - () - ((k$410 (cons #\newline - buf$174)))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(164 - () - ((list #((record-marker) - #((record-marker) - #f - (id args body)) - #(163 - (r$421) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(162 - (r$420) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(161 - (r$417) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(160 - (r$418) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(159 - (r$419) - ((parse-error - k$410 - r$417 - r$418 - r$419)))) - ptbl$173)))) - ptbl$173)))) - (string-append - "invalid escape character [" - r$420 - "] in string"))))) - (list->string - r$421))))) - c$176))))))))) - (equal? #\n c$176)))))))))) - (equal? #\" c$176)))))) - (eof-object? c$176))))) - (read-char fp$175)))))) - (define sign? - #((record-marker) - #((record-marker) #f (id args body)) - #(153 - (k$406 c$171) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(151 - (tmp$172) - ((if tmp$172 - (k$406 tmp$172) - (k$406 (equal? c$171 #\-)))))) - (equal? c$171 #\+)))))) - (define token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(150 - (k$386 a$167) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(149 - (r$403) - ((char-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(147 - (tmp$168) - ((if tmp$168 - (k$386 tmp$168) - (#((record-marker) - #((record-marker) #f (id args body)) - #(146 - (k$397) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(145 - (r$402) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(144 - (r$398) - ((if r$398 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(143 - (r$401) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(142 - (r$399) - ((if r$399 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(141 - (r$400) - ((char-numeric? - k$397 - r$400)))) - (cadr a$167)) - (k$397 #f))))) - (eq? #\. r$401))))) - (car a$167)) - (k$397 #f))))) - (> r$402 1))))) - (length a$167))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(139 - (tmp$169) - ((if tmp$169 - (k$386 tmp$169) - (#((record-marker) - #((record-marker) #f (id args body)) - #(138 - (r$396) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(137 - (r$389) - ((if r$389 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(136 - (r$395) - ((char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(134 - (tmp$170) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(133 - (k$393) - ((if tmp$170 - (k$393 tmp$170) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(132 - (r$394) - ((k$393 (eq? #\. - r$394))))) - (cadr a$167)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(131 - (r$390) - ((if r$390 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(130 - (r$391) - ((sign? k$386 - r$391)))) - (car a$167)) - (k$386 #f))))))))) - r$395)))) - (cadr a$167)) - (k$386 #f))))) - (> r$396 1))))) - (length a$167))))))))))) - r$403)))) - (car a$167)))))) - (define parse-atom - #((record-marker) - #((record-marker) #f (id args body)) - #(129 - (k$380 a$166) - ((token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(128 - (r$381) - ((if r$381 - (#((record-marker) - #((record-marker) #f (id args body)) - #(125 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(124 (r$382) ((k$380 (string->number r$382))))) - (list->string a$166)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(127 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(126 (r$383) ((k$380 (string->symbol r$383))))) - (list->string a$166)))))))))) - a$166))))) - (define get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(123 - (k$376 fp$165 ptbl$164) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(122 - (r$377) - ((if r$377 - (in-port:read-buf! k$376 ptbl$164) - (k$376 (read-char fp$165)))))) - ptbl$164))))) - (define read-block-comment - #((record-marker) - #((record-marker) #f (id args body)) - #(121 - (k$371 fp$162 ptbl$161) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(119 - (c$163) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(118 - (r$373) - ((if r$373 - (#((record-marker) - #((record-marker) #f (id args body)) - #(116 - () - ((read-block-terminator k$371 fp$162 ptbl$161))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(117 - () - ((read-block-comment k$371 fp$162 ptbl$161))))))))) - (eq? #\| c$163))))) - fp$162 - ptbl$161))))) - (define read-block-terminator - #((record-marker) - #((record-marker) #f (id args body)) - #(115 - (k$365 fp$159 ptbl$158) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(113 - (c$160) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(112 - (r$367) - ((if r$367 - (#((record-marker) - #((record-marker) #f (id args body)) - #(108 () ((k$365 #t))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(111 - (r$368) - ((if r$368 - (#((record-marker) - #((record-marker) #f (id args body)) - #(109 - () - ((read-block-terminator - k$365 - fp$159 - ptbl$158))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(110 - () - ((read-block-comment - k$365 - fp$159 - ptbl$158))))))))) - (eq? #\| c$160)))))) - (eq? #\# c$160))))) - fp$159 - ptbl$158))))) - (define parse-literal-identifier - #((record-marker) - #((record-marker) #f (id args body)) - #(107 - (k$358 fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(106 - (r$362) - ((parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(104 - (sym$157) - ((if all?$154 - (#((record-marker) - #((record-marker) #f (id args body)) - #(103 - (r$360) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(102 - (r$361) - ((parse k$358 - fp$156 - r$360 - r$361 - all?$154 - #f - parens$153 - ptbl$152)))) - (cons sym$157 toks$155))))) - '()) - (k$358 sym$157))))) - fp$156 - r$362 - ptbl$152)))) - '()))))) - (define parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(101 - (k$343 fp$147 tok$146 ptbl$145) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(100 - (r$344) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(97 - (r$345) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(96 - (c$150 next$149) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(95 - (r$346) - ((if r$346 - (#((record-marker) - #((record-marker) #f (id args body)) - #(89 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(88 - (k$348) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(87 - (r$349) - ((if r$349 - (k$348 "||") - (reverse - #((record-marker) - #((record-marker) - #f - (id args body)) - #(86 - (r$350) - ((k$348 (list->string - r$350))))) - tok$146))))) - (null? tok$146))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(84 - (str$151) - ((k$343 (string->symbol - str$151)))))))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(94 - (r$351) - ((if r$351 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(92 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(91 - (r$352) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(90 - (r$353) - ((parse-error - k$343 - "EOF encountered parsing literal identifier" - r$352 - r$353)))) - ptbl$145)))) - ptbl$145))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(93 - () - ((next$149 k$343 c$150))))))))) - (eof-object? c$150)))))) - (eq? #\| c$150))))) - r$344 - r$345)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(99 - (k$354 c$148) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(98 - (r$355) - ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) - (cons c$148 tok$146))))))))) - fp$147 - ptbl$145))))) - (define parse-number - #((record-marker) - #((record-marker) #f (id args body)) - #(83 - (k$325 fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(82 - (r$340) - ((parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(80 - (num$142) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(79 - (k$333) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(78 - (r$334) - ((if r$334 - (k$333 #f) - (token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(76 - (tmp$144) - ((if tmp$144 - (k$333 tmp$144) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(75 - (r$339) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(74 - (r$336) - ((if r$336 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(73 - (r$337) - ((if r$337 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(72 - (r$338) - ((hex-digit? - k$333 - r$338)))) - (car num$142)) - (k$333 #f))))) - (= base$136 16)) - (k$333 #f))))) - (> r$339 0))))) - (length num$142)))))) - num$142))))) - (null? num$142))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(71 - (r$327) - ((if r$327 - (#((record-marker) - #((record-marker) #f (id args body)) - #(67 - () - ((tok->num$135 - #((record-marker) - #((record-marker) #f (id args body)) - #(65 - (result$143) - ((if all?$139 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(64 - (r$329) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(63 - (r$330) - ((parse k$325 - fp$141 - r$329 - r$330 - all?$139 - #f - parens$138 - ptbl$137)))) - (cons result$143 - toks$140))))) - '()) - (k$325 result$143))))) - num$142))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(70 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(69 - (r$331) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(68 - (r$332) - ((parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)))) - ptbl$137)))) - ptbl$137))))))))))))) - base$136 - fp$141 - r$340 - ptbl$137)))) - '()))))) - (define parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(62 - (k$301 base$130 fp$129 tok$128 ptbl$127) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(61 - (r$302) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(58 - (r$303) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(57 - (c$133 next$132) - ((sign? #((record-marker) - #((record-marker) #f (id args body)) - #(56 - (r$304) - ((if r$304 - (#((record-marker) - #((record-marker) #f (id args body)) - #(34 () ((next$132 k$301 c$133))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(55 - (r$305) - ((if r$305 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(35 - () - ((next$132 - k$301 - c$133))))) - (char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(54 - (r$306) - ((if r$306 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(47 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(46 - (k$308) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(45 - (k$315) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(44 - (r$316) - ((if r$316 - (char>? - k$315 - c$133 - #\1) - (k$315 #f))))) - (= base$130 - 2))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(42 - (tmp$134) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(41 - (k$313) - ((if tmp$134 - (k$313 tmp$134) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(40 - (r$314) - ((if r$314 - (char>? - k$313 - c$133 - #\7) - (k$313 #f))))) - (= base$130 - 8)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(36 - (r$307) - ((next$132 - k$301 - c$133))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(53 - (k$319) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(52 - (r$320) - ((if r$320 - (hex-digit? - k$319 - c$133) - (k$319 #f))))) - (= base$130 - 16))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(51 - (r$317) - ((if r$317 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(48 - () - ((next$132 - k$301 - c$133))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(50 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(49 - (r$318) - ((reverse - k$301 - tok$128)))) - ptbl$127 - c$133)))))))))))))) - c$133))))) - (eq? #\. c$133)))))) - c$133)))) - r$302 - r$303)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(60 - (k$321 c$131) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(59 - (r$322) - ((parse-number-rec - k$321 - base$130 - fp$129 - r$322 - ptbl$127)))) - (cons c$131 tok$128))))))))) - fp$129 - ptbl$127))))) - (define hex-digit? - #((record-marker) - #((record-marker) #f (id args body)) - #(33 - (k$294 c$125) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(32 - (k$297) - ((char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(31 - (r$298) - ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) - c$125 - #\a)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(29 - (tmp$126) - ((if tmp$126 - (k$294 tmp$126) - (char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(28 - (r$296) - ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) - c$125 - #\A)))))))))) - (define cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(27 - (k$285 . args$123) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(26 - (k$290) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(25 - (r$291) - ((if r$291 - (current-input-port k$290) - (k$290 (car args$123)))))) - (null? args$123))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(23 - (fp$124) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(22 - (r$287) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(21 - (r$288) - ((reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(20 - (r$289) - ((parse k$285 - fp$124 - r$287 - r$288 - #f - #f - 0 - r$289)))) - fp$124)))) - '())))) - '()))))))))) - (define read-all - #((record-marker) - #((record-marker) #f (id args body)) - #(19 - (k$272 . args$116) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(18 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(17 - (k$281) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(16 - (r$282) - ((if r$282 - (current-input-port k$281) - (k$281 (car args$116)))))) - (null? args$116))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(14 - (fp$118) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(13 - (loop$119) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(7 - (r$276) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(6 - (r$274) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(5 - (r$275) - ((loop$119 k$272 fp$118 r$275)))) - '())))) - (set! loop$119 r$276))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(10 - (obj$122) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(9 - (r$279) - ((if r$279 - (reverse k$277 result$120) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(8 - (r$280) - ((loop$119 - k$277 - fp$121 - r$280)))) - (cons obj$122 result$120)))))) - (eof-object? obj$122))))) - fp$121)))))))) - #f))))))))))))) - (define lib-init:schemeread - #((record-marker) - #((record-marker) #f (id args body)) - #(4 - (k$266) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(3 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(2 - (r$268) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(1 - (r$269) - ((k$266 (set! *in-port-table* r$269))))) - '())))) - (set! read cyc-read))))))))))) diff --git a/debug/read/read-old.c b/debug/read/read-old.c deleted file mode 100644 index 44b14500..00000000 --- a/debug/read/read-old.c +++ /dev/null @@ -1,68429 +0,0 @@ -/** - ** This file was automatically generated by the Cyclone scheme compiler - ** - ** (c) 2014-2016 Justin Ethier - ** Version 0.0.7 (Pre-release) - ** - **/ - -/* -"---------------- input program:" - */ -/* -((define-library - (scheme read) - (import (scheme base) (scheme char)) - (export read read-all) - (begin - (define read cyc-read) - (define *in-port-table* '()) - (define (reg-port fp) - (let ((r (assoc fp *in-port-table*))) - (cond ((not r) - (set! r (list fp #f 1 0)) - (set! *in-port-table* (cons r *in-port-table*)) - r) - (else r)))) - (define (in-port:read-buf! ptbl) - (let ((result (cadr ptbl))) - (in-port:set-buf! ptbl #f) - result)) - (define (in-port:get-buf ptbl) (cadr ptbl)) - (define (in-port:set-buf! ptbl buf) - (set-car! (cdr ptbl) buf)) - (define (in-port:get-lnum ptbl) (caddr ptbl)) - (define (in-port:set-lnum! ptbl lnum) - (set-car! (cddr ptbl) lnum)) - (define (in-port:get-cnum ptbl) (cadddr ptbl)) - (define (in-port:set-cnum! ptbl cnum) - (set-car! (cdddr ptbl) cnum)) - (define (add-tok tok toks) (cons tok toks)) - (define (get-toks tok toks) - (if (null? tok) toks (add-tok (->tok tok) toks))) - (define (->tok lst) (parse-atom (reverse lst))) - (define (dotted? lst) - (and (> (length lst) 2) - (equal? - (cadr (reverse lst)) - (string->symbol ".")))) - (define (->dotted-list lst) - (cond ((null? lst) '()) - ((equal? (car lst) (string->symbol ".")) - (cadr lst)) - (else (cons (car lst) (->dotted-list (cdr lst)))))) - (define (parse-error msg lnum cnum) - (error (string-append - "Error (line " - (number->string lnum) - ", char " - (number->string cnum) - "): " - msg))) - (define (parse/tok - fp - tok - toks - all? - comment? - parens - ptbl - curr-char) - (cond ((null? tok) - (parse fp '() toks all? comment? parens ptbl)) - (all? - (parse fp - '() - (add-tok (->tok tok) toks) - all? - comment? - parens - ptbl)) - (else - (in-port:set-buf! ptbl curr-char) - (car (add-tok (->tok tok) toks))))) - (define (parse fp tok toks all? comment? parens ptbl) - (in-port:set-cnum! - ptbl - (+ 1 (in-port:get-cnum ptbl))) - (let ((c (if (in-port:get-buf ptbl) - (in-port:read-buf! ptbl) - (read-char fp)))) - (cond ((eof-object? c) - (if (> parens 0) - (parse-error - "missing closing parenthesis" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - (if all? - (reverse (get-toks tok toks)) - (let ((last (get-toks tok toks))) - (if (> (length last) 0) (car last) c)))) - (comment? - (if (eq? c #\newline) - (begin - (in-port:set-lnum! - ptbl - (+ 1 (in-port:get-lnum ptbl))) - (in-port:set-cnum! ptbl 0) - (parse fp '() toks all? #f parens ptbl)) - (parse fp '() toks all? #t parens ptbl))) - ((char-whitespace? c) - (if (equal? c #\newline) - (in-port:set-lnum! - ptbl - (+ 1 (in-port:get-lnum ptbl)))) - (if (equal? c #\newline) - (in-port:set-cnum! ptbl 0)) - (parse/tok fp tok toks all? #f parens ptbl c)) - ((eq? c #\;) - (parse/tok fp tok toks all? #t parens ptbl c)) - ((eq? c #\') - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - (else - (let ((sub (parse fp '() '() #f #f 0 ptbl))) - (define new-toks - (add-tok (list 'quote sub) (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))))) - ((eq? c #\`) - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - (else - (let ((sub (parse fp '() '() #f #f 0 ptbl))) - (define new-toks - (add-tok - (list 'quasiquote sub) - (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))))) - ((eq? c #\,) - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - (else - (letrec ((sub #f) - (next-c (read-char fp)) - (unquote-sym - (if (equal? next-c #\@) - 'unquote-splicing - 'unquote)) - (new-toks #f)) - (cond ((eof-object? next-c) - (parse-error - "unexpected end of file" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - ((not (equal? next-c #\@)) - (in-port:set-buf! ptbl next-c)) - (else #f)) - (set! sub (parse fp '() '() #f #f 0 ptbl)) - (set! new-toks - (add-tok - (list unquote-sym sub) - (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))))) - ((eq? c #\() - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - (else - (let ((sub (parse fp '() '() #t #f (+ parens 1) ptbl)) - (toks* (get-toks tok toks))) - (define new-toks - (add-tok - (if (and (pair? sub) (dotted? sub)) - (->dotted-list sub) - sub) - toks*)) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))))) - ((eq? c #\)) - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - ((= parens 0) - (parse-error - "unexpected closing parenthesis" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - (else (reverse (get-toks tok toks))))) - ((eq? c #\") - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - (else - (let ((str (read-str fp '() ptbl)) - (toks* (get-toks tok toks))) - (define new-toks (add-tok str toks*)) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))))) - ((eq? c #\#) - (if (null? tok) - (let ((next-c (read-char fp))) - (in-port:set-cnum! - ptbl - (+ 1 (in-port:get-cnum ptbl))) - (cond ((eq? #\| next-c) - (read-block-comment fp ptbl) - (parse fp '() toks all? #f parens ptbl)) - ((eq? #\t next-c) - (if all? - (parse fp '() (cons #t toks) all? #f parens ptbl) - #t)) - ((eq? #\f next-c) - (if all? - (parse fp '() (cons #f toks) all? #f parens ptbl) - #f)) - ((eq? #\e next-c) - (parse-number - fp - toks - all? - parens - ptbl - 10 - (lambda (num) (exact (parse-atom num))))) - ((eq? #\i next-c) - (parse-number - fp - toks - all? - parens - ptbl - 10 - (lambda (num) (inexact (parse-atom num))))) - ((eq? #\b next-c) - (parse-number - fp - toks - all? - parens - ptbl - 2 - (lambda (num) - (string->number (list->string num) 2)))) - ((eq? #\o next-c) - (parse-number - fp - toks - all? - parens - ptbl - 8 - (lambda (num) - (string->number (list->string num) 8)))) - ((eq? #\x next-c) - (parse-number - fp - toks - all? - parens - ptbl - 16 - (lambda (num) - (string->number (list->string num) 16)))) - ((eq? #\u next-c) - (set! next-c (read-char fp)) - (if (not (eq? #\8 next-c)) - (parse-error - "Unhandled input sequence" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - (set! next-c (read-char fp)) - (if (not (eq? #\( next-c)) - (parse-error - "Unhandled input sequence" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - (let ((sub (parse fp - '() - '() - #t - #f - (+ parens 1) - ptbl)) - (toks* (get-toks tok toks))) - (define new-toks - (add-tok - (if (and (pair? sub) (dotted? sub)) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)) - (apply bytevector sub)) - toks*)) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))) - ((eq? #\( next-c) - (let ((sub (parse fp - '() - '() - #t - #f - (+ parens 1) - ptbl)) - (toks* (get-toks tok toks))) - (define new-toks - (add-tok - (if (and (pair? sub) (dotted? sub)) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)) - (list->vector sub)) - toks*)) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))) - ((eq? #\\ next-c) - (let ((new-toks (cons (read-pound fp ptbl) toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks)))) - ((eq? #\; next-c) - (parse fp '() '() #f #f 0 ptbl) - (cond ((and (not all?) (not (null? tok))) - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks))) - (else - (parse fp tok toks all? #f parens ptbl)))) - (else - (parse-error - "Unhandled input sequence" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))))) - (parse fp (cons c tok) toks all? #f parens ptbl))) - ((eq? c #\|) - (parse-literal-identifier - fp - toks - all? - parens - ptbl)) - (else - (parse fp (cons c tok) toks all? #f parens ptbl))))) - (define (read-pound fp ptbl) - (define (done raw-buf) - (let ((buf (reverse raw-buf))) - (cond ((= 0 (length buf)) - (parse-error - "missing character" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - ((= 1 (length buf)) (car buf)) - ((equal? buf '(#\a #\l #\a #\r #\m)) - (integer->char 7)) - ((equal? - buf - '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) - (integer->char 8)) - ((equal? buf '(#\d #\e #\l #\e #\t #\e)) - (integer->char 127)) - ((equal? buf '(#\e #\s #\c #\a #\p #\e)) - (integer->char 27)) - ((equal? buf '(#\n #\e #\w #\l #\i #\n #\e)) - (integer->char 10)) - ((equal? buf '(#\n #\u #\l #\l)) - (integer->char 0)) - ((equal? buf '(#\r #\e #\t #\u #\r #\n)) - (integer->char 13)) - ((equal? buf '(#\s #\p #\a #\c #\e)) - (integer->char 32)) - ((equal? buf '(#\t #\a #\b)) (integer->char 9)) - ((and (> (length buf) 1) (equal? (car buf) #\x)) - (integer->char - (string->number (list->string (cdr buf)) 16))) - (else - (parse-error - (string-append - "unable to parse character: " - (list->string buf)) - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))) - (define (loop buf) - (let ((c (peek-char fp))) - (cond ((or (eof-object? c) - (and (char-whitespace? c) (> (length buf) 0)) - (and (> (length buf) 0) (equal? c #\)))) - (done buf)) - (else (loop (cons (read-char fp) buf)))))) - (loop '())) - (define (read-str fp buf ptbl) - (let ((c (read-char fp))) - (cond ((eof-object? c) - (parse-error - "missing closing double-quote" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - ((equal? #\\ c) - (read-str fp (read-str-esc fp buf ptbl) ptbl)) - ((equal? #\" c) (list->string (reverse buf))) - (else (read-str fp (cons c buf) ptbl))))) - (define (read-str-esc fp buf ptbl) - (let ((c (read-char fp))) - (cond ((eof-object? c) - (parse-error - "missing escaped character within string" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - ((or (equal? #\" c) (equal? #\\ c)) (cons c buf)) - ((equal? #\n c) (cons #\newline buf)) - (else - (parse-error - (string-append - "invalid escape character [" - (list->string (list c)) - "] in string") - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))) - (define (sign? c) - (or (equal? c #\+) (equal? c #\-))) - (define (token-numeric? a) - (or (char-numeric? (car a)) - (and (> (length a) 1) - (eq? #\. (car a)) - (char-numeric? (cadr a))) - (and (> (length a) 1) - (or (char-numeric? (cadr a)) (eq? #\. (cadr a))) - (sign? (car a))))) - (define (parse-atom a) - (cond ((token-numeric? a) - (string->number (list->string a))) - (else (string->symbol (list->string a))))) - (define (get-next-char fp ptbl) - (if (in-port:get-buf ptbl) - (in-port:read-buf! ptbl) - (read-char fp))) - (define (read-block-comment fp ptbl) - (let ((c (get-next-char fp ptbl))) - (cond ((eq? #\| c) (read-block-terminator fp ptbl)) - (else (read-block-comment fp ptbl))))) - (define (read-block-terminator fp ptbl) - (let ((c (get-next-char fp ptbl))) - (cond ((eq? #\# c) #t) - ((eq? #\| c) (read-block-terminator fp ptbl)) - (else (read-block-comment fp ptbl))))) - (define (parse-literal-identifier - fp - toks - all? - parens - ptbl) - (let ((sym (parse-li-rec fp '() ptbl))) - (if all? - (parse fp - '() - (cons sym toks) - all? - #f - parens - ptbl) - sym))) - (define (parse-li-rec fp tok ptbl) - (let ((c (get-next-char fp ptbl)) - (next (lambda (c) (parse-li-rec fp (cons c tok) ptbl)))) - (cond ((eq? #\| c) - (let ((str (if (null? tok) - "||" - (list->string (reverse tok))))) - (string->symbol str))) - ((eof-object? c) - (parse-error - "EOF encountered parsing literal identifier" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - (else (next c))))) - (define (parse-number - fp - toks - all? - parens - ptbl - base - tok->num) - (let ((num (parse-number-rec base fp '() ptbl))) - (cond ((and (not (null? num)) - (or (token-numeric? num) - (and (> (length num) 0) - (= base 16) - (hex-digit? (car num))))) - (let ((result (tok->num num))) - (if all? - (parse fp - '() - (cons result toks) - all? - #f - parens - ptbl) - result))) - (else - (parse-error - "Illegal number syntax" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))) - (define (parse-number-rec base fp tok ptbl) - (let ((c (get-next-char fp ptbl)) - (next (lambda (c) - (parse-number-rec base fp (cons c tok) ptbl)))) - (cond ((sign? c) (next c)) - ((eq? #\. c) (next c)) - ((char-numeric? c) - (if (or (and (= base 2) (char>? c #\1)) - (and (= base 8) (char>? c #\7))) - (parse-error - "Illegal digit" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))) - (next c)) - ((and (= base 16) (hex-digit? c)) (next c)) - (else (in-port:set-buf! ptbl c) (reverse tok))))) - (define (hex-digit? c) - (or (and (char>=? c #\a) (char<=? c #\f)) - (and (char>=? c #\A) (char<=? c #\F)))) - (define cyc-read - (lambda args - (let ((fp (if (null? args) (current-input-port) (car args)))) - (parse fp '() '() #f #f 0 (reg-port fp))))) - (define (read-all . args) - (let ((fp (if (null? args) (current-input-port) (car args)))) - (define (loop fp result) - (let ((obj (cyc-read fp))) - (if (eof-object? obj) - (reverse result) - (loop fp (cons obj result))))) - (loop fp '())))))) - */ -/* -"imports:" - */ -/* -((scheme base) (scheme char)) - */ -/* -"resolved imports:" - */ -/* -((cons-source scheme base) - (syntax-rules scheme base) - (letrec* scheme base) - (guard scheme base) - (guard-aux scheme base) - (define-record-type scheme base) - (record? scheme base) - (register-simple-type scheme base) - (make-type-predicate scheme base) - (make-constructor scheme base) - (make-getter scheme base) - (make-setter scheme base) - (slot-set! scheme base) - (type-slot-offset scheme base) - (receive scheme base) - (abs scheme base) - (max scheme base) - (min scheme base) - (modulo scheme base) - (floor-remainder scheme base) - (even? scheme base) - (exact-integer? scheme base) - (exact? scheme base) - (inexact? scheme base) - (odd? scheme base) - (complex? scheme base) - (rational? scheme base) - (gcd scheme base) - (lcm scheme base) - (quotient scheme base) - (remainder scheme base) - (truncate-quotient scheme base) - (truncate-remainder scheme base) - (truncate/ scheme base) - (floor-quotient scheme base) - (floor-remainder scheme base) - (floor/ scheme base) - (square scheme base) - (expt scheme base) - (call-with-current-continuation scheme base) - (call/cc scheme base) - (call-with-values scheme base) - (dynamic-wind scheme base) - (values scheme base) - (char=? scheme base) - (char? scheme base) - (char<=? scheme base) - (char>=? scheme base) - (string=? scheme base) - (string? scheme base) - (string>=? scheme base) - (foldl scheme base) - (foldr scheme base) - (not scheme base) - (list? scheme base) - (zero? scheme base) - (positive? scheme base) - (negative? scheme base) - (append scheme base) - (list scheme base) - (make-list scheme base) - (list-copy scheme base) - (map scheme base) - (for-each scheme base) - (list-tail scheme base) - (list-ref scheme base) - (list-set! scheme base) - (reverse scheme base) - (boolean=? scheme base) - (symbol=? scheme base) - (Cyc-obj=? scheme base) - (vector scheme base) - (vector-append scheme base) - (vector-copy scheme base) - (vector-copy! scheme base) - (vector-fill! scheme base) - (vector->list scheme base) - (vector->string scheme base) - (vector-map scheme base) - (vector-for-each scheme base) - (make-string scheme base) - (string scheme base) - (string-copy scheme base) - (string-copy! scheme base) - (string-fill! scheme base) - (string->list scheme base) - (string->vector scheme base) - (string-map scheme base) - (string-for-each scheme base) - (make-parameter scheme base) - (current-output-port scheme base) - (current-input-port scheme base) - (current-error-port scheme base) - (call-with-port scheme base) - (error scheme base) - (raise scheme base) - (raise-continuable scheme base) - (with-exception-handler scheme base) - (Cyc-add-exception-handler scheme base) - (Cyc-remove-exception-handler scheme base) - (newline scheme base) - (write-char scheme base) - (write-string scheme base) - (flush-output-port scheme base) - (read-line scheme base) - (read-string scheme base) - (input-port? scheme base) - (output-port? scheme base) - (input-port-open? scheme base) - (output-port-open? scheme base) - (features scheme base) - (any scheme base) - (every scheme base) - (and scheme base) - (or scheme base) - (let scheme base) - (let* scheme base) - (letrec scheme base) - (begin scheme base) - (case scheme base) - (cond scheme base) - (cond-expand scheme base) - (do scheme base) - (when scheme base) - (unless scheme base) - (quasiquote scheme base) - (floor scheme base) - (ceiling scheme base) - (truncate scheme base) - (round scheme base) - (exact scheme base) - (inexact scheme base) - (eof-object scheme base) - (syntax-error scheme base) - (bytevector-copy scheme base) - (utf8->string scheme base) - (string->utf8 scheme base) - (denominator scheme base) - (numerator scheme base) - (char-alphabetic? scheme char) - (char-downcase scheme char) - (char-foldcase scheme char) - (char-lower-case? scheme char) - (char-numeric? scheme char) - (char-upcase scheme char) - (char-upper-case? scheme char) - (char-whitespace? scheme char) - (char-ci<=? scheme char) - (char-ci=? scheme char) - (char-ci>? scheme char) - (digit-value scheme char) - (string-upcase scheme char) - (string-downcase scheme char) - (string-foldcase scheme char) - (string-ci<=? scheme char) - (string-ci=? scheme char) - (string-ci>? scheme char)) - */ -/* -"resolved macros:" - */ -/* -() - */ -/* -"---------------- after macro expansion:" - */ -/* -((define read cyc-read) - (define *in-port-table* '()) - (define reg-port - (lambda (fp) - ((lambda (r) - (if (not r) - ((lambda () - (set! r (list fp #f 1 0)) - (set! *in-port-table* (cons r *in-port-table*)) - r)) - ((lambda () r)))) - (assoc fp *in-port-table*)))) - (define in-port:read-buf! - (lambda (ptbl) - ((lambda (result) - (in-port:set-buf! ptbl #f) - result) - (cadr ptbl)))) - (define in-port:get-buf - (lambda (ptbl) (cadr ptbl))) - (define in-port:set-buf! - (lambda (ptbl buf) (set-car! (cdr ptbl) buf))) - (define in-port:get-lnum - (lambda (ptbl) (caddr ptbl))) - (define in-port:set-lnum! - (lambda (ptbl lnum) (set-car! (cddr ptbl) lnum))) - (define in-port:get-cnum - (lambda (ptbl) (cadddr ptbl))) - (define in-port:set-cnum! - (lambda (ptbl cnum) (set-car! (cdddr ptbl) cnum))) - (define add-tok - (lambda (tok toks) (cons tok toks))) - (define get-toks - (lambda (tok toks) - (if (null? tok) toks (add-tok (->tok tok) toks)))) - (define ->tok - (lambda (lst) (parse-atom (reverse lst)))) - (define dotted? - (lambda (lst) - (if (> (length lst) 2) - (equal? - (cadr (reverse lst)) - (string->symbol ".")) - #f))) - (define ->dotted-list - (lambda (lst) - (if (null? lst) - ((lambda () '())) - (if (equal? (car lst) (string->symbol ".")) - ((lambda () (cadr lst))) - ((lambda () - (cons (car lst) (->dotted-list (cdr lst))))))))) - (define parse-error - (lambda (msg lnum cnum) - (error (string-append - "Error (line " - (number->string lnum) - ", char " - (number->string cnum) - "): " - msg)))) - (define parse/tok - (lambda (fp tok toks all? comment? parens ptbl curr-char) - (if (null? tok) - ((lambda () - (parse fp '() toks all? comment? parens ptbl))) - (if all? - ((lambda () - (parse fp - '() - (add-tok (->tok tok) toks) - all? - comment? - parens - ptbl))) - ((lambda () - (in-port:set-buf! ptbl curr-char) - (car (add-tok (->tok tok) toks)))))))) - (define parse - (lambda (fp tok toks all? comment? parens ptbl) - (in-port:set-cnum! - ptbl - (+ 1 (in-port:get-cnum ptbl))) - ((lambda (c) - (if (eof-object? c) - ((lambda () - (if (> parens 0) - (parse-error - "missing closing parenthesis" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)) - #f) - (if all? - (reverse (get-toks tok toks)) - ((lambda (last) - (if (> (length last) 0) (car last) c)) - (get-toks tok toks))))) - (if comment? - ((lambda () - (if (eq? c #\newline) - ((lambda () - (in-port:set-lnum! - ptbl - (+ 1 (in-port:get-lnum ptbl))) - (in-port:set-cnum! ptbl 0) - (parse fp '() toks all? #f parens ptbl))) - (parse fp '() toks all? #t parens ptbl)))) - (if (char-whitespace? c) - ((lambda () - (if (equal? c #\newline) - (in-port:set-lnum! - ptbl - (+ 1 (in-port:get-lnum ptbl))) - #f) - (if (equal? c #\newline) - (in-port:set-cnum! ptbl 0) - #f) - (parse/tok fp tok toks all? #f parens ptbl c))) - (if (eq? c #\;) - ((lambda () - (parse/tok fp tok toks all? #t parens ptbl c))) - (if (eq? c #\') - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub) - (define new-toks - (add-tok (list 'quote sub) (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - (parse fp '() '() #f #f 0 ptbl))))))) - (if (eq? c #\`) - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub) - (define new-toks - (add-tok - (list 'quasiquote sub) - (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - (parse fp '() '() #f #f 0 ptbl))))))) - (if (eq? c #\,) - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub next-c unquote-sym new-toks) - (set! sub #f) - (set! next-c (read-char fp)) - (set! unquote-sym - (if (equal? next-c #\@) - 'unquote-splicing - 'unquote)) - (set! new-toks #f) - (if (eof-object? next-c) - ((lambda () - (parse-error - "unexpected end of file" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if (not (equal? next-c #\@)) - ((lambda () - (in-port:set-buf! ptbl next-c))) - ((lambda () #f)))) - (set! sub (parse fp '() '() #f #f 0 ptbl)) - (set! new-toks - (add-tok - (list unquote-sym sub) - (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - #f - #f - #f - #f)))))) - (if (eq? c #\() - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub toks*) - (define new-toks - (add-tok - (if (if (pair? sub) (dotted? sub) #f) - (->dotted-list sub) - sub) - toks*)) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - (parse fp '() '() #t #f (+ parens 1) ptbl) - (get-toks tok toks))))))) - (if (eq? c #\)) - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - (if (= parens 0) - ((lambda () - (parse-error - "unexpected closing parenthesis" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - ((lambda () (reverse (get-toks tok toks)))))))) - (if (eq? c #\") - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (str toks*) - (define new-toks (add-tok str toks*)) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (read-str fp '() ptbl) - (get-toks tok toks))))))) - (if (eq? c #\#) - ((lambda () - (if (null? tok) - ((lambda (next-c) - (in-port:set-cnum! - ptbl - (+ 1 (in-port:get-cnum ptbl))) - (if (eq? #\| next-c) - ((lambda () - (read-block-comment fp ptbl) - (parse fp - '() - toks - all? - #f - parens - ptbl))) - (if (eq? #\t next-c) - ((lambda () - (if all? - (parse fp - '() - (cons #t toks) - all? - #f - parens - ptbl) - #t))) - (if (eq? #\f next-c) - ((lambda () - (if all? - (parse fp - '() - (cons #f toks) - all? - #f - parens - ptbl) - #f))) - (if (eq? #\e next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 10 - (lambda (num) - (exact (parse-atom - num)))))) - (if (eq? #\i next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 10 - (lambda (num) - (inexact - (parse-atom num)))))) - (if (eq? #\b next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 2 - (lambda (num) - (string->number - (list->string num) - 2))))) - (if (eq? #\o next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 8 - (lambda (num) - (string->number - (list->string num) - 8))))) - (if (eq? #\x next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 16 - (lambda (num) - (string->number - (list->string - num) - 16))))) - (if (eq? #\u next-c) - ((lambda () - (set! next-c - (read-char fp)) - (if (not (eq? #\8 - next-c)) - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - #f) - (set! next-c - (read-char fp)) - (if (not (eq? #\( - next-c)) - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - #f) - ((lambda (sub toks*) - (define new-toks - (add-tok - (if (if (pair? sub) - (dotted? - sub) - #f) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - (apply bytevector - sub)) - toks*)) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (parse fp - '() - '() - #t - #f - (+ parens 1) - ptbl) - (get-toks - tok - toks)))) - (if (eq? #\( next-c) - ((lambda () - ((lambda (sub - toks*) - (define new-toks - (add-tok - (if (if (pair? sub) - (dotted? - sub) - #f) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - (list->vector - sub)) - toks*)) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (parse fp - '() - '() - #t - #f - (+ parens - 1) - ptbl) - (get-toks - tok - toks)))) - (if (eq? #\\ next-c) - ((lambda () - ((lambda (new-toks) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (cons (read-pound - fp - ptbl) - toks)))) - (if (eq? #\; next-c) - ((lambda () - (parse fp - '() - '() - #f - #f - 0 - ptbl) - (if (if (not all?) - (not (null? tok)) - #f) - ((lambda () - (in-port:set-buf! - ptbl - c) - (car (add-tok - (->tok tok) - toks)))) - ((lambda () - (parse fp - tok - toks - all? - #f - parens - ptbl)))))) - ((lambda () - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl))))))))))))))))) - (read-char fp)) - (parse fp - (cons c tok) - toks - all? - #f - parens - ptbl)))) - (if (eq? c #\|) - ((lambda () - (parse-literal-identifier - fp - toks - all? - parens - ptbl))) - ((lambda () - (parse fp - (cons c tok) - toks - all? - #f - parens - ptbl)))))))))))))))) - (if (in-port:get-buf ptbl) - (in-port:read-buf! ptbl) - (read-char fp))))) - (define read-pound - (lambda (fp ptbl) - (define done - (lambda (raw-buf) - ((lambda (buf) - (if (= 0 (length buf)) - ((lambda () - (parse-error - "missing character" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if (= 1 (length buf)) - ((lambda () (car buf))) - (if (equal? buf '(#\a #\l #\a #\r #\m)) - ((lambda () (integer->char 7))) - (if (equal? - buf - '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) - ((lambda () (integer->char 8))) - (if (equal? buf '(#\d #\e #\l #\e #\t #\e)) - ((lambda () (integer->char 127))) - (if (equal? buf '(#\e #\s #\c #\a #\p #\e)) - ((lambda () (integer->char 27))) - (if (equal? buf '(#\n #\e #\w #\l #\i #\n #\e)) - ((lambda () (integer->char 10))) - (if (equal? buf '(#\n #\u #\l #\l)) - ((lambda () (integer->char 0))) - (if (equal? buf '(#\r #\e #\t #\u #\r #\n)) - ((lambda () (integer->char 13))) - (if (equal? buf '(#\s #\p #\a #\c #\e)) - ((lambda () (integer->char 32))) - (if (equal? buf '(#\t #\a #\b)) - ((lambda () (integer->char 9))) - (if (if (> (length buf) 1) - (equal? (car buf) #\x) - #f) - ((lambda () - (integer->char - (string->number - (list->string (cdr buf)) - 16)))) - ((lambda () - (parse-error - (string-append - "unable to parse character: " - (list->string buf)) - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))))))))))))))))) - (reverse raw-buf)))) - (define loop - (lambda (buf) - ((lambda (c) - (if ((lambda (tmp) - (if tmp - tmp - ((lambda (tmp) - (if tmp - tmp - (if (> (length buf) 0) (equal? c #\)) #f))) - (if (char-whitespace? c) (> (length buf) 0) #f)))) - (eof-object? c)) - ((lambda () (done buf))) - ((lambda () (loop (cons (read-char fp) buf)))))) - (peek-char fp)))) - (loop '()))) - (define read-str - (lambda (fp buf ptbl) - ((lambda (c) - (if (eof-object? c) - ((lambda () - (parse-error - "missing closing double-quote" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if (equal? #\\ c) - ((lambda () - (read-str fp (read-str-esc fp buf ptbl) ptbl))) - (if (equal? #\" c) - ((lambda () (list->string (reverse buf)))) - ((lambda () (read-str fp (cons c buf) ptbl))))))) - (read-char fp)))) - (define read-str-esc - (lambda (fp buf ptbl) - ((lambda (c) - (if (eof-object? c) - ((lambda () - (parse-error - "missing escaped character within string" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if ((lambda (tmp) (if tmp tmp (equal? #\\ c))) - (equal? #\" c)) - ((lambda () (cons c buf))) - (if (equal? #\n c) - ((lambda () (cons #\newline buf))) - ((lambda () - (parse-error - (string-append - "invalid escape character [" - (list->string (list c)) - "] in string") - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))))) - (read-char fp)))) - (define sign? - (lambda (c) - ((lambda (tmp) (if tmp tmp (equal? c #\-))) - (equal? c #\+)))) - (define token-numeric? - (lambda (a) - ((lambda (tmp) - (if tmp - tmp - ((lambda (tmp) - (if tmp - tmp - (if (> (length a) 1) - (if ((lambda (tmp) (if tmp tmp (eq? #\. (cadr a)))) - (char-numeric? (cadr a))) - (sign? (car a)) - #f) - #f))) - (if (> (length a) 1) - (if (eq? #\. (car a)) - (char-numeric? (cadr a)) - #f) - #f)))) - (char-numeric? (car a))))) - (define parse-atom - (lambda (a) - (if (token-numeric? a) - ((lambda () (string->number (list->string a)))) - ((lambda () (string->symbol (list->string a))))))) - (define get-next-char - (lambda (fp ptbl) - (if (in-port:get-buf ptbl) - (in-port:read-buf! ptbl) - (read-char fp)))) - (define read-block-comment - (lambda (fp ptbl) - ((lambda (c) - (if (eq? #\| c) - ((lambda () (read-block-terminator fp ptbl))) - ((lambda () (read-block-comment fp ptbl))))) - (get-next-char fp ptbl)))) - (define read-block-terminator - (lambda (fp ptbl) - ((lambda (c) - (if (eq? #\# c) - ((lambda () #t)) - (if (eq? #\| c) - ((lambda () (read-block-terminator fp ptbl))) - ((lambda () (read-block-comment fp ptbl)))))) - (get-next-char fp ptbl)))) - (define parse-literal-identifier - (lambda (fp toks all? parens ptbl) - ((lambda (sym) - (if all? - (parse fp - '() - (cons sym toks) - all? - #f - parens - ptbl) - sym)) - (parse-li-rec fp '() ptbl)))) - (define parse-li-rec - (lambda (fp tok ptbl) - ((lambda (c next) - (if (eq? #\| c) - ((lambda () - ((lambda (str) (string->symbol str)) - (if (null? tok) - "||" - (list->string (reverse tok)))))) - (if (eof-object? c) - ((lambda () - (parse-error - "EOF encountered parsing literal identifier" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - ((lambda () (next c)))))) - (get-next-char fp ptbl) - (lambda (c) (parse-li-rec fp (cons c tok) ptbl))))) - (define parse-number - (lambda (fp toks all? parens ptbl base tok->num) - ((lambda (num) - (if (if (not (null? num)) - ((lambda (tmp) - (if tmp - tmp - (if (> (length num) 0) - (if (= base 16) (hex-digit? (car num)) #f) - #f))) - (token-numeric? num)) - #f) - ((lambda () - ((lambda (result) - (if all? - (parse fp - '() - (cons result toks) - all? - #f - parens - ptbl) - result)) - (tok->num num)))) - ((lambda () - (parse-error - "Illegal number syntax" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))) - (parse-number-rec base fp '() ptbl)))) - (define parse-number-rec - (lambda (base fp tok ptbl) - ((lambda (c next) - (if (sign? c) - ((lambda () (next c))) - (if (eq? #\. c) - ((lambda () (next c))) - (if (char-numeric? c) - ((lambda () - (if ((lambda (tmp) - (if tmp tmp (if (= base 8) (char>? c #\7) #f))) - (if (= base 2) (char>? c #\1) #f)) - (parse-error - "Illegal digit" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)) - #f) - (next c))) - (if (if (= base 16) (hex-digit? c) #f) - ((lambda () (next c))) - ((lambda () - (in-port:set-buf! ptbl c) - (reverse tok)))))))) - (get-next-char fp ptbl) - (lambda (c) - (parse-number-rec base fp (cons c tok) ptbl))))) - (define hex-digit? - (lambda (c) - ((lambda (tmp) - (if tmp - tmp - (if (char>=? c #\A) (char<=? c #\F) #f))) - (if (char>=? c #\a) (char<=? c #\f) #f)))) - (define cyc-read - (lambda args - ((lambda (fp) - (parse fp '() '() #f #f 0 (reg-port fp))) - (if (null? args) (current-input-port) (car args))))) - (define read-all - (lambda args - ((lambda (fp) - (define loop - (lambda (fp result) - ((lambda (obj) - (if (eof-object? obj) - (reverse result) - (loop fp (cons obj result)))) - (cyc-read fp)))) - (loop fp '())) - (if (null? args) (current-input-port) (car args)))))) - */ -/* -"---------------- after processing globals" - */ -/* -((define read #f) - (define *in-port-table* #f) - (define reg-port - (lambda (fp) - ((lambda (r) - (if (not r) - ((lambda () - (set! r (list fp #f 1 0)) - (set! *in-port-table* (cons r *in-port-table*)) - r)) - ((lambda () r)))) - (assoc fp *in-port-table*)))) - (define in-port:read-buf! - (lambda (ptbl) - ((lambda (result) - (in-port:set-buf! ptbl #f) - result) - (cadr ptbl)))) - (define in-port:get-buf - (lambda (ptbl) (cadr ptbl))) - (define in-port:set-buf! - (lambda (ptbl buf) (set-car! (cdr ptbl) buf))) - (define in-port:get-lnum - (lambda (ptbl) (caddr ptbl))) - (define in-port:set-lnum! - (lambda (ptbl lnum) (set-car! (cddr ptbl) lnum))) - (define in-port:get-cnum - (lambda (ptbl) (cadddr ptbl))) - (define in-port:set-cnum! - (lambda (ptbl cnum) (set-car! (cdddr ptbl) cnum))) - (define add-tok - (lambda (tok toks) (cons tok toks))) - (define get-toks - (lambda (tok toks) - (if (null? tok) toks (add-tok (->tok tok) toks)))) - (define ->tok - (lambda (lst) (parse-atom (reverse lst)))) - (define dotted? - (lambda (lst) - (if (> (length lst) 2) - (equal? - (cadr (reverse lst)) - (string->symbol ".")) - #f))) - (define ->dotted-list - (lambda (lst) - (if (null? lst) - ((lambda () '())) - (if (equal? (car lst) (string->symbol ".")) - ((lambda () (cadr lst))) - ((lambda () - (cons (car lst) (->dotted-list (cdr lst))))))))) - (define parse-error - (lambda (msg lnum cnum) - (error (string-append - "Error (line " - (number->string lnum) - ", char " - (number->string cnum) - "): " - msg)))) - (define parse/tok - (lambda (fp tok toks all? comment? parens ptbl curr-char) - (if (null? tok) - ((lambda () - (parse fp '() toks all? comment? parens ptbl))) - (if all? - ((lambda () - (parse fp - '() - (add-tok (->tok tok) toks) - all? - comment? - parens - ptbl))) - ((lambda () - (in-port:set-buf! ptbl curr-char) - (car (add-tok (->tok tok) toks)))))))) - (define parse - (lambda (fp tok toks all? comment? parens ptbl) - (in-port:set-cnum! - ptbl - (+ 1 (in-port:get-cnum ptbl))) - ((lambda (c) - (if (eof-object? c) - ((lambda () - (if (> parens 0) - (parse-error - "missing closing parenthesis" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)) - #f) - (if all? - (reverse (get-toks tok toks)) - ((lambda (last) - (if (> (length last) 0) (car last) c)) - (get-toks tok toks))))) - (if comment? - ((lambda () - (if (eq? c #\newline) - ((lambda () - (in-port:set-lnum! - ptbl - (+ 1 (in-port:get-lnum ptbl))) - (in-port:set-cnum! ptbl 0) - (parse fp '() toks all? #f parens ptbl))) - (parse fp '() toks all? #t parens ptbl)))) - (if (char-whitespace? c) - ((lambda () - (if (equal? c #\newline) - (in-port:set-lnum! - ptbl - (+ 1 (in-port:get-lnum ptbl))) - #f) - (if (equal? c #\newline) - (in-port:set-cnum! ptbl 0) - #f) - (parse/tok fp tok toks all? #f parens ptbl c))) - (if (eq? c #\;) - ((lambda () - (parse/tok fp tok toks all? #t parens ptbl c))) - (if (eq? c #\') - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub) - (define new-toks - (add-tok (list 'quote sub) (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - (parse fp '() '() #f #f 0 ptbl))))))) - (if (eq? c #\`) - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub) - (define new-toks - (add-tok - (list 'quasiquote sub) - (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - (parse fp '() '() #f #f 0 ptbl))))))) - (if (eq? c #\,) - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub next-c unquote-sym new-toks) - (set! sub #f) - (set! next-c (read-char fp)) - (set! unquote-sym - (if (equal? next-c #\@) - 'unquote-splicing - 'unquote)) - (set! new-toks #f) - (if (eof-object? next-c) - ((lambda () - (parse-error - "unexpected end of file" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if (not (equal? next-c #\@)) - ((lambda () - (in-port:set-buf! ptbl next-c))) - ((lambda () #f)))) - (set! sub (parse fp '() '() #f #f 0 ptbl)) - (set! new-toks - (add-tok - (list unquote-sym sub) - (get-toks tok toks))) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - #f - #f - #f - #f)))))) - (if (eq? c #\() - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (sub toks*) - (define new-toks - (add-tok - (if (if (pair? sub) (dotted? sub) #f) - (->dotted-list sub) - sub) - toks*)) - (if all? - (parse fp '() new-toks all? #f parens ptbl) - (car new-toks))) - (parse fp '() '() #t #f (+ parens 1) ptbl) - (get-toks tok toks))))))) - (if (eq? c #\)) - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - (if (= parens 0) - ((lambda () - (parse-error - "unexpected closing parenthesis" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - ((lambda () (reverse (get-toks tok toks)))))))) - (if (eq? c #\") - ((lambda () - (if (if (not all?) (not (null? tok)) #f) - ((lambda () - (in-port:set-buf! ptbl c) - (car (add-tok (->tok tok) toks)))) - ((lambda () - ((lambda (str toks*) - (define new-toks (add-tok str toks*)) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (read-str fp '() ptbl) - (get-toks tok toks))))))) - (if (eq? c #\#) - ((lambda () - (if (null? tok) - ((lambda (next-c) - (in-port:set-cnum! - ptbl - (+ 1 (in-port:get-cnum ptbl))) - (if (eq? #\| next-c) - ((lambda () - (read-block-comment fp ptbl) - (parse fp - '() - toks - all? - #f - parens - ptbl))) - (if (eq? #\t next-c) - ((lambda () - (if all? - (parse fp - '() - (cons #t toks) - all? - #f - parens - ptbl) - #t))) - (if (eq? #\f next-c) - ((lambda () - (if all? - (parse fp - '() - (cons #f toks) - all? - #f - parens - ptbl) - #f))) - (if (eq? #\e next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 10 - (lambda (num) - (exact (parse-atom - num)))))) - (if (eq? #\i next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 10 - (lambda (num) - (inexact - (parse-atom num)))))) - (if (eq? #\b next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 2 - (lambda (num) - (string->number - (list->string num) - 2))))) - (if (eq? #\o next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 8 - (lambda (num) - (string->number - (list->string num) - 8))))) - (if (eq? #\x next-c) - ((lambda () - (parse-number - fp - toks - all? - parens - ptbl - 16 - (lambda (num) - (string->number - (list->string - num) - 16))))) - (if (eq? #\u next-c) - ((lambda () - (set! next-c - (read-char fp)) - (if (not (eq? #\8 - next-c)) - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - #f) - (set! next-c - (read-char fp)) - (if (not (eq? #\( - next-c)) - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - #f) - ((lambda (sub toks*) - (define new-toks - (add-tok - (if (if (pair? sub) - (dotted? - sub) - #f) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - (apply bytevector - sub)) - toks*)) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (parse fp - '() - '() - #t - #f - (+ parens 1) - ptbl) - (get-toks - tok - toks)))) - (if (eq? #\( next-c) - ((lambda () - ((lambda (sub - toks*) - (define new-toks - (add-tok - (if (if (pair? sub) - (dotted? - sub) - #f) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl)) - (list->vector - sub)) - toks*)) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (parse fp - '() - '() - #t - #f - (+ parens - 1) - ptbl) - (get-toks - tok - toks)))) - (if (eq? #\\ next-c) - ((lambda () - ((lambda (new-toks) - (if all? - (parse fp - '() - new-toks - all? - #f - parens - ptbl) - (car new-toks))) - (cons (read-pound - fp - ptbl) - toks)))) - (if (eq? #\; next-c) - ((lambda () - (parse fp - '() - '() - #f - #f - 0 - ptbl) - (if (if (not all?) - (not (null? tok)) - #f) - ((lambda () - (in-port:set-buf! - ptbl - c) - (car (add-tok - (->tok tok) - toks)))) - ((lambda () - (parse fp - tok - toks - all? - #f - parens - ptbl)))))) - ((lambda () - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl) - (in-port:get-cnum - ptbl))))))))))))))))) - (read-char fp)) - (parse fp - (cons c tok) - toks - all? - #f - parens - ptbl)))) - (if (eq? c #\|) - ((lambda () - (parse-literal-identifier - fp - toks - all? - parens - ptbl))) - ((lambda () - (parse fp - (cons c tok) - toks - all? - #f - parens - ptbl)))))))))))))))) - (if (in-port:get-buf ptbl) - (in-port:read-buf! ptbl) - (read-char fp))))) - (define read-pound - (lambda (fp ptbl) - (define done - (lambda (raw-buf) - ((lambda (buf) - (if (= 0 (length buf)) - ((lambda () - (parse-error - "missing character" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if (= 1 (length buf)) - ((lambda () (car buf))) - (if (equal? buf '(#\a #\l #\a #\r #\m)) - ((lambda () (integer->char 7))) - (if (equal? - buf - '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) - ((lambda () (integer->char 8))) - (if (equal? buf '(#\d #\e #\l #\e #\t #\e)) - ((lambda () (integer->char 127))) - (if (equal? buf '(#\e #\s #\c #\a #\p #\e)) - ((lambda () (integer->char 27))) - (if (equal? buf '(#\n #\e #\w #\l #\i #\n #\e)) - ((lambda () (integer->char 10))) - (if (equal? buf '(#\n #\u #\l #\l)) - ((lambda () (integer->char 0))) - (if (equal? buf '(#\r #\e #\t #\u #\r #\n)) - ((lambda () (integer->char 13))) - (if (equal? buf '(#\s #\p #\a #\c #\e)) - ((lambda () (integer->char 32))) - (if (equal? buf '(#\t #\a #\b)) - ((lambda () (integer->char 9))) - (if (if (> (length buf) 1) - (equal? (car buf) #\x) - #f) - ((lambda () - (integer->char - (string->number - (list->string (cdr buf)) - 16)))) - ((lambda () - (parse-error - (string-append - "unable to parse character: " - (list->string buf)) - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl))))))))))))))))) - (reverse raw-buf)))) - (define loop - (lambda (buf) - ((lambda (c) - (if ((lambda (tmp) - (if tmp - tmp - ((lambda (tmp) - (if tmp - tmp - (if (> (length buf) 0) (equal? c #\)) #f))) - (if (char-whitespace? c) (> (length buf) 0) #f)))) - (eof-object? c)) - ((lambda () (done buf))) - ((lambda () (loop (cons (read-char fp) buf)))))) - (peek-char fp)))) - (loop '()))) - (define read-str - (lambda (fp buf ptbl) - ((lambda (c) - (if (eof-object? c) - ((lambda () - (parse-error - "missing closing double-quote" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if (equal? #\\ c) - ((lambda () - (read-str fp (read-str-esc fp buf ptbl) ptbl))) - (if (equal? #\" c) - ((lambda () (list->string (reverse buf)))) - ((lambda () (read-str fp (cons c buf) ptbl))))))) - (read-char fp)))) - (define read-str-esc - (lambda (fp buf ptbl) - ((lambda (c) - (if (eof-object? c) - ((lambda () - (parse-error - "missing escaped character within string" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - (if ((lambda (tmp) (if tmp tmp (equal? #\\ c))) - (equal? #\" c)) - ((lambda () (cons c buf))) - (if (equal? #\n c) - ((lambda () (cons #\newline buf))) - ((lambda () - (parse-error - (string-append - "invalid escape character [" - (list->string (list c)) - "] in string") - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))))) - (read-char fp)))) - (define sign? - (lambda (c) - ((lambda (tmp) (if tmp tmp (equal? c #\-))) - (equal? c #\+)))) - (define token-numeric? - (lambda (a) - ((lambda (tmp) - (if tmp - tmp - ((lambda (tmp) - (if tmp - tmp - (if (> (length a) 1) - (if ((lambda (tmp) (if tmp tmp (eq? #\. (cadr a)))) - (char-numeric? (cadr a))) - (sign? (car a)) - #f) - #f))) - (if (> (length a) 1) - (if (eq? #\. (car a)) - (char-numeric? (cadr a)) - #f) - #f)))) - (char-numeric? (car a))))) - (define parse-atom - (lambda (a) - (if (token-numeric? a) - ((lambda () (string->number (list->string a)))) - ((lambda () (string->symbol (list->string a))))))) - (define get-next-char - (lambda (fp ptbl) - (if (in-port:get-buf ptbl) - (in-port:read-buf! ptbl) - (read-char fp)))) - (define read-block-comment - (lambda (fp ptbl) - ((lambda (c) - (if (eq? #\| c) - ((lambda () (read-block-terminator fp ptbl))) - ((lambda () (read-block-comment fp ptbl))))) - (get-next-char fp ptbl)))) - (define read-block-terminator - (lambda (fp ptbl) - ((lambda (c) - (if (eq? #\# c) - ((lambda () #t)) - (if (eq? #\| c) - ((lambda () (read-block-terminator fp ptbl))) - ((lambda () (read-block-comment fp ptbl)))))) - (get-next-char fp ptbl)))) - (define parse-literal-identifier - (lambda (fp toks all? parens ptbl) - ((lambda (sym) - (if all? - (parse fp - '() - (cons sym toks) - all? - #f - parens - ptbl) - sym)) - (parse-li-rec fp '() ptbl)))) - (define parse-li-rec - (lambda (fp tok ptbl) - ((lambda (c next) - (if (eq? #\| c) - ((lambda () - ((lambda (str) (string->symbol str)) - (if (null? tok) - "||" - (list->string (reverse tok)))))) - (if (eof-object? c) - ((lambda () - (parse-error - "EOF encountered parsing literal identifier" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))) - ((lambda () (next c)))))) - (get-next-char fp ptbl) - (lambda (c) (parse-li-rec fp (cons c tok) ptbl))))) - (define parse-number - (lambda (fp toks all? parens ptbl base tok->num) - ((lambda (num) - (if (if (not (null? num)) - ((lambda (tmp) - (if tmp - tmp - (if (> (length num) 0) - (if (= base 16) (hex-digit? (car num)) #f) - #f))) - (token-numeric? num)) - #f) - ((lambda () - ((lambda (result) - (if all? - (parse fp - '() - (cons result toks) - all? - #f - parens - ptbl) - result)) - (tok->num num)))) - ((lambda () - (parse-error - "Illegal number syntax" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)))))) - (parse-number-rec base fp '() ptbl)))) - (define parse-number-rec - (lambda (base fp tok ptbl) - ((lambda (c next) - (if (sign? c) - ((lambda () (next c))) - (if (eq? #\. c) - ((lambda () (next c))) - (if (char-numeric? c) - ((lambda () - (if ((lambda (tmp) - (if tmp tmp (if (= base 8) (char>? c #\7) #f))) - (if (= base 2) (char>? c #\1) #f)) - (parse-error - "Illegal digit" - (in-port:get-lnum ptbl) - (in-port:get-cnum ptbl)) - #f) - (next c))) - (if (if (= base 16) (hex-digit? c) #f) - ((lambda () (next c))) - ((lambda () - (in-port:set-buf! ptbl c) - (reverse tok)))))))) - (get-next-char fp ptbl) - (lambda (c) - (parse-number-rec base fp (cons c tok) ptbl))))) - (define hex-digit? - (lambda (c) - ((lambda (tmp) - (if tmp - tmp - (if (char>=? c #\A) (char<=? c #\F) #f))) - (if (char>=? c #\a) (char<=? c #\f) #f)))) - (define cyc-read - (lambda args - ((lambda (fp) - (parse fp '() '() #f #f 0 (reg-port fp))) - (if (null? args) (current-input-port) (car args))))) - (define read-all - (lambda args - ((lambda (fp) - (define loop - (lambda (fp result) - ((lambda (obj) - (if (eof-object? obj) - (reverse result) - (loop fp (cons obj result)))) - (cyc-read fp)))) - (loop fp '())) - (if (null? args) (current-input-port) (car args))))) - (define lib-init:schemeread - (lambda () - 0 - (set! read cyc-read) - (set! *in-port-table* '())))) - */ -/* -"---------------- after alpha conversion:" - */ -/* -((define read #f) - (define *in-port-table* #f) - (define reg-port - (lambda (fp$262) - ((lambda (r$263) - (if r$263 - ((lambda () r$263)) - ((lambda () - (set! r$263 (list fp$262 #f 1 0)) - (set! *in-port-table* - (cons r$263 *in-port-table*)) - r$263)))) - (assoc fp$262 *in-port-table*)))) - (define in-port:read-buf! - (lambda (ptbl$260) - ((lambda (result$261) - (in-port:set-buf! ptbl$260 #f) - result$261) - (cadr ptbl$260)))) - (define in-port:get-buf - (lambda (ptbl$259) (cadr ptbl$259))) - (define in-port:set-buf! - (lambda (ptbl$258 buf$257) - (set-car! (cdr ptbl$258) buf$257))) - (define in-port:get-lnum - (lambda (ptbl$256) (caddr ptbl$256))) - (define in-port:set-lnum! - (lambda (ptbl$255 lnum$254) - (set-car! (cddr ptbl$255) lnum$254))) - (define in-port:get-cnum - (lambda (ptbl$253) (cadddr ptbl$253))) - (define in-port:set-cnum! - (lambda (ptbl$252 cnum$251) - (set-car! (cdddr ptbl$252) cnum$251))) - (define add-tok - (lambda (tok$250 toks$249) - (cons tok$250 toks$249))) - (define get-toks - (lambda (tok$248 toks$247) - (if (null? tok$248) - toks$247 - (add-tok (->tok tok$248) toks$247)))) - (define ->tok - (lambda (lst$246) (parse-atom (reverse lst$246)))) - (define dotted? - (lambda (lst$245) - (if (> (length lst$245) 2) - (equal? - (cadr (reverse lst$245)) - (string->symbol ".")) - #f))) - (define ->dotted-list - (lambda (lst$244) - (if (null? lst$244) - ((lambda () '())) - (if (equal? (car lst$244) (string->symbol ".")) - ((lambda () (cadr lst$244))) - ((lambda () - (cons (car lst$244) - (->dotted-list (cdr lst$244))))))))) - (define parse-error - (lambda (msg$243 lnum$242 cnum$241) - (error (string-append - "Error (line " - (number->string lnum$242) - ", char " - (number->string cnum$241) - "): " - msg$243)))) - (define parse/tok - (lambda (fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - (if (null? tok$239) - ((lambda () - (parse fp$240 - '() - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234))) - (if all?$237 - ((lambda () - (parse fp$240 - '() - (add-tok (->tok tok$239) toks$238) - all?$237 - comment?$236 - parens$235 - ptbl$234))) - ((lambda () - (in-port:set-buf! ptbl$234 curr-char$233) - (car (add-tok (->tok tok$239) toks$238)))))))) - (define parse - (lambda (fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((lambda (new-toks$203) - (in-port:set-cnum! - ptbl$196 - (+ 1 (in-port:get-cnum ptbl$196))) - ((lambda (c$204) - (if (eof-object? c$204) - ((lambda () - (if (> parens$197 0) - (parse-error - "missing closing parenthesis" - (in-port:get-lnum ptbl$196) - (in-port:get-cnum ptbl$196)) - #f) - (if all?$199 - (reverse (get-toks tok$201 toks$200)) - ((lambda (last$232) - (if (> (length last$232) 0) (car last$232) c$204)) - (get-toks tok$201 toks$200))))) - (if comment?$198 - ((lambda () - (if (eq? c$204 #\newline) - ((lambda () - (in-port:set-lnum! - ptbl$196 - (+ 1 (in-port:get-lnum ptbl$196))) - (in-port:set-cnum! ptbl$196 0) - (parse fp$202 - '() - toks$200 - all?$199 - #f - parens$197 - ptbl$196))) - (parse fp$202 - '() - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - (if (char-whitespace? c$204) - ((lambda () - (if (equal? c$204 #\newline) - (in-port:set-lnum! - ptbl$196 - (+ 1 (in-port:get-lnum ptbl$196))) - #f) - (if (equal? c$204 #\newline) - (in-port:set-cnum! ptbl$196 0) - #f) - (parse/tok - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))) - (if (eq? c$204 #\;) - ((lambda () - (parse/tok - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))) - (if (eq? c$204 #\') - ((lambda () - (if (if all?$199 #f (not (null? tok$201))) - ((lambda () - (in-port:set-buf! ptbl$196 c$204) - (car (add-tok (->tok tok$201) toks$200)))) - ((lambda () - ((lambda (sub$230) - ((lambda (new-toks$231) - (set! new-toks$231 - (add-tok - (list 'quote sub$230) - (get-toks tok$201 toks$200))) - (if all?$199 - (parse fp$202 - '() - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$231))) - #f)) - (parse fp$202 '() '() #f #f 0 ptbl$196))))))) - (if (eq? c$204 #\`) - ((lambda () - (if (if all?$199 #f (not (null? tok$201))) - ((lambda () - (in-port:set-buf! ptbl$196 c$204) - (car (add-tok (->tok tok$201) toks$200)))) - ((lambda () - ((lambda (sub$228) - ((lambda (new-toks$229) - (set! new-toks$229 - (add-tok - (list 'quasiquote sub$228) - (get-toks tok$201 toks$200))) - (if all?$199 - (parse fp$202 - '() - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$229))) - #f)) - (parse fp$202 '() '() #f #f 0 ptbl$196))))))) - (if (eq? c$204 #\,) - ((lambda () - (if (if all?$199 #f (not (null? tok$201))) - ((lambda () - (in-port:set-buf! ptbl$196 c$204) - (car (add-tok (->tok tok$201) toks$200)))) - ((lambda () - ((lambda (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - (set! sub$227 #f) - (set! next-c$226 (read-char fp$202)) - (set! unquote-sym$225 - (if (equal? next-c$226 #\@) - 'unquote-splicing - 'unquote)) - (set! new-toks$224 #f) - (if (eof-object? next-c$226) - ((lambda () - (parse-error - "unexpected end of file" - (in-port:get-lnum ptbl$196) - (in-port:get-cnum ptbl$196)))) - (if (equal? next-c$226 #\@) - ((lambda () #f)) - ((lambda () - (in-port:set-buf! - ptbl$196 - next-c$226))))) - (set! sub$227 - (parse fp$202 '() '() #f #f 0 ptbl$196)) - (set! new-toks$224 - (add-tok - (list unquote-sym$225 sub$227) - (get-toks tok$201 toks$200))) - (if all?$199 - (parse fp$202 - '() - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$224))) - #f - #f - #f - #f)))))) - (if (eq? c$204 #\() - ((lambda () - (if (if all?$199 #f (not (null? tok$201))) - ((lambda () - (in-port:set-buf! ptbl$196 c$204) - (car (add-tok (->tok tok$201) toks$200)))) - ((lambda () - ((lambda (sub$222 toks*$221) - ((lambda (new-toks$223) - (set! new-toks$223 - (add-tok - (if (if (pair? sub$222) - (dotted? sub$222) - #f) - (->dotted-list sub$222) - sub$222) - toks*$221)) - (if all?$199 - (parse fp$202 - '() - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$223))) - #f)) - (parse fp$202 - '() - '() - #t - #f - (+ parens$197 1) - ptbl$196) - (get-toks tok$201 toks$200))))))) - (if (eq? c$204 #\)) - ((lambda () - (if (if all?$199 #f (not (null? tok$201))) - ((lambda () - (in-port:set-buf! ptbl$196 c$204) - (car (add-tok (->tok tok$201) toks$200)))) - (if (= parens$197 0) - ((lambda () - (parse-error - "unexpected closing parenthesis" - (in-port:get-lnum ptbl$196) - (in-port:get-cnum ptbl$196)))) - ((lambda () - (reverse - (get-toks tok$201 toks$200)))))))) - (if (eq? c$204 #\") - ((lambda () - (if (if all?$199 #f (not (null? tok$201))) - ((lambda () - (in-port:set-buf! ptbl$196 c$204) - (car (add-tok - (->tok tok$201) - toks$200)))) - ((lambda () - ((lambda (str$219 toks*$218) - ((lambda (new-toks$220) - (set! new-toks$220 - (add-tok str$219 toks*$218)) - (if all?$199 - (parse fp$202 - '() - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$220))) - #f)) - (read-str fp$202 '() ptbl$196) - (get-toks tok$201 toks$200))))))) - (if (eq? c$204 #\#) - ((lambda () - (if (null? tok$201) - ((lambda (next-c$205) - (in-port:set-cnum! - ptbl$196 - (+ 1 (in-port:get-cnum ptbl$196))) - (if (eq? #\| next-c$205) - ((lambda () - (read-block-comment - fp$202 - ptbl$196) - (parse fp$202 - '() - toks$200 - all?$199 - #f - parens$197 - ptbl$196))) - (if (eq? #\t next-c$205) - ((lambda () - (if all?$199 - (parse fp$202 - '() - (cons #t toks$200) - all?$199 - #f - parens$197 - ptbl$196) - #t))) - (if (eq? #\f next-c$205) - ((lambda () - (if all?$199 - (parse fp$202 - '() - (cons #f toks$200) - all?$199 - #f - parens$197 - ptbl$196) - #f))) - (if (eq? #\e next-c$205) - ((lambda () - (parse-number - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - (lambda (num$217) - (exact (parse-atom - num$217)))))) - (if (eq? #\i next-c$205) - ((lambda () - (parse-number - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - (lambda (num$216) - (inexact - (parse-atom - num$216)))))) - (if (eq? #\b next-c$205) - ((lambda () - (parse-number - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - (lambda (num$215) - (string->number - (list->string - num$215) - 2))))) - (if (eq? #\o next-c$205) - ((lambda () - (parse-number - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - (lambda (num$214) - (string->number - (list->string - num$214) - 8))))) - (if (eq? #\x next-c$205) - ((lambda () - (parse-number - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - (lambda (num$213) - (string->number - (list->string - num$213) - 16))))) - (if (eq? #\u - next-c$205) - ((lambda () - (set! next-c$205 - (read-char - fp$202)) - (if (eq? #\8 - next-c$205) - #f - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl$196) - (in-port:get-cnum - ptbl$196))) - (set! next-c$205 - (read-char - fp$202)) - (if (eq? #\( - next-c$205) - #f - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl$196) - (in-port:get-cnum - ptbl$196))) - ((lambda (sub$211 - toks*$210) - ((lambda (new-toks$212) - (set! new-toks$212 - (add-tok - (if (if (pair? sub$211) - (dotted? - sub$211) - #f) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum - ptbl$196) - (in-port:get-cnum - ptbl$196)) - (apply bytevector - sub$211)) - toks*$210)) - (if all?$199 - (parse fp$202 - '() - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$212))) - #f)) - (parse fp$202 - '() - '() - #t - #f - (+ parens$197 - 1) - ptbl$196) - (get-toks - tok$201 - toks$200)))) - (if (eq? #\( - next-c$205) - ((lambda () - ((lambda (sub$208 - toks*$207) - ((lambda (new-toks$209) - (set! new-toks$209 - (add-tok - (if (if (pair? sub$208) - (dotted? - sub$208) - #f) - (parse-error - "Invalid vector syntax" - (in-port:get-lnum - ptbl$196) - (in-port:get-cnum - ptbl$196)) - (list->vector - sub$208)) - toks*$207)) - (if all?$199 - (parse fp$202 - '() - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$209))) - #f)) - (parse fp$202 - '() - '() - #t - #f - (+ parens$197 - 1) - ptbl$196) - (get-toks - tok$201 - toks$200)))) - (if (eq? #\\ - next-c$205) - ((lambda () - ((lambda (new-toks$206) - (if all?$199 - (parse fp$202 - '() - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196) - (car new-toks$206))) - (cons (read-pound - fp$202 - ptbl$196) - toks$200)))) - (if (eq? #\; - next-c$205) - ((lambda () - (parse fp$202 - '() - '() - #f - #f - 0 - ptbl$196) - (if (if all?$199 - #f - (not (null? tok$201))) - ((lambda () - (in-port:set-buf! - ptbl$196 - c$204) - (car (add-tok - (->tok tok$201) - toks$200)))) - ((lambda () - (parse fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))))) - ((lambda () - (parse-error - "Unhandled input sequence" - (in-port:get-lnum - ptbl$196) - (in-port:get-cnum - ptbl$196))))))))))))))))) - (read-char fp$202)) - (parse fp$202 - (cons c$204 tok$201) - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (if (eq? c$204 #\|) - ((lambda () - (parse-literal-identifier - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))) - ((lambda () - (parse fp$202 - (cons c$204 tok$201) - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))))))))))))))) - (if (in-port:get-buf ptbl$196) - (in-port:read-buf! ptbl$196) - (read-char fp$202)))) - #f))) - (define read-pound - (lambda (fp$183 ptbl$182) - ((lambda (done$187 loop$186) - ((lambda (done$189 loop$188) - (set! done$187 - (lambda (raw-buf$194) - ((lambda (buf$195) - (if (= 0 (length buf$195)) - ((lambda () - (parse-error - "missing character" - (in-port:get-lnum ptbl$182) - (in-port:get-cnum ptbl$182)))) - (if (= 1 (length buf$195)) - ((lambda () (car buf$195))) - (if (equal? buf$195 '(#\a #\l #\a #\r #\m)) - ((lambda () #\)) - (if (equal? - buf$195 - '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) - ((lambda () #\)) - (if (equal? buf$195 '(#\d #\e #\l #\e #\t #\e)) - ((lambda () #\)) - (if (equal? buf$195 '(#\e #\s #\c #\a #\p #\e)) - ((lambda () #\)) - (if (equal? - buf$195 - '(#\n #\e #\w #\l #\i #\n #\e)) - ((lambda () #\newline)) - (if (equal? buf$195 '(#\n #\u #\l #\l)) - ((lambda () #\)) - (if (equal? - buf$195 - '(#\r #\e #\t #\u #\r #\n)) - ((lambda () #\ )) - (if (equal? buf$195 '(#\s #\p #\a #\c #\e)) - ((lambda () #\space)) - (if (equal? buf$195 '(#\t #\a #\b)) - ((lambda () #\ )) - (if (if (> (length buf$195) 1) - (equal? (car buf$195) #\x) - #f) - ((lambda () - (integer->char - (string->number - (list->string (cdr buf$195)) - 16)))) - ((lambda () - (parse-error - (string-append - "unable to parse character: " - (list->string buf$195)) - (in-port:get-lnum ptbl$182) - (in-port:get-cnum - ptbl$182))))))))))))))))) - (reverse raw-buf$194)))) - (set! loop$186 - (lambda (buf$190) - ((lambda (c$191) - (if ((lambda (tmp$192) - (if tmp$192 - tmp$192 - ((lambda (tmp$193) - (if tmp$193 - tmp$193 - (if (> (length buf$190) 0) - (equal? c$191 #\)) - #f))) - (if (char-whitespace? c$191) - (> (length buf$190) 0) - #f)))) - (eof-object? c$191)) - ((lambda () (done$187 buf$190))) - ((lambda () - (loop$186 (cons (read-char fp$183) buf$190)))))) - (peek-char fp$183)))) - (loop$186 '())) - #f - #f)) - #f - #f))) - (define read-str - (lambda (fp$180 buf$179 ptbl$178) - ((lambda (c$181) - (if (eof-object? c$181) - ((lambda () - (parse-error - "missing closing double-quote" - (in-port:get-lnum ptbl$178) - (in-port:get-cnum ptbl$178)))) - (if (equal? #\\ c$181) - ((lambda () - (read-str - fp$180 - (read-str-esc fp$180 buf$179 ptbl$178) - ptbl$178))) - (if (equal? #\" c$181) - ((lambda () (list->string (reverse buf$179)))) - ((lambda () - (read-str fp$180 (cons c$181 buf$179) ptbl$178))))))) - (read-char fp$180)))) - (define read-str-esc - (lambda (fp$175 buf$174 ptbl$173) - ((lambda (c$176) - (if (eof-object? c$176) - ((lambda () - (parse-error - "missing escaped character within string" - (in-port:get-lnum ptbl$173) - (in-port:get-cnum ptbl$173)))) - (if ((lambda (tmp$177) - (if tmp$177 tmp$177 (equal? #\\ c$176))) - (equal? #\" c$176)) - ((lambda () (cons c$176 buf$174))) - (if (equal? #\n c$176) - ((lambda () (cons #\newline buf$174))) - ((lambda () - (parse-error - (string-append - "invalid escape character [" - (list->string (list c$176)) - "] in string") - (in-port:get-lnum ptbl$173) - (in-port:get-cnum ptbl$173)))))))) - (read-char fp$175)))) - (define sign? - (lambda (c$171) - ((lambda (tmp$172) - (if tmp$172 tmp$172 (equal? c$171 #\-))) - (equal? c$171 #\+)))) - (define token-numeric? - (lambda (a$167) - ((lambda (tmp$168) - (if tmp$168 - tmp$168 - ((lambda (tmp$169) - (if tmp$169 - tmp$169 - (if (> (length a$167) 1) - (if ((lambda (tmp$170) - (if tmp$170 tmp$170 (eq? #\. (cadr a$167)))) - (char-numeric? (cadr a$167))) - (sign? (car a$167)) - #f) - #f))) - (if (> (length a$167) 1) - (if (eq? #\. (car a$167)) - (char-numeric? (cadr a$167)) - #f) - #f)))) - (char-numeric? (car a$167))))) - (define parse-atom - (lambda (a$166) - (if (token-numeric? a$166) - ((lambda () (string->number (list->string a$166)))) - ((lambda () (string->symbol (list->string a$166))))))) - (define get-next-char - (lambda (fp$165 ptbl$164) - (if (in-port:get-buf ptbl$164) - (in-port:read-buf! ptbl$164) - (read-char fp$165)))) - (define read-block-comment - (lambda (fp$162 ptbl$161) - ((lambda (c$163) - (if (eq? #\| c$163) - ((lambda () - (read-block-terminator fp$162 ptbl$161))) - ((lambda () (read-block-comment fp$162 ptbl$161))))) - (get-next-char fp$162 ptbl$161)))) - (define read-block-terminator - (lambda (fp$159 ptbl$158) - ((lambda (c$160) - (if (eq? #\# c$160) - ((lambda () #t)) - (if (eq? #\| c$160) - ((lambda () - (read-block-terminator fp$159 ptbl$158))) - ((lambda () (read-block-comment fp$159 ptbl$158)))))) - (get-next-char fp$159 ptbl$158)))) - (define parse-literal-identifier - (lambda (fp$156 toks$155 all?$154 parens$153 ptbl$152) - ((lambda (sym$157) - (if all?$154 - (parse fp$156 - '() - (cons sym$157 toks$155) - all?$154 - #f - parens$153 - ptbl$152) - sym$157)) - (parse-li-rec fp$156 '() ptbl$152)))) - (define parse-li-rec - (lambda (fp$147 tok$146 ptbl$145) - ((lambda (c$150 next$149) - (if (eq? #\| c$150) - ((lambda () - ((lambda (str$151) (string->symbol str$151)) - (if (null? tok$146) - "||" - (list->string (reverse tok$146)))))) - (if (eof-object? c$150) - ((lambda () - (parse-error - "EOF encountered parsing literal identifier" - (in-port:get-lnum ptbl$145) - (in-port:get-cnum ptbl$145)))) - ((lambda () (next$149 c$150)))))) - (get-next-char fp$147 ptbl$145) - (lambda (c$148) - (parse-li-rec - fp$147 - (cons c$148 tok$146) - ptbl$145))))) - (define parse-number - (lambda (fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((lambda (num$142) - (if (if (null? num$142) - #f - ((lambda (tmp$144) - (if tmp$144 - tmp$144 - (if (> (length num$142) 0) - (if (= base$136 16) - (hex-digit? (car num$142)) - #f) - #f))) - (token-numeric? num$142))) - ((lambda () - ((lambda (result$143) - (if all?$139 - (parse fp$141 - '() - (cons result$143 toks$140) - all?$139 - #f - parens$138 - ptbl$137) - result$143)) - (tok->num$135 num$142)))) - ((lambda () - (parse-error - "Illegal number syntax" - (in-port:get-lnum ptbl$137) - (in-port:get-cnum ptbl$137)))))) - (parse-number-rec base$136 fp$141 '() ptbl$137)))) - (define parse-number-rec - (lambda (base$130 fp$129 tok$128 ptbl$127) - ((lambda (c$133 next$132) - (if (sign? c$133) - ((lambda () (next$132 c$133))) - (if (eq? #\. c$133) - ((lambda () (next$132 c$133))) - (if (char-numeric? c$133) - ((lambda () - (if ((lambda (tmp$134) - (if tmp$134 - tmp$134 - (if (= base$130 8) (char>? c$133 #\7) #f))) - (if (= base$130 2) (char>? c$133 #\1) #f)) - (parse-error - "Illegal digit" - (in-port:get-lnum ptbl$127) - (in-port:get-cnum ptbl$127)) - #f) - (next$132 c$133))) - (if (if (= base$130 16) (hex-digit? c$133) #f) - ((lambda () (next$132 c$133))) - ((lambda () - (in-port:set-buf! ptbl$127 c$133) - (reverse tok$128)))))))) - (get-next-char fp$129 ptbl$127) - (lambda (c$131) - (parse-number-rec - base$130 - fp$129 - (cons c$131 tok$128) - ptbl$127))))) - (define hex-digit? - (lambda (c$125) - ((lambda (tmp$126) - (if tmp$126 - tmp$126 - (if (char>=? c$125 #\A) (char<=? c$125 #\F) #f))) - (if (char>=? c$125 #\a) (char<=? c$125 #\f) #f)))) - (define cyc-read - (lambda args$123 - ((lambda (fp$124) - (parse fp$124 '() '() #f #f 0 (reg-port fp$124))) - (if (null? args$123) - (current-input-port) - (car args$123))))) - (define read-all - (lambda args$116 - ((lambda (loop$117) - ((lambda (fp$118) - ((lambda (loop$119) - (set! loop$119 - (lambda (fp$121 result$120) - ((lambda (obj$122) - (if (eof-object? obj$122) - (reverse result$120) - (loop$119 fp$121 (cons obj$122 result$120)))) - (cyc-read fp$121)))) - (loop$119 fp$118 '())) - #f)) - (if (null? args$116) - (current-input-port) - (car args$116)))) - #f))) - (define lib-init:schemeread - (lambda () - 0 - (set! read cyc-read) - (set! *in-port-table* '())))) - */ -/* -"---------------- after CPS:" - */ -/* -((define read #f) - (define *in-port-table* #f) - (define reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(630 - (k$812 fp$262) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(629 - (r$813) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(628 - (r$263) - ((if r$263 - (#((record-marker) - #((record-marker) #f (id args body)) - #(622 () ((k$812 r$263))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(627 - () - ((list #((record-marker) - #((record-marker) #f (id args body)) - #(626 - (r$817) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(625 - (r$814) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(624 - (r$816) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(623 - (r$815) - ((k$812 r$263)))) - (set! *in-port-table* - r$816))))) - (cons r$263 *in-port-table*))))) - (set! r$263 r$817))))) - fp$262 - #f - 1 - 0))))))))) - r$813)))) - (assoc fp$262 *in-port-table*)))))) - (define in-port:read-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(621 - (k$807 ptbl$260) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(620 - (r$808) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(619 - (result$261) - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(618 (r$809) ((k$807 result$261)))) - ptbl$260 - #f)))) - r$808)))) - (cadr ptbl$260)))))) - (define in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) - (define in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(616 - (k$800 ptbl$258 buf$257) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) - (cdr ptbl$258)))))) - (define in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(614 - (k$797 ptbl$256) - ((k$797 (caddr ptbl$256)))))) - (define in-port:set-lnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(613 - (k$793 ptbl$255 lnum$254) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(612 - (r$794) - ((k$793 (set-car! r$794 lnum$254))))) - (cddr ptbl$255)))))) - (define in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(611 - (k$790 ptbl$253) - ((k$790 (cadddr ptbl$253)))))) - (define in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(610 - (k$786 ptbl$252 cnum$251) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(609 - (r$787) - ((k$786 (set-car! r$787 cnum$251))))) - (cdddr ptbl$252)))))) - (define add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(608 - (k$783 tok$250 toks$249) - ((k$783 (cons tok$250 toks$249)))))) - (define get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(607 - (k$778 tok$248 toks$247) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(606 - (r$779) - ((if r$779 - (k$778 toks$247) - (->tok #((record-marker) - #((record-marker) #f (id args body)) - #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) - tok$248))))) - (null? tok$248)))))) - (define ->tok - #((record-marker) - #((record-marker) #f (id args body)) - #(604 - (k$774 lst$246) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(603 (r$775) ((parse-atom k$774 r$775)))) - lst$246))))) - (define dotted? - #((record-marker) - #((record-marker) #f (id args body)) - #(602 - (k$766 lst$245) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(601 - (r$771) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(600 - (r$767) - ((if r$767 - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(599 - (r$770) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(598 - (r$768) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(597 - (r$769) - ((k$766 (equal? r$768 r$769))))) - (string->symbol "."))))) - (cadr r$770))))) - lst$245) - (k$766 #f))))) - (> r$771 2))))) - (length lst$245)))))) - (define ->dotted-list - #((record-marker) - #((record-marker) #f (id args body)) - #(596 - (k$756 lst$244) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(595 - (r$757) - ((if r$757 - (#((record-marker) - #((record-marker) #f (id args body)) - #(586 () ((k$756 '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(594 - (r$762) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(593 - (r$763) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(592 - (r$758) - ((if r$758 - (#((record-marker) - #((record-marker) #f (id args body)) - #(587 () ((k$756 (cadr lst$244)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(591 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(590 - (r$759) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(589 - (r$761) - ((->dotted-list - #((record-marker) - #((record-marker) - #f - (id args body)) - #(588 - (r$760) - ((k$756 (cons r$759 - r$760))))) - r$761)))) - (cdr lst$244))))) - (car lst$244)))))))))) - (equal? r$762 r$763))))) - (string->symbol "."))))) - (car lst$244)))))) - (null? lst$244)))))) - (define parse-error - #((record-marker) - #((record-marker) #f (id args body)) - #(585 - (k$750 msg$243 lnum$242 cnum$241) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(584 - (r$752) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(583 - (r$753) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(582 (r$751) ((error k$750 r$751)))) - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243))))) - (number->string cnum$241))))) - (number->string lnum$242)))))) - (define parse/tok - #((record-marker) - #((record-marker) #f (id args body)) - #(581 - (k$739 fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(580 - (r$740) - ((if r$740 - (#((record-marker) - #((record-marker) #f (id args body)) - #(571 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(570 - (r$741) - ((parse k$739 - fp$240 - r$741 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - '()))))) - (if all?$237 - (#((record-marker) - #((record-marker) #f (id args body)) - #(575 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(574 - (r$742) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(573 - (r$744) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(572 - (r$743) - ((parse k$739 - fp$240 - r$742 - r$743 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - r$744 - toks$238)))) - tok$239)))) - '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(579 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(578 - (r$745) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(577 - (r$747) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(576 - (r$746) - ((k$739 (car r$746))))) - r$747 - toks$238)))) - tok$239)))) - ptbl$234 - curr-char$233)))))))))) - (null? tok$239)))))) - (define parse - #((record-marker) - #((record-marker) #f (id args body)) - #(569 - (k$497 fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(568 - (new-toks$203) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(567 - (r$736) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(566 - (r$735) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(565 - (r$498) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(564 - (k$733) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(563 - (r$734) - ((if r$734 - (in-port:read-buf! - k$733 - ptbl$196) - (k$733 (read-char fp$202)))))) - ptbl$196)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(562 - (r$499) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(561 - (c$204) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(560 - (r$500) - ((if r$500 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(277 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(276 - (k$506) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(275 - (r$507) - ((if r$507 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(274 - (r$508) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(273 - (r$509) - ((parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)))) - ptbl$196)))) - ptbl$196) - (k$506 #f))))) - (> parens$197 - 0))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(267 - (r$502) - ((reverse - k$497 - r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(271 - (r$503) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(269 - (r$505) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> r$505 - 0))))) - (length - last$232))))) - r$503)))) - tok$201 - toks$200)))))))))) - (if comment?$198 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(286 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(285 - (r$510) - ((if r$510 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(283 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(282 - (r$515) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(281 - (r$514) - ((in-port:set-lnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(280 - (r$511) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(279 - (r$512) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(278 - (r$513) - ((parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - ptbl$196 - 0)))) - ptbl$196 - r$514)))) - (+ 1 - r$515))))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(284 - (r$516) - ((parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - '()))))) - (eq? c$204 - #\newline)))))) - (char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(559 - (r$517) - ((if r$517 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(295 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(294 - (k$522) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(293 - (r$523) - ((if r$523 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(292 - (r$525) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(291 - (r$524) - ((in-port:set-lnum! - k$522 - ptbl$196 - r$524)))) - (+ 1 - r$525))))) - ptbl$196) - (k$522 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(289 - (k$520) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(288 - (r$521) - ((if r$521 - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(558 - (r$526) - ((if r$526 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(296 - () - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(557 - (r$527) - ((if r$527 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(316 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(315 - (k$541) - ((if all?$199 - (k$541 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(314 - (r$542) - ((not k$541 - r$542)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(313 - (r$528) - ((if r$528 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(300 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(312 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(309 - (r$532) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - r$532)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(556 - (r$543) - ((if r$543 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(336 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(335 - (k$557) - ((if all?$199 - (k$557 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(334 - (r$558) - ((not k$557 - r$558)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(333 - (r$544) - ((if r$544 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(320 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(332 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(329 - (r$548) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - r$548)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(555 - (r$559) - ((if r$559 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(372 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(371 - (k$587) - ((if all?$199 - (k$587 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(370 - (r$588) - ((not k$587 - r$588)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(369 - (r$560) - ((if r$560 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(340 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(368 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(363 - (k$584) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(362 - (r$585) - ((if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))))) - (equal? - next-c$226 - #\@))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? - next-c$226 - #\@)))))) - (eof-object? - next-c$226))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 - r$586))))) - (read-char - fp$202))))) - (set! sub$227 - #f))))) - #f - #f - #f - #f)))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(554 - (r$589) - ((if r$589 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(396 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(395 - (k$607) - ((if all?$199 - (k$607 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(394 - (r$608) - ((not k$607 - r$608)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(393 - (r$590) - ((if r$590 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(376 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(392 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(382 - (r$603) - ((if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))))) - (pair? sub$222))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(553 - (r$609) - ((if r$609 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(410 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(409 - (k$618) - ((if all?$199 - (k$618 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(408 - (r$619) - ((not k$618 - r$619)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(407 - (r$610) - ((if r$610 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(400 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(406 - (r$614) - ((if r$614 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(403 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(405 - () - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(404 - (r$617) - ((reverse - k$497 - r$617)))) - tok$201 - toks$200))))))))) - (= parens$197 - 0))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(552 - (r$620) - ((if r$620 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(427 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(426 - (k$631) - ((if all?$199 - (k$631 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(425 - (r$632) - ((not k$631 - r$632)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(424 - (r$621) - ((if r$621 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(414 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(423 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(419 - (str$219 - toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(551 - (r$633) - ((if r$633 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(546 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(545 - (r$634) - ((if r$634 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(543 - (r$635) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(542 - (next-c$205) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(541 - (r$729) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(540 - (r$728) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(539 - (r$636) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(538 - (r$637) - ((if r$637 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(430 - () - ((read-block-comment - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(429 - (r$638) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(428 - (r$639) - ((parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(537 - (r$640) - ((if r$640 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(433 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(432 - (r$641) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(431 - (r$642) - ((parse k$497 - fp$202 - r$641 - r$642 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #t - toks$200))))) - '()) - (k$497 #t)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(536 - (r$643) - ((if r$643 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(436 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(435 - (r$644) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(434 - (r$645) - ((parse k$497 - fp$202 - r$644 - r$645 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #f - toks$200))))) - '()) - (k$497 #f)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(535 - (r$646) - ((if r$646 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(440 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(437 - (r$647) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(438 - (r$649) - ((exact k$648 - r$649)))) - num$217))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(534 - (r$650) - ((if r$650 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(444 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(441 - (r$651) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(442 - (r$653) - ((inexact - k$652 - r$653)))) - num$216))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(533 - (r$654) - ((if r$654 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(448 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(445 - (r$655) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(446 - (r$657) - ((k$656 (string->number - r$657 - 2))))) - (list->string - num$215)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(532 - (r$658) - ((if r$658 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(452 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(449 - (r$659) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(450 - (r$661) - ((k$660 (string->number - r$661 - 8))))) - (list->string - num$214)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(531 - (r$662) - ((if r$662 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(456 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(453 - (r$663) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(454 - (r$665) - ((k$664 (string->number - r$665 - 16))))) - (list->string - num$213)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(530 - (r$666) - ((if r$666 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(488 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(487 - (r$695) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(486 - (r$667) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(485 - (k$691) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(484 - (r$692) - ((if r$692 - (k$691 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(483 - (r$693) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(482 - (r$694) - ((parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\8 - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(478 - (k$686) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(477 - (r$687) - ((if r$687 - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\( - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))) - (set! next-c$205 - r$690))))) - (read-char - fp$202))))))))) - (set! next-c$205 - r$695))))) - (read-char - fp$202)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(529 - (r$696) - ((if r$696 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(506 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(505 - (r$709) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(504 - (r$710) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(503 - (r$711) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(502 - (r$697) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(501 - (r$698) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(500 - (sub$208 - toks*$207) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(499 - (new-toks$209) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(498 - (k$703) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(497 - (k$707) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(496 - (r$708) - ((if r$708 - (dotted? - k$707 - sub$208) - (k$707 #f))))) - (pair? sub$208))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector - sub$208)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 - r$701))))) - r$702 - toks*$207)))))))) - #f)))) - r$697 - r$698)))) - tok$201 - toks$200)))) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(528 - (r$712) - ((if r$712 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(511 - () - ((read-pound - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(510 - (r$715) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(509 - (r$713) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(508 - (new-toks$206) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(507 - (r$714) - ((parse k$497 - fp$202 - r$714 - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$206)))))) - r$713)))) - (cons r$715 - toks$200))))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(527 - (r$716) - ((if r$716 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(523 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(522 - (r$724) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(521 - (r$725) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(520 - (r$717) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(519 - (k$722) - ((if all?$199 - (k$722 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(518 - (r$723) - ((not k$722 - r$723)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(517 - (r$718) - ((if r$718 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(515 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(516 - () - ((parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(526 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(525 - (r$726) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(524 - (r$727) - ((parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)))) - ptbl$196)))) - ptbl$196))))))))) - (eq? #\; - next-c$205)))))) - (eq? #\\ - next-c$205)))))) - (eq? #\( - next-c$205)))))) - (eq? #\u - next-c$205)))))) - (eq? #\x - next-c$205)))))) - (eq? #\o - next-c$205)))))) - (eq? #\b - next-c$205)))))) - (eq? #\i - next-c$205)))))) - (eq? #\e - next-c$205)))))) - (eq? #\f - next-c$205)))))) - (eq? #\t - next-c$205)))))) - (eq? #\| - next-c$205))))) - ptbl$196 - r$728)))) - (+ 1 - r$729))))) - ptbl$196)))) - r$635)))) - (read-char - fp$202)) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(544 - (r$730) - ((parse k$497 - fp$202 - r$730 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))) - (null? tok$201)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(550 - (r$731) - ((if r$731 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(547 - () - ((parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(549 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(548 - (r$732) - ((parse k$497 - fp$202 - r$732 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))))))) - (eq? c$204 - #\|)))))) - (eq? c$204 - #\#)))))) - (eq? c$204 - #\")))))) - (eq? c$204 - #\))))))) - (eq? c$204 - #\()))))) - (eq? c$204 - #\,)))))) - (eq? c$204 - #\`)))))) - (eq? c$204 - #\')))))) - (eq? c$204 - #\;)))))) - c$204)))))) - (eof-object? c$204))))) - r$499)))))))) - ptbl$196 - r$735)))) - (+ 1 r$736))))) - ptbl$196)))) - #f))))) - (define read-pound - #((record-marker) - #((record-marker) #f (id args body)) - #(266 - (k$438 fp$183 ptbl$182) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(265 - (done$187 loop$186) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(264 - (done$189 loop$188) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(211 - (r$456) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(210 - (r$439) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(191 - (r$442) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(190 - (r$440) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(189 - (r$441) - ((loop$186 k$438 r$441)))) - '())))) - (set! loop$186 r$442))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(209 - (k$443 buf$190) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(208 - (r$444) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(207 - (c$191) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(206 - (r$448) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(205 - (tmp$192) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(204 - (k$449) - ((if tmp$192 - (k$449 tmp$192) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(203 - (k$453) - ((char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(202 - (r$454) - ((if r$454 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(201 - (r$455) - ((k$453 (> r$455 - 0))))) - (length - buf$190)) - (k$453 #f))))) - c$191)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(200 - (r$450) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(198 - (r$452) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? - c$191 - #\))) - (k$449 #f))))) - (> r$452 - 0))))) - (length - buf$190)))))) - r$450))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(196 - (r$445) - ((if r$445 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(192 - () - ((done$187 - k$443 - buf$190))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(195 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(194 - (r$447) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(193 - (r$446) - ((loop$186 - k$443 - r$446)))) - (cons r$447 - buf$190))))) - (read-char - fp$183)))))))))))))) - r$448)))) - (eof-object? c$191))))) - r$444)))) - (peek-char fp$183))))))))) - (set! done$187 r$456))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(263 - (k$457 raw-buf$194) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(262 - (r$458) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(261 - (buf$195) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(260 - (r$494) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(259 - (r$459) - ((if r$459 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(214 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(213 - (r$460) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(212 - (r$461) - ((parse-error - k$457 - "missing character" - r$460 - r$461)))) - ptbl$182)))) - ptbl$182))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(258 - (r$493) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(257 - (r$462) - ((if r$462 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(215 - () - ((k$457 (car buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(256 - (r$492) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(255 - (r$463) - ((if r$463 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(216 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(254 - (r$491) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(253 - (r$464) - ((if r$464 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(217 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(252 - (r$490) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(251 - (r$465) - ((if r$465 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(218 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(250 - (r$489) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(249 - (r$466) - ((if r$466 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(219 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(248 - (r$488) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(247 - (r$467) - ((if r$467 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(220 - () - ((k$457 #\newline))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(246 - (r$487) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(245 - (r$468) - ((if r$468 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(221 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(244 - (r$486) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(243 - (r$469) - ((if r$469 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(222 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(242 - (r$485) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(241 - (r$470) - ((if r$470 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(223 - () - ((k$457 #\space))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(240 - (r$484) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(239 - (r$471) - ((if r$471 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(224 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(238 - (k$480) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(237 - (r$483) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(236 - (r$481) - ((if r$481 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(235 - (r$482) - ((k$480 (equal? - r$482 - #\x))))) - (car buf$195)) - (k$480 #f))))) - (> r$483 - 1))))) - (length - buf$195))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(228 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(227 - (r$475) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number - r$474 - 16))))) - (list->string - r$475))))) - (cdr buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(233 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string - buf$195))))))))))))))) - (equal? - buf$195 - r$484))))) - '(#\t - #\a - #\b)))))) - (equal? - buf$195 - r$485))))) - '(#\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$486))))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))))) - (equal? - buf$195 - r$487))))) - '(#\n - #\u - #\l - #\l)))))) - (equal? - buf$195 - r$488))))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))))) - (equal? - buf$195 - r$489))))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))))) - (equal? - buf$195 - r$490))))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))))) - (equal? - buf$195 - r$491))))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$492))))) - '(#\a - #\l - #\a - #\r - #\m)))))) - (= 1 r$493))))) - (length buf$195)))))) - (= 0 r$494))))) - (length buf$195))))) - r$458)))) - raw-buf$194)))))))) - #f - #f)))) - #f - #f))))) - (define read-str - #((record-marker) - #((record-marker) #f (id args body)) - #(188 - (k$426 fp$180 buf$179 ptbl$178) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(187 - (r$427) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(186 - (c$181) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(185 - (r$428) - ((if r$428 - (#((record-marker) - #((record-marker) #f (id args body)) - #(176 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(175 - (r$429) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(174 - (r$430) - ((parse-error - k$426 - "missing closing double-quote" - r$429 - r$430)))) - ptbl$178)))) - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(184 - (r$431) - ((if r$431 - (#((record-marker) - #((record-marker) #f (id args body)) - #(178 - () - ((read-str-esc - #((record-marker) - #((record-marker) - #f - (id args body)) - #(177 - (r$432) - ((read-str - k$426 - fp$180 - r$432 - ptbl$178)))) - fp$180 - buf$179 - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(183 - (r$433) - ((if r$433 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(180 - () - ((reverse - #((record-marker) - #((record-marker) - #f - (id args body)) - #(179 - (r$434) - ((k$426 (list->string - r$434))))) - buf$179))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(182 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(181 - (r$435) - ((read-str - k$426 - fp$180 - r$435 - ptbl$178)))) - (cons c$181 buf$179)))))))))) - (equal? #\" c$181)))))) - (equal? #\\ c$181)))))) - (eof-object? c$181))))) - r$427)))) - (read-char fp$180)))))) - (define read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(173 - (k$410 fp$175 buf$174 ptbl$173) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(172 - (r$411) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(171 - (c$176) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(170 - (r$412) - ((if r$412 - (#((record-marker) - #((record-marker) #f (id args body)) - #(156 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(155 - (r$413) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(154 - (r$414) - ((parse-error - k$410 - "missing escaped character within string" - r$413 - r$414)))) - ptbl$173)))) - ptbl$173))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(169 - (r$422) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(168 - (tmp$177) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(167 - (k$423) - ((if tmp$177 - (k$423 tmp$177) - (k$423 (equal? #\\ c$176)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(166 - (r$415) - ((if r$415 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(157 - () - ((k$410 (cons c$176 - buf$174)))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(165 - (r$416) - ((if r$416 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(158 - () - ((k$410 (cons #\newline - buf$174)))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(164 - () - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(163 - (r$421) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(162 - (r$420) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(161 - (r$417) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(160 - (r$418) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(159 - (r$419) - ((parse-error - k$410 - r$417 - r$418 - r$419)))) - ptbl$173)))) - ptbl$173)))) - (string-append - "invalid escape character [" - r$420 - "] in string"))))) - (list->string - r$421))))) - c$176))))))))) - (equal? #\n c$176)))))))))) - r$422)))) - (equal? #\" c$176)))))) - (eof-object? c$176))))) - r$411)))) - (read-char fp$175)))))) - (define sign? - #((record-marker) - #((record-marker) #f (id args body)) - #(153 - (k$406 c$171) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(152 - (r$407) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(151 - (tmp$172) - ((if tmp$172 - (k$406 tmp$172) - (k$406 (equal? c$171 #\-)))))) - r$407)))) - (equal? c$171 #\+)))))) - (define token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(150 - (k$386 a$167) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(149 - (r$403) - ((char-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(148 - (r$387) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(147 - (tmp$168) - ((if tmp$168 - (k$386 tmp$168) - (#((record-marker) - #((record-marker) #f (id args body)) - #(146 - (k$397) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(145 - (r$402) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(144 - (r$398) - ((if r$398 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(143 - (r$401) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(142 - (r$399) - ((if r$399 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(141 - (r$400) - ((char-numeric? - k$397 - r$400)))) - (cadr a$167)) - (k$397 #f))))) - (eq? #\. r$401))))) - (car a$167)) - (k$397 #f))))) - (> r$402 1))))) - (length a$167))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(140 - (r$388) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(139 - (tmp$169) - ((if tmp$169 - (k$386 tmp$169) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(138 - (r$396) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(137 - (r$389) - ((if r$389 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(136 - (r$395) - ((char-numeric? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(135 - (r$392) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(134 - (tmp$170) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(133 - (k$393) - ((if tmp$170 - (k$393 tmp$170) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(132 - (r$394) - ((k$393 (eq? #\. - r$394))))) - (cadr a$167)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(131 - (r$390) - ((if r$390 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(130 - (r$391) - ((sign? k$386 - r$391)))) - (car a$167)) - (k$386 #f))))))))) - r$392)))) - r$395)))) - (cadr a$167)) - (k$386 #f))))) - (> r$396 1))))) - (length a$167)))))) - r$388))))))))) - r$387)))) - r$403)))) - (car a$167)))))) - (define parse-atom - #((record-marker) - #((record-marker) #f (id args body)) - #(129 - (k$380 a$166) - ((token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(128 - (r$381) - ((if r$381 - (#((record-marker) - #((record-marker) #f (id args body)) - #(125 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(124 (r$382) ((k$380 (string->number r$382))))) - (list->string a$166)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(127 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(126 (r$383) ((k$380 (string->symbol r$383))))) - (list->string a$166)))))))))) - a$166))))) - (define get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(123 - (k$376 fp$165 ptbl$164) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(122 - (r$377) - ((if r$377 - (in-port:read-buf! k$376 ptbl$164) - (k$376 (read-char fp$165)))))) - ptbl$164))))) - (define read-block-comment - #((record-marker) - #((record-marker) #f (id args body)) - #(121 - (k$371 fp$162 ptbl$161) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(120 - (r$372) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(119 - (c$163) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(118 - (r$373) - ((if r$373 - (#((record-marker) - #((record-marker) #f (id args body)) - #(116 - () - ((read-block-terminator - k$371 - fp$162 - ptbl$161))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(117 - () - ((read-block-comment - k$371 - fp$162 - ptbl$161))))))))) - (eq? #\| c$163))))) - r$372)))) - fp$162 - ptbl$161))))) - (define read-block-terminator - #((record-marker) - #((record-marker) #f (id args body)) - #(115 - (k$365 fp$159 ptbl$158) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(114 - (r$366) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(113 - (c$160) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(112 - (r$367) - ((if r$367 - (#((record-marker) - #((record-marker) #f (id args body)) - #(108 () ((k$365 #t))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(111 - (r$368) - ((if r$368 - (#((record-marker) - #((record-marker) #f (id args body)) - #(109 - () - ((read-block-terminator - k$365 - fp$159 - ptbl$158))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(110 - () - ((read-block-comment - k$365 - fp$159 - ptbl$158))))))))) - (eq? #\| c$160)))))) - (eq? #\# c$160))))) - r$366)))) - fp$159 - ptbl$158))))) - (define parse-literal-identifier - #((record-marker) - #((record-marker) #f (id args body)) - #(107 - (k$358 fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(106 - (r$362) - ((parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(105 - (r$359) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(104 - (sym$157) - ((if all?$154 - (#((record-marker) - #((record-marker) #f (id args body)) - #(103 - (r$360) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(102 - (r$361) - ((parse k$358 - fp$156 - r$360 - r$361 - all?$154 - #f - parens$153 - ptbl$152)))) - (cons sym$157 toks$155))))) - '()) - (k$358 sym$157))))) - r$359)))) - fp$156 - r$362 - ptbl$152)))) - '()))))) - (define parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(101 - (k$343 fp$147 tok$146 ptbl$145) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(100 - (r$344) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(97 - (r$345) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(96 - (c$150 next$149) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(95 - (r$346) - ((if r$346 - (#((record-marker) - #((record-marker) #f (id args body)) - #(89 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(88 - (k$348) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(87 - (r$349) - ((if r$349 - (k$348 "||") - (reverse - #((record-marker) - #((record-marker) - #f - (id args body)) - #(86 - (r$350) - ((k$348 (list->string - r$350))))) - tok$146))))) - (null? tok$146))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(85 - (r$347) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(84 - (str$151) - ((k$343 (string->symbol - str$151))))) - r$347))))))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(94 - (r$351) - ((if r$351 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(92 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(91 - (r$352) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(90 - (r$353) - ((parse-error - k$343 - "EOF encountered parsing literal identifier" - r$352 - r$353)))) - ptbl$145)))) - ptbl$145))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(93 - () - ((next$149 k$343 c$150))))))))) - (eof-object? c$150)))))) - (eq? #\| c$150))))) - r$344 - r$345)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(99 - (k$354 c$148) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(98 - (r$355) - ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) - (cons c$148 tok$146))))))))) - fp$147 - ptbl$145))))) - (define parse-number - #((record-marker) - #((record-marker) #f (id args body)) - #(83 - (k$325 fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(82 - (r$340) - ((parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(81 - (r$326) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(80 - (num$142) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(79 - (k$333) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(78 - (r$334) - ((if r$334 - (k$333 #f) - (token-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(77 - (r$335) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(76 - (tmp$144) - ((if tmp$144 - (k$333 tmp$144) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(75 - (r$339) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(74 - (r$336) - ((if r$336 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(73 - (r$337) - ((if r$337 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(72 - (r$338) - ((hex-digit? - k$333 - r$338)))) - (car num$142)) - (k$333 #f))))) - (= base$136 - 16)) - (k$333 #f))))) - (> r$339 0))))) - (length num$142)))))) - r$335)))) - num$142))))) - (null? num$142))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(71 - (r$327) - ((if r$327 - (#((record-marker) - #((record-marker) #f (id args body)) - #(67 - () - ((tok->num$135 - #((record-marker) - #((record-marker) - #f - (id args body)) - #(66 - (r$328) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(65 - (result$143) - ((if all?$139 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(64 - (r$329) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(63 - (r$330) - ((parse k$325 - fp$141 - r$329 - r$330 - all?$139 - #f - parens$138 - ptbl$137)))) - (cons result$143 - toks$140))))) - '()) - (k$325 result$143))))) - r$328)))) - num$142))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(70 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(69 - (r$331) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(68 - (r$332) - ((parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)))) - ptbl$137)))) - ptbl$137))))))))))))) - r$326)))) - base$136 - fp$141 - r$340 - ptbl$137)))) - '()))))) - (define parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(62 - (k$301 base$130 fp$129 tok$128 ptbl$127) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(61 - (r$302) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(58 - (r$303) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(57 - (c$133 next$132) - ((sign? #((record-marker) - #((record-marker) #f (id args body)) - #(56 - (r$304) - ((if r$304 - (#((record-marker) - #((record-marker) #f (id args body)) - #(34 () ((next$132 k$301 c$133))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(55 - (r$305) - ((if r$305 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(35 - () - ((next$132 - k$301 - c$133))))) - (char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(54 - (r$306) - ((if r$306 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(47 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(46 - (k$308) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(45 - (k$315) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(44 - (r$316) - ((if r$316 - (char>? - k$315 - c$133 - #\1) - (k$315 #f))))) - (= base$130 - 2))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(43 - (r$312) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(42 - (tmp$134) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(41 - (k$313) - ((if tmp$134 - (k$313 tmp$134) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(40 - (r$314) - ((if r$314 - (char>? - k$313 - c$133 - #\7) - (k$313 #f))))) - (= base$130 - 8)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))))))) - r$312)))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(36 - (r$307) - ((next$132 - k$301 - c$133))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(53 - (k$319) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(52 - (r$320) - ((if r$320 - (hex-digit? - k$319 - c$133) - (k$319 #f))))) - (= base$130 - 16))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(51 - (r$317) - ((if r$317 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(48 - () - ((next$132 - k$301 - c$133))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(50 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(49 - (r$318) - ((reverse - k$301 - tok$128)))) - ptbl$127 - c$133)))))))))))))) - c$133))))) - (eq? #\. c$133)))))) - c$133)))) - r$302 - r$303)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(60 - (k$321 c$131) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(59 - (r$322) - ((parse-number-rec - k$321 - base$130 - fp$129 - r$322 - ptbl$127)))) - (cons c$131 tok$128))))))))) - fp$129 - ptbl$127))))) - (define hex-digit? - #((record-marker) - #((record-marker) #f (id args body)) - #(33 - (k$294 c$125) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(32 - (k$297) - ((char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(31 - (r$298) - ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) - c$125 - #\a)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(30 - (r$295) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(29 - (tmp$126) - ((if tmp$126 - (k$294 tmp$126) - (char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(28 - (r$296) - ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) - c$125 - #\A))))) - r$295))))))))) - (define cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(27 - (k$285 . args$123) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(26 - (k$290) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(25 - (r$291) - ((if r$291 - (current-input-port k$290) - (k$290 (car args$123)))))) - (null? args$123))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(24 - (r$286) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(23 - (fp$124) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(22 - (r$287) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(21 - (r$288) - ((reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(20 - (r$289) - ((parse k$285 - fp$124 - r$287 - r$288 - #f - #f - 0 - r$289)))) - fp$124)))) - '())))) - '())))) - r$286))))))))) - (define read-all - #((record-marker) - #((record-marker) #f (id args body)) - #(19 - (k$272 . args$116) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(18 - (loop$117) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(17 - (k$281) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(16 - (r$282) - ((if r$282 - (current-input-port k$281) - (k$281 (car args$116)))))) - (null? args$116))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(15 - (r$273) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(14 - (fp$118) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(13 - (loop$119) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(7 - (r$276) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(6 - (r$274) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(5 - (r$275) - ((loop$119 - k$272 - fp$118 - r$275)))) - '())))) - (set! loop$119 r$276))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(11 - (r$278) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(10 - (obj$122) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(9 - (r$279) - ((if r$279 - (reverse - k$277 - result$120) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(8 - (r$280) - ((loop$119 - k$277 - fp$121 - r$280)))) - (cons obj$122 - result$120)))))) - (eof-object? obj$122))))) - r$278)))) - fp$121)))))))) - #f)))) - r$273)))))))) - #f))))) - (define lib-init:schemeread - #((record-marker) - #((record-marker) #f (id args body)) - #(4 - (k$266) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(3 - (r$267) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(2 - (r$268) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(1 - (r$269) - ((k$266 (set! *in-port-table* r$269))))) - '())))) - (set! read cyc-read))))) - 0)))))) - */ -/* -"---------------- cps analysis db:" - */ -/* -#((record-marker) - #((record-marker) - #f - (size hash compare associate entries)) - #(1341 - #[procedure] - #[procedure] - #[procedure] - #(() - ((1 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((2 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((3 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((4 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((5 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((6 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((7 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((8 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((9 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((10 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((11 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((12 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$276 loop$119 r$276)))) - (k$343 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 101 #f #f (93 90 84) #f #f 1 2)))) - ((13 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((14 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((15 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$281))))) - ((16 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((17 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$348 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 88 - #f - #f - (86 87) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(85 - (r$347) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(84 - (str$151) - ((k$343 (string->symbol str$151))))) - r$347)))) - 2 - 0)))) - ((18 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((19 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((20 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((21 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((22 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((23 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((24 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$290))))) - ((25 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((26 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((27 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((28 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$648 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 439 #f #f (438) #f #f 0 1)))) - ((29 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((30 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$297))))) - ((31 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((32 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((33 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((34 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((35 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((36 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$308))))) - ((37 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((38 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((39 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$313))))) - ((40 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((41 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((42 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((43 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$315))))) - ((44 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((45 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((46 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((47 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((48 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((49 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((50 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$354 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 99 #f #f (98) #f #f 0 1)))) - ((51 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$319))))) - ((52 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((53 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((54 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$358 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 107 #f #f (104 102) #f #f 1 1)))) - ((55 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((56 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((57 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((58 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((59 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$652 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 443 #f #f (442) #f #f 0 1)))) - ((60 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$303 next$132 r$303))))) - ((61 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((62 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((63 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$656 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 447 #f #f (446) #f #f 1 0)))) - ((64 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (fp$202 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (548 - 547 - 544 - 545 - 521 - 516 - 511 - 507 - 503 - 489 - 488 - 481 - 471 - 457 - 453 - 449 - 445 - 441 - 437 - 434 - 431 - 430 - 428 - 422 - 415 - 389 - 377 - 366 - 348 - 341 - 330 - 321 - 310 - 301 - 296 - 287 - 284 - 278 - 563) - #f - #f - 0 - 39)))) - ((65 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((66 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((67 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((68 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((69 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((70 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((71 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$333))))) - ((72 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((73 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((74 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((75 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((76 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((77 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((78 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((79 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((80 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((81 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((82 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((83 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((84 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((85 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$348))))) - ((86 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((87 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((88 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$365 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 115 #f #f (110 109 108) #f #f 1 2)))) - ((89 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((90 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((91 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((92 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((93 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((94 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$660 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 451 #f #f (450) #f #f 1 0)))) - ((95 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((96 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((97 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((98 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$664 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 455 #f #f (454) #f #f 1 0)))) - ((99 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$345 next$149 r$345))))) - ((100 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((101 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((102 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((103 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((104 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((105 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((106 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((107 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((108 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((109 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((110 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((111 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((112 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((113 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((114 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((115 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((116 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((117 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((118 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((119 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((120 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((k$371 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 121 #f #f (117 116) #f #f 0 2))) - (121 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((122 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((123 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((124 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((125 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$376 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 123 #f #f (122 122) #f #f 1 1))) - (126 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((127 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((128 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((129 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((130 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((131 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$393))))) - ((132 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((133 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((134 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((135 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((136 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((137 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((138 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$677 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 466 - #f - #f - (463 461) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) #f (id args body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 r$675))))) - r$676 - toks*$210)))) - 1 - 1)))) - ((139 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((140 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$397))))) - ((141 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((142 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((143 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((144 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((145 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((146 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((147 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((148 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((149 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((150 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((151 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((152 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((153 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((154 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((155 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((156 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$380 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 129 #f #f (126 124) #f #f 2 0))) - (157 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((158 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((159 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((160 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((161 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((162 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((163 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$386 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 150 #f #f (137 131 130 139 147) #f #f 4 1)))) - ((164 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((165 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((166 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$423))))) - ((167 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((168 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$681 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 465 - #f - #f - (464 464) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector sub$211)))))) - 1 - 1))) - (169 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((170 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((171 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((172 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((173 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$686 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 478 - #f - #f - (475 477) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 1))))) - '())))) - '())))) - 1 - 1))) - (174 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((175 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((176 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((177 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((178 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((179 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((180 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((181 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((182 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((183 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((184 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((185 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((186 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((187 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((188 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((189 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$500 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 560 #f #f (560) #f (eof-object? c$204) 0 0))) - (190 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$501 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 272 #f #f () #f #f 0 0))) - (191 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$502 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 267 #f #f (267) #f #f 0 1))) - (192 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$503 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 271 #f #f (271) #f #f 0 1))) - (193 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$504 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 268 #f #f (268) #f (> r$505 0) 0 0))) - (194 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$505 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 269 #f #f (269) #f (length last$232) 0 1))) - (195 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((196 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$449))))) - ((k$393 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 133 - #f - #f - (132 133) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(131 - (r$390) - ((if r$390 - (#((record-marker) - #((record-marker) #f (id args body)) - #(130 (r$391) ((sign? k$386 r$391)))) - (car a$167)) - (k$386 #f))))) - 2 - 0))) - (r$507 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 275 #f #f (275) #f (> parens$197 0) 0 0))) - (197 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$508 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 274 #f #f (273) #f #f 0 1))) - (198 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$509 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 273 #f #f (273) #f #f 0 1))) - (199 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((200 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$453))))) - ((201 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$397 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 146 - #f - #f - (144 142 141) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(140 - (r$388) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(139 - (tmp$169) - ((if tmp$169 - (k$386 tmp$169) - (#((record-marker) - #((record-marker) #f (id args body)) - #(138 - (r$396) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(137 - (r$389) - ((if r$389 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(136 - (r$395) - ((char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(135 - (r$392) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(134 - (tmp$170) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(133 - (k$393) - ((if tmp$170 - (k$393 tmp$170) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(132 - (r$394) - ((k$393 (eq? #\. - r$394))))) - (cadr a$167)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(131 - (r$390) - ((if r$390 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(130 - (r$391) - ((sign? k$386 - r$391)))) - (car a$167)) - (k$386 #f))))))))) - r$392)))) - r$395)))) - (cadr a$167)) - (k$386 #f))))) - (> r$396 1))))) - (length a$167)))))) - r$388)))) - 2 - 1)))) - ((r$801 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 615 #f #f (615) #f (cdr ptbl$258) 0 1))) - (202 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((203 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((204 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((205 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$691 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 485 - #f - #f - (482 484) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(478 - (k$686) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(477 - (r$687) - ((if r$687 - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\( next-c$205))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 1))))) - '())))) - '())))))))) - (set! next-c$205 r$690))))) - (read-char fp$202))))) - 1 - 1))) - (206 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((207 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((208 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((r$808 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 620 #f #f (620) #f (cadr ptbl$260) 0 1))) - (209 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$442 loop$186 r$442))))) - ((r$809 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 618 #f #f () #f #f 0 0))) - (fp$240 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (572 570) #f #f 0 2))) - (210 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((211 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((212 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((213 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((214 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((215 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((216 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((217 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((218 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((219 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((220 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((221 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((222 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((223 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((224 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((225 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((226 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$510 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 285 - #f - #f - (285) - #f - (eq? c$204 #\newline) - 0 - 0))) - (227 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$511 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 280 #f #f () #f #f 0 0))) - (228 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$512 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 279 #f #f () #f #f 0 0))) - (229 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$513 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 278 #f #f (278) #f '() 0 1))) - (230 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$514 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 281 #f #f (281) #f (+ 1 r$515) 0 1))) - (231 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$515 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 282 #f #f (282) #f #f 0 1))) - (232 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$516 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 284 #f #f (284) #f '() 0 1))) - (233 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$517 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 559 #f #f (559) #f #f 0 0))) - (234 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$480))))) - ((r$518 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 290 #f #f () #f #f 0 0))) - (235 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$519 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 287 #f #f () #f #f 0 0))) - (236 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((237 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((238 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((239 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((240 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$813 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 629 - #f - #f - (629) - #f - (assoc fp$262 *in-port-table*) - 0 - 1))) - (241 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$814 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 625 #f #f () #f (set! r$263 r$817) 0 0))) - (242 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$815 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 623 - #f - #f - () - #f - (set! *in-port-table* r$816) - 0 - 0))) - (243 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$816 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 624 - #f - #f - (624) - #f - (cons r$263 *in-port-table*) - 0 - 0))) - (244 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$817 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 626 #f #f (626) #f #f 0 0))) - (245 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((246 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((247 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((248 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((249 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((250 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((251 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((252 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((253 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((254 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((list . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (164 346 326 306 627) #f #f 5 0))) - (255 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((256 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((257 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((258 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((259 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((260 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((261 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((262 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((263 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$456 done$187 r$456))))) - ((264 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$521 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 288 - #f - #f - (288) - #f - (equal? c$204 #\newline) - 0 - 0))) - (265 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((266 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((267 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$523 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 293 - #f - #f - (293) - #f - (equal? c$204 #\newline) - 0 - 0)))) - ((r$524 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 291 #f #f (291) #f (+ 1 r$525) 0 1))) - (268 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$525 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 292 #f #f (292) #f #f 0 1))) - (269 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$526 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 558 #f #f (558) #f (eq? c$204 #\;) 0 0))) - (270 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$527 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 557 #f #f (557) #f (eq? c$204 #\') 0 0))) - (271 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((r$528 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 313 #f #f (313) #f #f 0 0))) - (272 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$506))))) - ((r$529 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 299 #f #f () #f #f 0 0))) - (273 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((274 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((275 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((276 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((277 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((278 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((279 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((280 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((281 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((282 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((283 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((284 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((285 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((fp$262 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 630 #f #f (630 627) #f #f 0 2))) - (286 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((287 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$520))))) - ((288 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((289 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((290 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$522))))) - ((291 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((292 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((293 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((294 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((295 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((296 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((297 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((298 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((299 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((300 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((301 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$530 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 297 #f #f (297) #f #f 0 1)))) - ((302 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$531 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 298 #f #f (298) #f #f 0 1)))) - ((303 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$532 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 309 #f #f (309) #f #f 0 1)))) - ((r$533 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 302 - #f - #f - () - #f - (set! new-toks$231 r$535) - 0 - 0))) - (304 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$534 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 301 #f #f (301) #f '() 0 1))) - (305 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$535 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 303 #f #f (303) #f #f 0 0))) - (306 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$536 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 305 #f #f (304) #f #f 0 1))) - (307 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$537 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 304 #f #f (304) #f #f 0 1))) - (308 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$538 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 306 #f #f (306) #f 'quote 0 1))) - (309 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((310 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$539 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 311 #f #f (310) #f '() 0 1)))) - ((311 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((312 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((313 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$541))))) - ((314 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((315 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((316 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((317 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((318 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((319 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((320 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((321 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((322 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((323 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((324 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((325 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((326 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((327 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((328 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((329 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((330 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((331 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((332 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((333 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$557))))) - ((334 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((335 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((336 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((337 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((338 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$540 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 310 #f #f (310) #f '() 0 1)))) - ((339 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((340 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$542 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 314 #f #f (314) #f (null? tok$201) 0 1)))) - ((341 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$543 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 556 #f #f (556) #f (eq? c$204 #\`) 0 0)))) - ((342 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$544 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 333 #f #f (333) #f #f 0 0)))) - ((343 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$545 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 319 #f #f () #f #f 0 0)))) - ((344 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$546 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 317 #f #f (317) #f #f 0 1)))) - ((345 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$547 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 318 #f #f (318) #f #f 0 1)))) - ((346 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$548 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 329 #f #f (329) #f #f 0 1)))) - ((347 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$549 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 322 - #f - #f - () - #f - (set! new-toks$229 r$551) - 0 - 0)))) - ((348 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((349 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((350 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$578))))) - ((351 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((352 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((353 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((354 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((355 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((356 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((357 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((358 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((359 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((360 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((361 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$584))))) - ((362 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((363 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((364 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((365 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((366 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((367 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((368 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((369 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$587))))) - ((370 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((371 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((372 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((373 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((374 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((375 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$550 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 321 #f #f (321) #f '() 0 1)))) - ((376 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$551 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 323 #f #f (323) #f #f 0 0)))) - ((377 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$552 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 325 #f #f (324) #f #f 0 1)))) - ((378 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$553 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 324 #f #f (324) #f #f 0 1)))) - ((379 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$554 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 326 #f #f (326) #f 'quasiquote 0 1)))) - ((380 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$600)))) - (r$555 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 331 #f #f (330) #f '() 0 1)))) - ((381 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$602)))) - (r$556 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 330 #f #f (330) #f '() 0 1)))) - ((382 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((383 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$558 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 334 #f #f (334) #f (null? tok$201) 0 1)))) - ((384 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$559 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 555 #f #f (555) #f (eq? c$204 #\,) 0 0)))) - ((385 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((386 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((387 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((388 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((389 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((390 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((391 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((392 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((393 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$607))))) - ((394 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((395 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((396 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((397 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((398 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((399 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((400 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((401 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((402 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((403 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((404 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$263 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 628 - #f - #f - (626 625 623 622 628) - #t - r$817 - 0 - 3)))) - ((405 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((406 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((407 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$618))))) - ((r$267 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 3 #t 0 () #f 0 0 0))) - (408 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$268 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 2 #f #f () #f (set! read cyc-read) 0 0))) - (409 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$269 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 1 #f #f (1) #f '() 0 0))) - (410 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((411 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((412 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$560 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 369 #f #f (369) #f #f 0 0)))) - ((413 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$561 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 339 #f #f () #f #f 0 0)))) - ((414 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (r$562 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 337 #f #f (337) #f #f 0 1)))) - ((r$563 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 338 #f #f (338) #f #f 0 1))) - (415 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$564 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 366 #f #f () #f (set! sub$227 #f) 0 0))) - (416 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$565 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 364 #f #f () #f (set! next-c$226 r$586) 0 0))) - (417 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$566 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 360 - #f - #f - () - #f - (set! unquote-sym$225 r$583) - 0 - 0))) - (418 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$567 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 359 #f #f () #f (set! new-toks$224 #f) 0 0))) - (419 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$568 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 350 #f #f () #f #f 0 0))) - (420 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$569 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 346 #f #f () #f (set! sub$227 r$575) 0 0))) - (421 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((422 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((423 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((424 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$631))))) - ((425 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((426 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((427 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((428 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((429 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((430 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((431 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((432 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((433 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((434 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((435 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((436 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((437 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((438 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((439 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$647))))) - ((440 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$273 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 15 #f #f (15) #f #f 0 1))) - (441 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$274 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 6 #f #f () #f (set! loop$119 r$276) 0 0))) - (442 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$275 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 5 #f #f (5) #f '() 0 1))) - (443 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$651))))) - ((r$276 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 7 - #f - #f - (7) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(11 - (r$278) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(10 - (obj$122) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(9 - (r$279) - ((if r$279 - (reverse k$277 result$120) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(8 - (r$280) - ((loop$119 - k$277 - fp$121 - r$280)))) - (cons obj$122 result$120)))))) - (eof-object? obj$122))))) - r$278)))) - fp$121)))) - 0 - 0))) - (444 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((445 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$278 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 11 #f #f (11) #f #f 0 1))) - (446 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$279 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 9 #f #f (9) #f (eof-object? obj$122) 0 0))) - (447 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$655))))) - ((448 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$570 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 342 - #f - #f - () - #f - (set! new-toks$224 r$572) - 0 - 0))) - (449 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$571 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 341 #f #f (341) #f '() 0 1))) - (450 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$572 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 343 #f #f (343) #f #f 0 0))) - (451 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$659))))) - ((r$573 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 345 #f #f (344) #f #f 0 1))) - (452 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$574 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 344 #f #f (344) #f #f 0 1))) - (453 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$575 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 347 #f #f (347) #f #f 0 0))) - (454 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$576 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 349 #f #f (348) #f '() 0 1))) - (455 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (r$663))))) - ((r$577 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 348 #f #f (348) #f '() 0 1))) - (456 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((457 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$579 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 357 - #f - #f - (357) - #f - (eof-object? next-c$226) - 0 - 0))) - (458 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((459 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((460 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$677))))) - ((461 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((462 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((463 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$681))))) - ((464 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((465 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((466 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((467 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((468 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((469 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((470 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((471 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((472 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((473 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((474 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$686))))) - ((r$280 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 8 - #f - #f - (8) - #f - (cons obj$122 result$120) - 0 - 1))) - (475 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((476 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$282 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 16 #f #f (16) #f (null? args$116) 0 0))) - (477 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((hex-digit? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1 52 72) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(33 - (k$294 c$125) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(32 - (k$297) - ((char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(31 - (r$298) - ((if r$298 - (char<=? k$297 c$125 #\f) - (k$297 #f))))) - c$125 - #\a)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(30 - (r$295) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(29 - (tmp$126) - ((if tmp$126 - (k$294 tmp$126) - (char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(28 - (r$296) - ((if r$296 - (char<=? k$294 c$125 #\F) - (k$294 #f))))) - c$125 - #\A))))) - r$295))))))))) - 2 - 0))) - (inexact - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (442) #f #f 1 0))) - (478 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((479 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((480 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$286 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 24 #f #f (24) #f #f 0 1))) - (481 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$691))))) - ((r$287 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 22 #f #f (20) #f '() 0 1))) - (482 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$288 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 21 #f #f (20) #f '() 0 1))) - (483 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$289 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 20 #f #f (20) #f #f 0 1))) - (484 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((485 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$580 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 352 #f #f (351) #f #f 0 1))) - (486 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$581 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 351 #f #f (351) #f #f 0 1))) - (487 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$582 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 356 - #f - #f - (356) - #f - (equal? next-c$226 #\@) - 0 - 0))) - (488 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$583 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 361 #f #f (361) #f #f 0 0))) - (489 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((490 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$585 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 362 - #f - #f - (362) - #f - (equal? next-c$226 #\@) - 0 - 0))) - (491 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$586 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 365 #f #f (365) #f (read-char fp$202) 0 0))) - (492 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$703))))) - ((493 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$588 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 370 #f #f (370) #f (null? tok$201) 0 1))) - (494 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$589 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 554 #f #f (554) #f (eq? c$204 #\() 0 0))) - (495 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$707))))) - ((496 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((497 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((498 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((499 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((500 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((501 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((502 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((503 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((504 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (done$187 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 265 #f #f (211 192) #f r$456 1 0)))) - ((505 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((506 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (done$189 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 264 #t #f () #f #f 0 0)))) - ((507 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((508 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((509 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((510 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((511 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((512 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$291 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 25 #f #f (25) #f (null? args$123) 0 0))) - (513 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((514 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((515 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((516 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$295 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 30 #f #f (30) #f #f 0 1))) - (517 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? (k$722))))) - ((r$296 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 28 #f #f (28) #f #f 0 0))) - (518 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((519 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$298 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 31 #f #f (31) #f #f 0 0))) - (520 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((521 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((522 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$590 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 393 #f #f (393) #f #f 0 0))) - (523 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$591 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 375 #f #f () #f #f 0 0))) - (524 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$592 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 373 #f #f (373) #f #f 0 1))) - (525 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$593 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 374 #f #f (374) #f #f 0 1))) - (526 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$594 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 388 #f #f (387) #f #f 0 1))) - (527 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$595 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 387 #f #f (387) #f #f 0 1))) - (528 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$596 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 378 - #f - #f - () - #f - (set! new-toks$223 r$598) - 0 - 0))) - (529 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$597 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 377 #f #f (377) #f '() 0 1))) - (530 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$598 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 379 #f #f (379) #f #f 0 0))) - (531 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((r$599 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 380 #f #f (380) #f #f 0 1))) - (532 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((533 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((534 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((535 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((536 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((537 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((538 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((539 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((540 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((541 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((542 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((543 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((544 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((545 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((546 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((547 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((548 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((549 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((550 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((551 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((552 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((553 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((554 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((555 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((556 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((557 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$506 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 276 - #f - #f - (275 273) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(267 (r$502) ((reverse k$497 r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(271 - (r$503) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(269 - (r$505) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> r$505 0))))) - (length last$232))))) - r$503)))) - tok$201 - toks$200))))) - 1 - 1)))) - ((558 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((559 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((560 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((561 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$800 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 616 #f #f (615) #f #f 1 0))) - (562 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? (k$733))))) - ((563 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((564 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((565 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$804 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 617 #f #f (617) #f #f 1 0))) - (566 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((567 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((568 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$807 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 621 #f #f (618) #f #f 1 0))) - (569 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((570 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((571 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((572 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((573 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((574 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((575 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((576 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((577 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((578 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((579 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((580 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((581 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((582 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((583 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((584 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((base$130 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 62 #f #f (59 53 41 45) #f #f 0 4))) - (585 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((586 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((587 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((588 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((589 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((590 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((base$136 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (82 74) #f #f 0 2))) - (591 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((592 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((593 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((594 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((595 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((596 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((597 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((598 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((599 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((600 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((601 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$812 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 630 #f #f (623 622) #f #f 2 0)))) - ((602 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((603 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((604 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((605 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((606 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((607 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((608 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((609 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((610 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((611 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((612 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((613 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((614 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((615 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((616 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((617 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((618 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((619 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((620 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((621 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((622 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((623 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((624 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((k$520 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 289 - #f - #f - (288 288) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204)))) - 1 - 1))) - (625 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((626 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - ((627 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (k$522 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 294 - #f - #f - (293 291) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(289 - (k$520) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(288 - (r$521) - ((if r$521 - (in-port:set-cnum! k$520 ptbl$196 0) - (k$520 #f))))) - (equal? c$204 #\newline))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204)))))))) - 1 - 1)))) - ((628 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ()))) - (eq? . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (56 - 96 - 113 - 112 - 119 - 132 - 143 - 559 - 558 - 557 - 556 - 555 - 554 - 553 - 552 - 551 - 539 - 538 - 537 - 536 - 535 - 534 - 533 - 532 - 531 - 530 - 529 - 528 - 478 - 485 - 286) - #f - #f - 31 - 0)))) - ((629 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#t ? ())))) - ((630 - . - #((record-marker) - #((record-marker) - #f - (simple unused-params assigned-to-var)) - #(#f ? ())))) - () - ((->tok . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (514 413 399 375 339 319 299 578 574 -1 606) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(604 - (k$774 lst$246) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(603 (r$775) ((parse-atom k$774 r$775)))) - lst$246))))) - 10 - 0)))) - () - () - () - () - () - () - () - ((not . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (518 425 408 394 370 334 314) - #f - #f - 7 - 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((c$204 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 561 - #f - #f - (561 - 560 - 559 - 558 - 557 - 556 - 555 - 554 - 553 - 552 - 551 - 549 - 545 - 515 - 414 - 400 - 376 - 340 - 320 - 300 - 296 - 287 - 289 - 294 - 286 - 268) - #f - r$499 - 0 - 26)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((sign? . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (57 130 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(153 - (k$406 c$171) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(152 - (r$407) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(151 - (tmp$172) - ((if tmp$172 - (k$406 tmp$172) - (k$406 (equal? c$171 #\-)))))) - r$407)))) - (equal? c$171 #\+)))))) - 2 - 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$541 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 315 - #f - #f - (314 315) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(313 - (r$528) - ((if r$528 - (#((record-marker) - #((record-marker) #f (id args body)) - #(300 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(312 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args body)) - #(309 - (r$532) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - r$532)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((apply . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (463) #f #f 1 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$557 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 335 - #f - #f - (334 335) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(333 - (r$544) - ((if r$544 - (#((record-marker) - #((record-marker) #f (id args body)) - #(320 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(332 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args body)) - #(329 - (r$548) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - r$548)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))))))) - 1 - 1)))) - () - ((char<=? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (28 31) #f #f 2 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$266 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 4 #f #f (1) #f #f 1 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((fp$118 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 14 #f #f (5) #f r$273 0 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$272 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 19 #f #f (5) #f #f 0 1)))) - () - () - () - () - ((k$277 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 12 #f #f (8 9) #f #f 0 2)))) - () - () - () - () - () - () - () - () - () - ((fp$121 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 12 #f #f (12 8) #f #f 0 2)))) - () - ((k$578 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 358 - #f - #f - (355 354 351) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) #f (id args body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))) - 1 - 2)))) - ((fp$124 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 23 #f #f (21 20) #f r$286 0 2)))) - () - () - () - () - ((fp$129 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 62 #f #f (62 59) #f #f 0 2)))) - () - () - () - () - () - () - () - () - () - () - () - () - ((k$281 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 17 - #f - #f - (16 16) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(15 - (r$273) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(14 - (fp$118) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(13 - (loop$119) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(7 - (r$276) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(6 - (r$274) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(5 - (r$275) - ((loop$119 - k$272 - fp$118 - r$275)))) - '())))) - (set! loop$119 r$276))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) - #f - (id args body)) - #(11 - (r$278) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(10 - (obj$122) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(9 - (r$279) - ((if r$279 - (reverse - k$277 - result$120) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(8 - (r$280) - ((loop$119 - k$277 - fp$121 - r$280)))) - (cons obj$122 - result$120)))))) - (eof-object? obj$122))))) - r$278)))) - fp$121)))))))) - #f)))) - r$273)))) - 1 - 1)))) - () - () - () - ((k$285 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 27 #f #f (20) #f #f 0 1)))) - () - () - () - () - () - () - () - () - () - ((k$584 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 363 - #f - #f - (362 362) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? next-c$226 #\@)))))) - (eof-object? next-c$226))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 #f))))) - (set! unquote-sym$225 r$583))))) - 2 - 0)))) - () - () - ((k$587 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 371 - #f - #f - (370 371) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(369 - (r$560) - ((if r$560 - (#((record-marker) - #((record-marker) #f (id args body)) - #(340 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(368 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(363 - (k$584) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(362 - (r$585) - ((if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))))) - (equal? - next-c$226 - #\@))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? - next-c$226 - #\@)))))) - (eof-object? - next-c$226))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 r$586))))) - (read-char fp$202))))) - (set! sub$227 #f))))) - #f - #f - #f - #f))))))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((r$400 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 141 #f #f (141) #f (cadr a$167) 0 1))) - (caddr . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (614) #f #f 1 0)))) - ((r$401 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 143 #f #f (143) #f (car a$167) 0 1)))) - ((r$402 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 145 #f #f (145) #f (length a$167) 0 1)))) - ((r$403 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 149 #f #f (149) #f (car a$167) 0 1)))) - ((k$290 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 26 - #f - #f - (25 25) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(24 - (r$286) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(23 - (fp$124) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(22 - (r$287) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(21 - (r$288) - ((reg-port - #((record-marker) - #((record-marker) - #f - (id args body)) - #(20 - (r$289) - ((parse k$285 - fp$124 - r$287 - r$288 - #f - #f - 0 - r$289)))) - fp$124)))) - '())))) - '())))) - r$286)))) - 1 - 1)))) - () - () - ((r$407 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 152 #f #f (152) #f (equal? c$171 #\+) 0 1)))) - ((k$294 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 33 #f #f (28 28 29) #f #f 2 1)))) - () - () - ((k$297 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 32 - #f - #f - (31 31) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(30 - (r$295) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(29 - (tmp$126) - ((if tmp$126 - (k$294 tmp$126) - (char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(28 - (r$296) - ((if r$296 - (char<=? k$294 c$125 #\F) - (k$294 #f))))) - c$125 - #\A))))) - r$295)))) - 1 - 1))) - (r$700 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 489 #f #f (489) #f '() 0 1)))) - ((r$701 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 491 #f #f (491) #f #f 0 0)))) - ((r$702 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 492 #f #f (492) #f #f 0 1)))) - () - ((r$704 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 495 #f #f (495) #f #f 0 0)))) - ((r$705 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 494 #f #f (493) #f #f 0 1)))) - ((r$706 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 493 #f #f (493) #f #f 0 1)))) - () - ((r$708 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 496 #f #f (496) #f (pair? sub$208) 0 0)))) - ((r$709 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 505 #f #f (503) #f '() 0 1)))) - ((fp$141 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (82 63) #f #f 0 2)))) - () - () - () - () - () - ((fp$147 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 101 #f #f (101 98) #f #f 0 2)))) - () - () - () - () - () - () - () - () - () - () - ((r$411 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 172 #f #f (172) #f (read-char fp$175) 0 1)))) - ((r$412 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 170 #f #f (170) #f (eof-object? c$176) 0 0)))) - ((r$413 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 155 #f #f (154) #f #f 0 1)))) - ((r$414 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 154 #f #f (154) #f #f 0 1)))) - ((r$415 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 166 #f #f (166) #f #f 0 0)))) - ((r$416 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 165 #f #f (165) #f (equal? #\n c$176) 0 0)))) - ((r$417 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 161 - #f - #f - (159) - #f - (string-append - "invalid escape character [" - r$420 - "] in string") - 0 - 1)))) - ((r$418 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 160 #f #f (159) #f #f 0 1)))) - ((r$419 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 159 #f #f (159) #f #f 0 1)))) - () - ((r$710 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 504 #f #f (503) #f '() 0 1)))) - ((cons . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (9 - 60 - 64 - 99 - 103 - 158 - 157 - 182 - 194 - 549 - 545 - 510 - 435 - 432 - 588 - 608 - 625) - #f - #f - 17 - 0))) - (r$711 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 503 #f #f (503) #f (+ parens$197 1) 0 1)))) - ((r$712 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 528 #f #f (528) #f (eq? #\\ next-c$205) 0 0)))) - ((r$713 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 509 - #f - #f - (509) - #f - (cons r$715 toks$200) - 0 - 1)))) - ((r$714 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 507 #f #f (507) #f '() 0 1)))) - ((r$715 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 510 #f #f (510) #f #f 0 1)))) - ((r$716 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 527 #f #f (527) #f (eq? #\; next-c$205) 0 0)))) - ((r$717 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 520 #f #f () #f #f 0 0)))) - ((r$718 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 517 #f #f (517) #f #f 0 0)))) - ((r$719 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 514 #f #f () #f #f 0 0)))) - () - () - () - () - () - ((fp$156 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 107 #f #f (106 102) #f #f 0 2)))) - () - () - ((fp$159 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 115 #f #f (115 110 109) #f #f 0 3)))) - () - ((buf$257 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 616 #f #f (615) #f #f 0 1))) - (ptbl$234 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (579 572 570) #f #f 0 3)))) - () - () - () - () - () - ((r$420 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 162 #f #f (162) #f (list->string r$421) 0 1)))) - ((r$421 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 163 #f #f (163) #f #f 0 1)))) - ((r$422 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 169 #f #f (169) #f (equal? #\" c$176) 0 1)))) - () - () - () - () - ((r$427 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 187 #f #f (187) #f (read-char fp$180) 0 1)))) - ((r$428 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 185 #f #f (185) #f (eof-object? c$181) 0 0)))) - ((r$429 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 175 #f #f (174) #f #f 0 1)))) - () - ((r$720 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 512 #f #f (512) #f #f 0 1)))) - ((r$721 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 513 #f #f (513) #f #f 0 1)))) - () - ((r$723 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 518 #f #f (518) #f (null? tok$201) 0 1)))) - ((r$724 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 522 #f #f (521) #f '() 0 1)))) - ((r$725 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 521 #f #f (521) #f '() 0 1)))) - ((r$726 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 525 #f #f (524) #f #f 0 1)))) - ((r$727 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 524 #f #f (524) #f #f 0 1)))) - ((r$728 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 540 #f #f (540) #f (+ 1 r$729) 0 1)))) - ((r$729 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 541 #f #f (541) #f #f 0 1)))) - () - ((fp$162 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 121 #f #f (121 117 116) #f #f 0 3)))) - () - () - ((fp$165 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 123 #f #f (122) #f #f 0 1)))) - () - () - () - () - ((cnum$241 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 585 #f #f (584) #f #f 0 1)))) - () - () - () - () - () - () - ((r$430 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 174 #f #f (174) #f #f 0 1)))) - ((r$431 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 184 #f #f (184) #f (equal? #\\ c$181) 0 0)))) - ((r$432 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 177 #f #f (177) #f #f 0 1)))) - ((r$433 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 183 #f #f (183) #f (equal? #\" c$181) 0 0)))) - ((r$434 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 179 #f #f (179) #f #f 0 1)))) - ((r$435 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 181 #f #f (181) #f (cons c$181 buf$179) 0 1)))) - () - () - () - ((r$439 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 210 #f #f () #f (set! done$187 r$456) 0 0)))) - () - ((r$730 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 544 #f #f (544) #f (cons c$204 tok$201) 0 1)))) - ((r$731 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 550 #f #f (550) #f (eq? c$204 #\|) 0 0)))) - ((r$732 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 548 #f #f (548) #f (cons c$204 tok$201) 0 1)))) - () - ((r$734 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 563 #f #f (563) #f #f 0 0)))) - ((r$735 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 566 #f #f (566) #f (+ 1 r$736) 0 1)))) - ((r$736 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 567 #f #f (567) #f #f 0 1)))) - () - () - () - () - () - () - () - ((fp$175 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 173 #f #f (173) #f #f 0 1)))) - () - () - () - ((ptbl$252 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 610 #f #f (610) #f #f 0 1)))) - ((cnum$251 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 610 #f #f (609) #f #f 0 1))) - (ptbl$253 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 611 #f #f (611) #f #f 0 1)))) - () - ((ptbl$255 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 613 #f #f (613) #f #f 0 1))) - (exact . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (438) #f #f 1 0)))) - ((ptbl$256 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 614 #f #f (614) #f #f 0 1)))) - () - ((ptbl$258 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 616 #f #f (616) #f #f 0 1)))) - ((ptbl$259 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 617 #f #f (617) #f #f 0 1)))) - ((r$440 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 190 #f #f () #f (set! loop$186 r$442) 0 0)))) - ((r$441 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 189 #f #f (189) #f '() 0 1)))) - ((r$442 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 191 - #f - #f - (191) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(209 - (k$443 buf$190) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(208 - (r$444) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(207 - (c$191) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(206 - (r$448) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(205 - (tmp$192) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(204 - (k$449) - ((if tmp$192 - (k$449 tmp$192) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(203 - (k$453) - ((char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(202 - (r$454) - ((if r$454 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(201 - (r$455) - ((k$453 (> r$455 - 0))))) - (length - buf$190)) - (k$453 #f))))) - c$191)))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(200 - (r$450) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(198 - (r$452) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? - c$191 - #\))) - (k$449 #f))))) - (> r$452 - 0))))) - (length - buf$190)))))) - r$450))))))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(196 - (r$445) - ((if r$445 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(192 - () - ((done$187 - k$443 - buf$190))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(195 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(194 - (r$447) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(193 - (r$446) - ((loop$186 - k$443 - r$446)))) - (cons r$447 - buf$190))))) - (read-char - fp$183)))))))))))))) - r$448)))) - (eof-object? c$191))))) - r$444)))) - (peek-char fp$183))))) - 0 - 0)))) - () - ((r$444 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 208 #f #f (208) #f (peek-char fp$183) 0 1)))) - ((r$445 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 196 #f #f (196) #f #f 0 0)))) - ((r$446 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 193 #f #f (193) #f (cons r$447 buf$190) 0 1)))) - ((r$447 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 194 #f #f (194) #f (read-char fp$183) 0 1)))) - ((r$448 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 206 #f #f (206) #f (eof-object? c$191) 0 1)))) - () - () - ((r$740 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 580 #f #f (580) #f (null? tok$239) 0 0)))) - ((r$741 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 570 #f #f (570) #f '() 0 1)))) - ((r$742 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 574 #f #f (572) #f '() 0 1)))) - ((r$743 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 572 #f #f (572) #f #f 0 1)))) - ((cadddr - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (611) #f #f 1 0))) - (r$744 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 573 #f #f (573) #f #f 0 1)))) - ((r$745 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 578 #f #f () #f #f 0 0)))) - ((r$746 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 576 #f #f (576) #f #f 0 1)))) - ((r$747 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 577 #f #f (577) #f #f 0 1)))) - () - ((fp$180 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 188 #f #f (188 181 178 177) #f #f 0 4)))) - () - () - ((fp$183 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 266 #f #f (209 195) #f #f 0 2)))) - () - () - () - ((ptbl$260 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 621 #f #f (621 619) #f #f 0 2)))) - () - () - () - () - () - () - () - () - () - ((r$450 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 200 #f #f (200) #f #f 0 1)))) - ((read . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? -1 #f #f (3 -1) #t cyc-read 0 0))) - (r$451 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 197 #f #f (197) #f (> r$452 0) 0 0)))) - ((r$452 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 198 #f #f (198) #f (length buf$190) 0 1)))) - () - ((r$454 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 202 #f #f (202) #f #f 0 0)))) - ((r$455 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 201 #f #f (201) #f (length buf$190) 0 1)))) - ((r$456 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 211 - #f - #f - (211) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(263 - (k$457 raw-buf$194) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(262 - (r$458) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(261 - (buf$195) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(260 - (r$494) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(259 - (r$459) - ((if r$459 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(214 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(213 - (r$460) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(212 - (r$461) - ((parse-error - k$457 - "missing character" - r$460 - r$461)))) - ptbl$182)))) - ptbl$182))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(258 - (r$493) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(257 - (r$462) - ((if r$462 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(215 - () - ((k$457 (car buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(256 - (r$492) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(255 - (r$463) - ((if r$463 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(216 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(254 - (r$491) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(253 - (r$464) - ((if r$464 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(217 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(252 - (r$490) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(251 - (r$465) - ((if r$465 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(218 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(250 - (r$489) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(249 - (r$466) - ((if r$466 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(219 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(248 - (r$488) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(247 - (r$467) - ((if r$467 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(220 - () - ((k$457 #\newline))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(246 - (r$487) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(245 - (r$468) - ((if r$468 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(221 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(244 - (r$486) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(243 - (r$469) - ((if r$469 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(222 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(242 - (r$485) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(241 - (r$470) - ((if r$470 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(223 - () - ((k$457 #\space))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(240 - (r$484) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(239 - (r$471) - ((if r$471 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(224 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(238 - (k$480) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(237 - (r$483) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(236 - (r$481) - ((if r$481 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(235 - (r$482) - ((k$480 (equal? - r$482 - #\x))))) - (car buf$195)) - (k$480 #f))))) - (> r$483 - 1))))) - (length - buf$195))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(228 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(227 - (r$475) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number - r$474 - 16))))) - (list->string - r$475))))) - (cdr buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(233 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string - buf$195))))))))))))))) - (equal? - buf$195 - r$484))))) - '(#\t - #\a - #\b)))))) - (equal? - buf$195 - r$485))))) - '(#\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$486))))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))))) - (equal? - buf$195 - r$487))))) - '(#\n - #\u - #\l - #\l)))))) - (equal? - buf$195 - r$488))))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))))) - (equal? - buf$195 - r$489))))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))))) - (equal? - buf$195 - r$490))))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))))) - (equal? - buf$195 - r$491))))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$492))))) - '(#\a - #\l - #\a - #\r - #\m)))))) - (= 1 r$493))))) - (length buf$195)))))) - (= 0 r$494))))) - (length buf$195))))) - r$458)))) - raw-buf$194)))) - 0 - 0)))) - () - ((r$458 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 262 #f #f (262) #f #f 0 1)))) - ((r$459 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 259 #f #f (259) #f (= 0 r$494) 0 0)))) - () - () - ((r$751 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 582 - #f - #f - (582) - #f - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243) - 0 - 1)))) - ((r$752 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 584 - #f - #f - (583) - #f - (number->string lnum$242) - 0 - 1)))) - ((r$753 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 583 - #f - #f - (583) - #f - (number->string cnum$241) - 0 - 1)))) - () - () - () - ((r$757 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 595 #f #f (595) #f (null? lst$244) 0 0)))) - ((r$758 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 592 #f #f (592) #f (equal? r$762 r$763) 0 0)))) - ((pair? . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (497 465 383) #f #f 3 0))) - (r$759 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 590 #f #f (588) #f (car lst$244) 0 1)))) - () - () - () - () - () - () - () - () - () - () - ((a$166 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 129 #f #f (129 127 125) #f #f 0 3)))) - ((a$167 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 150 - #f - #f - (150 139 137 131 133 146 144 142) - #f - #f - 0 - 8)))) - () - () - () - () - ((r$460 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 213 #f #f (212) #f #f 0 1)))) - ((r$461 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 212 #f #f (212) #f #f 0 1)))) - ((r$462 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 257 #f #f (257) #f (= 1 r$493) 0 0)))) - ((r$463 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 255 - #f - #f - (255) - #f - (equal? buf$195 r$492) - 0 - 0)))) - ((r$464 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 253 - #f - #f - (253) - #f - (equal? buf$195 r$491) - 0 - 0)))) - ((r$465 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 251 - #f - #f - (251) - #f - (equal? buf$195 r$490) - 0 - 0)))) - ((r$466 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 249 - #f - #f - (249) - #f - (equal? buf$195 r$489) - 0 - 0)))) - ((r$467 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 247 - #f - #f - (247) - #f - (equal? buf$195 r$488) - 0 - 0)))) - ((r$468 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 245 - #f - #f - (245) - #f - (equal? buf$195 r$487) - 0 - 0)))) - ((r$469 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 243 - #f - #f - (243) - #f - (equal? buf$195 r$486) - 0 - 0)))) - () - ((r$760 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 588 #f #f (588) #f #f 0 1)))) - ((r$761 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 589 #f #f (589) #f (cdr lst$244) 0 1)))) - ((r$762 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 594 #f #f (593) #f (car lst$244) 0 1)))) - ((r$763 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 593 #f #f (593) #f (string->symbol ".") 0 1)))) - () - () - () - ((r$767 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 600 #f #f (600) #f (> r$771 2) 0 0)))) - ((r$768 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 598 #f #f (597) #f (cadr r$770) 0 1)))) - ((r$769 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 597 #f #f (597) #f (string->symbol ".") 0 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((r$470 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 241 - #f - #f - (241) - #f - (equal? buf$195 r$485) - 0 - 0)))) - ((r$471 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 239 - #f - #f - (239) - #f - (equal? buf$195 r$484) - 0 - 0)))) - ((r$472 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 234 #f #f (234) #f #f 0 0)))) - ((r$473 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 225 - #f - #f - (225) - #f - (string->number r$474 16) - 0 - 1)))) - ((r$474 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 226 #f #f (226) #f (list->string r$475) 0 1)))) - ((r$475 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 227 #f #f (227) #f (cdr buf$195) 0 1)))) - ((r$476 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 231 - #f - #f - (229) - #f - (string-append - "unable to parse character: " - r$479) - 0 - 1)))) - ((r$477 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 230 #f #f (229) #f #f 0 1)))) - ((r$478 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 229 #f #f (229) #f #f 0 1)))) - ((r$479 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 232 - #f - #f - (232) - #f - (list->string buf$195) - 0 - 1)))) - () - ((r$770 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 599 #f #f (599) #f #f 0 1)))) - ((r$771 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 601 #f #f (601) #f (length lst$245) 0 1)))) - () - () - () - ((r$775 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 603 #f #f (603) #f #f 0 1)))) - () - () - () - ((r$779 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 606 #f #f (606) #f (null? tok$248) 0 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((r$481 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 236 #f #f (236) #f (> r$483 1) 0 0)))) - ((r$482 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 235 #f #f (235) #f (car buf$195) 0 1)))) - ((r$483 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 237 #f #f (237) #f (length buf$195) 0 1)))) - ((r$484 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 240 #f #f (240) #f '(#\t #\a #\b) 0 1)))) - ((r$485 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 242 - #f - #f - (242) - #f - '(#\s #\p #\a #\c #\e) - 0 - 1)))) - ((r$486 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 244 - #f - #f - (244) - #f - '(#\r #\e #\t #\u #\r #\n) - 0 - 1)))) - ((r$487 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 246 #f #f (246) #f '(#\n #\u #\l #\l) 0 1)))) - ((r$488 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 248 - #f - #f - (248) - #f - '(#\n #\e #\w #\l #\i #\n #\e) - 0 - 1)))) - ((r$489 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 250 - #f - #f - (250) - #f - '(#\e #\s #\c #\a #\p #\e) - 0 - 1)))) - () - ((r$780 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 605 #f #f (605) #f #f 0 1)))) - () - () - () - () - () - ((parse . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (20 - 63 - 102 - 548 - 544 - 516 - 521 - 507 - 489 - 503 - 457 - 471 - 434 - 431 - 428 - 415 - 377 - 389 - 341 - 348 - 321 - 330 - 301 - 310 - 284 - 278 - -1 - 572 - 570) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(569 - (k$497 fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(568 - (new-toks$203) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(567 - (r$736) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(566 - (r$735) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args body)) - #(565 - (r$498) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(564 - (k$733) - ((in-port:get-buf - #((record-marker) - #((record-marker) - #f - (id args body)) - #(563 - (r$734) - ((if r$734 - (in-port:read-buf! - k$733 - ptbl$196) - (k$733 (read-char - fp$202)))))) - ptbl$196)))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(562 - (r$499) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(561 - (c$204) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(560 - (r$500) - ((if r$500 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(277 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(276 - (k$506) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(275 - (r$507) - ((if r$507 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(274 - (r$508) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(273 - (r$509) - ((parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)))) - ptbl$196)))) - ptbl$196) - (k$506 #f))))) - (> parens$197 - 0))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(267 - (r$502) - ((reverse - k$497 - r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(271 - (r$503) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(269 - (r$505) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> r$505 - 0))))) - (length - last$232))))) - r$503)))) - tok$201 - toks$200)))))))))) - (if comment?$198 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(286 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(285 - (r$510) - ((if r$510 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(283 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(282 - (r$515) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(281 - (r$514) - ((in-port:set-lnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(280 - (r$511) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(279 - (r$512) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(278 - (r$513) - ((parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - ptbl$196 - 0)))) - ptbl$196 - r$514)))) - (+ 1 - r$515))))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(284 - (r$516) - ((parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - '()))))) - (eq? c$204 - #\newline)))))) - (char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(559 - (r$517) - ((if r$517 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(295 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(294 - (k$522) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(293 - (r$523) - ((if r$523 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(292 - (r$525) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(291 - (r$524) - ((in-port:set-lnum! - k$522 - ptbl$196 - r$524)))) - (+ 1 - r$525))))) - ptbl$196) - (k$522 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(289 - (k$520) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(288 - (r$521) - ((if r$521 - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(558 - (r$526) - ((if r$526 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(296 - () - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(557 - (r$527) - ((if r$527 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(316 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(315 - (k$541) - ((if all?$199 - (k$541 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(314 - (r$542) - ((not k$541 - r$542)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(313 - (r$528) - ((if r$528 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(300 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(312 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(309 - (r$532) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - r$532)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(556 - (r$543) - ((if r$543 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(336 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(335 - (k$557) - ((if all?$199 - (k$557 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(334 - (r$558) - ((not k$557 - r$558)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(333 - (r$544) - ((if r$544 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(320 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(332 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(329 - (r$548) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - r$548)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(555 - (r$559) - ((if r$559 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(372 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(371 - (k$587) - ((if all?$199 - (k$587 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(370 - (r$588) - ((not k$587 - r$588)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(369 - (r$560) - ((if r$560 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(340 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(368 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(363 - (k$584) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(362 - (r$585) - ((if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))))) - (equal? - next-c$226 - #\@))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? - next-c$226 - #\@)))))) - (eof-object? - next-c$226))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 - r$586))))) - (read-char - fp$202))))) - (set! sub$227 - #f))))) - #f - #f - #f - #f)))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(554 - (r$589) - ((if r$589 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(396 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(395 - (k$607) - ((if all?$199 - (k$607 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(394 - (r$608) - ((not k$607 - r$608)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(393 - (r$590) - ((if r$590 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(376 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(392 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(382 - (r$603) - ((if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))))) - (pair? sub$222))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(553 - (r$609) - ((if r$609 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(410 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(409 - (k$618) - ((if all?$199 - (k$618 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(408 - (r$619) - ((not k$618 - r$619)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(407 - (r$610) - ((if r$610 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(400 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(406 - (r$614) - ((if r$614 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(403 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(405 - () - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(404 - (r$617) - ((reverse - k$497 - r$617)))) - tok$201 - toks$200))))))))) - (= parens$197 - 0))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(552 - (r$620) - ((if r$620 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(427 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(426 - (k$631) - ((if all?$199 - (k$631 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(425 - (r$632) - ((not k$631 - r$632)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(424 - (r$621) - ((if r$621 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(414 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(423 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(419 - (str$219 - toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(551 - (r$633) - ((if r$633 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(546 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(545 - (r$634) - ((if r$634 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(543 - (r$635) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(542 - (next-c$205) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(541 - (r$729) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(540 - (r$728) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(539 - (r$636) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(538 - (r$637) - ((if r$637 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(430 - () - ((read-block-comment - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(429 - (r$638) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(428 - (r$639) - ((parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(537 - (r$640) - ((if r$640 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(433 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(432 - (r$641) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(431 - (r$642) - ((parse k$497 - fp$202 - r$641 - r$642 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #t - toks$200))))) - '()) - (k$497 #t)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(536 - (r$643) - ((if r$643 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(436 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(435 - (r$644) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(434 - (r$645) - ((parse k$497 - fp$202 - r$644 - r$645 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #f - toks$200))))) - '()) - (k$497 #f)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(535 - (r$646) - ((if r$646 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(440 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(437 - (r$647) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(438 - (r$649) - ((exact k$648 - r$649)))) - num$217))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(534 - (r$650) - ((if r$650 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(444 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(441 - (r$651) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(442 - (r$653) - ((inexact - k$652 - r$653)))) - num$216))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(533 - (r$654) - ((if r$654 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(448 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(445 - (r$655) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(446 - (r$657) - ((k$656 (string->number - r$657 - 2))))) - (list->string - num$215)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(532 - (r$658) - ((if r$658 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(452 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(449 - (r$659) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(450 - (r$661) - ((k$660 (string->number - r$661 - 8))))) - (list->string - num$214)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(531 - (r$662) - ((if r$662 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(456 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(453 - (r$663) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(454 - (r$665) - ((k$664 (string->number - r$665 - 16))))) - (list->string - num$213)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(530 - (r$666) - ((if r$666 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(488 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(487 - (r$695) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(486 - (r$667) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(485 - (k$691) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(484 - (r$692) - ((if r$692 - (k$691 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(483 - (r$693) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(482 - (r$694) - ((parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\8 - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(478 - (k$686) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(477 - (r$687) - ((if r$687 - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\( - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))) - (set! next-c$205 - r$690))))) - (read-char - fp$202))))))))) - (set! next-c$205 - r$695))))) - (read-char - fp$202)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(529 - (r$696) - ((if r$696 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(506 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(505 - (r$709) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(504 - (r$710) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(503 - (r$711) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(502 - (r$697) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(501 - (r$698) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(500 - (sub$208 - toks*$207) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(499 - (new-toks$209) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(498 - (k$703) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(497 - (k$707) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(496 - (r$708) - ((if r$708 - (dotted? - k$707 - sub$208) - (k$707 #f))))) - (pair? sub$208))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector - sub$208)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 - r$701))))) - r$702 - toks*$207)))))))) - #f)))) - r$697 - r$698)))) - tok$201 - toks$200)))) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(528 - (r$712) - ((if r$712 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(511 - () - ((read-pound - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(510 - (r$715) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(509 - (r$713) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(508 - (new-toks$206) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(507 - (r$714) - ((parse k$497 - fp$202 - r$714 - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$206)))))) - r$713)))) - (cons r$715 - toks$200))))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(527 - (r$716) - ((if r$716 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(523 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(522 - (r$724) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(521 - (r$725) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(520 - (r$717) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(519 - (k$722) - ((if all?$199 - (k$722 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(518 - (r$723) - ((not k$722 - r$723)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(517 - (r$718) - ((if r$718 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(515 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(516 - () - ((parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(526 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(525 - (r$726) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(524 - (r$727) - ((parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)))) - ptbl$196)))) - ptbl$196))))))))) - (eq? #\; - next-c$205)))))) - (eq? #\\ - next-c$205)))))) - (eq? #\( - next-c$205)))))) - (eq? #\u - next-c$205)))))) - (eq? #\x - next-c$205)))))) - (eq? #\o - next-c$205)))))) - (eq? #\b - next-c$205)))))) - (eq? #\i - next-c$205)))))) - (eq? #\e - next-c$205)))))) - (eq? #\f - next-c$205)))))) - (eq? #\t - next-c$205)))))) - (eq? #\| - next-c$205))))) - ptbl$196 - r$728)))) - (+ 1 - r$729))))) - ptbl$196)))) - r$635)))) - (read-char - fp$202)) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(544 - (r$730) - ((parse k$497 - fp$202 - r$730 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))) - (null? tok$201)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(550 - (r$731) - ((if r$731 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(547 - () - ((parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(549 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(548 - (r$732) - ((parse k$497 - fp$202 - r$732 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))))))) - (eq? c$204 - #\|)))))) - (eq? c$204 - #\#)))))) - (eq? c$204 - #\")))))) - (eq? c$204 - #\))))))) - (eq? c$204 - #\()))))) - (eq? c$204 - #\,)))))) - (eq? c$204 - #\`)))))) - (eq? c$204 - #\')))))) - (eq? c$204 - #\;)))))) - c$204)))))) - (eof-object? - c$204))))) - r$499)))))))) - ptbl$196 - r$735)))) - (+ 1 r$736))))) - ptbl$196)))) - #f))))) - 28 - 0)))) - ((r$787 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 609 #f #f (609) #f (cdddr ptbl$252) 0 1)))) - () - () - () - () - () - () - ((+ . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (567 541 504 472 390 292 282) - #f - #f - 7 - 0)))) - () - () - () - () - () - () - () - () - () - () - () - ((r$490 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 252 - #f - #f - (252) - #f - '(#\d #\e #\l #\e #\t #\e) - 0 - 1)))) - ((r$491 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 254 - #f - #f - (254) - #f - '(#\b #\a #\c #\k #\s #\p #\a #\c #\e) - 0 - 1)))) - ((r$492 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 256 - #f - #f - (256) - #f - '(#\a #\l #\a #\r #\m) - 0 - 1)))) - ((r$493 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 258 #f #f (258) #f (length buf$195) 0 1)))) - ((r$494 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 260 #f #f (260) #f (length buf$195) 0 1)))) - () - ((= . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (53 41 45 74 260 258 407) #f #f 7 0)))) - ((> . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (75 138 145 237 198 201 269 276 601) - #f - #f - 9 - 0)))) - ((r$498 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 565 #f #f () #f #f 0 0)))) - ((r$499 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 562 #f #f (562) #f #f 0 1)))) - () - () - () - () - () - ((r$794 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 612 #f #f (612) #f (cddr ptbl$255) 0 1)))) - () - () - () - () - () - () - () - () - () - () - ((assoc . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (630) #f #f 1 0)))) - () - () - () - () - () - () - () - ((k$406 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 153 #f #f (151 151) #f #f 2 0)))) - () - () - () - () - () - () - () - ((k$703 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 498 - #f - #f - (495 493) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) #f (id args body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 r$701))))) - r$702 - toks*$207)))) - 1 - 1)))) - () - () - () - ((k$707 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 497 - #f - #f - (496 496) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector sub$208)))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$410 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 173 #f #f (159 158 157 154) #f #f 2 2)))) - () - () - () - () - () - () - () - () - ((cdddr . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (610) #f #f 1 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$423 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 167 - #f - #f - (167 167) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(166 - (r$415) - ((if r$415 - (#((record-marker) - #((record-marker) #f (id args body)) - #(157 () ((k$410 (cons c$176 buf$174)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(165 - (r$416) - ((if r$416 - (#((record-marker) - #((record-marker) #f (id args body)) - #(158 - () - ((k$410 (cons #\newline buf$174)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(164 - () - ((list #((record-marker) - #((record-marker) - #f - (id args body)) - #(163 - (r$421) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(162 - (r$420) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(161 - (r$417) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(160 - (r$418) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(159 - (r$419) - ((parse-error - k$410 - r$417 - r$418 - r$419)))) - ptbl$173)))) - ptbl$173)))) - (string-append - "invalid escape character [" - r$420 - "] in string"))))) - (list->string r$421))))) - c$176))))))))) - (equal? #\n c$176)))))) - 2 - 0)))) - () - () - ((k$426 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 188 #f #f (181 179 177 174) #f #f 1 3)))) - () - () - () - () - () - () - ((k$722 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 519 - #f - #f - (518 519) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(517 - (r$718) - ((if r$718 - (#((record-marker) - #((record-marker) #f (id args body)) - #(515 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(516 - () - ((parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$438 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 266 #f #f (189) #f #f 0 1)))) - () - () - () - () - () - ((k$733 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 564 - #f - #f - (563 563) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(562 - (r$499) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(561 - (c$204) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(560 - (r$500) - ((if r$500 - (#((record-marker) - #((record-marker) #f (id args body)) - #(277 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(276 - (k$506) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(275 - (r$507) - ((if r$507 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(274 - (r$508) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(273 - (r$509) - ((parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)))) - ptbl$196)))) - ptbl$196) - (k$506 #f))))) - (> parens$197 0))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) - #f - (id args body)) - #(267 - (r$502) - ((reverse - k$497 - r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args body)) - #(271 - (r$503) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(269 - (r$505) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> r$505 - 0))))) - (length - last$232))))) - r$503)))) - tok$201 - toks$200)))))))))) - (if comment?$198 - (#((record-marker) - #((record-marker) #f (id args body)) - #(286 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(285 - (r$510) - ((if r$510 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(283 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(282 - (r$515) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(281 - (r$514) - ((in-port:set-lnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(280 - (r$511) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(279 - (r$512) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(278 - (r$513) - ((parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - ptbl$196 - 0)))) - ptbl$196 - r$514)))) - (+ 1 - r$515))))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(284 - (r$516) - ((parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - '()))))) - (eq? c$204 #\newline)))))) - (char-whitespace? - #((record-marker) - #((record-marker) #f (id args body)) - #(559 - (r$517) - ((if r$517 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(295 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(294 - (k$522) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(293 - (r$523) - ((if r$523 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(292 - (r$525) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(291 - (r$524) - ((in-port:set-lnum! - k$522 - ptbl$196 - r$524)))) - (+ 1 - r$525))))) - ptbl$196) - (k$522 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(289 - (k$520) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(288 - (r$521) - ((if r$521 - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(558 - (r$526) - ((if r$526 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(296 - () - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(557 - (r$527) - ((if r$527 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(316 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(315 - (k$541) - ((if all?$199 - (k$541 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(314 - (r$542) - ((not k$541 - r$542)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(313 - (r$528) - ((if r$528 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(300 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(312 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(309 - (r$532) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - r$532)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(556 - (r$543) - ((if r$543 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(336 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(335 - (k$557) - ((if all?$199 - (k$557 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(334 - (r$558) - ((not k$557 - r$558)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(333 - (r$544) - ((if r$544 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(320 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(332 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(329 - (r$548) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - r$548)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(555 - (r$559) - ((if r$559 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(372 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(371 - (k$587) - ((if all?$199 - (k$587 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(370 - (r$588) - ((not k$587 - r$588)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(369 - (r$560) - ((if r$560 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(340 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(368 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(363 - (k$584) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(362 - (r$585) - ((if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))))) - (equal? - next-c$226 - #\@))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? - next-c$226 - #\@)))))) - (eof-object? - next-c$226))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 - r$586))))) - (read-char - fp$202))))) - (set! sub$227 - #f))))) - #f - #f - #f - #f)))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(554 - (r$589) - ((if r$589 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(396 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(395 - (k$607) - ((if all?$199 - (k$607 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(394 - (r$608) - ((not k$607 - r$608)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(393 - (r$590) - ((if r$590 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(376 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(392 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(382 - (r$603) - ((if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))))) - (pair? sub$222))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(553 - (r$609) - ((if r$609 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(410 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(409 - (k$618) - ((if all?$199 - (k$618 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(408 - (r$619) - ((not k$618 - r$619)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(407 - (r$610) - ((if r$610 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(400 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(406 - (r$614) - ((if r$614 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(403 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(405 - () - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(404 - (r$617) - ((reverse - k$497 - r$617)))) - tok$201 - toks$200))))))))) - (= parens$197 - 0))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(552 - (r$620) - ((if r$620 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(427 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(426 - (k$631) - ((if all?$199 - (k$631 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(425 - (r$632) - ((not k$631 - r$632)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(424 - (r$621) - ((if r$621 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(414 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(423 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(419 - (str$219 - toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(551 - (r$633) - ((if r$633 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(546 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(545 - (r$634) - ((if r$634 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(543 - (r$635) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(542 - (next-c$205) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(541 - (r$729) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(540 - (r$728) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(539 - (r$636) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(538 - (r$637) - ((if r$637 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(430 - () - ((read-block-comment - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(429 - (r$638) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(428 - (r$639) - ((parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(537 - (r$640) - ((if r$640 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(433 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(432 - (r$641) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(431 - (r$642) - ((parse k$497 - fp$202 - r$641 - r$642 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #t - toks$200))))) - '()) - (k$497 #t)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(536 - (r$643) - ((if r$643 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(436 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(435 - (r$644) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(434 - (r$645) - ((parse k$497 - fp$202 - r$644 - r$645 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #f - toks$200))))) - '()) - (k$497 #f)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(535 - (r$646) - ((if r$646 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(440 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(437 - (r$647) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(438 - (r$649) - ((exact k$648 - r$649)))) - num$217))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(534 - (r$650) - ((if r$650 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(444 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(441 - (r$651) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(442 - (r$653) - ((inexact - k$652 - r$653)))) - num$216))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(533 - (r$654) - ((if r$654 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(448 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(445 - (r$655) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(446 - (r$657) - ((k$656 (string->number - r$657 - 2))))) - (list->string - num$215)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(532 - (r$658) - ((if r$658 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(452 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(449 - (r$659) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(450 - (r$661) - ((k$660 (string->number - r$661 - 8))))) - (list->string - num$214)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(531 - (r$662) - ((if r$662 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(456 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(453 - (r$663) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(454 - (r$665) - ((k$664 (string->number - r$665 - 16))))) - (list->string - num$213)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(530 - (r$666) - ((if r$666 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(488 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(487 - (r$695) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(486 - (r$667) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(485 - (k$691) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(484 - (r$692) - ((if r$692 - (k$691 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(483 - (r$693) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(482 - (r$694) - ((parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\8 - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(478 - (k$686) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(477 - (r$687) - ((if r$687 - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\( - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))) - (set! next-c$205 - r$690))))) - (read-char - fp$202))))))))) - (set! next-c$205 - r$695))))) - (read-char - fp$202)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(529 - (r$696) - ((if r$696 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(506 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(505 - (r$709) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(504 - (r$710) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(503 - (r$711) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(502 - (r$697) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(501 - (r$698) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(500 - (sub$208 - toks*$207) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(499 - (new-toks$209) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(498 - (k$703) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(497 - (k$707) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(496 - (r$708) - ((if r$708 - (dotted? - k$707 - sub$208) - (k$707 #f))))) - (pair? sub$208))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector - sub$208)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 - r$701))))) - r$702 - toks*$207)))))))) - #f)))) - r$697 - r$698)))) - tok$201 - toks$200)))) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(528 - (r$712) - ((if r$712 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(511 - () - ((read-pound - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(510 - (r$715) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(509 - (r$713) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(508 - (new-toks$206) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(507 - (r$714) - ((parse k$497 - fp$202 - r$714 - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$206)))))) - r$713)))) - (cons r$715 - toks$200))))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(527 - (r$716) - ((if r$716 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(523 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(522 - (r$724) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(521 - (r$725) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(520 - (r$717) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(519 - (k$722) - ((if all?$199 - (k$722 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(518 - (r$723) - ((not k$722 - r$723)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(517 - (r$718) - ((if r$718 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(515 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(516 - () - ((parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(526 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(525 - (r$726) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(524 - (r$727) - ((parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)))) - ptbl$196)))) - ptbl$196))))))))) - (eq? #\; - next-c$205)))))) - (eq? #\\ - next-c$205)))))) - (eq? #\( - next-c$205)))))) - (eq? #\u - next-c$205)))))) - (eq? #\x - next-c$205)))))) - (eq? #\o - next-c$205)))))) - (eq? #\b - next-c$205)))))) - (eq? #\i - next-c$205)))))) - (eq? #\e - next-c$205)))))) - (eq? #\f - next-c$205)))))) - (eq? #\t - next-c$205)))))) - (eq? #\| - next-c$205))))) - ptbl$196 - r$728)))) - (+ 1 - r$729))))) - ptbl$196)))) - r$635)))) - (read-char - fp$202)) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(544 - (r$730) - ((parse k$497 - fp$202 - r$730 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))) - (null? tok$201)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(550 - (r$731) - ((if r$731 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(547 - () - ((parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(549 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(548 - (r$732) - ((parse k$497 - fp$202 - r$732 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))))))) - (eq? c$204 - #\|)))))) - (eq? c$204 - #\#)))))) - (eq? c$204 - #\")))))) - (eq? c$204 - #\))))))) - (eq? c$204 - #\()))))) - (eq? c$204 - #\,)))))) - (eq? c$204 - #\`)))))) - (eq? c$204 #\')))))) - (eq? c$204 #\;)))))) - c$204)))))) - (eof-object? c$204))))) - r$499)))) - 1 - 1)))) - () - () - () - () - () - ((k$739 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (576 572 570) #f #f 1 2)))) - () - () - () - () - () - () - () - ((equal? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (153 - 151 - 170 - 166 - 167 - 185 - 184 - 256 - 254 - 252 - 250 - 248 - 246 - 244 - 242 - 240 - 235 - 197 - 357 - 363 - 289 - 294 - 593 - 597) - #f - #f - 24 - 0)))) - () - () - () - () - () - () - () - () - () - () - () - ((k$443 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 209 #f #f (193 192) #f #f 0 2)))) - () - () - () - ((error . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (582) #f #f 1 0)))) - () - ((k$449 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 204 - #f - #f - (197 197 199 204) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(196 - (r$445) - ((if r$445 - (#((record-marker) - #((record-marker) #f (id args body)) - #(192 () ((done$187 k$443 buf$190))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(195 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(194 - (r$447) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(193 (r$446) ((loop$186 k$443 r$446)))) - (cons r$447 buf$190))))) - (read-char fp$183)))))))))) - 4 - 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((c$125 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 33 #f #f (29 28 32 31) #f #f 0 4))) - (k$453 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 203 - #f - #f - (202 201) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(200 - (r$450) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) #f (id args body)) - #(198 - (r$452) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? c$191 #\))) - (k$449 #f))))) - (> r$452 0))))) - (length buf$190)))))) - r$450)))) - 2 - 0)))) - () - () - () - ((k$457 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 263 - #f - #f - (229 - 225 - 224 - 223 - 222 - 221 - 220 - 219 - 218 - 217 - 216 - 215 - 212) - #f - #f - 11 - 2)))) - () - () - () - ((k$750 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 585 #f #f (582) #f #f 0 1)))) - () - () - () - () - () - ((k$756 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 596 #f #f (588 587 586) #f #f 3 0)))) - () - () - ((char>=? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (29 32) #f #f 2 0)))) - () - () - () - () - () - () - () - () - () - ((car . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (16 - 25 - 73 - 150 - 131 - 144 - 236 - 215 - 512 - 508 - 490 - 458 - 416 - 411 - 397 - 378 - 373 - 342 - 337 - 322 - 317 - 302 - 297 - 268 - 576 - 595 - 591) - #f - #f - 27 - 0)))) - () - () - () - () - () - ((c$131 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 60 #f #f (60) #f #f 0 1)))) - () - ((c$133 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 57 - #f - #f - (57 56 55 50 48 52 36 40 44 35 34) - #f - r$302 - 0 - 11)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$766 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 602 #f #f (600 597) #f #f 2 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((c$148 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 99 #f #f (99) #f #f 0 1)))) - () - () - () - () - () - () - () - () - ((k$774 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 604 #f #f (603) #f #f 0 1)))) - () - () - () - ((k$778 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 607 #f #f (605 606) #f #f 1 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((c$150 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 96 #f #f (96 95 93) #f r$344 0 3)))) - () - ((k$480 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 238 - #f - #f - (236 235) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) #f (id args body)) - #(228 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(227 - (r$475) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number r$474 16))))) - (list->string r$475))))) - (cdr buf$195)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(233 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string buf$195)))))))))) - 2 - 0)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$783 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 608 #f #f (608) #f #f 1 0)))) - () - () - ((k$786 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 610 #f #f (609) #f #f 1 0)))) - () - () - () - () - ((dotted? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (496 464 382 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(602 - (k$766 lst$245) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(601 - (r$771) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(600 - (r$767) - ((if r$767 - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(599 - (r$770) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(598 - (r$768) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(597 - (r$769) - ((k$766 (equal? - r$768 - r$769))))) - (string->symbol "."))))) - (cadr r$770))))) - lst$245) - (k$766 #f))))) - (> r$771 2))))) - (length lst$245)))))) - 3 - 0)))) - () - ((r$302 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 61 #f #f (58) #f #f 0 1)))) - ((r$303 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 58 - #f - #f - (58) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(60 - (k$321 c$131) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(59 - (r$322) - ((parse-number-rec - k$321 - base$130 - fp$129 - r$322 - ptbl$127)))) - (cons c$131 tok$128))))) - 0 - 1)))) - ((r$304 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 56 #f #f (56) #f #f 0 0)))) - ((r$305 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 55 #f #f (55) #f (eq? #\. c$133) 0 0)))) - ((r$306 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 54 #f #f (54) #f #f 0 0)))) - ((r$307 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 36 #f #f () #f #f 0 0)))) - ((cdr . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (228 590 616) #f #f 3 0)))) - ((r$309 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 39 #f #f (39) #f #f 0 0)))) - () - () - ((r$601 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 381 #f #f (381) #f #f 0 0)))) - ((c$160 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 113 #f #f (113 112) #f r$366 0 2)))) - ((r$603 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 382 #f #f (382) #f (pair? sub$222) 0 0)))) - ((r$604 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 391 #f #f (389) #f '() 0 1)))) - ((c$163 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 119 #f #f (119) #f r$372 0 1))) - (r$605 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 390 #f #f (389) #f '() 0 1)))) - ((r$606 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 389 #f #f (389) #f (+ parens$197 1) 0 1)))) - () - ((r$608 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 394 #f #f (394) #f (null? tok$201) 0 1)))) - ((r$609 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 553 #f #f (553) #f (eq? c$204 #\)) 0 0)))) - () - ((k$497 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (548 - 547 - 544 - 524 - 516 - 512 - 508 - 507 - 490 - 489 - 458 - 457 - 453 - 449 - 445 - 441 - 437 - 436 - 434 - 433 - 431 - 428 - 416 - 415 - 411 - 404 - 401 - 397 - 378 - 377 - 373 - 342 - 341 - 337 - 322 - 321 - 317 - 302 - 301 - 297 - 296 - 287 - 284 - 278 - 268 - 268 - 267) - #f - #f - 19 - 28)))) - () - () - () - ((k$790 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 611 #f #f (611) #f #f 1 0)))) - () - () - ((k$793 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 613 #f #f (612) #f #f 1 0)))) - () - () - () - ((k$797 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 614 #f #f (614) #f #f 1 0)))) - ((ptbl$127 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 62 #f #f (62 59 50 39 38) #f #f 0 5)))) - () - () - ((r$310 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 38 #f #f (37) #f #f 0 1)))) - ((r$311 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 37 #f #f (37) #f #f 0 1)))) - ((r$312 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 43 #f #f (43) #f #f 0 1))) - (length - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (76 139 146 261 259 238 199 202 270 602) - #f - #f - 10 - 0)))) - () - ((r$314 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 40 #f #f (40) #f (= base$130 8) 0 0))) - (char>? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (40 44) #f #f 2 0)))) - () - ((r$316 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 44 #f #f (44) #f (= base$130 2) 0 0)))) - ((r$317 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 51 #f #f (51) #f #f 0 0)))) - ((r$318 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 49 #f #f () #f #f 0 0)))) - () - () - ((r$610 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 407 #f #f (407) #f #f 0 0)))) - ((r$611 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 399 #f #f () #f #f 0 0)))) - ((r$612 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 397 #f #f (397) #f #f 0 1)))) - ((r$613 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 398 #f #f (398) #f #f 0 1))) - (c$171 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 153 #f #f (153 151) #f #f 0 2)))) - ((r$614 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 406 #f #f (406) #f (= parens$197 0) 0 0)))) - ((r$615 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 402 #f #f (401) #f #f 0 1)))) - ((r$616 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 401 #f #f (401) #f #f 0 1)))) - ((r$617 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 404 #f #f (404) #f #f 0 1)))) - ((c$176 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 171 - #f - #f - (171 170 166 164 157 167) - #f - r$411 - 0 - 6)))) - ((r$619 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 408 #f #f (408) #f (null? tok$201) 0 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - ((ptbl$137 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (82 70 69 63) #f #f 0 4)))) - () - () - ((r$320 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 52 #f #f (52) #f (= base$130 16) 0 0)))) - () - ((r$322 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 59 #f #f (59) #f (cons c$131 tok$128) 0 1)))) - () - () - () - ((r$326 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 81 #f #f (81) #f #f 0 1)))) - ((r$327 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 71 #f #f (71) #f #f 0 0)))) - ((r$328 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 66 #f #f (66) #f #f 0 1)))) - ((r$329 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 64 #f #f (63) #f '() 0 1)))) - () - ((r$620 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 552 #f #f (552) #f (eq? c$204 #\") 0 0)))) - ((r$621 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 424 #f #f (424) #f #f 0 0)))) - ((r$622 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 413 #f #f () #f #f 0 0)))) - ((r$623 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 411 #f #f (411) #f #f 0 1))) - (c$181 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 186 #f #f (186 185 184 182) #f r$427 0 4)))) - ((r$624 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 412 #f #f (412) #f #f 0 1)))) - ((r$625 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 421 #f #f (420) #f #f 0 1)))) - ((r$626 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 420 #f #f (420) #f #f 0 1)))) - ((r$627 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 416 - #f - #f - () - #f - (set! new-toks$220 r$629) - 0 - 0)))) - ((r$628 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 415 #f #f (415) #f '() 0 1)))) - ((r$629 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 417 #f #f (417) #f #f 0 0)))) - () - () - ((cyc-read - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (3 12 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(27 - (k$285 . args$123) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(26 - (k$290) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(25 - (r$291) - ((if r$291 - (current-input-port k$290) - (k$290 (car args$123)))))) - (null? args$123))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(24 - (r$286) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(23 - (fp$124) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(22 - (r$287) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(21 - (r$288) - ((reg-port - #((record-marker) - #((record-marker) - #f - (id args body)) - #(20 - (r$289) - ((parse k$285 - fp$124 - r$287 - r$288 - #f - #f - 0 - r$289)))) - fp$124)))) - '())))) - '())))) - r$286))))))))) - 1 - 0)))) - () - () - () - () - () - () - () - () - ((ptbl$145 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 101 #f #f (101 98 92 91) #f #f 0 4)))) - () - () - () - () - ((r$330 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 63 - #f - #f - (63) - #f - (cons result$143 toks$140) - 0 - 1)))) - ((r$331 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 69 #f #f (68) #f #f 0 1)))) - ((r$332 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 68 #f #f (68) #f #f 0 1)))) - () - ((r$334 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 78 #f #f (78) #f (null? num$142) 0 0)))) - ((r$335 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 77 #f #f (77) #f #f 0 1)))) - ((r$336 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 74 #f #f (74) #f (> r$339 0) 0 0)))) - ((r$337 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 73 #f #f (73) #f (= base$136 16) 0 0)))) - ((r$338 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 72 #f #f (72) #f (car num$142) 0 1)))) - ((r$339 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 75 #f #f (75) #f (length num$142) 0 1)))) - () - ((r$630 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 422 #f #f (422) #f '() 0 1)))) - () - ((r$632 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 425 #f #f (425) #f (null? tok$201) 0 1)))) - ((r$633 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 551 #f #f (551) #f (eq? c$204 #\#) 0 0))) - (c$191 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 207 #f #f (207 197 203) #f r$444 0 3)))) - ((r$634 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 545 #f #f (545) #f (null? tok$201) 0 0)))) - ((r$635 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 543 #f #f (543) #f (read-char fp$202) 0 1)))) - ((r$636 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 539 #f #f () #f #f 0 0)))) - ((r$637 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 538 #f #f (538) #f (eq? #\| next-c$205) 0 0)))) - ((r$638 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 429 #f #f () #f #f 0 0)))) - ((r$639 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 428 #f #f (428) #f '() 0 1)))) - () - () - () - () - () - () - () - ((buf$174 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 173 #f #f (158 157) #f #f 0 2)))) - ((ptbl$152 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 107 #f #f (106 102) #f #f 0 2)))) - () - () - () - ((buf$179 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 188 #f #f (182 180 178) #f #f 0 3)))) - () - ((ptbl$158 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 115 #f #f (115 110 109) #f #f 0 3)))) - () - ((r$340 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 82 #f #f (82) #f '() 0 1)))) - () - () - () - ((r$344 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 100 #f #f (97) #f #f 0 1)))) - ((r$345 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 97 - #f - #f - (97) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(99 - (k$354 c$148) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(98 - (r$355) - ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) - (cons c$148 tok$146))))) - 0 - 1)))) - ((r$346 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 95 #f #f (95) #f (eq? #\| c$150) 0 0)))) - ((r$347 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 85 #f #f (85) #f #f 0 1)))) - () - ((r$349 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 87 #f #f (87) #f (null? tok$146) 0 0)))) - () - ((r$640 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 537 #f #f (537) #f (eq? #\t next-c$205) 0 0)))) - ((r$641 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 432 #f #f (431) #f '() 0 1)))) - ((r$642 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 431 #f #f (431) #f (cons #t toks$200) 0 1)))) - ((r$643 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 536 #f #f (536) #f (eq? #\f next-c$205) 0 0)))) - ((r$644 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 435 #f #f (434) #f '() 0 1)))) - ((r$645 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 434 #f #f (434) #f (cons #f toks$200) 0 1)))) - ((r$646 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 535 #f #f (535) #f (eq? #\e next-c$205) 0 0)))) - ((r$647 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 437 - #f - #f - (437) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) #f (id args body)) - #(438 (r$649) ((exact k$648 r$649)))) - num$217)))) - 0 - 1)))) - () - ((r$649 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 438 #f #f (438) #f #f 0 1)))) - () - () - () - () - () - () - () - ((ptbl$161 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 121 #f #f (121 117 116) #f #f 0 3)))) - () - () - ((ptbl$164 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 123 #f #f (123 122) #f #f 0 2)))) - () - ((null? . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (17 - 26 - 79 - 88 - 546 - 519 - 426 - 409 - 395 - 371 - 335 - 315 - 581 - 596 - 607) - #f - #f - 15 - 0)))) - () - () - () - ((r$350 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 86 #f #f (86) #f #f 0 1)))) - ((r$351 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 94 #f #f (94) #f (eof-object? c$150) 0 0)))) - ((r$352 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 91 #f #f (90) #f #f 0 1)))) - ((r$353 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 90 #f #f (90) #f #f 0 1)))) - () - ((r$355 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 98 #f #f (98) #f (cons c$148 tok$146) 0 1)))) - () - () - () - ((r$359 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 105 #f #f (105) #f #f 0 1)))) - () - ((r$650 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 534 #f #f (534) #f (eq? #\i next-c$205) 0 0)))) - ((r$651 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 441 - #f - #f - (441) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) #f (id args body)) - #(442 (r$653) ((inexact k$652 r$653)))) - num$216)))) - 0 - 1)))) - () - ((r$653 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 442 #f #f (442) #f #f 0 1)))) - ((r$654 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 533 #f #f (533) #f (eq? #\b next-c$205) 0 0)))) - ((r$655 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 445 - #f - #f - (445) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(446 (r$657) ((k$656 (string->number r$657 2))))) - (list->string num$215))))) - 0 - 1)))) - () - ((r$657 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 446 - #f - #f - (446) - #f - (list->string num$215) - 0 - 1)))) - ((r$658 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 532 #f #f (532) #f (eq? #\o next-c$205) 0 0)))) - ((r$659 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 449 - #f - #f - (449) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(450 (r$661) ((k$660 (string->number r$661 8))))) - (list->string num$214))))) - 0 - 1)))) - () - () - () - ((buf$190 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 209 #f #f (194 192 199 202) #f #f 0 4)))) - () - () - () - () - ((buf$195 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 261 - #f - #f - (261 - 259 - 256 - 254 - 252 - 250 - 248 - 246 - 244 - 242 - 240 - 233 - 228 - 238 - 236 - 215) - #f - r$458 - 0 - 16)))) - ((ptbl$173 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 173 #f #f (161 160 156 155) #f #f 0 4)))) - () - () - () - () - ((ptbl$178 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 188 #f #f (181 178 177 176 175) #f #f 0 5)))) - () - ((r$360 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 103 #f #f (102) #f '() 0 1)))) - ((r$361 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 102 - #f - #f - (102) - #f - (cons sym$157 toks$155) - 0 - 1)))) - ((r$362 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 106 #f #f (106) #f '() 0 1)))) - () - () - () - ((r$366 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 114 #f #f (114) #f #f 0 1)))) - ((r$367 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 112 #f #f (112) #f (eq? #\# c$160) 0 0)))) - ((r$368 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 111 #f #f (111) #f (eq? #\| c$160) 0 0)))) - () - () - () - ((r$661 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 450 - #f - #f - (450) - #f - (list->string num$214) - 0 - 1)))) - ((r$662 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 531 #f #f (531) #f (eq? #\x next-c$205) 0 0)))) - ((r$663 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 453 - #f - #f - (453) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(454 - (r$665) - ((k$664 (string->number r$665 16))))) - (list->string num$213))))) - 0 - 1)))) - () - ((r$665 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 454 - #f - #f - (454) - #f - (list->string num$213) - 0 - 1)))) - ((r$666 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 530 #f #f (530) #f (eq? #\u next-c$205) 0 0)))) - ((r$667 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 486 #f #f () #f (set! next-c$205 r$695) 0 0)))) - ((r$668 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 481 #f #f () #f #f 0 0)))) - ((r$669 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 479 #f #f () #f (set! next-c$205 r$690) 0 0)))) - () - () - () - () - () - () - () - () - ((ptbl$182 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 266 #f #f (231 230 214 213) #f #f 0 4)))) - () - () - () - () - () - () - () - () - () - ((r$372 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 120 #f #f (120) #f #f 0 1)))) - ((r$373 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 118 #f #f (118) #f (eq? #\| c$163) 0 0)))) - () - () - () - ((r$377 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 122 #f #f (122) #f #f 0 0)))) - () - () - () - ((r$670 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 474 #f #f () #f #f 0 0)))) - ((r$671 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 470 #f #f (469) #f #f 0 1)))) - ((r$672 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 469 #f #f (469) #f #f 0 1)))) - ((r$673 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 458 - #f - #f - () - #f - (set! new-toks$212 r$675) - 0 - 0)))) - ((r$674 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 457 #f #f (457) #f '() 0 1)))) - ((r$675 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 459 #f #f (459) #f #f 0 0)))) - ((r$676 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 460 #f #f (460) #f #f 0 1)))) - () - ((r$678 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 463 #f #f (463) #f #f 0 0)))) - ((r$679 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 462 #f #f (461) #f #f 0 1)))) - () - () - () - () - () - ((add-tok - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (513 - 492 - 460 - 418 - 412 - 398 - 380 - 374 - 344 - 338 - 324 - 318 - 304 - 298 - 577 - 573 - 605 - -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(608 - (k$783 tok$250 toks$249) - ((k$783 (cons tok$250 toks$249)))))) - 17 - 0)))) - () - () - () - () - () - () - ((ptbl$196 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (568 - 566 - 548 - 547 - 544 - 542 - 540 - 526 - 525 - 521 - 516 - 515 - 511 - 507 - 503 - 489 - 495 - 494 - 471 - 457 - 463 - 462 - 477 - 476 - 484 - 483 - 453 - 449 - 445 - 441 - 437 - 434 - 431 - 430 - 428 - 422 - 415 - 414 - 403 - 402 - 400 - 389 - 377 - 376 - 348 - 341 - 355 - 353 - 352 - 340 - 330 - 321 - 320 - 310 - 301 - 300 - 296 - 287 - 288 - 293 - 291 - 284 - 283 - 281 - 280 - 278 - 275 - 274 - 564 - 563) - #f - #f - 0 - 70)))) - () - () - () - () - ((r$381 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 128 #f #f (128) #f #f 0 0)))) - ((r$382 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 124 #f #f (124) #f (list->string a$166) 0 1)))) - ((r$383 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 126 #f #f (126) #f (list->string a$166) 0 1)))) - () - () - () - ((r$387 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 148 #f #f (148) #f #f 0 1)))) - ((r$388 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 140 #f #f (140) #f #f 0 1)))) - ((r$389 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 137 #f #f (137) #f (> r$396 1) 0 0)))) - () - ((r$680 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 461 #f #f (461) #f #f 0 1)))) - () - ((r$682 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 464 #f #f (464) #f (pair? sub$211) 0 0)))) - ((r$683 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 473 #f #f (471) #f '() 0 1)))) - ((r$684 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 472 #f #f (471) #f '() 0 1)))) - ((r$685 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 471 #f #f (471) #f (+ parens$197 1) 0 1)))) - ((cadr . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (137 133 142 587 599 617 621) - #f - #f - 7 - 0)))) - ((r$687 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 477 #f #f (477) #f (eq? #\( next-c$205) 0 0)))) - ((r$688 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 476 #f #f (475) #f #f 0 1)))) - ((r$689 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 475 #f #f (475) #f #f 0 1)))) - () - () - () - () - () - () - () - ((cddr . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (613) #f #f 1 0)))) - () - () - () - () - () - () - () - () - ((r$390 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 131 #f #f (131) #f #f 0 0)))) - ((r$391 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 130 #f #f (130) #f (car a$167) 0 1)))) - ((r$392 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 135 #f #f (135) #f #f 0 1)))) - () - ((r$394 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 132 #f #f (132) #f (cadr a$167) 0 1)))) - ((r$395 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 136 #f #f (136) #f (cadr a$167) 0 1)))) - ((r$396 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 138 #f #f (138) #f (length a$167) 0 1)))) - () - ((r$398 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 144 #f #f (144) #f (> r$402 1) 0 0)))) - ((r$399 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 142 #f #f (142) #f (eq? #\. r$401) 0 0)))) - () - ((r$690 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 480 #f #f (480) #f (read-char fp$202) 0 0)))) - () - ((r$692 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 484 #f #f (484) #f (eq? #\8 next-c$205) 0 0)))) - ((r$693 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 483 #f #f (482) #f #f 0 1)))) - ((r$694 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 482 #f #f (482) #f #f 0 1)))) - ((r$695 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 487 #f #f (487) #f (read-char fp$202) 0 0)))) - ((r$696 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 529 #f #f (529) #f (eq? #\( next-c$205) 0 0)))) - ((r$697 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 502 #f #f (501) #f #f 0 1)))) - ((r$698 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 501 #f #f (501) #f #f 0 1)))) - ((r$699 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 490 - #f - #f - () - #f - (set! new-toks$209 r$701) - 0 - 0)))) - () - () - () - () - () - () - () - () - ((k$301 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 62 #f #f (49 48 36 35 34) #f #f 0 5)))) - () - () - () - () - () - () - ((k$308 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 46 - #f - #f - (39 37) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(36 (r$307) ((next$132 k$301 c$133)))) - 1 - 1)))) - () - () - ((k$600 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 384 - #f - #f - (381 381) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) #f (id args body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 r$598))))) - r$599 - toks*$221)))) - 1 - 1)))) - () - ((k$602 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 383 - #f - #f - (382 382) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list k$600 sub$222) - (k$600 sub$222))))) - 1 - 1)))) - () - () - () - () - ((k$607 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 395 - #f - #f - (394 395) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(393 - (r$590) - ((if r$590 - (#((record-marker) - #((record-marker) #f (id args body)) - #(376 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(392 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(382 - (r$603) - ((if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))))) - (pair? sub$222))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 1))))) - '())))) - '()))))))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$313 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 41 - #f - #f - (40 40 41) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))) - 2 - 1)))) - () - ((k$315 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 45 - #f - #f - (44 44) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(43 - (r$312) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(42 - (tmp$134) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(41 - (k$313) - ((if tmp$134 - (k$313 tmp$134) - (#((record-marker) - #((record-marker) #f (id args body)) - #(40 - (r$314) - ((if r$314 - (char>? k$313 c$133 #\7) - (k$313 #f))))) - (= base$130 8)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))))))) - r$312)))) - 1 - 1)))) - () - () - () - ((k$319 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 53 - #f - #f - (52 52) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(51 - (r$317) - ((if r$317 - (#((record-marker) - #((record-marker) #f (id args body)) - #(48 () ((next$132 k$301 c$133))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(50 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(49 (r$318) ((reverse k$301 tok$128)))) - ptbl$127 - c$133))))))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - ((k$618 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 409 - #f - #f - (408 409) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(407 - (r$610) - ((if r$610 - (#((record-marker) - #((record-marker) #f (id args body)) - #(400 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(406 - (r$614) - ((if r$614 - (#((record-marker) - #((record-marker) #f (id args body)) - #(403 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(405 - () - ((get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(404 - (r$617) - ((reverse k$497 r$617)))) - tok$201 - toks$200))))))))) - (= parens$197 0)))))) - 1 - 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$321 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 60 #f #f (59) #f #f 0 1)))) - () - () - () - ((k$325 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (68 65 63) #f #f 1 2)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - () - ((k$333 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 79 - #f - #f - (74 73 72 76 78) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(71 - (r$327) - ((if r$327 - (#((record-marker) - #((record-marker) #f (id args body)) - #(67 - () - ((tok->num$135 - #((record-marker) - #((record-marker) #f (id args body)) - #(66 - (r$328) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(65 - (result$143) - ((if all?$139 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(64 - (r$329) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(63 - (r$330) - ((parse k$325 - fp$141 - r$329 - r$330 - all?$139 - #f - parens$138 - ptbl$137)))) - (cons result$143 - toks$140))))) - '()) - (k$325 result$143))))) - r$328)))) - num$142))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(70 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(69 - (r$331) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(68 - (r$332) - ((parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)))) - ptbl$137)))) - ptbl$137))))))))) - 4 - 1)))) - () - () - () - () - () - () - () - () - ((k$631 . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 426 - #f - #f - (425 426) - #f - #((record-marker) - #((record-marker) #f (id args body)) - #(424 - (r$621) - ((if r$621 - (#((record-marker) - #((record-marker) #f (id args body)) - #(414 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(423 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) #f (id args body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(419 - (str$219 toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '()))))))))) - 1 - 1)))) - ((lib-init:schemeread - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(4 - (k$266) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(3 - (r$267) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(2 - (r$268) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(1 - (r$269) - ((k$266 (set! *in-port-table* r$269))))) - '())))) - (set! read cyc-read))))) - 0))))) - 0 - 0))) - (obj$122 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 10 #f #f (10 9) #f r$278 0 2))) - (result$120 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 12 #f #f (9 9) #f #f 0 2))) - (loop$119 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 13 #f #f (8 7 5) #f r$276 2 0))) - (loop$117 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 18 #t #f () #f #f 0 0))) - (args$116 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 19 #f #f (17 16) #f #f 0 2))) - (read-all - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(19 - (k$272 . args$116) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(18 - (loop$117) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(17 - (k$281) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(16 - (r$282) - ((if r$282 - (current-input-port k$281) - (k$281 (car args$116)))))) - (null? args$116))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(15 - (r$273) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(14 - (fp$118) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(13 - (loop$119) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(7 - (r$276) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(6 - (r$274) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(5 - (r$275) - ((loop$119 - k$272 - fp$118 - r$275)))) - '())))) - (set! loop$119 r$276))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) - #f - (id args body)) - #(11 - (r$278) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(10 - (obj$122) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(9 - (r$279) - ((if r$279 - (reverse - k$277 - result$120) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(8 - (r$280) - ((loop$119 - k$277 - fp$121 - r$280)))) - (cons obj$122 - result$120)))))) - (eof-object? - obj$122))))) - r$278)))) - fp$121)))))))) - #f)))) - r$273)))))))) - #f))))) - 0 - 0))) - (current-input-port - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (16 25) #f #f 2 0))) - (args$123 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 27 #f #f (26 25) #f #f 0 2))) - (tmp$126 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 29 #f #f (29 29) #f r$295 0 1))) - (tmp$134 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 42 #f #f (41 41) #f r$312 0 1))) - (next$132 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 57 #f #f (48 36 35 34) #f r$303 4 0))) - (tok$128 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 62 #f #f (60 49) #f #f 0 2))) - (result$143 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 65 #f #f (65 64) #f r$328 0 2))) - (tmp$144 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 76 #f #f (76 76) #f r$335 0 1))) - (num$142 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 80 #f #f (67 79 78 76 73) #f r$326 0 5))) - (parse-number-rec - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (59 -1 82) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(62 - (k$301 base$130 fp$129 tok$128 ptbl$127) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(61 - (r$302) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(58 - (r$303) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(57 - (c$133 next$132) - ((sign? #((record-marker) - #((record-marker) - #f - (id args body)) - #(56 - (r$304) - ((if r$304 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(34 - () - ((next$132 - k$301 - c$133))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(55 - (r$305) - ((if r$305 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(35 - () - ((next$132 - k$301 - c$133))))) - (char-numeric? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(54 - (r$306) - ((if r$306 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(47 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(46 - (k$308) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(45 - (k$315) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(44 - (r$316) - ((if r$316 - (char>? - k$315 - c$133 - #\1) - (k$315 #f))))) - (= base$130 - 2))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(43 - (r$312) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(42 - (tmp$134) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(41 - (k$313) - ((if tmp$134 - (k$313 tmp$134) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(40 - (r$314) - ((if r$314 - (char>? - k$313 - c$133 - #\7) - (k$313 #f))))) - (= base$130 - 8)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))))))) - r$312)))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(36 - (r$307) - ((next$132 - k$301 - c$133))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(53 - (k$319) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(52 - (r$320) - ((if r$320 - (hex-digit? - k$319 - c$133) - (k$319 #f))))) - (= base$130 - 16))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(51 - (r$317) - ((if r$317 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(48 - () - ((next$132 - k$301 - c$133))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(50 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(49 - (r$318) - ((reverse - k$301 - tok$128)))) - ptbl$127 - c$133)))))))))))))) - c$133))))) - (eq? #\. c$133)))))) - c$133)))) - r$302 - r$303)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(60 - (k$321 c$131) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(59 - (r$322) - ((parse-number-rec - k$321 - base$130 - fp$129 - r$322 - ptbl$127)))) - (cons c$131 tok$128))))))))) - fp$129 - ptbl$127))))) - 2 - 0))) - (tok->num$135 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (67) #f #f 1 0))) - (parens$138 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (63) #f #f 0 1))) - (all?$139 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (63 65) #f #f 0 1))) - (toks$140 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 83 #f #f (64) #f #f 0 1))) - (str$151 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 84 #f #f (84) #f r$347 0 1))) - (next$149 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 96 #f #f (93) #f r$345 1 0))) - (tok$146 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 101 #f #f (99 88 87) #f #f 0 3))) - (sym$157 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 104 #f #f (104 103) #f r$359 0 2))) - (parse-li-rec - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (98 -1 106) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(101 - (k$343 fp$147 tok$146 ptbl$145) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(100 - (r$344) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(97 - (r$345) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(96 - (c$150 next$149) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(95 - (r$346) - ((if r$346 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(89 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(88 - (k$348) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(87 - (r$349) - ((if r$349 - (k$348 "||") - (reverse - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(86 - (r$350) - ((k$348 (list->string - r$350))))) - tok$146))))) - (null? tok$146))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(85 - (r$347) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(84 - (str$151) - ((k$343 (string->symbol - str$151))))) - r$347))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(94 - (r$351) - ((if r$351 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(92 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(91 - (r$352) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(90 - (r$353) - ((parse-error - k$343 - "EOF encountered parsing literal identifier" - r$352 - r$353)))) - ptbl$145)))) - ptbl$145))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(93 - () - ((next$149 - k$343 - c$150))))))))) - (eof-object? c$150)))))) - (eq? #\| c$150))))) - r$344 - r$345)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(99 - (k$354 c$148) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(98 - (r$355) - ((parse-li-rec - k$354 - fp$147 - r$355 - ptbl$145)))) - (cons c$148 tok$146))))))))) - fp$147 - ptbl$145))))) - 2 - 0))) - (parens$153 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 107 #f #f (102) #f #f 0 1))) - (all?$154 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 107 #f #f (102 104) #f #f 0 1))) - (toks$155 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 107 #f #f (103) #f #f 0 1))) - (read-block-terminator - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (109 -1 116) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(115 - (k$365 fp$159 ptbl$158) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(114 - (r$366) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(113 - (c$160) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(112 - (r$367) - ((if r$367 - (#((record-marker) - #((record-marker) #f (id args body)) - #(108 () ((k$365 #t))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(111 - (r$368) - ((if r$368 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(109 - () - ((read-block-terminator - k$365 - fp$159 - ptbl$158))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(110 - () - ((read-block-comment - k$365 - fp$159 - ptbl$158))))))))) - (eq? #\| c$160)))))) - (eq? #\# c$160))))) - r$366)))) - fp$159 - ptbl$158))))) - 2 - 0))) - (get-next-char - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (62 101 115 121 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(123 - (k$376 fp$165 ptbl$164) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(122 - (r$377) - ((if r$377 - (in-port:read-buf! k$376 ptbl$164) - (k$376 (read-char fp$165)))))) - ptbl$164))))) - 4 - 0))) - (tmp$170 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 134 #f #f (133 133) #f r$392 0 1))) - (tmp$169 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 139 #f #f (139 139) #f r$388 0 1))) - (new-toks$223 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 385 #f #f (379 378 377) #f r$598 0 2))) - (toks*$221 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 386 #f #f (380) #f r$595 0 1))) - (sub$222 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 386 #f #f (381 381 383 382) #f r$594 0 4))) - (eof-object? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (10 95 171 186 207 561 358) - #f - #f - 7 - 0))) - (new-toks$224 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 367 #f #f (360 343 342 341) #t #f 0 2))) - (unquote-sym$225 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 367 #f #f (361 346) #f r$583 0 1))) - (next-c$226 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 367 - #f - #f - (365 358 357 355 363) - #f - r$586 - 0 - 4))) - (sub$227 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 367 #f #f (367 347 346) #t #f 0 1))) - (new-toks$229 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 327 #f #f (323 322 321) #f r$551 0 2))) - (sub$228 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 328 #f #f (326) #f r$548 0 1))) - (new-toks$231 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 307 #f #f (303 302 301) #f r$535 0 2))) - (sub$230 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 308 #f #f (306) #f r$532 0 1))) - (lst$244 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 596 #f #f (596 595 591 590 587) #f #f 0 5))) - (->dotted-list - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (381 589 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(596 - (k$756 lst$244) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(595 - (r$757) - ((if r$757 - (#((record-marker) - #((record-marker) #f (id args body)) - #(586 () ((k$756 '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(594 - (r$762) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(593 - (r$763) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(592 - (r$758) - ((if r$758 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(587 - () - ((k$756 (cadr lst$244)))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(591 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(590 - (r$759) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(589 - (r$761) - ((->dotted-list - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(588 - (r$760) - ((k$756 (cons r$759 - r$760))))) - r$761)))) - (cdr lst$244))))) - (car lst$244)))))))))) - (equal? r$762 r$763))))) - (string->symbol "."))))) - (car lst$244)))))) - (null? lst$244)))))) - 2 - 0))) - (string->symbol - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (84 126 594 598) #f #f 4 0))) - (lst$245 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 602 #f #f (602 600) #f #f 0 2))) - (parse-atom - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1 443 439 603) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(129 - (k$380 a$166) - ((token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(128 - (r$381) - ((if r$381 - (#((record-marker) - #((record-marker) #f (id args body)) - #(125 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(124 - (r$382) - ((k$380 (string->number r$382))))) - (list->string a$166)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(127 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(126 - (r$383) - ((k$380 (string->symbol r$383))))) - (list->string a$166)))))))))) - a$166))))) - 3 - 0))) - (reverse - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (9 49 87 180 263 404 267 600 604) - #f - #f - 9 - 0))) - (lst$246 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 604 #f #f (604) #f #f 0 1))) - (toks$247 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 607 #f #f (605 606) #f #f 0 2))) - (tok$248 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 607 #f #f (607 606) #f #f 0 2))) - (get-toks - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (502 470 421 405 388 345 325 305 272 272 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(607 - (k$778 tok$248 toks$247) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(606 - (r$779) - ((if r$779 - (k$778 toks$247) - (->tok #((record-marker) - #((record-marker) #f (id args body)) - #(605 - (r$780) - ((add-tok k$778 r$780 toks$247)))) - tok$248))))) - (null? tok$248)))))) - 10 - 0))) - (toks$249 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 608 #f #f (608) #f #f 0 1))) - (tok$250 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 608 #f #f (608) #f #f 0 1))) - (in-port:set-cnum! - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (540 288 280 566 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(610 - (k$786 ptbl$252 cnum$251) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(609 - (r$787) - ((k$786 (set-car! r$787 cnum$251))))) - (cdddr ptbl$252)))))) - 4 - 0))) - (*in-port-table* - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? -1 #f #f (1 630 625 624 -1) #t r$269 0 2))) - (reg-port - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (21 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(630 - (k$812 fp$262) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(629 - (r$813) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(628 - (r$263) - ((if r$263 - (#((record-marker) - #((record-marker) #f (id args body)) - #(622 () ((k$812 r$263))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(627 - () - ((list #((record-marker) - #((record-marker) - #f - (id args body)) - #(626 - (r$817) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(625 - (r$814) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(624 - (r$816) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(623 - (r$815) - ((k$812 r$263)))) - (set! *in-port-table* - r$816))))) - (cons r$263 - *in-port-table*))))) - (set! r$263 r$817))))) - fp$262 - #f - 1 - 0))))))))) - r$813)))) - (assoc fp$262 *in-port-table*)))))) - 1 - 0))) - (in-port:read-buf! - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (122 563 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(621 - (k$807 ptbl$260) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(620 - (r$808) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(619 - (result$261) - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(618 (r$809) ((k$807 result$261)))) - ptbl$260 - #f)))) - r$808)))) - (cadr ptbl$260)))))) - 2 - 0))) - (result$261 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 619 #f #f (618) #f r$808 0 1))) - (in-port:set-buf! - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (50 515 414 400 376 355 340 320 300 579 -1 619) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(616 - (k$800 ptbl$258 buf$257) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) - (cdr ptbl$258)))))) - 11 - 0))) - (in-port:get-buf - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (123 564 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) - 2 - 0))) - (set-car! - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (609 612 615) #f #f 3 0))) - (in-port:get-lnum - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (39 - 70 - 92 - 161 - 156 - 176 - 231 - 214 - 526 - 495 - 463 - 477 - 484 - 403 - 353 - 293 - 283 - 275 - -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(614 - (k$797 ptbl$256) - ((k$797 (caddr ptbl$256)))))) - 18 - 0))) - (in-port:set-lnum! - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (291 281 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(613 - (k$793 ptbl$255 lnum$254) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(612 - (r$794) - ((k$793 (set-car! r$794 lnum$254))))) - (cddr ptbl$255)))))) - 2 - 0))) - (lnum$254 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 613 #f #f (612) #f #f 0 1))) - (in-port:get-cnum - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (38 - 69 - 91 - 160 - 155 - 175 - 230 - 213 - 525 - 494 - 462 - 476 - 483 - 542 - 402 - 352 - 274 - 568 - -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(611 - (k$790 ptbl$253) - ((k$790 (cadddr ptbl$253)))))) - 18 - 0))) - (parse-error - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (37 - 68 - 90 - 159 - 154 - 174 - 229 - 212 - 524 - 493 - 461 - 475 - 482 - 401 - 351 - 273 - -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(585 - (k$750 msg$243 lnum$242 cnum$241) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(584 - (r$752) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(583 - (r$753) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(582 (r$751) ((error k$750 r$751)))) - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243))))) - (number->string cnum$241))))) - (number->string lnum$242)))))) - 16 - 0))) - (msg$243 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 585 #f #f (583) #f #f 0 1))) - (lnum$242 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 585 #f #f (585) #f #f 0 1))) - (string-append - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (162 232 583) #f #f 3 0))) - (number->string - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (585 584) #f #f 2 0))) - (parse/tok - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (296 287 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(581 - (k$739 fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(580 - (r$740) - ((if r$740 - (#((record-marker) - #((record-marker) #f (id args body)) - #(571 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(570 - (r$741) - ((parse k$739 - fp$240 - r$741 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - '()))))) - (if all?$237 - (#((record-marker) - #((record-marker) #f (id args body)) - #(575 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(574 - (r$742) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(573 - (r$744) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(572 - (r$743) - ((parse k$739 - fp$240 - r$742 - r$743 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - r$744 - toks$238)))) - tok$239)))) - '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(579 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(578 - (r$745) - ((->tok #((record-marker) - #((record-marker) - #f - (id args body)) - #(577 - (r$747) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(576 - (r$746) - ((k$739 (car r$746))))) - r$747 - toks$238)))) - tok$239)))) - ptbl$234 - curr-char$233)))))))))) - (null? tok$239)))))) - 2 - 0))) - (tok$239 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (581 578 574) #f #f 0 3))) - (toks$238 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (577 573 570) #f #f 0 3))) - (all?$237 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (572 580 570) #f #f 0 2))) - (comment?$236 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (572 570) #f #f 0 2))) - (parens$235 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (572 570) #f #f 0 2))) - (curr-char$233 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 581 #f #f (579) #f #f 0 1))) - (tok$201 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (549 - 546 - 545 - 516 - 514 - 519 - 502 - 470 - 421 - 413 - 426 - 405 - 399 - 409 - 388 - 375 - 395 - 345 - 339 - 371 - 325 - 319 - 335 - 305 - 299 - 315 - 296 - 287 - 272 - 272) - #f - #f - 0 - 30))) - (toks$200 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (548 - 547 - 544 - 516 - 513 - 510 - 502 - 470 - 453 - 449 - 445 - 441 - 437 - 435 - 432 - 428 - 421 - 412 - 405 - 398 - 388 - 374 - 345 - 338 - 325 - 318 - 305 - 298 - 296 - 287 - 284 - 278 - 272 - 272) - #f - #f - 0 - 34))) - (all?$199 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (548 - 547 - 544 - 516 - 519 - 507 - 508 - 489 - 490 - 457 - 458 - 453 - 449 - 445 - 441 - 437 - 434 - 436 - 431 - 433 - 428 - 415 - 416 - 426 - 409 - 377 - 378 - 395 - 341 - 342 - 371 - 321 - 322 - 335 - 301 - 302 - 315 - 296 - 287 - 284 - 278 - 272) - #f - #f - 0 - 24))) - (comment?$198 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 569 #f #f (560) #f #f 0 0))) - (parens$197 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 569 - #f - #f - (548 - 547 - 544 - 516 - 507 - 504 - 489 - 472 - 457 - 453 - 449 - 445 - 441 - 437 - 434 - 431 - 428 - 415 - 407 - 390 - 377 - 341 - 321 - 301 - 296 - 287 - 284 - 278 - 276) - #f - #f - 0 - 29))) - (new-toks$203 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 568 #t #f () #f #f 0 0))) - (read-char - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (122 173 188 195 545 488 481 366 563) - #f - #f - 9 - 0))) - (last$232 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 270 #f #f (270 268) #f r$503 0 2))) - (char-whitespace? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (203 560) #f #f 2 0))) - (read-str - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (181 177 -1 422) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(188 - (k$426 fp$180 buf$179 ptbl$178) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(187 - (r$427) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(186 - (c$181) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(185 - (r$428) - ((if r$428 - (#((record-marker) - #((record-marker) #f (id args body)) - #(176 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(175 - (r$429) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(174 - (r$430) - ((parse-error - k$426 - "missing closing double-quote" - r$429 - r$430)))) - ptbl$178)))) - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(184 - (r$431) - ((if r$431 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(178 - () - ((read-str-esc - #((record-marker) - #((record-marker) - #f - (id args body)) - #(177 - (r$432) - ((read-str - k$426 - fp$180 - r$432 - ptbl$178)))) - fp$180 - buf$179 - ptbl$178))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(183 - (r$433) - ((if r$433 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(180 - () - ((reverse - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(179 - (r$434) - ((k$426 (list->string - r$434))))) - buf$179))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(182 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(181 - (r$435) - ((read-str - k$426 - fp$180 - r$435 - ptbl$178)))) - (cons c$181 - buf$179)))))))))) - (equal? #\" c$181)))))) - (equal? #\\ c$181)))))) - (eof-object? c$181))))) - r$427)))) - (read-char fp$180)))))) - 3 - 0))) - (str$219 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 419 #f #f (418) #f r$625 0 1))) - (toks*$218 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 419 #f #f (418) #f r$626 0 1))) - (new-toks$220 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 418 #f #f (417 416 415) #f r$629 0 2))) - (next-c$205 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f - 542 - #f - #f - (539 - 538 - 537 - 536 - 535 - 534 - 533 - 532 - 531 - 530 - 529 - 528 - 487 - 480 - 478 - 485) - #t - r$695 - 0 - 14))) - (read-block-comment - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (110 117 -1 430) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(121 - (k$371 fp$162 ptbl$161) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(120 - (r$372) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(119 - (c$163) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(118 - (r$373) - ((if r$373 - (#((record-marker) - #((record-marker) #f (id args body)) - #(116 - () - ((read-block-terminator - k$371 - fp$162 - ptbl$161))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(117 - () - ((read-block-comment - k$371 - fp$162 - ptbl$161))))))))) - (eq? #\| c$163))))) - r$372)))) - fp$162 - ptbl$161))))) - 3 - 0))) - (parse-number - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1 453 449 445 441 437) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(83 - (k$325 fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(82 - (r$340) - ((parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(81 - (r$326) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(80 - (num$142) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(79 - (k$333) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(78 - (r$334) - ((if r$334 - (k$333 #f) - (token-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(77 - (r$335) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(76 - (tmp$144) - ((if tmp$144 - (k$333 tmp$144) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(75 - (r$339) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(74 - (r$336) - ((if r$336 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(73 - (r$337) - ((if r$337 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(72 - (r$338) - ((hex-digit? - k$333 - r$338)))) - (car num$142)) - (k$333 #f))))) - (= base$136 - 16)) - (k$333 #f))))) - (> r$339 - 0))))) - (length - num$142)))))) - r$335)))) - num$142))))) - (null? num$142))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(71 - (r$327) - ((if r$327 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(67 - () - ((tok->num$135 - #((record-marker) - #((record-marker) - #f - (id args body)) - #(66 - (r$328) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(65 - (result$143) - ((if all?$139 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(64 - (r$329) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(63 - (r$330) - ((parse k$325 - fp$141 - r$329 - r$330 - all?$139 - #f - parens$138 - ptbl$137)))) - (cons result$143 - toks$140))))) - '()) - (k$325 result$143))))) - r$328)))) - num$142))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(70 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(69 - (r$331) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(68 - (r$332) - ((parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)))) - ptbl$137)))) - ptbl$137))))))))))))) - r$326)))) - base$136 - fp$141 - r$340 - ptbl$137)))) - '()))))) - 5 - 0))) - (num$217 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 439 #f #f (439) #f #f 0 1))) - (num$216 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 443 #f #f (443) #f #f 0 1))) - (num$215 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 447 #f #f (447) #f #f 0 1))) - (string->number - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (124 226 454 450 446) #f #f 5 0))) - (list->string - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - ? - #f - #f - (86 127 125 163 179 233 227 455 451 447) - #f - #f - 10 - 0))) - (num$214 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 451 #f #f (451) #f #f 0 1))) - (num$213 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 455 #f #f (455) #f #f 0 1))) - (sub$211 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 468 #f #f (463 465 464) #f r$671 0 3))) - (toks*$210 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 468 #f #f (460) #f r$672 0 1))) - (new-toks$212 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 467 #f #f (459 458 457) #f r$675 0 2))) - (bytevector - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (463) #f #f 0 1))) - (sub$208 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 500 #f #f (495 497 496) #f r$697 0 3))) - (toks*$207 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 500 #f #f (492) #f r$698 0 1))) - (new-toks$209 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 499 #f #f (491 490 489) #f r$701 0 2))) - (list->vector - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (495) #f #f 1 0))) - (read-pound - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1 511) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(266 - (k$438 fp$183 ptbl$182) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(265 - (done$187 loop$186) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(264 - (done$189 loop$188) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(211 - (r$456) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(210 - (r$439) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(191 - (r$442) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(190 - (r$440) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(189 - (r$441) - ((loop$186 - k$438 - r$441)))) - '())))) - (set! loop$186 r$442))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(209 - (k$443 buf$190) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(208 - (r$444) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(207 - (c$191) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(206 - (r$448) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(205 - (tmp$192) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(204 - (k$449) - ((if tmp$192 - (k$449 tmp$192) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(203 - (k$453) - ((char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(202 - (r$454) - ((if r$454 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(201 - (r$455) - ((k$453 (> r$455 - 0))))) - (length - buf$190)) - (k$453 #f))))) - c$191)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(200 - (r$450) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(198 - (r$452) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? - c$191 - #\))) - (k$449 #f))))) - (> r$452 - 0))))) - (length - buf$190)))))) - r$450))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(196 - (r$445) - ((if r$445 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(192 - () - ((done$187 - k$443 - buf$190))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(195 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(194 - (r$447) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(193 - (r$446) - ((loop$186 - k$443 - r$446)))) - (cons r$447 - buf$190))))) - (read-char - fp$183)))))))))))))) - r$448)))) - (eof-object? - c$191))))) - r$444)))) - (peek-char fp$183))))))))) - (set! done$187 r$456))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(263 - (k$457 raw-buf$194) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(262 - (r$458) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(261 - (buf$195) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(260 - (r$494) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(259 - (r$459) - ((if r$459 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(214 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(213 - (r$460) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(212 - (r$461) - ((parse-error - k$457 - "missing character" - r$460 - r$461)))) - ptbl$182)))) - ptbl$182))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(258 - (r$493) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(257 - (r$462) - ((if r$462 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(215 - () - ((k$457 (car buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(256 - (r$492) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(255 - (r$463) - ((if r$463 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(216 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(254 - (r$491) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(253 - (r$464) - ((if r$464 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(217 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(252 - (r$490) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(251 - (r$465) - ((if r$465 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(218 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(250 - (r$489) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(249 - (r$466) - ((if r$466 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(219 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(248 - (r$488) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(247 - (r$467) - ((if r$467 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(220 - () - ((k$457 #\newline))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(246 - (r$487) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(245 - (r$468) - ((if r$468 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(221 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(244 - (r$486) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(243 - (r$469) - ((if r$469 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(222 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(242 - (r$485) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(241 - (r$470) - ((if r$470 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(223 - () - ((k$457 #\space))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(240 - (r$484) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(239 - (r$471) - ((if r$471 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(224 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(238 - (k$480) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(237 - (r$483) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(236 - (r$481) - ((if r$481 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(235 - (r$482) - ((k$480 (equal? - r$482 - #\x))))) - (car buf$195)) - (k$480 #f))))) - (> r$483 - 1))))) - (length - buf$195))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(228 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(227 - (r$475) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number - r$474 - 16))))) - (list->string - r$475))))) - (cdr buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(233 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string - buf$195))))))))))))))) - (equal? - buf$195 - r$484))))) - '(#\t - #\a - #\b)))))) - (equal? - buf$195 - r$485))))) - '(#\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$486))))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))))) - (equal? - buf$195 - r$487))))) - '(#\n - #\u - #\l - #\l)))))) - (equal? - buf$195 - r$488))))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))))) - (equal? - buf$195 - r$489))))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))))) - (equal? - buf$195 - r$490))))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))))) - (equal? - buf$195 - r$491))))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$492))))) - '(#\a - #\l - #\a - #\r - #\m)))))) - (= 1 - r$493))))) - (length - buf$195)))))) - (= 0 r$494))))) - (length buf$195))))) - r$458)))) - raw-buf$194)))))))) - #f - #f)))) - #f - #f))))) - 1 - 0))) - (new-toks$206 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 508 #f #f (508 507) #f r$713 0 2))) - (parse-literal-identifier - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1 547) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(107 - (k$358 fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(106 - (r$362) - ((parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(105 - (r$359) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(104 - (sym$157) - ((if all?$154 - (#((record-marker) - #((record-marker) #f (id args body)) - #(103 - (r$360) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(102 - (r$361) - ((parse k$358 - fp$156 - r$360 - r$361 - all?$154 - #f - parens$153 - ptbl$152)))) - (cons sym$157 toks$155))))) - '()) - (k$358 sym$157))))) - r$359)))) - fp$156 - r$362 - ptbl$152)))) - '()))))) - 1 - 0))) - (loop$186 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 265 #f #f (193 191 189) #f r$442 2 0))) - (loop$188 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 264 #t #f () #f #f 0 0))) - (tmp$192 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 205 #f #f (204 204) #f r$448 0 1))) - (tmp$193 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 199 #f #f (199 199) #f r$450 0 1))) - (peek-char - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (209) #f #f 1 0))) - (raw-buf$194 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 263 #f #f (263) #f #f 0 1))) - (integer->char - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (225) #f #f 1 0))) - (read-str-esc - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (-1 178) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(173 - (k$410 fp$175 buf$174 ptbl$173) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(172 - (r$411) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(171 - (c$176) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(170 - (r$412) - ((if r$412 - (#((record-marker) - #((record-marker) #f (id args body)) - #(156 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(155 - (r$413) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(154 - (r$414) - ((parse-error - k$410 - "missing escaped character within string" - r$413 - r$414)))) - ptbl$173)))) - ptbl$173))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(169 - (r$422) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(168 - (tmp$177) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(167 - (k$423) - ((if tmp$177 - (k$423 tmp$177) - (k$423 (equal? - #\\ - c$176)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(166 - (r$415) - ((if r$415 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(157 - () - ((k$410 (cons c$176 - buf$174)))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(165 - (r$416) - ((if r$416 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(158 - () - ((k$410 (cons #\newline - buf$174)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(164 - () - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(163 - (r$421) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(162 - (r$420) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(161 - (r$417) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(160 - (r$418) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(159 - (r$419) - ((parse-error - k$410 - r$417 - r$418 - r$419)))) - ptbl$173)))) - ptbl$173)))) - (string-append - "invalid escape character [" - r$420 - "] in string"))))) - (list->string - r$421))))) - c$176))))))))) - (equal? - #\n - c$176)))))))))) - r$422)))) - (equal? #\" c$176)))))) - (eof-object? c$176))))) - r$411)))) - (read-char fp$175)))))) - 1 - 0))) - (tmp$177 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 168 #f #f (167 167) #f r$422 0 1))) - (tmp$172 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 151 #f #f (151 151) #f r$407 0 1))) - (token-numeric? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? - -1 - #f - #f - (78 129 -1) - #f - (#((record-marker) - #((record-marker) #f (id args body)) - #(150 - (k$386 a$167) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(149 - (r$403) - ((char-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(148 - (r$387) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(147 - (tmp$168) - ((if tmp$168 - (k$386 tmp$168) - (#((record-marker) - #((record-marker) #f (id args body)) - #(146 - (k$397) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(145 - (r$402) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(144 - (r$398) - ((if r$398 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(143 - (r$401) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(142 - (r$399) - ((if r$399 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(141 - (r$400) - ((char-numeric? - k$397 - r$400)))) - (cadr a$167)) - (k$397 #f))))) - (eq? #\. - r$401))))) - (car a$167)) - (k$397 #f))))) - (> r$402 1))))) - (length a$167))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(140 - (r$388) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(139 - (tmp$169) - ((if tmp$169 - (k$386 tmp$169) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(138 - (r$396) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(137 - (r$389) - ((if r$389 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(136 - (r$395) - ((char-numeric? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(135 - (r$392) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(134 - (tmp$170) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(133 - (k$393) - ((if tmp$170 - (k$393 tmp$170) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(132 - (r$394) - ((k$393 (eq? #\. - r$394))))) - (cadr a$167)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(131 - (r$390) - ((if r$390 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(130 - (r$391) - ((sign? k$386 - r$391)))) - (car a$167)) - (k$386 #f))))))))) - r$392)))) - r$395)))) - (cadr a$167)) - (k$386 #f))))) - (> r$396 1))))) - (length a$167)))))) - r$388))))))))) - r$387)))) - r$403)))) - (car a$167)))))) - 2 - 0))) - (char-numeric? - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(? ? #f #f (55 136 141 149) #f #f 4 0))) - (tmp$168 - . - #((record-marker) - #((record-marker) - #f - (global - defined-by - const - const-value - ref-by - reassigned - assigned-value - app-fnc-count - app-arg-count)) - #(#f 147 #f #f (147 147) #f r$387 0 1)))) - () - () - () - () - () - () - () - () - () - () - () - () - () - ()))) - */ -/* -"---------------- after cps optimizations:" - */ -/* -((define read #f) - (define *in-port-table* #f) - (define reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(630 - (k$812 fp$262) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(628 - (r$263) - ((if r$263 - (#((record-marker) - #((record-marker) #f (id args body)) - #(622 () ((k$812 r$263))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(627 - () - ((list #((record-marker) - #((record-marker) #f (id args body)) - #(626 - (r$817) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(625 - (r$814) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(624 - (r$816) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(623 (r$815) ((k$812 r$263)))) - (set! *in-port-table* r$816))))) - (cons r$263 *in-port-table*))))) - (set! r$263 r$817))))) - fp$262 - #f - 1 - 0))))))))) - (assoc fp$262 *in-port-table*)))))) - (define in-port:read-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(621 - (k$807 ptbl$260) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(619 - (result$261) - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(618 (r$809) ((k$807 result$261)))) - ptbl$260 - #f)))) - (cadr ptbl$260)))))) - (define in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) - (define in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(616 - (k$800 ptbl$258 buf$257) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) - (cdr ptbl$258)))))) - (define in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(614 - (k$797 ptbl$256) - ((k$797 (caddr ptbl$256)))))) - (define in-port:set-lnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(613 - (k$793 ptbl$255 lnum$254) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(612 - (r$794) - ((k$793 (set-car! r$794 lnum$254))))) - (cddr ptbl$255)))))) - (define in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(611 - (k$790 ptbl$253) - ((k$790 (cadddr ptbl$253)))))) - (define in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(610 - (k$786 ptbl$252 cnum$251) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(609 - (r$787) - ((k$786 (set-car! r$787 cnum$251))))) - (cdddr ptbl$252)))))) - (define add-tok - #((record-marker) - #((record-marker) #f (id args body)) - #(608 - (k$783 tok$250 toks$249) - ((k$783 (cons tok$250 toks$249)))))) - (define get-toks - #((record-marker) - #((record-marker) #f (id args body)) - #(607 - (k$778 tok$248 toks$247) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(606 - (r$779) - ((if r$779 - (k$778 toks$247) - (->tok #((record-marker) - #((record-marker) #f (id args body)) - #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) - tok$248))))) - (null? tok$248)))))) - (define ->tok - #((record-marker) - #((record-marker) #f (id args body)) - #(604 - (k$774 lst$246) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(603 (r$775) ((parse-atom k$774 r$775)))) - lst$246))))) - (define dotted? - #((record-marker) - #((record-marker) #f (id args body)) - #(602 - (k$766 lst$245) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(601 - (r$771) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(600 - (r$767) - ((if r$767 - (reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(599 - (r$770) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(598 - (r$768) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(597 - (r$769) - ((k$766 (equal? r$768 r$769))))) - (string->symbol "."))))) - (cadr r$770))))) - lst$245) - (k$766 #f))))) - (> r$771 2))))) - (length lst$245)))))) - (define ->dotted-list - #((record-marker) - #((record-marker) #f (id args body)) - #(596 - (k$756 lst$244) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(595 - (r$757) - ((if r$757 - (#((record-marker) - #((record-marker) #f (id args body)) - #(586 () ((k$756 '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(594 - (r$762) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(593 - (r$763) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(592 - (r$758) - ((if r$758 - (#((record-marker) - #((record-marker) #f (id args body)) - #(587 () ((k$756 (cadr lst$244)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(591 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(590 - (r$759) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(589 - (r$761) - ((->dotted-list - #((record-marker) - #((record-marker) - #f - (id args body)) - #(588 - (r$760) - ((k$756 (cons r$759 - r$760))))) - r$761)))) - (cdr lst$244))))) - (car lst$244)))))))))) - (equal? r$762 r$763))))) - (string->symbol "."))))) - (car lst$244)))))) - (null? lst$244)))))) - (define parse-error - #((record-marker) - #((record-marker) #f (id args body)) - #(585 - (k$750 msg$243 lnum$242 cnum$241) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(584 - (r$752) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(583 - (r$753) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(582 (r$751) ((error k$750 r$751)))) - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243))))) - (number->string cnum$241))))) - (number->string lnum$242)))))) - (define parse/tok - #((record-marker) - #((record-marker) #f (id args body)) - #(581 - (k$739 fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(580 - (r$740) - ((if r$740 - (#((record-marker) - #((record-marker) #f (id args body)) - #(571 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(570 - (r$741) - ((parse k$739 - fp$240 - r$741 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - '()))))) - (if all?$237 - (#((record-marker) - #((record-marker) #f (id args body)) - #(575 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(574 - (r$742) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(573 - (r$744) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(572 - (r$743) - ((parse k$739 - fp$240 - r$742 - r$743 - all?$237 - comment?$236 - parens$235 - ptbl$234)))) - r$744 - toks$238)))) - tok$239)))) - '()))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(579 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) #f (id args body)) - #(578 - (r$745) - ((->tok #((record-marker) - #((record-marker) #f (id args body)) - #(577 - (r$747) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args body)) - #(576 - (r$746) - ((k$739 (car r$746))))) - r$747 - toks$238)))) - tok$239)))) - ptbl$234 - curr-char$233)))))))))) - (null? tok$239)))))) - (define parse - #((record-marker) - #((record-marker) #f (id args body)) - #(569 - (k$497 fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(568 - () - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(567 - (r$736) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(566 - (r$735) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) #f (id args body)) - #(565 - (r$498) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(564 - (k$733) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(563 - (r$734) - ((if r$734 - (in-port:read-buf! - k$733 - ptbl$196) - (k$733 (read-char fp$202)))))) - ptbl$196)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(561 - (c$204) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(560 - (r$500) - ((if r$500 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(277 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(276 - (k$506) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(275 - (r$507) - ((if r$507 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(274 - (r$508) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(273 - (r$509) - ((parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)))) - ptbl$196)))) - ptbl$196) - (k$506 #f))))) - (> parens$197 - 0))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(272 - (r$501) - ((if all?$199 - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(267 - (r$502) - ((reverse - k$497 - r$502)))) - tok$201 - toks$200) - (get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(270 - (last$232) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(269 - (r$505) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(268 - (r$504) - ((if r$504 - (k$497 (car last$232)) - (k$497 c$204))))) - (> r$505 - 0))))) - (length - last$232))))) - tok$201 - toks$200)))))))))) - (if comment?$198 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(286 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(285 - (r$510) - ((if r$510 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(283 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(282 - (r$515) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(281 - (r$514) - ((in-port:set-lnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(280 - (r$511) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(279 - (r$512) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(278 - (r$513) - ((parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - ptbl$196 - 0)))) - ptbl$196 - r$514)))) - (+ 1 - r$515))))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(284 - (r$516) - ((parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)))) - '()))))) - (eq? c$204 - #\newline)))))) - (char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(559 - (r$517) - ((if r$517 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(295 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(294 - (k$522) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(293 - (r$523) - ((if r$523 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(292 - (r$525) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(291 - (r$524) - ((in-port:set-lnum! - k$522 - ptbl$196 - r$524)))) - (+ 1 - r$525))))) - ptbl$196) - (k$522 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(290 - (r$518) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(289 - (k$520) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(288 - (r$521) - ((if r$521 - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))))) - (equal? - c$204 - #\newline))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(287 - (r$519) - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(558 - (r$526) - ((if r$526 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(296 - () - ((parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(557 - (r$527) - ((if r$527 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(316 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(315 - (k$541) - ((if all?$199 - (k$541 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(314 - (r$542) - ((not k$541 - r$542)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(313 - (r$528) - ((if r$528 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(300 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(299 - (r$529) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(298 - (r$531) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(297 - (r$530) - ((k$497 (car r$530))))) - r$531 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(312 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(311 - (r$539) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(310 - (r$540) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(308 - (sub$230) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(307 - (new-toks$231) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(306 - (r$538) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(305 - (r$536) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(304 - (r$537) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(303 - (r$535) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(302 - (r$533) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(301 - (r$534) - ((parse k$497 - fp$202 - r$534 - new-toks$231 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$231)))))) - (set! new-toks$231 - r$535))))) - r$536 - r$537)))) - tok$201 - toks$200)))) - r$538 - sub$230)))) - 'quote)))) - #f)))) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(556 - (r$543) - ((if r$543 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(336 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(335 - (k$557) - ((if all?$199 - (k$557 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(334 - (r$558) - ((not k$557 - r$558)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(333 - (r$544) - ((if r$544 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(320 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(319 - (r$545) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(318 - (r$547) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(317 - (r$546) - ((k$497 (car r$546))))) - r$547 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(332 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(331 - (r$555) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(330 - (r$556) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(328 - (sub$228) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(327 - (new-toks$229) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(326 - (r$554) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(325 - (r$552) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(324 - (r$553) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(323 - (r$551) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(322 - (r$549) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(321 - (r$550) - ((parse k$497 - fp$202 - r$550 - new-toks$229 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$229)))))) - (set! new-toks$229 - r$551))))) - r$552 - r$553)))) - tok$201 - toks$200)))) - r$554 - sub$228)))) - 'quasiquote)))) - #f)))) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(555 - (r$559) - ((if r$559 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(372 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(371 - (k$587) - ((if all?$199 - (k$587 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(370 - (r$588) - ((not k$587 - r$588)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(369 - (r$560) - ((if r$560 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(340 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(339 - (r$561) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(338 - (r$563) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(337 - (r$562) - ((k$497 (car r$562))))) - r$563 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(368 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(367 - (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(366 - (r$564) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(365 - (r$586) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(364 - (r$565) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(363 - (k$584) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(362 - (r$585) - ((if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))))) - (equal? - next-c$226 - #\@))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(361 - (r$583) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(360 - (r$566) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(359 - (r$567) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(358 - (k$578) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(357 - (r$579) - ((if r$579 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(353 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(352 - (r$580) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(351 - (r$581) - ((parse-error - k$578 - "unexpected end of file" - r$580 - r$581)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(356 - (r$582) - ((if r$582 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(354 - () - ((k$578 #f))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(355 - () - ((in-port:set-buf! - k$578 - ptbl$196 - next-c$226))))))))) - (equal? - next-c$226 - #\@)))))) - (eof-object? - next-c$226))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(350 - (r$568) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(349 - (r$576) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(348 - (r$577) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(347 - (r$575) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(346 - (r$569) - ((list #((record-marker) - #((record-marker) - #f - (id args - body)) - #(345 - (r$573) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(344 - (r$574) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(343 - (r$572) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(342 - (r$570) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(341 - (r$571) - ((parse k$497 - fp$202 - r$571 - new-toks$224 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$224)))))) - (set! new-toks$224 - r$572))))) - r$573 - r$574)))) - tok$201 - toks$200)))) - unquote-sym$225 - sub$227)))) - (set! sub$227 - r$575))))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)))) - '())))) - '())))))))) - (set! new-toks$224 - #f))))) - (set! unquote-sym$225 - r$583))))))))) - (set! next-c$226 - r$586))))) - (read-char - fp$202))))) - (set! sub$227 - #f))))) - #f - #f - #f - #f)))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(554 - (r$589) - ((if r$589 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(396 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(395 - (k$607) - ((if all?$199 - (k$607 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(394 - (r$608) - ((not k$607 - r$608)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(393 - (r$590) - ((if r$590 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(376 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(375 - (r$591) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(374 - (r$593) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(373 - (r$592) - ((k$497 (car r$592))))) - r$593 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(392 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(391 - (r$604) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(390 - (r$605) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(389 - (r$606) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(388 - (r$594) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(387 - (r$595) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(386 - (sub$222 - toks*$221) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(385 - (new-toks$223) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(384 - (k$600) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(383 - (k$602) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(382 - (r$603) - ((if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))))) - (pair? sub$222))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(381 - (r$601) - ((if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(380 - (r$599) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(379 - (r$598) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(378 - (r$596) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(377 - (r$597) - ((parse k$497 - fp$202 - r$597 - new-toks$223 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$223)))))) - (set! new-toks$223 - r$598))))) - r$599 - toks*$221)))))))) - #f)))) - r$594 - r$595)))) - tok$201 - toks$200)))) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(553 - (r$609) - ((if r$609 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(410 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(409 - (k$618) - ((if all?$199 - (k$618 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(408 - (r$619) - ((not k$618 - r$619)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(407 - (r$610) - ((if r$610 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(400 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(399 - (r$611) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(398 - (r$613) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(397 - (r$612) - ((k$497 (car r$612))))) - r$613 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(406 - (r$614) - ((if r$614 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(403 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(402 - (r$615) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(401 - (r$616) - ((parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)))) - ptbl$196)))) - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(405 - () - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(404 - (r$617) - ((reverse - k$497 - r$617)))) - tok$201 - toks$200))))))))) - (= parens$197 - 0))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(552 - (r$620) - ((if r$620 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(427 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(426 - (k$631) - ((if all?$199 - (k$631 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(425 - (r$632) - ((not k$631 - r$632)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(424 - (r$621) - ((if r$621 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(414 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(413 - (r$622) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(412 - (r$624) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(411 - (r$623) - ((k$497 (car r$623))))) - r$624 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(423 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(422 - (r$630) - ((read-str - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(421 - (r$625) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(420 - (r$626) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(419 - (str$219 - toks*$218) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(418 - (new-toks$220) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(417 - (r$629) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(416 - (r$627) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(415 - (r$628) - ((parse k$497 - fp$202 - r$628 - new-toks$220 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$220)))))) - (set! new-toks$220 - r$629))))) - str$219 - toks*$218)))) - #f)))) - r$625 - r$626)))) - tok$201 - toks$200)))) - fp$202 - r$630 - ptbl$196)))) - '())))))))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(551 - (r$633) - ((if r$633 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(546 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(545 - (r$634) - ((if r$634 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(542 - (next-c$205) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(541 - (r$729) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(540 - (r$728) - ((in-port:set-cnum! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(539 - (r$636) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(538 - (r$637) - ((if r$637 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(430 - () - ((read-block-comment - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(429 - (r$638) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(428 - (r$639) - ((parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - '())))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(537 - (r$640) - ((if r$640 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(433 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(432 - (r$641) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(431 - (r$642) - ((parse k$497 - fp$202 - r$641 - r$642 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #t - toks$200))))) - '()) - (k$497 #t)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(536 - (r$643) - ((if r$643 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(436 - () - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(435 - (r$644) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(434 - (r$645) - ((parse k$497 - fp$202 - r$644 - r$645 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons #f - toks$200))))) - '()) - (k$497 #f)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(535 - (r$646) - ((if r$646 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(440 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(437 - (r$647) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(439 - (k$648 num$217) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(438 - (r$649) - ((exact k$648 - r$649)))) - num$217))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(534 - (r$650) - ((if r$650 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(444 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(441 - (r$651) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(443 - (k$652 num$216) - ((parse-atom - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(442 - (r$653) - ((inexact - k$652 - r$653)))) - num$216))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(533 - (r$654) - ((if r$654 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(448 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(445 - (r$655) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(447 - (k$656 num$215) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(446 - (r$657) - ((k$656 (string->number - r$657 - 2))))) - (list->string - num$215)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(532 - (r$658) - ((if r$658 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(452 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(449 - (r$659) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(451 - (k$660 num$214) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(450 - (r$661) - ((k$660 (string->number - r$661 - 8))))) - (list->string - num$214)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(531 - (r$662) - ((if r$662 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(456 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(453 - (r$663) - ((parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(455 - (k$664 num$213) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(454 - (r$665) - ((k$664 (string->number - r$665 - 16))))) - (list->string - num$213)))))))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(530 - (r$666) - ((if r$666 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(488 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(487 - (r$695) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(486 - (r$667) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(485 - (k$691) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(484 - (r$692) - ((if r$692 - (k$691 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(483 - (r$693) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(482 - (r$694) - ((parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\8 - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(481 - (r$668) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(480 - (r$690) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(479 - (r$669) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(478 - (k$686) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(477 - (r$687) - ((if r$687 - (k$686 #f) - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(476 - (r$688) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(475 - (r$689) - ((parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)))) - ptbl$196)))) - ptbl$196))))) - (eq? #\( - next-c$205))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(474 - (r$670) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(473 - (r$683) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(472 - (r$684) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(471 - (r$685) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(470 - (r$671) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(469 - (r$672) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(468 - (sub$211 - toks*$210) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(467 - (new-toks$212) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(466 - (k$677) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(465 - (k$681) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(464 - (r$682) - ((if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))))) - (pair? sub$211))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(463 - (r$678) - ((if r$678 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(462 - (r$679) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(461 - (r$680) - ((parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)))) - ptbl$196)))) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(460 - (r$676) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(459 - (r$675) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(458 - (r$673) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(457 - (r$674) - ((parse k$497 - fp$202 - r$674 - new-toks$212 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$212)))))) - (set! new-toks$212 - r$675))))) - r$676 - toks*$210)))))))) - #f)))) - r$671 - r$672)))) - tok$201 - toks$200)))) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '())))))))) - (set! next-c$205 - r$690))))) - (read-char - fp$202))))))))) - (set! next-c$205 - r$695))))) - (read-char - fp$202)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(529 - (r$696) - ((if r$696 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(506 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(505 - (r$709) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(504 - (r$710) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(503 - (r$711) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(502 - (r$697) - ((get-toks - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(501 - (r$698) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(500 - (sub$208 - toks*$207) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(499 - (new-toks$209) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(498 - (k$703) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(497 - (k$707) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(496 - (r$708) - ((if r$708 - (dotted? - k$707 - sub$208) - (k$707 #f))))) - (pair? sub$208))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(495 - (r$704) - ((if r$704 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(494 - (r$705) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(493 - (r$706) - ((parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)))) - ptbl$196)))) - ptbl$196) - (k$703 (list->vector - sub$208)))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(492 - (r$702) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(491 - (r$701) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(490 - (r$699) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(489 - (r$700) - ((parse k$497 - fp$202 - r$700 - new-toks$209 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$209)))))) - (set! new-toks$209 - r$701))))) - r$702 - toks*$207)))))))) - #f)))) - r$697 - r$698)))) - tok$201 - toks$200)))) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)))) - (+ parens$197 - 1))))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(528 - (r$712) - ((if r$712 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(511 - () - ((read-pound - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(510 - (r$715) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(508 - (new-toks$206) - ((if all?$199 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(507 - (r$714) - ((parse k$497 - fp$202 - r$714 - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196)))) - '()) - (k$497 (car new-toks$206)))))) - (cons r$715 - toks$200))))) - fp$202 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(527 - (r$716) - ((if r$716 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(523 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(522 - (r$724) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(521 - (r$725) - ((parse #((record-marker) - #((record-marker) - #f - (id args - body)) - #(520 - (r$717) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(519 - (k$722) - ((if all?$199 - (k$722 #f) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(518 - (r$723) - ((not k$722 - r$723)))) - (null? tok$201)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(517 - (r$718) - ((if r$718 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(515 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(514 - (r$719) - ((->tok #((record-marker) - #((record-marker) - #f - (id args - body)) - #(513 - (r$721) - ((add-tok - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(512 - (r$720) - ((k$497 (car r$720))))) - r$721 - toks$200)))) - tok$201)))) - ptbl$196 - c$204))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(516 - () - ((parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)))) - '())))) - '()))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(526 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(525 - (r$726) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(524 - (r$727) - ((parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)))) - ptbl$196)))) - ptbl$196))))))))) - (eq? #\; - next-c$205)))))) - (eq? #\\ - next-c$205)))))) - (eq? #\( - next-c$205)))))) - (eq? #\u - next-c$205)))))) - (eq? #\x - next-c$205)))))) - (eq? #\o - next-c$205)))))) - (eq? #\b - next-c$205)))))) - (eq? #\i - next-c$205)))))) - (eq? #\e - next-c$205)))))) - (eq? #\f - next-c$205)))))) - (eq? #\t - next-c$205)))))) - (eq? #\| - next-c$205))))) - ptbl$196 - r$728)))) - (+ 1 - r$729))))) - ptbl$196)))) - (read-char - fp$202)) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(544 - (r$730) - ((parse k$497 - fp$202 - r$730 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))) - (null? tok$201)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(550 - (r$731) - ((if r$731 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(547 - () - ((parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(549 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(548 - (r$732) - ((parse k$497 - fp$202 - r$732 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)))) - (cons c$204 - tok$201)))))))))) - (eq? c$204 - #\|)))))) - (eq? c$204 - #\#)))))) - (eq? c$204 - #\")))))) - (eq? c$204 - #\))))))) - (eq? c$204 - #\()))))) - (eq? c$204 - #\,)))))) - (eq? c$204 - #\`)))))) - (eq? c$204 - #\')))))) - (eq? c$204 #\;)))))) - c$204)))))) - (eof-object? c$204))))))))) - ptbl$196 - r$735)))) - (+ 1 r$736))))) - ptbl$196))))))))) - (define read-pound - #((record-marker) - #((record-marker) #f (id args body)) - #(266 - (k$438 fp$183 ptbl$182) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(265 - (done$187 loop$186) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(264 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(211 - (r$456) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(210 - (r$439) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(191 - (r$442) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(190 - (r$440) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(189 - (r$441) - ((loop$186 k$438 r$441)))) - '())))) - (set! loop$186 r$442))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(209 - (k$443 buf$190) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(207 - (c$191) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(205 - (tmp$192) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(204 - (k$449) - ((if tmp$192 - (k$449 tmp$192) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(203 - (k$453) - ((char-whitespace? - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(202 - (r$454) - ((if r$454 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(201 - (r$455) - ((k$453 (> r$455 - 0))))) - (length - buf$190)) - (k$453 #f))))) - c$191)))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(199 - (tmp$193) - ((if tmp$193 - (k$449 tmp$193) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(198 - (r$452) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(197 - (r$451) - ((if r$451 - (k$449 (equal? - c$191 - #\))) - (k$449 #f))))) - (> r$452 - 0))))) - (length - buf$190))))))))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(196 - (r$445) - ((if r$445 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(192 - () - ((done$187 - k$443 - buf$190))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(195 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(194 - (r$447) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(193 - (r$446) - ((loop$186 - k$443 - r$446)))) - (cons r$447 - buf$190))))) - (read-char - fp$183)))))))))))))) - (eof-object? c$191))))) - (peek-char fp$183))))))))) - (set! done$187 r$456))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(263 - (k$457 raw-buf$194) - ((reverse - #((record-marker) - #((record-marker) #f (id args body)) - #(261 - (buf$195) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(260 - (r$494) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(259 - (r$459) - ((if r$459 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(214 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(213 - (r$460) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(212 - (r$461) - ((parse-error - k$457 - "missing character" - r$460 - r$461)))) - ptbl$182)))) - ptbl$182))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(258 - (r$493) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(257 - (r$462) - ((if r$462 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(215 - () - ((k$457 (car buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(256 - (r$492) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(255 - (r$463) - ((if r$463 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(216 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(254 - (r$491) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(253 - (r$464) - ((if r$464 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(217 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(252 - (r$490) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(251 - (r$465) - ((if r$465 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(218 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(250 - (r$489) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(249 - (r$466) - ((if r$466 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(219 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(248 - (r$488) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(247 - (r$467) - ((if r$467 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(220 - () - ((k$457 #\newline))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(246 - (r$487) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(245 - (r$468) - ((if r$468 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(221 - () - ((k$457 #\))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(244 - (r$486) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(243 - (r$469) - ((if r$469 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(222 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(242 - (r$485) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(241 - (r$470) - ((if r$470 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(223 - () - ((k$457 #\space))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(240 - (r$484) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(239 - (r$471) - ((if r$471 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(224 - () - ((k$457 #\ ))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(238 - (k$480) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(237 - (r$483) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(236 - (r$481) - ((if r$481 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(235 - (r$482) - ((k$480 (equal? - r$482 - #\x))))) - (car buf$195)) - (k$480 #f))))) - (> r$483 - 1))))) - (length - buf$195))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(234 - (r$472) - ((if r$472 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(228 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(227 - (r$475) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(226 - (r$474) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(225 - (r$473) - ((k$457 (integer->char - r$473))))) - (string->number - r$474 - 16))))) - (list->string - r$475))))) - (cdr buf$195)))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(233 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(232 - (r$479) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(231 - (r$476) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(230 - (r$477) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(229 - (r$478) - ((parse-error - k$457 - r$476 - r$477 - r$478)))) - ptbl$182)))) - ptbl$182)))) - (string-append - "unable to parse character: " - r$479))))) - (list->string - buf$195))))))))))))))) - (equal? - buf$195 - r$484))))) - '(#\t - #\a - #\b)))))) - (equal? - buf$195 - r$485))))) - '(#\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$486))))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))))) - (equal? - buf$195 - r$487))))) - '(#\n - #\u - #\l - #\l)))))) - (equal? - buf$195 - r$488))))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))))) - (equal? - buf$195 - r$489))))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))))) - (equal? - buf$195 - r$490))))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))))) - (equal? - buf$195 - r$491))))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))))) - (equal? - buf$195 - r$492))))) - '(#\a - #\l - #\a - #\r - #\m)))))) - (= 1 r$493))))) - (length buf$195)))))) - (= 0 r$494))))) - (length buf$195))))) - raw-buf$194)))))))))))) - #f - #f))))) - (define read-str - #((record-marker) - #((record-marker) #f (id args body)) - #(188 - (k$426 fp$180 buf$179 ptbl$178) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(186 - (c$181) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(185 - (r$428) - ((if r$428 - (#((record-marker) - #((record-marker) #f (id args body)) - #(176 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(175 - (r$429) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(174 - (r$430) - ((parse-error - k$426 - "missing closing double-quote" - r$429 - r$430)))) - ptbl$178)))) - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(184 - (r$431) - ((if r$431 - (#((record-marker) - #((record-marker) #f (id args body)) - #(178 - () - ((read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(177 - (r$432) - ((read-str - k$426 - fp$180 - r$432 - ptbl$178)))) - fp$180 - buf$179 - ptbl$178))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(183 - (r$433) - ((if r$433 - (#((record-marker) - #((record-marker) #f (id args body)) - #(180 - () - ((reverse - #((record-marker) - #((record-marker) - #f - (id args body)) - #(179 - (r$434) - ((k$426 (list->string - r$434))))) - buf$179))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(182 - () - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(181 - (r$435) - ((read-str - k$426 - fp$180 - r$435 - ptbl$178)))) - (cons c$181 buf$179)))))))))) - (equal? #\" c$181)))))) - (equal? #\\ c$181)))))) - (eof-object? c$181))))) - (read-char fp$180)))))) - (define read-str-esc - #((record-marker) - #((record-marker) #f (id args body)) - #(173 - (k$410 fp$175 buf$174 ptbl$173) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(171 - (c$176) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(170 - (r$412) - ((if r$412 - (#((record-marker) - #((record-marker) #f (id args body)) - #(156 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(155 - (r$413) - ((in-port:get-cnum - #((record-marker) - #((record-marker) #f (id args body)) - #(154 - (r$414) - ((parse-error - k$410 - "missing escaped character within string" - r$413 - r$414)))) - ptbl$173)))) - ptbl$173))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(168 - (tmp$177) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(167 - (k$423) - ((if tmp$177 - (k$423 tmp$177) - (k$423 (equal? #\\ c$176)))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(166 - (r$415) - ((if r$415 - (#((record-marker) - #((record-marker) #f (id args body)) - #(157 - () - ((k$410 (cons c$176 buf$174)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(165 - (r$416) - ((if r$416 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(158 - () - ((k$410 (cons #\newline - buf$174)))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(164 - () - ((list #((record-marker) - #((record-marker) - #f - (id args body)) - #(163 - (r$421) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(162 - (r$420) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(161 - (r$417) - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(160 - (r$418) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(159 - (r$419) - ((parse-error - k$410 - r$417 - r$418 - r$419)))) - ptbl$173)))) - ptbl$173)))) - (string-append - "invalid escape character [" - r$420 - "] in string"))))) - (list->string - r$421))))) - c$176))))))))) - (equal? #\n c$176)))))))))) - (equal? #\" c$176)))))) - (eof-object? c$176))))) - (read-char fp$175)))))) - (define sign? - #((record-marker) - #((record-marker) #f (id args body)) - #(153 - (k$406 c$171) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(151 - (tmp$172) - ((if tmp$172 - (k$406 tmp$172) - (k$406 (equal? c$171 #\-)))))) - (equal? c$171 #\+)))))) - (define token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(150 - (k$386 a$167) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(149 - (r$403) - ((char-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(147 - (tmp$168) - ((if tmp$168 - (k$386 tmp$168) - (#((record-marker) - #((record-marker) #f (id args body)) - #(146 - (k$397) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(145 - (r$402) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(144 - (r$398) - ((if r$398 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(143 - (r$401) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(142 - (r$399) - ((if r$399 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(141 - (r$400) - ((char-numeric? - k$397 - r$400)))) - (cadr a$167)) - (k$397 #f))))) - (eq? #\. r$401))))) - (car a$167)) - (k$397 #f))))) - (> r$402 1))))) - (length a$167))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(139 - (tmp$169) - ((if tmp$169 - (k$386 tmp$169) - (#((record-marker) - #((record-marker) #f (id args body)) - #(138 - (r$396) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(137 - (r$389) - ((if r$389 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(136 - (r$395) - ((char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(134 - (tmp$170) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(133 - (k$393) - ((if tmp$170 - (k$393 tmp$170) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(132 - (r$394) - ((k$393 (eq? #\. - r$394))))) - (cadr a$167)))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(131 - (r$390) - ((if r$390 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(130 - (r$391) - ((sign? k$386 - r$391)))) - (car a$167)) - (k$386 #f))))))))) - r$395)))) - (cadr a$167)) - (k$386 #f))))) - (> r$396 1))))) - (length a$167))))))))))) - r$403)))) - (car a$167)))))) - (define parse-atom - #((record-marker) - #((record-marker) #f (id args body)) - #(129 - (k$380 a$166) - ((token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(128 - (r$381) - ((if r$381 - (#((record-marker) - #((record-marker) #f (id args body)) - #(125 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(124 (r$382) ((k$380 (string->number r$382))))) - (list->string a$166)))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(127 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(126 (r$383) ((k$380 (string->symbol r$383))))) - (list->string a$166)))))))))) - a$166))))) - (define get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(123 - (k$376 fp$165 ptbl$164) - ((in-port:get-buf - #((record-marker) - #((record-marker) #f (id args body)) - #(122 - (r$377) - ((if r$377 - (in-port:read-buf! k$376 ptbl$164) - (k$376 (read-char fp$165)))))) - ptbl$164))))) - (define read-block-comment - #((record-marker) - #((record-marker) #f (id args body)) - #(121 - (k$371 fp$162 ptbl$161) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(119 - (c$163) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(118 - (r$373) - ((if r$373 - (#((record-marker) - #((record-marker) #f (id args body)) - #(116 - () - ((read-block-terminator k$371 fp$162 ptbl$161))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(117 - () - ((read-block-comment k$371 fp$162 ptbl$161))))))))) - (eq? #\| c$163))))) - fp$162 - ptbl$161))))) - (define read-block-terminator - #((record-marker) - #((record-marker) #f (id args body)) - #(115 - (k$365 fp$159 ptbl$158) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(113 - (c$160) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(112 - (r$367) - ((if r$367 - (#((record-marker) - #((record-marker) #f (id args body)) - #(108 () ((k$365 #t))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(111 - (r$368) - ((if r$368 - (#((record-marker) - #((record-marker) #f (id args body)) - #(109 - () - ((read-block-terminator - k$365 - fp$159 - ptbl$158))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(110 - () - ((read-block-comment - k$365 - fp$159 - ptbl$158))))))))) - (eq? #\| c$160)))))) - (eq? #\# c$160))))) - fp$159 - ptbl$158))))) - (define parse-literal-identifier - #((record-marker) - #((record-marker) #f (id args body)) - #(107 - (k$358 fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(106 - (r$362) - ((parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(104 - (sym$157) - ((if all?$154 - (#((record-marker) - #((record-marker) #f (id args body)) - #(103 - (r$360) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(102 - (r$361) - ((parse k$358 - fp$156 - r$360 - r$361 - all?$154 - #f - parens$153 - ptbl$152)))) - (cons sym$157 toks$155))))) - '()) - (k$358 sym$157))))) - fp$156 - r$362 - ptbl$152)))) - '()))))) - (define parse-li-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(101 - (k$343 fp$147 tok$146 ptbl$145) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(100 - (r$344) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(97 - (r$345) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(96 - (c$150 next$149) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(95 - (r$346) - ((if r$346 - (#((record-marker) - #((record-marker) #f (id args body)) - #(89 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(88 - (k$348) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(87 - (r$349) - ((if r$349 - (k$348 "||") - (reverse - #((record-marker) - #((record-marker) - #f - (id args body)) - #(86 - (r$350) - ((k$348 (list->string - r$350))))) - tok$146))))) - (null? tok$146))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(84 - (str$151) - ((k$343 (string->symbol - str$151)))))))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(94 - (r$351) - ((if r$351 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(92 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(91 - (r$352) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(90 - (r$353) - ((parse-error - k$343 - "EOF encountered parsing literal identifier" - r$352 - r$353)))) - ptbl$145)))) - ptbl$145))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(93 - () - ((next$149 k$343 c$150))))))))) - (eof-object? c$150)))))) - (eq? #\| c$150))))) - r$344 - r$345)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(99 - (k$354 c$148) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(98 - (r$355) - ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) - (cons c$148 tok$146))))))))) - fp$147 - ptbl$145))))) - (define parse-number - #((record-marker) - #((record-marker) #f (id args body)) - #(83 - (k$325 fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(82 - (r$340) - ((parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(80 - (num$142) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(79 - (k$333) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(78 - (r$334) - ((if r$334 - (k$333 #f) - (token-numeric? - #((record-marker) - #((record-marker) #f (id args body)) - #(76 - (tmp$144) - ((if tmp$144 - (k$333 tmp$144) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(75 - (r$339) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(74 - (r$336) - ((if r$336 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(73 - (r$337) - ((if r$337 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(72 - (r$338) - ((hex-digit? - k$333 - r$338)))) - (car num$142)) - (k$333 #f))))) - (= base$136 16)) - (k$333 #f))))) - (> r$339 0))))) - (length num$142)))))) - num$142))))) - (null? num$142))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(71 - (r$327) - ((if r$327 - (#((record-marker) - #((record-marker) #f (id args body)) - #(67 - () - ((tok->num$135 - #((record-marker) - #((record-marker) #f (id args body)) - #(65 - (result$143) - ((if all?$139 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(64 - (r$329) - ((#((record-marker) - #((record-marker) - #f - (id args body)) - #(63 - (r$330) - ((parse k$325 - fp$141 - r$329 - r$330 - all?$139 - #f - parens$138 - ptbl$137)))) - (cons result$143 - toks$140))))) - '()) - (k$325 result$143))))) - num$142))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(70 - () - ((in-port:get-lnum - #((record-marker) - #((record-marker) #f (id args body)) - #(69 - (r$331) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args body)) - #(68 - (r$332) - ((parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)))) - ptbl$137)))) - ptbl$137))))))))))))) - base$136 - fp$141 - r$340 - ptbl$137)))) - '()))))) - (define parse-number-rec - #((record-marker) - #((record-marker) #f (id args body)) - #(62 - (k$301 base$130 fp$129 tok$128 ptbl$127) - ((get-next-char - #((record-marker) - #((record-marker) #f (id args body)) - #(61 - (r$302) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(58 - (r$303) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(57 - (c$133 next$132) - ((sign? #((record-marker) - #((record-marker) #f (id args body)) - #(56 - (r$304) - ((if r$304 - (#((record-marker) - #((record-marker) #f (id args body)) - #(34 () ((next$132 k$301 c$133))))) - (#((record-marker) - #((record-marker) #f (id args body)) - #(55 - (r$305) - ((if r$305 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(35 - () - ((next$132 - k$301 - c$133))))) - (char-numeric? - #((record-marker) - #((record-marker) - #f - (id args body)) - #(54 - (r$306) - ((if r$306 - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(47 - () - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(46 - (k$308) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(45 - (k$315) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(44 - (r$316) - ((if r$316 - (char>? - k$315 - c$133 - #\1) - (k$315 #f))))) - (= base$130 - 2))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(42 - (tmp$134) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(41 - (k$313) - ((if tmp$134 - (k$313 tmp$134) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(40 - (r$314) - ((if r$314 - (char>? - k$313 - c$133 - #\7) - (k$313 #f))))) - (= base$130 - 8)))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(39 - (r$309) - ((if r$309 - (in-port:get-lnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(38 - (r$310) - ((in-port:get-cnum - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(37 - (r$311) - ((parse-error - k$308 - "Illegal digit" - r$310 - r$311)))) - ptbl$127)))) - ptbl$127) - (k$308 #f))))))))))))) - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(36 - (r$307) - ((next$132 - k$301 - c$133))))))))) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(53 - (k$319) - ((#((record-marker) - #((record-marker) - #f - (id args - body)) - #(52 - (r$320) - ((if r$320 - (hex-digit? - k$319 - c$133) - (k$319 #f))))) - (= base$130 - 16))))) - #((record-marker) - #((record-marker) - #f - (id args body)) - #(51 - (r$317) - ((if r$317 - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(48 - () - ((next$132 - k$301 - c$133))))) - (#((record-marker) - #((record-marker) - #f - (id args - body)) - #(50 - () - ((in-port:set-buf! - #((record-marker) - #((record-marker) - #f - (id args - body)) - #(49 - (r$318) - ((reverse - k$301 - tok$128)))) - ptbl$127 - c$133)))))))))))))) - c$133))))) - (eq? #\. c$133)))))) - c$133)))) - r$302 - r$303)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(60 - (k$321 c$131) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(59 - (r$322) - ((parse-number-rec - k$321 - base$130 - fp$129 - r$322 - ptbl$127)))) - (cons c$131 tok$128))))))))) - fp$129 - ptbl$127))))) - (define hex-digit? - #((record-marker) - #((record-marker) #f (id args body)) - #(33 - (k$294 c$125) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(32 - (k$297) - ((char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(31 - (r$298) - ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) - c$125 - #\a)))) - #((record-marker) - #((record-marker) #f (id args body)) - #(29 - (tmp$126) - ((if tmp$126 - (k$294 tmp$126) - (char>=? - #((record-marker) - #((record-marker) #f (id args body)) - #(28 - (r$296) - ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) - c$125 - #\A)))))))))) - (define cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(27 - (k$285 . args$123) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(26 - (k$290) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(25 - (r$291) - ((if r$291 - (current-input-port k$290) - (k$290 (car args$123)))))) - (null? args$123))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(23 - (fp$124) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(22 - (r$287) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(21 - (r$288) - ((reg-port - #((record-marker) - #((record-marker) #f (id args body)) - #(20 - (r$289) - ((parse k$285 - fp$124 - r$287 - r$288 - #f - #f - 0 - r$289)))) - fp$124)))) - '())))) - '()))))))))) - (define read-all - #((record-marker) - #((record-marker) #f (id args body)) - #(19 - (k$272 . args$116) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(18 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(17 - (k$281) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(16 - (r$282) - ((if r$282 - (current-input-port k$281) - (k$281 (car args$116)))))) - (null? args$116))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(14 - (fp$118) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(13 - (loop$119) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(7 - (r$276) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(6 - (r$274) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(5 - (r$275) - ((loop$119 k$272 fp$118 r$275)))) - '())))) - (set! loop$119 r$276))))) - #((record-marker) - #((record-marker) #f (id args body)) - #(12 - (k$277 fp$121 result$120) - ((cyc-read - #((record-marker) - #((record-marker) #f (id args body)) - #(10 - (obj$122) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(9 - (r$279) - ((if r$279 - (reverse k$277 result$120) - (#((record-marker) - #((record-marker) - #f - (id args body)) - #(8 - (r$280) - ((loop$119 - k$277 - fp$121 - r$280)))) - (cons obj$122 result$120)))))) - (eof-object? obj$122))))) - fp$121)))))))) - #f))))))))))))) - (define lib-init:schemeread - #((record-marker) - #((record-marker) #f (id args body)) - #(4 - (k$266) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(3 - () - ((#((record-marker) - #((record-marker) #f (id args body)) - #(2 - (r$268) - ((#((record-marker) - #((record-marker) #f (id args body)) - #(1 - (r$269) - ((k$266 (set! *in-port-table* r$269))))) - '())))) - (set! read cyc-read))))))))))) - */ -/* -"---------------- after wrap-mutables:" - */ -/* -((define read #f) - (define *in-port-table* #f) - (define reg-port - (lambda (k$812 fp$262) - ((lambda (r$263) - ((lambda (r$263) - (if (cell-get r$263) - ((lambda () (k$812 (cell-get r$263)))) - ((lambda () - (list (lambda (r$817) - ((lambda (r$814) - ((lambda (r$816) - ((lambda (r$815) (k$812 (cell-get r$263))) - (set-global! *in-port-table* r$816))) - (cons (cell-get r$263) *in-port-table*))) - (set-cell! r$263 r$817))) - fp$262 - #f - 1 - 0))))) - (cell r$263))) - (assoc fp$262 *in-port-table*)))) - (define in-port:read-buf! - (lambda (k$807 ptbl$260) - ((lambda (result$261) - (in-port:set-buf! - (lambda (r$809) (k$807 result$261)) - ptbl$260 - #f)) - (cadr ptbl$260)))) - (define in-port:get-buf - (lambda (k$804 ptbl$259) (k$804 (cadr ptbl$259)))) - (define in-port:set-buf! - (lambda (k$800 ptbl$258 buf$257) - ((lambda (r$801) (k$800 (set-car! r$801 buf$257))) - (cdr ptbl$258)))) - (define in-port:get-lnum - (lambda (k$797 ptbl$256) - (k$797 (caddr ptbl$256)))) - (define in-port:set-lnum! - (lambda (k$793 ptbl$255 lnum$254) - ((lambda (r$794) - (k$793 (set-car! r$794 lnum$254))) - (cddr ptbl$255)))) - (define in-port:get-cnum - (lambda (k$790 ptbl$253) - (k$790 (cadddr ptbl$253)))) - (define in-port:set-cnum! - (lambda (k$786 ptbl$252 cnum$251) - ((lambda (r$787) - (k$786 (set-car! r$787 cnum$251))) - (cdddr ptbl$252)))) - (define add-tok - (lambda (k$783 tok$250 toks$249) - (k$783 (cons tok$250 toks$249)))) - (define get-toks - (lambda (k$778 tok$248 toks$247) - ((lambda (r$779) - (if r$779 - (k$778 toks$247) - (->tok (lambda (r$780) (add-tok k$778 r$780 toks$247)) - tok$248))) - (null? tok$248)))) - (define ->tok - (lambda (k$774 lst$246) - (reverse - (lambda (r$775) (parse-atom k$774 r$775)) - lst$246))) - (define dotted? - (lambda (k$766 lst$245) - ((lambda (r$771) - ((lambda (r$767) - (if r$767 - (reverse - (lambda (r$770) - ((lambda (r$768) - ((lambda (r$769) (k$766 (equal? r$768 r$769))) - (string->symbol "."))) - (cadr r$770))) - lst$245) - (k$766 #f))) - (> r$771 2))) - (length lst$245)))) - (define ->dotted-list - (lambda (k$756 lst$244) - ((lambda (r$757) - (if r$757 - ((lambda () (k$756 '()))) - ((lambda (r$762) - ((lambda (r$763) - ((lambda (r$758) - (if r$758 - ((lambda () (k$756 (cadr lst$244)))) - ((lambda () - ((lambda (r$759) - ((lambda (r$761) - (->dotted-list - (lambda (r$760) (k$756 (cons r$759 r$760))) - r$761)) - (cdr lst$244))) - (car lst$244)))))) - (equal? r$762 r$763))) - (string->symbol "."))) - (car lst$244)))) - (null? lst$244)))) - (define parse-error - (lambda (k$750 msg$243 lnum$242 cnum$241) - ((lambda (r$752) - ((lambda (r$753) - ((lambda (r$751) (error k$750 r$751)) - (string-append - "Error (line " - r$752 - ", char " - r$753 - "): " - msg$243))) - (number->string cnum$241))) - (number->string lnum$242)))) - (define parse/tok - (lambda (k$739 - fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((lambda (r$740) - (if r$740 - ((lambda () - ((lambda (r$741) - (parse k$739 - fp$240 - r$741 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234)) - '()))) - (if all?$237 - ((lambda () - ((lambda (r$742) - (->tok (lambda (r$744) - (add-tok - (lambda (r$743) - (parse k$739 - fp$240 - r$742 - r$743 - all?$237 - comment?$236 - parens$235 - ptbl$234)) - r$744 - toks$238)) - tok$239)) - '()))) - ((lambda () - (in-port:set-buf! - (lambda (r$745) - (->tok (lambda (r$747) - (add-tok - (lambda (r$746) (k$739 (car r$746))) - r$747 - toks$238)) - tok$239)) - ptbl$234 - curr-char$233)))))) - (null? tok$239)))) - (define parse - (lambda (k$497 - fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((lambda () - (in-port:get-cnum - (lambda (r$736) - ((lambda (r$735) - (in-port:set-cnum! - (lambda (r$498) - ((lambda (k$733) - (in-port:get-buf - (lambda (r$734) - (if r$734 - (in-port:read-buf! k$733 ptbl$196) - (k$733 (read-char fp$202)))) - ptbl$196)) - (lambda (c$204) - ((lambda (r$500) - (if r$500 - ((lambda () - ((lambda (k$506) - ((lambda (r$507) - (if r$507 - (in-port:get-lnum - (lambda (r$508) - (in-port:get-cnum - (lambda (r$509) - (parse-error - k$506 - "missing closing parenthesis" - r$508 - r$509)) - ptbl$196)) - ptbl$196) - (k$506 #f))) - (> parens$197 0))) - (lambda (r$501) - (if all?$199 - (get-toks - (lambda (r$502) (reverse k$497 r$502)) - tok$201 - toks$200) - (get-toks - (lambda (last$232) - ((lambda (r$505) - ((lambda (r$504) - (if r$504 - (k$497 (car last$232)) - (k$497 c$204))) - (> r$505 0))) - (length last$232))) - tok$201 - toks$200)))))) - (if comment?$198 - ((lambda () - ((lambda (r$510) - (if r$510 - ((lambda () - (in-port:get-lnum - (lambda (r$515) - ((lambda (r$514) - (in-port:set-lnum! - (lambda (r$511) - (in-port:set-cnum! - (lambda (r$512) - ((lambda (r$513) - (parse k$497 - fp$202 - r$513 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)) - '())) - ptbl$196 - 0)) - ptbl$196 - r$514)) - (+ 1 r$515))) - ptbl$196))) - ((lambda (r$516) - (parse k$497 - fp$202 - r$516 - toks$200 - all?$199 - #t - parens$197 - ptbl$196)) - '()))) - (eq? c$204 #\newline)))) - (char-whitespace? - (lambda (r$517) - (if r$517 - ((lambda () - ((lambda (k$522) - ((lambda (r$523) - (if r$523 - (in-port:get-lnum - (lambda (r$525) - ((lambda (r$524) - (in-port:set-lnum! - k$522 - ptbl$196 - r$524)) - (+ 1 r$525))) - ptbl$196) - (k$522 #f))) - (equal? c$204 #\newline))) - (lambda (r$518) - ((lambda (k$520) - ((lambda (r$521) - (if r$521 - (in-port:set-cnum! - k$520 - ptbl$196 - 0) - (k$520 #f))) - (equal? c$204 #\newline))) - (lambda (r$519) - (parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196 - c$204))))))) - ((lambda (r$526) - (if r$526 - ((lambda () - (parse/tok - k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #t - parens$197 - ptbl$196 - c$204))) - ((lambda (r$527) - (if r$527 - ((lambda () - ((lambda (k$541) - (if all?$199 - (k$541 #f) - ((lambda (r$542) - (not k$541 r$542)) - (null? tok$201)))) - (lambda (r$528) - (if r$528 - ((lambda () - (in-port:set-buf! - (lambda (r$529) - (->tok (lambda (r$531) - (add-tok - (lambda (r$530) - (k$497 (car r$530))) - r$531 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda () - ((lambda (r$539) - ((lambda (r$540) - (parse (lambda (sub$230) - ((lambda (new-toks$231) - ((lambda (new-toks$231) - ((lambda (r$538) - (list (lambda (r$536) - (get-toks - (lambda (r$537) - (add-tok - (lambda (r$535) - ((lambda (r$533) - (if all?$199 - ((lambda (r$534) - (parse k$497 - fp$202 - r$534 - (cell-get - new-toks$231) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$231))))) - (set-cell! - new-toks$231 - r$535))) - r$536 - r$537)) - tok$201 - toks$200)) - r$538 - sub$230)) - 'quote)) - (cell new-toks$231))) - #f)) - fp$202 - r$539 - r$540 - #f - #f - 0 - ptbl$196)) - '())) - '())))))))) - ((lambda (r$543) - (if r$543 - ((lambda () - ((lambda (k$557) - (if all?$199 - (k$557 #f) - ((lambda (r$558) - (not k$557 r$558)) - (null? tok$201)))) - (lambda (r$544) - (if r$544 - ((lambda () - (in-port:set-buf! - (lambda (r$545) - (->tok (lambda (r$547) - (add-tok - (lambda (r$546) - (k$497 (car r$546))) - r$547 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda () - ((lambda (r$555) - ((lambda (r$556) - (parse (lambda (sub$228) - ((lambda (new-toks$229) - ((lambda (new-toks$229) - ((lambda (r$554) - (list (lambda (r$552) - (get-toks - (lambda (r$553) - (add-tok - (lambda (r$551) - ((lambda (r$549) - (if all?$199 - ((lambda (r$550) - (parse k$497 - fp$202 - r$550 - (cell-get - new-toks$229) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$229))))) - (set-cell! - new-toks$229 - r$551))) - r$552 - r$553)) - tok$201 - toks$200)) - r$554 - sub$228)) - 'quasiquote)) - (cell new-toks$229))) - #f)) - fp$202 - r$555 - r$556 - #f - #f - 0 - ptbl$196)) - '())) - '())))))))) - ((lambda (r$559) - (if r$559 - ((lambda () - ((lambda (k$587) - (if all?$199 - (k$587 #f) - ((lambda (r$588) - (not k$587 - r$588)) - (null? tok$201)))) - (lambda (r$560) - (if r$560 - ((lambda () - (in-port:set-buf! - (lambda (r$561) - (->tok (lambda (r$563) - (add-tok - (lambda (r$562) - (k$497 (car r$562))) - r$563 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda () - ((lambda (sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((lambda (sub$227) - ((lambda (next-c$226) - ((lambda (unquote-sym$225) - ((lambda (new-toks$224) - ((lambda (r$564) - ((lambda (r$586) - ((lambda (r$565) - ((lambda (k$584) - ((lambda (r$585) - (if r$585 - (k$584 'unquote-splicing) - (k$584 'unquote))) - (equal? - (cell-get - next-c$226) - #\@))) - (lambda (r$583) - ((lambda (r$566) - ((lambda (r$567) - ((lambda (k$578) - ((lambda (r$579) - (if r$579 - ((lambda () - (in-port:get-lnum - (lambda (r$580) - (in-port:get-cnum - (lambda (r$581) - (parse-error - k$578 - "unexpected end of file" - r$580 - r$581)) - ptbl$196)) - ptbl$196))) - ((lambda (r$582) - (if r$582 - ((lambda () - (k$578 #f))) - ((lambda () - (in-port:set-buf! - k$578 - ptbl$196 - (cell-get - next-c$226)))))) - (equal? - (cell-get - next-c$226) - #\@)))) - (eof-object? - (cell-get - next-c$226)))) - (lambda (r$568) - ((lambda (r$576) - ((lambda (r$577) - (parse (lambda (r$575) - ((lambda (r$569) - (list (lambda (r$573) - (get-toks - (lambda (r$574) - (add-tok - (lambda (r$572) - ((lambda (r$570) - (if all?$199 - ((lambda (r$571) - (parse k$497 - fp$202 - r$571 - (cell-get - new-toks$224) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$224))))) - (set-cell! - new-toks$224 - r$572))) - r$573 - r$574)) - tok$201 - toks$200)) - (cell-get - unquote-sym$225) - (cell-get - sub$227))) - (set-cell! - sub$227 - r$575))) - fp$202 - r$576 - r$577 - #f - #f - 0 - ptbl$196)) - '())) - '())))) - (set-cell! - new-toks$224 - #f))) - (set-cell! - unquote-sym$225 - r$583))))) - (set-cell! - next-c$226 - r$586))) - (read-char - fp$202))) - (set-cell! - sub$227 - #f))) - (cell new-toks$224))) - (cell unquote-sym$225))) - (cell next-c$226))) - (cell sub$227))) - #f - #f - #f - #f)))))))) - ((lambda (r$589) - (if r$589 - ((lambda () - ((lambda (k$607) - (if all?$199 - (k$607 #f) - ((lambda (r$608) - (not k$607 - r$608)) - (null? tok$201)))) - (lambda (r$590) - (if r$590 - ((lambda () - (in-port:set-buf! - (lambda (r$591) - (->tok (lambda (r$593) - (add-tok - (lambda (r$592) - (k$497 (car r$592))) - r$593 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda () - ((lambda (r$604) - ((lambda (r$605) - ((lambda (r$606) - (parse (lambda (r$594) - (get-toks - (lambda (r$595) - ((lambda (sub$222 - toks*$221) - ((lambda (new-toks$223) - ((lambda (new-toks$223) - ((lambda (k$600) - ((lambda (k$602) - ((lambda (r$603) - (if r$603 - (dotted? - k$602 - sub$222) - (k$602 #f))) - (pair? sub$222))) - (lambda (r$601) - (if r$601 - (->dotted-list - k$600 - sub$222) - (k$600 sub$222))))) - (lambda (r$599) - (add-tok - (lambda (r$598) - ((lambda (r$596) - (if all?$199 - ((lambda (r$597) - (parse k$497 - fp$202 - r$597 - (cell-get - new-toks$223) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$223))))) - (set-cell! - new-toks$223 - r$598))) - r$599 - toks*$221)))) - (cell new-toks$223))) - #f)) - r$594 - r$595)) - tok$201 - toks$200)) - fp$202 - r$604 - r$605 - #t - #f - r$606 - ptbl$196)) - (+ parens$197 - 1))) - '())) - '())))))))) - ((lambda (r$609) - (if r$609 - ((lambda () - ((lambda (k$618) - (if all?$199 - (k$618 #f) - ((lambda (r$619) - (not k$618 - r$619)) - (null? tok$201)))) - (lambda (r$610) - (if r$610 - ((lambda () - (in-port:set-buf! - (lambda (r$611) - (->tok (lambda (r$613) - (add-tok - (lambda (r$612) - (k$497 (car r$612))) - r$613 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda (r$614) - (if r$614 - ((lambda () - (in-port:get-lnum - (lambda (r$615) - (in-port:get-cnum - (lambda (r$616) - (parse-error - k$497 - "unexpected closing parenthesis" - r$615 - r$616)) - ptbl$196)) - ptbl$196))) - ((lambda () - (get-toks - (lambda (r$617) - (reverse - k$497 - r$617)) - tok$201 - toks$200))))) - (= parens$197 - 0))))))) - ((lambda (r$620) - (if r$620 - ((lambda () - ((lambda (k$631) - (if all?$199 - (k$631 #f) - ((lambda (r$632) - (not k$631 - r$632)) - (null? tok$201)))) - (lambda (r$621) - (if r$621 - ((lambda () - (in-port:set-buf! - (lambda (r$622) - (->tok (lambda (r$624) - (add-tok - (lambda (r$623) - (k$497 (car r$623))) - r$624 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda () - ((lambda (r$630) - (read-str - (lambda (r$625) - (get-toks - (lambda (r$626) - ((lambda (str$219 - toks*$218) - ((lambda (new-toks$220) - ((lambda (new-toks$220) - (add-tok - (lambda (r$629) - ((lambda (r$627) - (if all?$199 - ((lambda (r$628) - (parse k$497 - fp$202 - r$628 - (cell-get - new-toks$220) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$220))))) - (set-cell! - new-toks$220 - r$629))) - str$219 - toks*$218)) - (cell new-toks$220))) - #f)) - r$625 - r$626)) - tok$201 - toks$200)) - fp$202 - r$630 - ptbl$196)) - '())))))))) - ((lambda (r$633) - (if r$633 - ((lambda () - ((lambda (r$634) - (if r$634 - ((lambda (next-c$205) - ((lambda (next-c$205) - (in-port:get-cnum - (lambda (r$729) - ((lambda (r$728) - (in-port:set-cnum! - (lambda (r$636) - ((lambda (r$637) - (if r$637 - ((lambda () - (read-block-comment - (lambda (r$638) - ((lambda (r$639) - (parse k$497 - fp$202 - r$639 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)) - '())) - fp$202 - ptbl$196))) - ((lambda (r$640) - (if r$640 - ((lambda () - (if all?$199 - ((lambda (r$641) - ((lambda (r$642) - (parse k$497 - fp$202 - r$641 - r$642 - all?$199 - #f - parens$197 - ptbl$196)) - (cons #t - toks$200))) - '()) - (k$497 #t)))) - ((lambda (r$643) - (if r$643 - ((lambda () - (if all?$199 - ((lambda (r$644) - ((lambda (r$645) - (parse k$497 - fp$202 - r$644 - r$645 - all?$199 - #f - parens$197 - ptbl$196)) - (cons #f - toks$200))) - '()) - (k$497 #f)))) - ((lambda (r$646) - (if r$646 - ((lambda () - ((lambda (r$647) - (parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$647)) - (lambda (k$648 - num$217) - (parse-atom - (lambda (r$649) - (exact k$648 - r$649)) - num$217))))) - ((lambda (r$650) - (if r$650 - ((lambda () - ((lambda (r$651) - (parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 10 - r$651)) - (lambda (k$652 - num$216) - (parse-atom - (lambda (r$653) - (inexact - k$652 - r$653)) - num$216))))) - ((lambda (r$654) - (if r$654 - ((lambda () - ((lambda (r$655) - (parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 2 - r$655)) - (lambda (k$656 - num$215) - ((lambda (r$657) - (k$656 (string->number - r$657 - 2))) - (list->string - num$215)))))) - ((lambda (r$658) - (if r$658 - ((lambda () - ((lambda (r$659) - (parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 8 - r$659)) - (lambda (k$660 - num$214) - ((lambda (r$661) - (k$660 (string->number - r$661 - 8))) - (list->string - num$214)))))) - ((lambda (r$662) - (if r$662 - ((lambda () - ((lambda (r$663) - (parse-number - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196 - 16 - r$663)) - (lambda (k$664 - num$213) - ((lambda (r$665) - (k$664 (string->number - r$665 - 16))) - (list->string - num$213)))))) - ((lambda (r$666) - (if r$666 - ((lambda () - ((lambda (r$695) - ((lambda (r$667) - ((lambda (k$691) - ((lambda (r$692) - (if r$692 - (k$691 #f) - (in-port:get-lnum - (lambda (r$693) - (in-port:get-cnum - (lambda (r$694) - (parse-error - k$691 - "Unhandled input sequence" - r$693 - r$694)) - ptbl$196)) - ptbl$196))) - (eq? #\8 - (cell-get - next-c$205)))) - (lambda (r$668) - ((lambda (r$690) - ((lambda (r$669) - ((lambda (k$686) - ((lambda (r$687) - (if r$687 - (k$686 #f) - (in-port:get-lnum - (lambda (r$688) - (in-port:get-cnum - (lambda (r$689) - (parse-error - k$686 - "Unhandled input sequence" - r$688 - r$689)) - ptbl$196)) - ptbl$196))) - (eq? #\( - (cell-get - next-c$205)))) - (lambda (r$670) - ((lambda (r$683) - ((lambda (r$684) - ((lambda (r$685) - (parse (lambda (r$671) - (get-toks - (lambda (r$672) - ((lambda (sub$211 - toks*$210) - ((lambda (new-toks$212) - ((lambda (new-toks$212) - ((lambda (k$677) - ((lambda (k$681) - ((lambda (r$682) - (if r$682 - (dotted? - k$681 - sub$211) - (k$681 #f))) - (pair? sub$211))) - (lambda (r$678) - (if r$678 - (in-port:get-lnum - (lambda (r$679) - (in-port:get-cnum - (lambda (r$680) - (parse-error - k$677 - "Invalid vector syntax" - r$679 - r$680)) - ptbl$196)) - ptbl$196) - (k$677 (apply bytevector - sub$211)))))) - (lambda (r$676) - (add-tok - (lambda (r$675) - ((lambda (r$673) - (if all?$199 - ((lambda (r$674) - (parse k$497 - fp$202 - r$674 - (cell-get - new-toks$212) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$212))))) - (set-cell! - new-toks$212 - r$675))) - r$676 - toks*$210)))) - (cell new-toks$212))) - #f)) - r$671 - r$672)) - tok$201 - toks$200)) - fp$202 - r$683 - r$684 - #t - #f - r$685 - ptbl$196)) - (+ parens$197 - 1))) - '())) - '())))) - (set-cell! - next-c$205 - r$690))) - (read-char - fp$202))))) - (set-cell! - next-c$205 - r$695))) - (read-char - fp$202)))) - ((lambda (r$696) - (if r$696 - ((lambda () - ((lambda (r$709) - ((lambda (r$710) - ((lambda (r$711) - (parse (lambda (r$697) - (get-toks - (lambda (r$698) - ((lambda (sub$208 - toks*$207) - ((lambda (new-toks$209) - ((lambda (new-toks$209) - ((lambda (k$703) - ((lambda (k$707) - ((lambda (r$708) - (if r$708 - (dotted? - k$707 - sub$208) - (k$707 #f))) - (pair? sub$208))) - (lambda (r$704) - (if r$704 - (in-port:get-lnum - (lambda (r$705) - (in-port:get-cnum - (lambda (r$706) - (parse-error - k$703 - "Invalid vector syntax" - r$705 - r$706)) - ptbl$196)) - ptbl$196) - (k$703 (list->vector - sub$208)))))) - (lambda (r$702) - (add-tok - (lambda (r$701) - ((lambda (r$699) - (if all?$199 - ((lambda (r$700) - (parse k$497 - fp$202 - r$700 - (cell-get - new-toks$209) - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car (cell-get - new-toks$209))))) - (set-cell! - new-toks$209 - r$701))) - r$702 - toks*$207)))) - (cell new-toks$209))) - #f)) - r$697 - r$698)) - tok$201 - toks$200)) - fp$202 - r$709 - r$710 - #t - #f - r$711 - ptbl$196)) - (+ parens$197 - 1))) - '())) - '()))) - ((lambda (r$712) - (if r$712 - ((lambda () - (read-pound - (lambda (r$715) - ((lambda (new-toks$206) - (if all?$199 - ((lambda (r$714) - (parse k$497 - fp$202 - r$714 - new-toks$206 - all?$199 - #f - parens$197 - ptbl$196)) - '()) - (k$497 (car new-toks$206)))) - (cons r$715 - toks$200))) - fp$202 - ptbl$196))) - ((lambda (r$716) - (if r$716 - ((lambda () - ((lambda (r$724) - ((lambda (r$725) - (parse (lambda (r$717) - ((lambda (k$722) - (if all?$199 - (k$722 #f) - ((lambda (r$723) - (not k$722 - r$723)) - (null? tok$201)))) - (lambda (r$718) - (if r$718 - ((lambda () - (in-port:set-buf! - (lambda (r$719) - (->tok (lambda (r$721) - (add-tok - (lambda (r$720) - (k$497 (car r$720))) - r$721 - toks$200)) - tok$201)) - ptbl$196 - c$204))) - ((lambda () - (parse k$497 - fp$202 - tok$201 - toks$200 - all?$199 - #f - parens$197 - ptbl$196))))))) - fp$202 - r$724 - r$725 - #f - #f - 0 - ptbl$196)) - '())) - '()))) - ((lambda () - (in-port:get-lnum - (lambda (r$726) - (in-port:get-cnum - (lambda (r$727) - (parse-error - k$497 - "Unhandled input sequence" - r$726 - r$727)) - ptbl$196)) - ptbl$196))))) - (eq? #\; - (cell-get - next-c$205))))) - (eq? #\\ - (cell-get - next-c$205))))) - (eq? #\( - (cell-get - next-c$205))))) - (eq? #\u - (cell-get - next-c$205))))) - (eq? #\x - (cell-get - next-c$205))))) - (eq? #\o - (cell-get - next-c$205))))) - (eq? #\b - (cell-get - next-c$205))))) - (eq? #\i - (cell-get - next-c$205))))) - (eq? #\e - (cell-get - next-c$205))))) - (eq? #\f - (cell-get - next-c$205))))) - (eq? #\t - (cell-get - next-c$205))))) - (eq? #\| - (cell-get - next-c$205)))) - ptbl$196 - r$728)) - (+ 1 - r$729))) - ptbl$196)) - (cell next-c$205))) - (read-char - fp$202)) - ((lambda (r$730) - (parse k$497 - fp$202 - r$730 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)) - (cons c$204 - tok$201)))) - (null? tok$201)))) - ((lambda (r$731) - (if r$731 - ((lambda () - (parse-literal-identifier - k$497 - fp$202 - toks$200 - all?$199 - parens$197 - ptbl$196))) - ((lambda () - ((lambda (r$732) - (parse k$497 - fp$202 - r$732 - toks$200 - all?$199 - #f - parens$197 - ptbl$196)) - (cons c$204 - tok$201)))))) - (eq? c$204 - #\|)))) - (eq? c$204 - #\#)))) - (eq? c$204 - #\")))) - (eq? c$204 #\))))) - (eq? c$204 #\()))) - (eq? c$204 #\,)))) - (eq? c$204 #\`)))) - (eq? c$204 #\')))) - (eq? c$204 #\;)))) - c$204)))) - (eof-object? c$204))))) - ptbl$196 - r$735)) - (+ 1 r$736))) - ptbl$196))))) - (define read-pound - (lambda (k$438 fp$183 ptbl$182) - ((lambda (done$187 loop$186) - ((lambda (done$187) - ((lambda (loop$186) - ((lambda () - ((lambda (r$456) - ((lambda (r$439) - ((lambda (r$442) - ((lambda (r$440) - ((lambda (r$441) - ((cell-get loop$186) k$438 r$441)) - '())) - (set-cell! loop$186 r$442))) - (lambda (k$443 buf$190) - ((lambda (c$191) - ((lambda (tmp$192) - ((lambda (k$449) - (if tmp$192 - (k$449 tmp$192) - ((lambda (k$453) - (char-whitespace? - (lambda (r$454) - (if r$454 - ((lambda (r$455) - (k$453 (> r$455 0))) - (length buf$190)) - (k$453 #f))) - c$191)) - (lambda (tmp$193) - (if tmp$193 - (k$449 tmp$193) - ((lambda (r$452) - ((lambda (r$451) - (if r$451 - (k$449 (equal? c$191 #\))) - (k$449 #f))) - (> r$452 0))) - (length buf$190))))))) - (lambda (r$445) - (if r$445 - ((lambda () - ((cell-get done$187) k$443 buf$190))) - ((lambda () - ((lambda (r$447) - ((lambda (r$446) - ((cell-get loop$186) k$443 r$446)) - (cons r$447 buf$190))) - (read-char fp$183)))))))) - (eof-object? c$191))) - (peek-char fp$183))))) - (set-cell! done$187 r$456))) - (lambda (k$457 raw-buf$194) - (reverse - (lambda (buf$195) - ((lambda (r$494) - ((lambda (r$459) - (if r$459 - ((lambda () - (in-port:get-lnum - (lambda (r$460) - (in-port:get-cnum - (lambda (r$461) - (parse-error - k$457 - "missing character" - r$460 - r$461)) - ptbl$182)) - ptbl$182))) - ((lambda (r$493) - ((lambda (r$462) - (if r$462 - ((lambda () (k$457 (car buf$195)))) - ((lambda (r$492) - ((lambda (r$463) - (if r$463 - ((lambda () (k$457 #\))) - ((lambda (r$491) - ((lambda (r$464) - (if r$464 - ((lambda () - (k$457 #\))) - ((lambda (r$490) - ((lambda (r$465) - (if r$465 - ((lambda () - (k$457 #\))) - ((lambda (r$489) - ((lambda (r$466) - (if r$466 - ((lambda () - (k$457 #\))) - ((lambda (r$488) - ((lambda (r$467) - (if r$467 - ((lambda () - (k$457 #\newline))) - ((lambda (r$487) - ((lambda (r$468) - (if r$468 - ((lambda () - (k$457 #\))) - ((lambda (r$486) - ((lambda (r$469) - (if r$469 - ((lambda () - (k$457 #\ ))) - ((lambda (r$485) - ((lambda (r$470) - (if r$470 - ((lambda () - (k$457 #\space))) - ((lambda (r$484) - ((lambda (r$471) - (if r$471 - ((lambda () - (k$457 #\ ))) - ((lambda (k$480) - ((lambda (r$483) - ((lambda (r$481) - (if r$481 - ((lambda (r$482) - (k$480 (equal? - r$482 - #\x))) - (car buf$195)) - (k$480 #f))) - (> r$483 - 1))) - (length - buf$195))) - (lambda (r$472) - (if r$472 - ((lambda () - ((lambda (r$475) - ((lambda (r$474) - ((lambda (r$473) - (k$457 (integer->char - r$473))) - (string->number - r$474 - 16))) - (list->string - r$475))) - (cdr buf$195)))) - ((lambda () - ((lambda (r$479) - ((lambda (r$476) - (in-port:get-lnum - (lambda (r$477) - (in-port:get-cnum - (lambda (r$478) - (parse-error - k$457 - r$476 - r$477 - r$478)) - ptbl$182)) - ptbl$182)) - (string-append - "unable to parse character: " - r$479))) - (list->string - buf$195))))))))) - (equal? - buf$195 - r$484))) - '(#\t - #\a - #\b)))) - (equal? - buf$195 - r$485))) - '(#\s - #\p - #\a - #\c - #\e)))) - (equal? - buf$195 - r$486))) - '(#\r - #\e - #\t - #\u - #\r - #\n)))) - (equal? - buf$195 - r$487))) - '(#\n - #\u - #\l - #\l)))) - (equal? - buf$195 - r$488))) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))) - (equal? - buf$195 - r$489))) - '(#\e - #\s - #\c - #\a - #\p - #\e)))) - (equal? - buf$195 - r$490))) - '(#\d - #\e - #\l - #\e - #\t - #\e)))) - (equal? buf$195 r$491))) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))) - (equal? buf$195 r$492))) - '(#\a #\l #\a #\r #\m)))) - (= 1 r$493))) - (length buf$195)))) - (= 0 r$494))) - (length buf$195))) - raw-buf$194)))))) - (cell loop$186))) - (cell done$187))) - #f - #f))) - (define read-str - (lambda (k$426 fp$180 buf$179 ptbl$178) - ((lambda (c$181) - ((lambda (r$428) - (if r$428 - ((lambda () - (in-port:get-lnum - (lambda (r$429) - (in-port:get-cnum - (lambda (r$430) - (parse-error - k$426 - "missing closing double-quote" - r$429 - r$430)) - ptbl$178)) - ptbl$178))) - ((lambda (r$431) - (if r$431 - ((lambda () - (read-str-esc - (lambda (r$432) - (read-str k$426 fp$180 r$432 ptbl$178)) - fp$180 - buf$179 - ptbl$178))) - ((lambda (r$433) - (if r$433 - ((lambda () - (reverse - (lambda (r$434) (k$426 (list->string r$434))) - buf$179))) - ((lambda () - ((lambda (r$435) - (read-str k$426 fp$180 r$435 ptbl$178)) - (cons c$181 buf$179)))))) - (equal? #\" c$181)))) - (equal? #\\ c$181)))) - (eof-object? c$181))) - (read-char fp$180)))) - (define read-str-esc - (lambda (k$410 fp$175 buf$174 ptbl$173) - ((lambda (c$176) - ((lambda (r$412) - (if r$412 - ((lambda () - (in-port:get-lnum - (lambda (r$413) - (in-port:get-cnum - (lambda (r$414) - (parse-error - k$410 - "missing escaped character within string" - r$413 - r$414)) - ptbl$173)) - ptbl$173))) - ((lambda (tmp$177) - ((lambda (k$423) - (if tmp$177 - (k$423 tmp$177) - (k$423 (equal? #\\ c$176)))) - (lambda (r$415) - (if r$415 - ((lambda () (k$410 (cons c$176 buf$174)))) - ((lambda (r$416) - (if r$416 - ((lambda () (k$410 (cons #\newline buf$174)))) - ((lambda () - (list (lambda (r$421) - ((lambda (r$420) - ((lambda (r$417) - (in-port:get-lnum - (lambda (r$418) - (in-port:get-cnum - (lambda (r$419) - (parse-error - k$410 - r$417 - r$418 - r$419)) - ptbl$173)) - ptbl$173)) - (string-append - "invalid escape character [" - r$420 - "] in string"))) - (list->string r$421))) - c$176))))) - (equal? #\n c$176)))))) - (equal? #\" c$176)))) - (eof-object? c$176))) - (read-char fp$175)))) - (define sign? - (lambda (k$406 c$171) - ((lambda (tmp$172) - (if tmp$172 - (k$406 tmp$172) - (k$406 (equal? c$171 #\-)))) - (equal? c$171 #\+)))) - (define token-numeric? - (lambda (k$386 a$167) - ((lambda (r$403) - (char-numeric? - (lambda (tmp$168) - (if tmp$168 - (k$386 tmp$168) - ((lambda (k$397) - ((lambda (r$402) - ((lambda (r$398) - (if r$398 - ((lambda (r$401) - ((lambda (r$399) - (if r$399 - ((lambda (r$400) (char-numeric? k$397 r$400)) - (cadr a$167)) - (k$397 #f))) - (eq? #\. r$401))) - (car a$167)) - (k$397 #f))) - (> r$402 1))) - (length a$167))) - (lambda (tmp$169) - (if tmp$169 - (k$386 tmp$169) - ((lambda (r$396) - ((lambda (r$389) - (if r$389 - ((lambda (r$395) - (char-numeric? - (lambda (tmp$170) - ((lambda (k$393) - (if tmp$170 - (k$393 tmp$170) - ((lambda (r$394) (k$393 (eq? #\. r$394))) - (cadr a$167)))) - (lambda (r$390) - (if r$390 - ((lambda (r$391) (sign? k$386 r$391)) - (car a$167)) - (k$386 #f))))) - r$395)) - (cadr a$167)) - (k$386 #f))) - (> r$396 1))) - (length a$167))))))) - r$403)) - (car a$167)))) - (define parse-atom - (lambda (k$380 a$166) - (token-numeric? - (lambda (r$381) - (if r$381 - ((lambda () - ((lambda (r$382) (k$380 (string->number r$382))) - (list->string a$166)))) - ((lambda () - ((lambda (r$383) (k$380 (string->symbol r$383))) - (list->string a$166)))))) - a$166))) - (define get-next-char - (lambda (k$376 fp$165 ptbl$164) - (in-port:get-buf - (lambda (r$377) - (if r$377 - (in-port:read-buf! k$376 ptbl$164) - (k$376 (read-char fp$165)))) - ptbl$164))) - (define read-block-comment - (lambda (k$371 fp$162 ptbl$161) - (get-next-char - (lambda (c$163) - ((lambda (r$373) - (if r$373 - ((lambda () - (read-block-terminator k$371 fp$162 ptbl$161))) - ((lambda () - (read-block-comment k$371 fp$162 ptbl$161))))) - (eq? #\| c$163))) - fp$162 - ptbl$161))) - (define read-block-terminator - (lambda (k$365 fp$159 ptbl$158) - (get-next-char - (lambda (c$160) - ((lambda (r$367) - (if r$367 - ((lambda () (k$365 #t))) - ((lambda (r$368) - (if r$368 - ((lambda () - (read-block-terminator k$365 fp$159 ptbl$158))) - ((lambda () - (read-block-comment k$365 fp$159 ptbl$158))))) - (eq? #\| c$160)))) - (eq? #\# c$160))) - fp$159 - ptbl$158))) - (define parse-literal-identifier - (lambda (k$358 - fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((lambda (r$362) - (parse-li-rec - (lambda (sym$157) - (if all?$154 - ((lambda (r$360) - ((lambda (r$361) - (parse k$358 - fp$156 - r$360 - r$361 - all?$154 - #f - parens$153 - ptbl$152)) - (cons sym$157 toks$155))) - '()) - (k$358 sym$157))) - fp$156 - r$362 - ptbl$152)) - '()))) - (define parse-li-rec - (lambda (k$343 fp$147 tok$146 ptbl$145) - (get-next-char - (lambda (r$344) - ((lambda (r$345) - ((lambda (c$150 next$149) - ((lambda (r$346) - (if r$346 - ((lambda () - ((lambda (k$348) - ((lambda (r$349) - (if r$349 - (k$348 "||") - (reverse - (lambda (r$350) (k$348 (list->string r$350))) - tok$146))) - (null? tok$146))) - (lambda (str$151) - (k$343 (string->symbol str$151)))))) - ((lambda (r$351) - (if r$351 - ((lambda () - (in-port:get-lnum - (lambda (r$352) - (in-port:get-cnum - (lambda (r$353) - (parse-error - k$343 - "EOF encountered parsing literal identifier" - r$352 - r$353)) - ptbl$145)) - ptbl$145))) - ((lambda () (next$149 k$343 c$150))))) - (eof-object? c$150)))) - (eq? #\| c$150))) - r$344 - r$345)) - (lambda (k$354 c$148) - ((lambda (r$355) - (parse-li-rec k$354 fp$147 r$355 ptbl$145)) - (cons c$148 tok$146))))) - fp$147 - ptbl$145))) - (define parse-number - (lambda (k$325 - fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((lambda (r$340) - (parse-number-rec - (lambda (num$142) - ((lambda (k$333) - ((lambda (r$334) - (if r$334 - (k$333 #f) - (token-numeric? - (lambda (tmp$144) - (if tmp$144 - (k$333 tmp$144) - ((lambda (r$339) - ((lambda (r$336) - (if r$336 - ((lambda (r$337) - (if r$337 - ((lambda (r$338) - (hex-digit? k$333 r$338)) - (car num$142)) - (k$333 #f))) - (= base$136 16)) - (k$333 #f))) - (> r$339 0))) - (length num$142)))) - num$142))) - (null? num$142))) - (lambda (r$327) - (if r$327 - ((lambda () - (tok->num$135 - (lambda (result$143) - (if all?$139 - ((lambda (r$329) - ((lambda (r$330) - (parse k$325 - fp$141 - r$329 - r$330 - all?$139 - #f - parens$138 - ptbl$137)) - (cons result$143 toks$140))) - '()) - (k$325 result$143))) - num$142))) - ((lambda () - (in-port:get-lnum - (lambda (r$331) - (in-port:get-cnum - (lambda (r$332) - (parse-error - k$325 - "Illegal number syntax" - r$331 - r$332)) - ptbl$137)) - ptbl$137))))))) - base$136 - fp$141 - r$340 - ptbl$137)) - '()))) - (define parse-number-rec - (lambda (k$301 base$130 fp$129 tok$128 ptbl$127) - (get-next-char - (lambda (r$302) - ((lambda (r$303) - ((lambda (c$133 next$132) - (sign? (lambda (r$304) - (if r$304 - ((lambda () (next$132 k$301 c$133))) - ((lambda (r$305) - (if r$305 - ((lambda () (next$132 k$301 c$133))) - (char-numeric? - (lambda (r$306) - (if r$306 - ((lambda () - ((lambda (k$308) - ((lambda (k$315) - ((lambda (r$316) - (if r$316 - (char>? k$315 c$133 #\1) - (k$315 #f))) - (= base$130 2))) - (lambda (tmp$134) - ((lambda (k$313) - (if tmp$134 - (k$313 tmp$134) - ((lambda (r$314) - (if r$314 - (char>? k$313 c$133 #\7) - (k$313 #f))) - (= base$130 8)))) - (lambda (r$309) - (if r$309 - (in-port:get-lnum - (lambda (r$310) - (in-port:get-cnum - (lambda (r$311) - (parse-error - k$308 - "Illegal digit" - r$310 - r$311)) - ptbl$127)) - ptbl$127) - (k$308 #f))))))) - (lambda (r$307) - (next$132 k$301 c$133))))) - ((lambda (k$319) - ((lambda (r$320) - (if r$320 - (hex-digit? k$319 c$133) - (k$319 #f))) - (= base$130 16))) - (lambda (r$317) - (if r$317 - ((lambda () (next$132 k$301 c$133))) - ((lambda () - (in-port:set-buf! - (lambda (r$318) - (reverse k$301 tok$128)) - ptbl$127 - c$133)))))))) - c$133))) - (eq? #\. c$133)))) - c$133)) - r$302 - r$303)) - (lambda (k$321 c$131) - ((lambda (r$322) - (parse-number-rec - k$321 - base$130 - fp$129 - r$322 - ptbl$127)) - (cons c$131 tok$128))))) - fp$129 - ptbl$127))) - (define hex-digit? - (lambda (k$294 c$125) - ((lambda (k$297) - (char>=? - (lambda (r$298) - (if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))) - c$125 - #\a)) - (lambda (tmp$126) - (if tmp$126 - (k$294 tmp$126) - (char>=? - (lambda (r$296) - (if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))) - c$125 - #\A)))))) - (define cyc-read - (lambda (k$285 . args$123) - ((lambda (k$290) - ((lambda (r$291) - (if r$291 - (current-input-port k$290) - (k$290 (car args$123)))) - (null? args$123))) - (lambda (fp$124) - ((lambda (r$287) - ((lambda (r$288) - (reg-port - (lambda (r$289) - (parse k$285 fp$124 r$287 r$288 #f #f 0 r$289)) - fp$124)) - '())) - '()))))) - (define read-all - (lambda (k$272 . args$116) - ((lambda () - ((lambda (k$281) - ((lambda (r$282) - (if r$282 - (current-input-port k$281) - (k$281 (car args$116)))) - (null? args$116))) - (lambda (fp$118) - ((lambda (loop$119) - ((lambda (loop$119) - ((lambda (r$276) - ((lambda (r$274) - ((lambda (r$275) - ((cell-get loop$119) k$272 fp$118 r$275)) - '())) - (set-cell! loop$119 r$276))) - (lambda (k$277 fp$121 result$120) - (cyc-read - (lambda (obj$122) - ((lambda (r$279) - (if r$279 - (reverse k$277 result$120) - ((lambda (r$280) - ((cell-get loop$119) k$277 fp$121 r$280)) - (cons obj$122 result$120)))) - (eof-object? obj$122))) - fp$121)))) - (cell loop$119))) - #f))))))) - (define lib-init:schemeread - (lambda (k$266) - ((lambda () - ((lambda (r$268) - ((lambda (r$269) - (k$266 (set-global! *in-port-table* r$269))) - '())) - (set-global! read cyc-read))))))) - */ -/* -"---------------- after closure-convert:" - */ -/* -((define read (%closure-ref #f 0) #f) - (define *in-port-table* (%closure-ref #f 0) #f) - (define reg-port - (lambda (k$812 fp$262) - ((%closure - (lambda (self$1395 r$263) - ((%closure - (lambda (self$1396 r$263) - (if (cell-get r$263) - ((%closure - (lambda (self$1402) - ((%closure-ref (%closure-ref self$1402 1) 0) - (%closure-ref self$1402 1) - (cell-get (%closure-ref self$1402 2)))) - (%closure-ref self$1396 2) - r$263)) - ((%closure - (lambda (self$1397) - ((%closure-ref list 0) - list - (%closure - (lambda (self$1398 r$817) - ((%closure - (lambda (self$1399 r$814) - ((%closure - (lambda (self$1400 r$816) - ((%closure - (lambda (self$1401 r$815) - ((%closure-ref - (%closure-ref self$1401 1) - 0) - (%closure-ref self$1401 1) - (cell-get - (%closure-ref self$1401 2)))) - (%closure-ref self$1400 1) - (%closure-ref self$1400 2)) - (set-global! *in-port-table* r$816))) - (%closure-ref self$1399 1) - (%closure-ref self$1399 2)) - (cons (cell-get (%closure-ref self$1399 2)) - *in-port-table*))) - (%closure-ref self$1398 1) - (%closure-ref self$1398 2)) - (set-cell! (%closure-ref self$1398 2) r$817))) - (%closure-ref self$1397 2) - (%closure-ref self$1397 3)) - (%closure-ref self$1397 1) - #f - 1 - 0)) - (%closure-ref self$1396 1) - (%closure-ref self$1396 2) - r$263)))) - (%closure-ref self$1395 1) - (%closure-ref self$1395 2)) - (cell r$263))) - fp$262 - k$812) - (assoc fp$262 *in-port-table*)))) - (define in-port:read-buf! - (lambda (k$807 ptbl$260) - ((%closure - (lambda (self$1393 result$261) - ((%closure-ref in-port:set-buf! 0) - in-port:set-buf! - (%closure - (lambda (self$1394 r$809) - ((%closure-ref (%closure-ref self$1394 1) 0) - (%closure-ref self$1394 1) - (%closure-ref self$1394 2))) - (%closure-ref self$1393 1) - result$261) - (%closure-ref self$1393 2) - #f)) - k$807 - ptbl$260) - (cadr ptbl$260)))) - (define in-port:get-buf - (lambda (k$804 ptbl$259) - ((%closure-ref k$804 0) k$804 (cadr ptbl$259)))) - (define in-port:set-buf! - (lambda (k$800 ptbl$258 buf$257) - ((%closure - (lambda (self$1392 r$801) - ((%closure-ref (%closure-ref self$1392 2) 0) - (%closure-ref self$1392 2) - (set-car! r$801 (%closure-ref self$1392 1)))) - buf$257 - k$800) - (cdr ptbl$258)))) - (define in-port:get-lnum - (lambda (k$797 ptbl$256) - ((%closure-ref k$797 0) k$797 (caddr ptbl$256)))) - (define in-port:set-lnum! - (lambda (k$793 ptbl$255 lnum$254) - ((%closure - (lambda (self$1391 r$794) - ((%closure-ref (%closure-ref self$1391 1) 0) - (%closure-ref self$1391 1) - (set-car! r$794 (%closure-ref self$1391 2)))) - k$793 - lnum$254) - (cddr ptbl$255)))) - (define in-port:get-cnum - (lambda (k$790 ptbl$253) - ((%closure-ref k$790 0) k$790 (cadddr ptbl$253)))) - (define in-port:set-cnum! - (lambda (k$786 ptbl$252 cnum$251) - ((%closure - (lambda (self$1390 r$787) - ((%closure-ref (%closure-ref self$1390 2) 0) - (%closure-ref self$1390 2) - (set-car! r$787 (%closure-ref self$1390 1)))) - cnum$251 - k$786) - (cdddr ptbl$252)))) - (define add-tok - (lambda (k$783 tok$250 toks$249) - ((%closure-ref k$783 0) - k$783 - (cons tok$250 toks$249)))) - (define get-toks - (lambda (k$778 tok$248 toks$247) - ((%closure - (lambda (self$1388 r$779) - (if r$779 - ((%closure-ref (%closure-ref self$1388 1) 0) - (%closure-ref self$1388 1) - (%closure-ref self$1388 3)) - ((%closure-ref ->tok 0) - ->tok - (%closure - (lambda (self$1389 r$780) - ((%closure-ref add-tok 0) - add-tok - (%closure-ref self$1389 1) - r$780 - (%closure-ref self$1389 2))) - (%closure-ref self$1388 1) - (%closure-ref self$1388 3)) - (%closure-ref self$1388 2)))) - k$778 - tok$248 - toks$247) - (null? tok$248)))) - (define ->tok - (lambda (k$774 lst$246) - ((%closure-ref reverse 0) - reverse - (%closure - (lambda (self$1387 r$775) - ((%closure-ref parse-atom 0) - parse-atom - (%closure-ref self$1387 1) - r$775)) - k$774) - lst$246))) - (define dotted? - (lambda (k$766 lst$245) - ((%closure - (lambda (self$1382 r$771) - ((%closure - (lambda (self$1383 r$767) - (if r$767 - ((%closure-ref reverse 0) - reverse - (%closure - (lambda (self$1384 r$770) - ((%closure - (lambda (self$1385 r$768) - ((%closure - (lambda (self$1386 r$769) - ((%closure-ref (%closure-ref self$1386 1) 0) - (%closure-ref self$1386 1) - (equal? (%closure-ref self$1386 2) r$769))) - (%closure-ref self$1385 1) - r$768) - (string->symbol "."))) - (%closure-ref self$1384 1)) - (cadr r$770))) - (%closure-ref self$1383 1)) - (%closure-ref self$1383 2)) - ((%closure-ref (%closure-ref self$1383 1) 0) - (%closure-ref self$1383 1) - #f))) - (%closure-ref self$1382 1) - (%closure-ref self$1382 2)) - (> r$771 2))) - k$766 - lst$245) - (length lst$245)))) - (define ->dotted-list - (lambda (k$756 lst$244) - ((%closure - (lambda (self$1372 r$757) - (if r$757 - ((%closure - (lambda (self$1381) - ((%closure-ref (%closure-ref self$1381 1) 0) - (%closure-ref self$1381 1) - '())) - (%closure-ref self$1372 1))) - ((%closure - (lambda (self$1373 r$762) - ((%closure - (lambda (self$1374 r$763) - ((%closure - (lambda (self$1375 r$758) - (if r$758 - ((%closure - (lambda (self$1380) - ((%closure-ref (%closure-ref self$1380 1) 0) - (%closure-ref self$1380 1) - (cadr (%closure-ref self$1380 2)))) - (%closure-ref self$1375 1) - (%closure-ref self$1375 2))) - ((%closure - (lambda (self$1376) - ((%closure - (lambda (self$1377 r$759) - ((%closure - (lambda (self$1378 r$761) - ((%closure-ref ->dotted-list 0) - ->dotted-list - (%closure - (lambda (self$1379 r$760) - ((%closure-ref - (%closure-ref self$1379 1) - 0) - (%closure-ref self$1379 1) - (cons (%closure-ref - self$1379 - 2) - r$760))) - (%closure-ref self$1378 1) - (%closure-ref self$1378 2)) - r$761)) - (%closure-ref self$1377 1) - r$759) - (cdr (%closure-ref self$1377 2)))) - (%closure-ref self$1376 1) - (%closure-ref self$1376 2)) - (car (%closure-ref self$1376 2)))) - (%closure-ref self$1375 1) - (%closure-ref self$1375 2))))) - (%closure-ref self$1374 1) - (%closure-ref self$1374 2)) - (equal? (%closure-ref self$1374 3) r$763))) - (%closure-ref self$1373 1) - (%closure-ref self$1373 2) - r$762) - (string->symbol "."))) - (%closure-ref self$1372 1) - (%closure-ref self$1372 2)) - (car (%closure-ref self$1372 2))))) - k$756 - lst$244) - (null? lst$244)))) - (define parse-error - (lambda (k$750 msg$243 lnum$242 cnum$241) - ((%closure - (lambda (self$1369 r$752) - ((%closure - (lambda (self$1370 r$753) - ((%closure - (lambda (self$1371 r$751) - ((%closure-ref error 0) - error - (%closure-ref self$1371 1) - r$751)) - (%closure-ref self$1370 1)) - (string-append - "Error (line " - (%closure-ref self$1370 3) - ", char " - r$753 - "): " - (%closure-ref self$1370 2)))) - (%closure-ref self$1369 2) - (%closure-ref self$1369 3) - r$752) - (number->string (%closure-ref self$1369 1)))) - cnum$241 - k$750 - msg$243) - (number->string lnum$242)))) - (define parse/tok - (lambda (k$739 - fp$240 - tok$239 - toks$238 - all?$237 - comment?$236 - parens$235 - ptbl$234 - curr-char$233) - ((%closure - (lambda (self$1358 r$740) - (if r$740 - ((%closure - (lambda (self$1367) - ((%closure - (lambda (self$1368 r$741) - ((%closure-ref parse 0) - parse - (%closure-ref self$1368 4) - (%closure-ref self$1368 3) - r$741 - (%closure-ref self$1368 7) - (%closure-ref self$1368 1) - (%closure-ref self$1368 2) - (%closure-ref self$1368 5) - (%closure-ref self$1368 6))) - (%closure-ref self$1367 1) - (%closure-ref self$1367 2) - (%closure-ref self$1367 3) - (%closure-ref self$1367 4) - (%closure-ref self$1367 5) - (%closure-ref self$1367 6) - (%closure-ref self$1367 7)) - '())) - (%closure-ref self$1358 1) - (%closure-ref self$1358 2) - (%closure-ref self$1358 4) - (%closure-ref self$1358 5) - (%closure-ref self$1358 6) - (%closure-ref self$1358 7) - (%closure-ref self$1358 9))) - (if (%closure-ref self$1358 1) - ((%closure - (lambda (self$1363) - ((%closure - (lambda (self$1364 r$742) - ((%closure-ref ->tok 0) - ->tok - (%closure - (lambda (self$1365 r$744) - ((%closure-ref add-tok 0) - add-tok - (%closure - (lambda (self$1366 r$743) - ((%closure-ref parse 0) - parse - (%closure-ref self$1366 4) - (%closure-ref self$1366 3) - (%closure-ref self$1366 7) - r$743 - (%closure-ref self$1366 1) - (%closure-ref self$1366 2) - (%closure-ref self$1366 5) - (%closure-ref self$1366 6))) - (%closure-ref self$1365 1) - (%closure-ref self$1365 2) - (%closure-ref self$1365 3) - (%closure-ref self$1365 4) - (%closure-ref self$1365 5) - (%closure-ref self$1365 6) - (%closure-ref self$1365 7)) - r$744 - (%closure-ref self$1365 8))) - (%closure-ref self$1364 1) - (%closure-ref self$1364 2) - (%closure-ref self$1364 3) - (%closure-ref self$1364 4) - (%closure-ref self$1364 5) - (%closure-ref self$1364 6) - r$742 - (%closure-ref self$1364 8)) - (%closure-ref self$1364 7))) - (%closure-ref self$1363 1) - (%closure-ref self$1363 2) - (%closure-ref self$1363 3) - (%closure-ref self$1363 4) - (%closure-ref self$1363 5) - (%closure-ref self$1363 6) - (%closure-ref self$1363 7) - (%closure-ref self$1363 8)) - '())) - (%closure-ref self$1358 1) - (%closure-ref self$1358 2) - (%closure-ref self$1358 4) - (%closure-ref self$1358 5) - (%closure-ref self$1358 6) - (%closure-ref self$1358 7) - (%closure-ref self$1358 8) - (%closure-ref self$1358 9))) - ((%closure - (lambda (self$1359) - ((%closure-ref in-port:set-buf! 0) - in-port:set-buf! - (%closure - (lambda (self$1360 r$745) - ((%closure-ref ->tok 0) - ->tok - (%closure - (lambda (self$1361 r$747) - ((%closure-ref add-tok 0) - add-tok - (%closure - (lambda (self$1362 r$746) - ((%closure-ref (%closure-ref self$1362 1) 0) - (%closure-ref self$1362 1) - (car r$746))) - (%closure-ref self$1361 1)) - r$747 - (%closure-ref self$1361 2))) - (%closure-ref self$1360 1) - (%closure-ref self$1360 3)) - (%closure-ref self$1360 2))) - (%closure-ref self$1359 2) - (%closure-ref self$1359 4) - (%closure-ref self$1359 5)) - (%closure-ref self$1359 3) - (%closure-ref self$1359 1))) - (%closure-ref self$1358 3) - (%closure-ref self$1358 5) - (%closure-ref self$1358 7) - (%closure-ref self$1358 8) - (%closure-ref self$1358 9)))))) - all?$237 - comment?$236 - curr-char$233 - fp$240 - k$739 - parens$235 - ptbl$234 - tok$239 - toks$238) - (null? tok$239)))) - (define parse - (lambda (k$497 - fp$202 - tok$201 - toks$200 - all?$199 - comment?$198 - parens$197 - ptbl$196) - ((%closure - (lambda (self$1051) - ((%closure-ref in-port:get-cnum 0) - in-port:get-cnum - (%closure - (lambda (self$1052 r$736) - ((%closure - (lambda (self$1053 r$735) - ((%closure-ref in-port:set-cnum! 0) - in-port:set-cnum! - (%closure - (lambda (self$1054 r$498) - ((%closure - (lambda (self$1356 k$733) - ((%closure-ref in-port:get-buf 0) - in-port:get-buf - (%closure - (lambda (self$1357 r$734) - (if r$734 - ((%closure-ref in-port:read-buf! 0) - in-port:read-buf! - (%closure-ref self$1357 2) - (%closure-ref self$1357 3)) - ((%closure-ref - (%closure-ref self$1357 2) - 0) - (%closure-ref self$1357 2) - (read-char (%closure-ref self$1357 1))))) - (%closure-ref self$1356 1) - k$733 - (%closure-ref self$1356 2)) - (%closure-ref self$1356 2))) - (%closure-ref self$1054 3) - (%closure-ref self$1054 6)) - (%closure - (lambda (self$1055 c$204) - ((%closure - (lambda (self$1056 r$500) - (if r$500 - ((%closure - (lambda (self$1346) - ((%closure - (lambda (self$1352 k$506) - ((%closure - (lambda (self$1353 r$507) - (if r$507 - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1354 - r$508) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1355 - r$509) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1355 - 1) - "missing closing parenthesis" - (%closure-ref - self$1355 - 2) - r$509)) - (%closure-ref - self$1354 - 1) - r$508) - (%closure-ref - self$1354 - 2))) - (%closure-ref - self$1353 - 1) - (%closure-ref - self$1353 - 2)) - (%closure-ref - self$1353 - 2)) - ((%closure-ref - (%closure-ref - self$1353 - 1) - 0) - (%closure-ref - self$1353 - 1) - #f))) - k$506 - (%closure-ref self$1352 2)) - (> (%closure-ref self$1352 1) - 0))) - (%closure-ref self$1346 4) - (%closure-ref self$1346 5)) - (%closure - (lambda (self$1347 r$501) - (if (%closure-ref self$1347 1) - ((%closure-ref get-toks 0) - get-toks - (%closure - (lambda (self$1351 r$502) - ((%closure-ref reverse 0) - reverse - (%closure-ref - self$1351 - 1) - r$502)) - (%closure-ref self$1347 3)) - (%closure-ref self$1347 4) - (%closure-ref self$1347 5)) - ((%closure-ref get-toks 0) - get-toks - (%closure - (lambda (self$1348 last$232) - ((%closure - (lambda (self$1349 - r$505) - ((%closure - (lambda (self$1350 - r$504) - (if r$504 - ((%closure-ref - (%closure-ref - self$1350 - 2) - 0) - (%closure-ref - self$1350 - 2) - (car (%closure-ref - self$1350 - 3))) - ((%closure-ref - (%closure-ref - self$1350 - 2) - 0) - (%closure-ref - self$1350 - 2) - (%closure-ref - self$1350 - 1)))) - (%closure-ref - self$1349 - 1) - (%closure-ref - self$1349 - 2) - (%closure-ref - self$1349 - 3)) - (> r$505 0))) - (%closure-ref - self$1348 - 1) - (%closure-ref - self$1348 - 2) - last$232) - (length last$232))) - (%closure-ref self$1347 2) - (%closure-ref self$1347 3)) - (%closure-ref self$1347 4) - (%closure-ref self$1347 5)))) - (%closure-ref self$1346 1) - (%closure-ref self$1346 2) - (%closure-ref self$1346 3) - (%closure-ref self$1346 6) - (%closure-ref self$1346 7)))) - (%closure-ref self$1056 1) - (%closure-ref self$1056 2) - (%closure-ref self$1056 5) - (%closure-ref self$1056 6) - (%closure-ref self$1056 7) - (%closure-ref self$1056 8) - (%closure-ref self$1056 9))) - (if (%closure-ref self$1056 3) - ((%closure - (lambda (self$1337) - ((%closure - (lambda (self$1338 r$510) - (if r$510 - ((%closure - (lambda (self$1340) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1341 - r$515) - ((%closure - (lambda (self$1342 - r$514) - ((%closure-ref - in-port:set-lnum! - 0) - in-port:set-lnum! - (%closure - (lambda (self$1343 - r$511) - ((%closure-ref - in-port:set-cnum! - 0) - in-port:set-cnum! - (%closure - (lambda (self$1344 - r$512) - ((%closure - (lambda (self$1345 - r$513) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1345 - 3) - (%closure-ref - self$1345 - 2) - r$513 - (%closure-ref - self$1345 - 6) - (%closure-ref - self$1345 - 1) - #f - (%closure-ref - self$1345 - 4) - (%closure-ref - self$1345 - 5))) - (%closure-ref - self$1344 - 1) - (%closure-ref - self$1344 - 2) - (%closure-ref - self$1344 - 3) - (%closure-ref - self$1344 - 4) - (%closure-ref - self$1344 - 5) - (%closure-ref - self$1344 - 6)) - '())) - (%closure-ref - self$1343 - 1) - (%closure-ref - self$1343 - 2) - (%closure-ref - self$1343 - 3) - (%closure-ref - self$1343 - 4) - (%closure-ref - self$1343 - 5) - (%closure-ref - self$1343 - 6)) - (%closure-ref - self$1343 - 5) - 0)) - (%closure-ref - self$1342 - 1) - (%closure-ref - self$1342 - 2) - (%closure-ref - self$1342 - 3) - (%closure-ref - self$1342 - 4) - (%closure-ref - self$1342 - 5) - (%closure-ref - self$1342 - 6)) - (%closure-ref - self$1342 - 5) - r$514)) - (%closure-ref - self$1341 - 1) - (%closure-ref - self$1341 - 2) - (%closure-ref - self$1341 - 3) - (%closure-ref - self$1341 - 4) - (%closure-ref - self$1341 - 5) - (%closure-ref - self$1341 - 6)) - (+ 1 r$515))) - (%closure-ref - self$1340 - 1) - (%closure-ref - self$1340 - 2) - (%closure-ref - self$1340 - 3) - (%closure-ref - self$1340 - 4) - (%closure-ref - self$1340 - 5) - (%closure-ref - self$1340 - 6)) - (%closure-ref - self$1340 - 5))) - (%closure-ref self$1338 1) - (%closure-ref self$1338 2) - (%closure-ref self$1338 3) - (%closure-ref self$1338 4) - (%closure-ref self$1338 5) - (%closure-ref - self$1338 - 6))) - ((%closure - (lambda (self$1339 r$516) - ((%closure-ref parse 0) - parse - (%closure-ref - self$1339 - 3) - (%closure-ref - self$1339 - 2) - r$516 - (%closure-ref - self$1339 - 6) - (%closure-ref - self$1339 - 1) - #t - (%closure-ref - self$1339 - 4) - (%closure-ref - self$1339 - 5))) - (%closure-ref self$1338 1) - (%closure-ref self$1338 2) - (%closure-ref self$1338 3) - (%closure-ref self$1338 4) - (%closure-ref self$1338 5) - (%closure-ref - self$1338 - 6)) - '()))) - (%closure-ref self$1337 1) - (%closure-ref self$1337 3) - (%closure-ref self$1337 4) - (%closure-ref self$1337 5) - (%closure-ref self$1337 6) - (%closure-ref self$1337 7)) - (eq? (%closure-ref self$1337 2) - #\newline))) - (%closure-ref self$1056 1) - (%closure-ref self$1056 2) - (%closure-ref self$1056 4) - (%closure-ref self$1056 5) - (%closure-ref self$1056 6) - (%closure-ref self$1056 7) - (%closure-ref self$1056 9))) - ((%closure-ref char-whitespace? 0) - char-whitespace? - (%closure - (lambda (self$1057 r$517) - (if r$517 - ((%closure - (lambda (self$1328) - ((%closure - (lambda (self$1333 k$522) - ((%closure - (lambda (self$1334 - r$523) - (if r$523 - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1335 - r$525) - ((%closure - (lambda (self$1336 - r$524) - ((%closure-ref - in-port:set-lnum! - 0) - in-port:set-lnum! - (%closure-ref - self$1336 - 1) - (%closure-ref - self$1336 - 2) - r$524)) - (%closure-ref - self$1335 - 1) - (%closure-ref - self$1335 - 2)) - (+ 1 - r$525))) - (%closure-ref - self$1334 - 1) - (%closure-ref - self$1334 - 2)) - (%closure-ref - self$1334 - 2)) - ((%closure-ref - (%closure-ref - self$1334 - 1) - 0) - (%closure-ref - self$1334 - 1) - #f))) - k$522 - (%closure-ref - self$1333 - 2)) - (equal? - (%closure-ref - self$1333 - 1) - #\newline))) - (%closure-ref self$1328 2) - (%closure-ref - self$1328 - 6)) - (%closure - (lambda (self$1329 r$518) - ((%closure - (lambda (self$1331 - k$520) - ((%closure - (lambda (self$1332 - r$521) - (if r$521 - ((%closure-ref - in-port:set-cnum! - 0) - in-port:set-cnum! - (%closure-ref - self$1332 - 1) - (%closure-ref - self$1332 - 2) - 0) - ((%closure-ref - (%closure-ref - self$1332 - 1) - 0) - (%closure-ref - self$1332 - 1) - #f))) - k$520 - (%closure-ref - self$1331 - 2)) - (equal? - (%closure-ref - self$1331 - 1) - #\newline))) - (%closure-ref - self$1329 - 2) - (%closure-ref - self$1329 - 6)) - (%closure - (lambda (self$1330 - r$519) - ((%closure-ref - parse/tok - 0) - parse/tok - (%closure-ref - self$1330 - 4) - (%closure-ref - self$1330 - 3) - (%closure-ref - self$1330 - 7) - (%closure-ref - self$1330 - 8) - (%closure-ref - self$1330 - 1) - #f - (%closure-ref - self$1330 - 5) - (%closure-ref - self$1330 - 6) - (%closure-ref - self$1330 - 2))) - (%closure-ref - self$1329 - 1) - (%closure-ref - self$1329 - 2) - (%closure-ref - self$1329 - 3) - (%closure-ref - self$1329 - 4) - (%closure-ref - self$1329 - 5) - (%closure-ref - self$1329 - 6) - (%closure-ref - self$1329 - 7) - (%closure-ref - self$1329 - 8)))) - (%closure-ref self$1328 1) - (%closure-ref self$1328 2) - (%closure-ref self$1328 3) - (%closure-ref self$1328 4) - (%closure-ref self$1328 5) - (%closure-ref self$1328 6) - (%closure-ref self$1328 7) - (%closure-ref - self$1328 - 8)))) - (%closure-ref self$1057 1) - (%closure-ref self$1057 2) - (%closure-ref self$1057 3) - (%closure-ref self$1057 4) - (%closure-ref self$1057 5) - (%closure-ref self$1057 6) - (%closure-ref self$1057 7) - (%closure-ref self$1057 8))) - ((%closure - (lambda (self$1058 r$526) - (if r$526 - ((%closure - (lambda (self$1327) - ((%closure-ref - parse/tok - 0) - parse/tok - (%closure-ref - self$1327 - 4) - (%closure-ref - self$1327 - 3) - (%closure-ref - self$1327 - 7) - (%closure-ref - self$1327 - 8) - (%closure-ref - self$1327 - 1) - #t - (%closure-ref - self$1327 - 5) - (%closure-ref - self$1327 - 6) - (%closure-ref - self$1327 - 2))) - (%closure-ref - self$1058 - 1) - (%closure-ref - self$1058 - 2) - (%closure-ref - self$1058 - 3) - (%closure-ref - self$1058 - 4) - (%closure-ref - self$1058 - 5) - (%closure-ref - self$1058 - 6) - (%closure-ref - self$1058 - 7) - (%closure-ref - self$1058 - 8))) - ((%closure - (lambda (self$1059 - r$527) - (if r$527 - ((%closure - (lambda (self$1307) - ((%closure - (lambda (self$1325 - k$541) - (if (%closure-ref - self$1325 - 1) - ((%closure-ref - k$541 - 0) - k$541 - #f) - ((%closure - (lambda (self$1326 - r$542) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1326 - 1) - r$542)) - k$541) - (null? (%closure-ref - self$1325 - 2))))) - (%closure-ref - self$1307 - 1) - (%closure-ref - self$1307 - 7)) - (%closure - (lambda (self$1308 - r$528) - (if r$528 - ((%closure - (lambda (self$1321) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1322 - r$529) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1323 - r$531) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1324 - r$530) - ((%closure-ref - (%closure-ref - self$1324 - 1) - 0) - (%closure-ref - self$1324 - 1) - (car r$530))) - (%closure-ref - self$1323 - 1)) - r$531 - (%closure-ref - self$1323 - 2))) - (%closure-ref - self$1322 - 1) - (%closure-ref - self$1322 - 3)) - (%closure-ref - self$1322 - 2))) - (%closure-ref - self$1321 - 2) - (%closure-ref - self$1321 - 4) - (%closure-ref - self$1321 - 5)) - (%closure-ref - self$1321 - 3) - (%closure-ref - self$1321 - 1))) - (%closure-ref - self$1308 - 2) - (%closure-ref - self$1308 - 4) - (%closure-ref - self$1308 - 6) - (%closure-ref - self$1308 - 7) - (%closure-ref - self$1308 - 8))) - ((%closure - (lambda (self$1309) - ((%closure - (lambda (self$1310 - r$539) - ((%closure - (lambda (self$1311 - r$540) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1312 - sub$230) - ((%closure - (lambda (self$1313 - new-toks$231) - ((%closure - (lambda (self$1314 - new-toks$231) - ((%closure - (lambda (self$1315 - r$538) - ((%closure-ref - list - 0) - list - (%closure - (lambda (self$1316 - r$536) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1317 - r$537) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1318 - r$535) - ((%closure - (lambda (self$1319 - r$533) - (if (%closure-ref - self$1319 - 1) - ((%closure - (lambda (self$1320 - r$534) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1320 - 3) - (%closure-ref - self$1320 - 2) - r$534 - (cell-get - (%closure-ref - self$1320 - 4)) - (%closure-ref - self$1320 - 1) - #f - (%closure-ref - self$1320 - 5) - (%closure-ref - self$1320 - 6))) - (%closure-ref - self$1319 - 1) - (%closure-ref - self$1319 - 2) - (%closure-ref - self$1319 - 3) - (%closure-ref - self$1319 - 4) - (%closure-ref - self$1319 - 5) - (%closure-ref - self$1319 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1319 - 3) - 0) - (%closure-ref - self$1319 - 3) - (car (cell-get - (%closure-ref - self$1319 - 4)))))) - (%closure-ref - self$1318 - 1) - (%closure-ref - self$1318 - 2) - (%closure-ref - self$1318 - 3) - (%closure-ref - self$1318 - 4) - (%closure-ref - self$1318 - 5) - (%closure-ref - self$1318 - 6)) - (set-cell! - (%closure-ref - self$1318 - 4) - r$535))) - (%closure-ref - self$1317 - 1) - (%closure-ref - self$1317 - 2) - (%closure-ref - self$1317 - 3) - (%closure-ref - self$1317 - 4) - (%closure-ref - self$1317 - 5) - (%closure-ref - self$1317 - 6)) - (%closure-ref - self$1317 - 7) - r$537)) - (%closure-ref - self$1316 - 1) - (%closure-ref - self$1316 - 2) - (%closure-ref - self$1316 - 3) - (%closure-ref - self$1316 - 4) - (%closure-ref - self$1316 - 5) - (%closure-ref - self$1316 - 6) - r$536) - (%closure-ref - self$1316 - 7) - (%closure-ref - self$1316 - 8))) - (%closure-ref - self$1315 - 1) - (%closure-ref - self$1315 - 2) - (%closure-ref - self$1315 - 3) - (%closure-ref - self$1315 - 4) - (%closure-ref - self$1315 - 5) - (%closure-ref - self$1315 - 6) - (%closure-ref - self$1315 - 8) - (%closure-ref - self$1315 - 9)) - r$538 - (%closure-ref - self$1315 - 7))) - (%closure-ref - self$1314 - 1) - (%closure-ref - self$1314 - 2) - (%closure-ref - self$1314 - 3) - new-toks$231 - (%closure-ref - self$1314 - 4) - (%closure-ref - self$1314 - 5) - (%closure-ref - self$1314 - 6) - (%closure-ref - self$1314 - 7) - (%closure-ref - self$1314 - 8)) - 'quote)) - (%closure-ref - self$1313 - 1) - (%closure-ref - self$1313 - 2) - (%closure-ref - self$1313 - 3) - (%closure-ref - self$1313 - 4) - (%closure-ref - self$1313 - 5) - (%closure-ref - self$1313 - 6) - (%closure-ref - self$1313 - 7) - (%closure-ref - self$1313 - 8)) - (cell new-toks$231))) - (%closure-ref - self$1312 - 1) - (%closure-ref - self$1312 - 2) - (%closure-ref - self$1312 - 3) - (%closure-ref - self$1312 - 4) - (%closure-ref - self$1312 - 5) - sub$230 - (%closure-ref - self$1312 - 6) - (%closure-ref - self$1312 - 7)) - #f)) - (%closure-ref - self$1311 - 1) - (%closure-ref - self$1311 - 2) - (%closure-ref - self$1311 - 3) - (%closure-ref - self$1311 - 4) - (%closure-ref - self$1311 - 5) - (%closure-ref - self$1311 - 7) - (%closure-ref - self$1311 - 8)) - (%closure-ref - self$1311 - 2) - (%closure-ref - self$1311 - 6) - r$540 - #f - #f - 0 - (%closure-ref - self$1311 - 5))) - (%closure-ref - self$1310 - 1) - (%closure-ref - self$1310 - 2) - (%closure-ref - self$1310 - 3) - (%closure-ref - self$1310 - 4) - (%closure-ref - self$1310 - 5) - r$539 - (%closure-ref - self$1310 - 6) - (%closure-ref - self$1310 - 7)) - '())) - (%closure-ref - self$1309 - 1) - (%closure-ref - self$1309 - 2) - (%closure-ref - self$1309 - 3) - (%closure-ref - self$1309 - 4) - (%closure-ref - self$1309 - 5) - (%closure-ref - self$1309 - 6) - (%closure-ref - self$1309 - 7)) - '())) - (%closure-ref - self$1308 - 1) - (%closure-ref - self$1308 - 3) - (%closure-ref - self$1308 - 4) - (%closure-ref - self$1308 - 5) - (%closure-ref - self$1308 - 6) - (%closure-ref - self$1308 - 7) - (%closure-ref - self$1308 - 8))))) - (%closure-ref - self$1307 - 1) - (%closure-ref - self$1307 - 2) - (%closure-ref - self$1307 - 3) - (%closure-ref - self$1307 - 4) - (%closure-ref - self$1307 - 5) - (%closure-ref - self$1307 - 6) - (%closure-ref - self$1307 - 7) - (%closure-ref - self$1307 - 8)))) - (%closure-ref - self$1059 - 1) - (%closure-ref - self$1059 - 2) - (%closure-ref - self$1059 - 3) - (%closure-ref - self$1059 - 4) - (%closure-ref - self$1059 - 5) - (%closure-ref - self$1059 - 6) - (%closure-ref - self$1059 - 7) - (%closure-ref - self$1059 - 8))) - ((%closure - (lambda (self$1060 - r$543) - (if r$543 - ((%closure - (lambda (self$1287) - ((%closure - (lambda (self$1305 - k$557) - (if (%closure-ref - self$1305 - 1) - ((%closure-ref - k$557 - 0) - k$557 - #f) - ((%closure - (lambda (self$1306 - r$558) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1306 - 1) - r$558)) - k$557) - (null? (%closure-ref - self$1305 - 2))))) - (%closure-ref - self$1287 - 1) - (%closure-ref - self$1287 - 7)) - (%closure - (lambda (self$1288 - r$544) - (if r$544 - ((%closure - (lambda (self$1301) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1302 - r$545) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1303 - r$547) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1304 - r$546) - ((%closure-ref - (%closure-ref - self$1304 - 1) - 0) - (%closure-ref - self$1304 - 1) - (car r$546))) - (%closure-ref - self$1303 - 1)) - r$547 - (%closure-ref - self$1303 - 2))) - (%closure-ref - self$1302 - 1) - (%closure-ref - self$1302 - 3)) - (%closure-ref - self$1302 - 2))) - (%closure-ref - self$1301 - 2) - (%closure-ref - self$1301 - 4) - (%closure-ref - self$1301 - 5)) - (%closure-ref - self$1301 - 3) - (%closure-ref - self$1301 - 1))) - (%closure-ref - self$1288 - 2) - (%closure-ref - self$1288 - 4) - (%closure-ref - self$1288 - 6) - (%closure-ref - self$1288 - 7) - (%closure-ref - self$1288 - 8))) - ((%closure - (lambda (self$1289) - ((%closure - (lambda (self$1290 - r$555) - ((%closure - (lambda (self$1291 - r$556) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1292 - sub$228) - ((%closure - (lambda (self$1293 - new-toks$229) - ((%closure - (lambda (self$1294 - new-toks$229) - ((%closure - (lambda (self$1295 - r$554) - ((%closure-ref - list - 0) - list - (%closure - (lambda (self$1296 - r$552) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1297 - r$553) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1298 - r$551) - ((%closure - (lambda (self$1299 - r$549) - (if (%closure-ref - self$1299 - 1) - ((%closure - (lambda (self$1300 - r$550) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1300 - 3) - (%closure-ref - self$1300 - 2) - r$550 - (cell-get - (%closure-ref - self$1300 - 4)) - (%closure-ref - self$1300 - 1) - #f - (%closure-ref - self$1300 - 5) - (%closure-ref - self$1300 - 6))) - (%closure-ref - self$1299 - 1) - (%closure-ref - self$1299 - 2) - (%closure-ref - self$1299 - 3) - (%closure-ref - self$1299 - 4) - (%closure-ref - self$1299 - 5) - (%closure-ref - self$1299 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1299 - 3) - 0) - (%closure-ref - self$1299 - 3) - (car (cell-get - (%closure-ref - self$1299 - 4)))))) - (%closure-ref - self$1298 - 1) - (%closure-ref - self$1298 - 2) - (%closure-ref - self$1298 - 3) - (%closure-ref - self$1298 - 4) - (%closure-ref - self$1298 - 5) - (%closure-ref - self$1298 - 6)) - (set-cell! - (%closure-ref - self$1298 - 4) - r$551))) - (%closure-ref - self$1297 - 1) - (%closure-ref - self$1297 - 2) - (%closure-ref - self$1297 - 3) - (%closure-ref - self$1297 - 4) - (%closure-ref - self$1297 - 5) - (%closure-ref - self$1297 - 6)) - (%closure-ref - self$1297 - 7) - r$553)) - (%closure-ref - self$1296 - 1) - (%closure-ref - self$1296 - 2) - (%closure-ref - self$1296 - 3) - (%closure-ref - self$1296 - 4) - (%closure-ref - self$1296 - 5) - (%closure-ref - self$1296 - 6) - r$552) - (%closure-ref - self$1296 - 7) - (%closure-ref - self$1296 - 8))) - (%closure-ref - self$1295 - 1) - (%closure-ref - self$1295 - 2) - (%closure-ref - self$1295 - 3) - (%closure-ref - self$1295 - 4) - (%closure-ref - self$1295 - 5) - (%closure-ref - self$1295 - 6) - (%closure-ref - self$1295 - 8) - (%closure-ref - self$1295 - 9)) - r$554 - (%closure-ref - self$1295 - 7))) - (%closure-ref - self$1294 - 1) - (%closure-ref - self$1294 - 2) - (%closure-ref - self$1294 - 3) - new-toks$229 - (%closure-ref - self$1294 - 4) - (%closure-ref - self$1294 - 5) - (%closure-ref - self$1294 - 6) - (%closure-ref - self$1294 - 7) - (%closure-ref - self$1294 - 8)) - 'quasiquote)) - (%closure-ref - self$1293 - 1) - (%closure-ref - self$1293 - 2) - (%closure-ref - self$1293 - 3) - (%closure-ref - self$1293 - 4) - (%closure-ref - self$1293 - 5) - (%closure-ref - self$1293 - 6) - (%closure-ref - self$1293 - 7) - (%closure-ref - self$1293 - 8)) - (cell new-toks$229))) - (%closure-ref - self$1292 - 1) - (%closure-ref - self$1292 - 2) - (%closure-ref - self$1292 - 3) - (%closure-ref - self$1292 - 4) - (%closure-ref - self$1292 - 5) - sub$228 - (%closure-ref - self$1292 - 6) - (%closure-ref - self$1292 - 7)) - #f)) - (%closure-ref - self$1291 - 1) - (%closure-ref - self$1291 - 2) - (%closure-ref - self$1291 - 3) - (%closure-ref - self$1291 - 4) - (%closure-ref - self$1291 - 5) - (%closure-ref - self$1291 - 7) - (%closure-ref - self$1291 - 8)) - (%closure-ref - self$1291 - 2) - (%closure-ref - self$1291 - 6) - r$556 - #f - #f - 0 - (%closure-ref - self$1291 - 5))) - (%closure-ref - self$1290 - 1) - (%closure-ref - self$1290 - 2) - (%closure-ref - self$1290 - 3) - (%closure-ref - self$1290 - 4) - (%closure-ref - self$1290 - 5) - r$555 - (%closure-ref - self$1290 - 6) - (%closure-ref - self$1290 - 7)) - '())) - (%closure-ref - self$1289 - 1) - (%closure-ref - self$1289 - 2) - (%closure-ref - self$1289 - 3) - (%closure-ref - self$1289 - 4) - (%closure-ref - self$1289 - 5) - (%closure-ref - self$1289 - 6) - (%closure-ref - self$1289 - 7)) - '())) - (%closure-ref - self$1288 - 1) - (%closure-ref - self$1288 - 3) - (%closure-ref - self$1288 - 4) - (%closure-ref - self$1288 - 5) - (%closure-ref - self$1288 - 6) - (%closure-ref - self$1288 - 7) - (%closure-ref - self$1288 - 8))))) - (%closure-ref - self$1287 - 1) - (%closure-ref - self$1287 - 2) - (%closure-ref - self$1287 - 3) - (%closure-ref - self$1287 - 4) - (%closure-ref - self$1287 - 5) - (%closure-ref - self$1287 - 6) - (%closure-ref - self$1287 - 7) - (%closure-ref - self$1287 - 8)))) - (%closure-ref - self$1060 - 1) - (%closure-ref - self$1060 - 2) - (%closure-ref - self$1060 - 3) - (%closure-ref - self$1060 - 4) - (%closure-ref - self$1060 - 5) - (%closure-ref - self$1060 - 6) - (%closure-ref - self$1060 - 7) - (%closure-ref - self$1060 - 8))) - ((%closure - (lambda (self$1061 - r$559) - (if r$559 - ((%closure - (lambda (self$1247) - ((%closure - (lambda (self$1285 - k$587) - (if (%closure-ref - self$1285 - 1) - ((%closure-ref - k$587 - 0) - k$587 - #f) - ((%closure - (lambda (self$1286 - r$588) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1286 - 1) - r$588)) - k$587) - (null? (%closure-ref - self$1285 - 2))))) - (%closure-ref - self$1247 - 1) - (%closure-ref - self$1247 - 7)) - (%closure - (lambda (self$1248 - r$560) - (if r$560 - ((%closure - (lambda (self$1281) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1282 - r$561) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1283 - r$563) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1284 - r$562) - ((%closure-ref - (%closure-ref - self$1284 - 1) - 0) - (%closure-ref - self$1284 - 1) - (car r$562))) - (%closure-ref - self$1283 - 1)) - r$563 - (%closure-ref - self$1283 - 2))) - (%closure-ref - self$1282 - 1) - (%closure-ref - self$1282 - 3)) - (%closure-ref - self$1282 - 2))) - (%closure-ref - self$1281 - 2) - (%closure-ref - self$1281 - 4) - (%closure-ref - self$1281 - 5)) - (%closure-ref - self$1281 - 3) - (%closure-ref - self$1281 - 1))) - (%closure-ref - self$1248 - 2) - (%closure-ref - self$1248 - 4) - (%closure-ref - self$1248 - 6) - (%closure-ref - self$1248 - 7) - (%closure-ref - self$1248 - 8))) - ((%closure - (lambda (self$1249) - ((%closure - (lambda (self$1250 - sub$227 - next-c$226 - unquote-sym$225 - new-toks$224) - ((%closure - (lambda (self$1251 - sub$227) - ((%closure - (lambda (self$1252 - next-c$226) - ((%closure - (lambda (self$1253 - unquote-sym$225) - ((%closure - (lambda (self$1254 - new-toks$224) - ((%closure - (lambda (self$1255 - r$564) - ((%closure - (lambda (self$1256 - r$586) - ((%closure - (lambda (self$1257 - r$565) - ((%closure - (lambda (self$1279 - k$584) - ((%closure - (lambda (self$1280 - r$585) - (if r$585 - ((%closure-ref - (%closure-ref - self$1280 - 1) - 0) - (%closure-ref - self$1280 - 1) - 'unquote-splicing) - ((%closure-ref - (%closure-ref - self$1280 - 1) - 0) - (%closure-ref - self$1280 - 1) - 'unquote))) - k$584) - (equal? - (cell-get - (%closure-ref - self$1279 - 1)) - #\@))) - (%closure-ref - self$1257 - 5)) - (%closure - (lambda (self$1258 - r$583) - ((%closure - (lambda (self$1259 - r$566) - ((%closure - (lambda (self$1260 - r$567) - ((%closure - (lambda (self$1271 - k$578) - ((%closure - (lambda (self$1272 - r$579) - (if r$579 - ((%closure - (lambda (self$1276) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1277 - r$580) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1278 - r$581) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1278 - 1) - "unexpected end of file" - (%closure-ref - self$1278 - 2) - r$581)) - (%closure-ref - self$1277 - 1) - r$580) - (%closure-ref - self$1277 - 2))) - (%closure-ref - self$1276 - 1) - (%closure-ref - self$1276 - 2)) - (%closure-ref - self$1276 - 2))) - (%closure-ref - self$1272 - 1) - (%closure-ref - self$1272 - 3))) - ((%closure - (lambda (self$1273 - r$582) - (if r$582 - ((%closure - (lambda (self$1275) - ((%closure-ref - (%closure-ref - self$1275 - 1) - 0) - (%closure-ref - self$1275 - 1) - #f)) - (%closure-ref - self$1273 - 1))) - ((%closure - (lambda (self$1274) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure-ref - self$1274 - 1) - (%closure-ref - self$1274 - 3) - (cell-get - (%closure-ref - self$1274 - 2)))) - (%closure-ref - self$1273 - 1) - (%closure-ref - self$1273 - 2) - (%closure-ref - self$1273 - 3))))) - (%closure-ref - self$1272 - 1) - (%closure-ref - self$1272 - 2) - (%closure-ref - self$1272 - 3)) - (equal? - (cell-get - (%closure-ref - self$1272 - 2)) - #\@)))) - k$578 - (%closure-ref - self$1271 - 1) - (%closure-ref - self$1271 - 2)) - (eof-object? - (cell-get - (%closure-ref - self$1271 - 1))))) - (%closure-ref - self$1260 - 5) - (%closure-ref - self$1260 - 7)) - (%closure - (lambda (self$1261 - r$568) - ((%closure - (lambda (self$1262 - r$576) - ((%closure - (lambda (self$1263 - r$577) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1264 - r$575) - ((%closure - (lambda (self$1265 - r$569) - ((%closure-ref - list - 0) - list - (%closure - (lambda (self$1266 - r$573) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1267 - r$574) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1268 - r$572) - ((%closure - (lambda (self$1269 - r$570) - (if (%closure-ref - self$1269 - 1) - ((%closure - (lambda (self$1270 - r$571) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1270 - 3) - (%closure-ref - self$1270 - 2) - r$571 - (cell-get - (%closure-ref - self$1270 - 4)) - (%closure-ref - self$1270 - 1) - #f - (%closure-ref - self$1270 - 5) - (%closure-ref - self$1270 - 6))) - (%closure-ref - self$1269 - 1) - (%closure-ref - self$1269 - 2) - (%closure-ref - self$1269 - 3) - (%closure-ref - self$1269 - 4) - (%closure-ref - self$1269 - 5) - (%closure-ref - self$1269 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1269 - 3) - 0) - (%closure-ref - self$1269 - 3) - (car (cell-get - (%closure-ref - self$1269 - 4)))))) - (%closure-ref - self$1268 - 1) - (%closure-ref - self$1268 - 2) - (%closure-ref - self$1268 - 3) - (%closure-ref - self$1268 - 4) - (%closure-ref - self$1268 - 5) - (%closure-ref - self$1268 - 6)) - (set-cell! - (%closure-ref - self$1268 - 4) - r$572))) - (%closure-ref - self$1267 - 1) - (%closure-ref - self$1267 - 2) - (%closure-ref - self$1267 - 3) - (%closure-ref - self$1267 - 4) - (%closure-ref - self$1267 - 5) - (%closure-ref - self$1267 - 6)) - (%closure-ref - self$1267 - 7) - r$574)) - (%closure-ref - self$1266 - 1) - (%closure-ref - self$1266 - 2) - (%closure-ref - self$1266 - 3) - (%closure-ref - self$1266 - 4) - (%closure-ref - self$1266 - 5) - (%closure-ref - self$1266 - 6) - r$573) - (%closure-ref - self$1266 - 7) - (%closure-ref - self$1266 - 8))) - (%closure-ref - self$1265 - 1) - (%closure-ref - self$1265 - 2) - (%closure-ref - self$1265 - 3) - (%closure-ref - self$1265 - 4) - (%closure-ref - self$1265 - 5) - (%closure-ref - self$1265 - 6) - (%closure-ref - self$1265 - 8) - (%closure-ref - self$1265 - 9)) - (cell-get - (%closure-ref - self$1265 - 10)) - (cell-get - (%closure-ref - self$1265 - 7)))) - (%closure-ref - self$1264 - 1) - (%closure-ref - self$1264 - 2) - (%closure-ref - self$1264 - 3) - (%closure-ref - self$1264 - 4) - (%closure-ref - self$1264 - 5) - (%closure-ref - self$1264 - 6) - (%closure-ref - self$1264 - 7) - (%closure-ref - self$1264 - 8) - (%closure-ref - self$1264 - 9) - (%closure-ref - self$1264 - 10)) - (set-cell! - (%closure-ref - self$1264 - 7) - r$575))) - (%closure-ref - self$1263 - 1) - (%closure-ref - self$1263 - 2) - (%closure-ref - self$1263 - 3) - (%closure-ref - self$1263 - 4) - (%closure-ref - self$1263 - 5) - (%closure-ref - self$1263 - 6) - (%closure-ref - self$1263 - 8) - (%closure-ref - self$1263 - 9) - (%closure-ref - self$1263 - 10) - (%closure-ref - self$1263 - 11)) - (%closure-ref - self$1263 - 2) - (%closure-ref - self$1263 - 7) - r$577 - #f - #f - 0 - (%closure-ref - self$1263 - 6))) - (%closure-ref - self$1262 - 1) - (%closure-ref - self$1262 - 2) - (%closure-ref - self$1262 - 3) - (%closure-ref - self$1262 - 4) - (%closure-ref - self$1262 - 5) - (%closure-ref - self$1262 - 6) - r$576 - (%closure-ref - self$1262 - 7) - (%closure-ref - self$1262 - 8) - (%closure-ref - self$1262 - 9) - (%closure-ref - self$1262 - 10)) - '())) - (%closure-ref - self$1261 - 1) - (%closure-ref - self$1261 - 2) - (%closure-ref - self$1261 - 3) - (%closure-ref - self$1261 - 4) - (%closure-ref - self$1261 - 5) - (%closure-ref - self$1261 - 6) - (%closure-ref - self$1261 - 7) - (%closure-ref - self$1261 - 8) - (%closure-ref - self$1261 - 9) - (%closure-ref - self$1261 - 10)) - '())) - (%closure-ref - self$1260 - 1) - (%closure-ref - self$1260 - 2) - (%closure-ref - self$1260 - 3) - (%closure-ref - self$1260 - 4) - (%closure-ref - self$1260 - 6) - (%closure-ref - self$1260 - 7) - (%closure-ref - self$1260 - 8) - (%closure-ref - self$1260 - 9) - (%closure-ref - self$1260 - 10) - (%closure-ref - self$1260 - 11)))) - (%closure-ref - self$1259 - 1) - (%closure-ref - self$1259 - 2) - (%closure-ref - self$1259 - 3) - (%closure-ref - self$1259 - 4) - (%closure-ref - self$1259 - 5) - (%closure-ref - self$1259 - 6) - (%closure-ref - self$1259 - 7) - (%closure-ref - self$1259 - 8) - (%closure-ref - self$1259 - 9) - (%closure-ref - self$1259 - 10) - (%closure-ref - self$1259 - 11)) - (set-cell! - (%closure-ref - self$1259 - 4) - #f))) - (%closure-ref - self$1258 - 1) - (%closure-ref - self$1258 - 2) - (%closure-ref - self$1258 - 3) - (%closure-ref - self$1258 - 4) - (%closure-ref - self$1258 - 5) - (%closure-ref - self$1258 - 6) - (%closure-ref - self$1258 - 7) - (%closure-ref - self$1258 - 8) - (%closure-ref - self$1258 - 9) - (%closure-ref - self$1258 - 10) - (%closure-ref - self$1258 - 11)) - (set-cell! - (%closure-ref - self$1258 - 11) - r$583))) - (%closure-ref - self$1257 - 1) - (%closure-ref - self$1257 - 2) - (%closure-ref - self$1257 - 3) - (%closure-ref - self$1257 - 4) - (%closure-ref - self$1257 - 5) - (%closure-ref - self$1257 - 6) - (%closure-ref - self$1257 - 7) - (%closure-ref - self$1257 - 8) - (%closure-ref - self$1257 - 9) - (%closure-ref - self$1257 - 10) - (%closure-ref - self$1257 - 11)))) - (%closure-ref - self$1256 - 1) - (%closure-ref - self$1256 - 2) - (%closure-ref - self$1256 - 3) - (%closure-ref - self$1256 - 4) - (%closure-ref - self$1256 - 5) - (%closure-ref - self$1256 - 6) - (%closure-ref - self$1256 - 7) - (%closure-ref - self$1256 - 8) - (%closure-ref - self$1256 - 9) - (%closure-ref - self$1256 - 10) - (%closure-ref - self$1256 - 11)) - (set-cell! - (%closure-ref - self$1256 - 5) - r$586))) - (%closure-ref - self$1255 - 1) - (%closure-ref - self$1255 - 2) - (%closure-ref - self$1255 - 3) - (%closure-ref - self$1255 - 4) - (%closure-ref - self$1255 - 5) - (%closure-ref - self$1255 - 6) - (%closure-ref - self$1255 - 7) - (%closure-ref - self$1255 - 8) - (%closure-ref - self$1255 - 9) - (%closure-ref - self$1255 - 10) - (%closure-ref - self$1255 - 11)) - (read-char - (%closure-ref - self$1255 - 2)))) - (%closure-ref - self$1254 - 1) - (%closure-ref - self$1254 - 2) - (%closure-ref - self$1254 - 3) - new-toks$224 - (%closure-ref - self$1254 - 4) - (%closure-ref - self$1254 - 5) - (%closure-ref - self$1254 - 6) - (%closure-ref - self$1254 - 7) - (%closure-ref - self$1254 - 8) - (%closure-ref - self$1254 - 9) - (%closure-ref - self$1254 - 10)) - (set-cell! - (%closure-ref - self$1254 - 7) - #f))) - (%closure-ref - self$1253 - 1) - (%closure-ref - self$1253 - 2) - (%closure-ref - self$1253 - 3) - (%closure-ref - self$1253 - 5) - (%closure-ref - self$1253 - 6) - (%closure-ref - self$1253 - 7) - (%closure-ref - self$1253 - 8) - (%closure-ref - self$1253 - 9) - (%closure-ref - self$1253 - 10) - unquote-sym$225) - (cell (%closure-ref - self$1253 - 4)))) - (%closure-ref - self$1252 - 1) - (%closure-ref - self$1252 - 2) - (%closure-ref - self$1252 - 3) - (%closure-ref - self$1252 - 4) - next-c$226 - (%closure-ref - self$1252 - 5) - (%closure-ref - self$1252 - 6) - (%closure-ref - self$1252 - 7) - (%closure-ref - self$1252 - 8) - (%closure-ref - self$1252 - 9)) - (cell (%closure-ref - self$1252 - 10)))) - (%closure-ref - self$1251 - 1) - (%closure-ref - self$1251 - 2) - (%closure-ref - self$1251 - 3) - (%closure-ref - self$1251 - 4) - (%closure-ref - self$1251 - 6) - (%closure-ref - self$1251 - 7) - sub$227 - (%closure-ref - self$1251 - 8) - (%closure-ref - self$1251 - 9) - (%closure-ref - self$1251 - 10)) - (cell (%closure-ref - self$1251 - 5)))) - (%closure-ref - self$1250 - 1) - (%closure-ref - self$1250 - 2) - (%closure-ref - self$1250 - 3) - new-toks$224 - next-c$226 - (%closure-ref - self$1250 - 4) - (%closure-ref - self$1250 - 5) - (%closure-ref - self$1250 - 6) - (%closure-ref - self$1250 - 7) - unquote-sym$225) - (cell sub$227))) - (%closure-ref - self$1249 - 1) - (%closure-ref - self$1249 - 2) - (%closure-ref - self$1249 - 3) - (%closure-ref - self$1249 - 4) - (%closure-ref - self$1249 - 5) - (%closure-ref - self$1249 - 6) - (%closure-ref - self$1249 - 7)) - #f - #f - #f - #f)) - (%closure-ref - self$1248 - 1) - (%closure-ref - self$1248 - 3) - (%closure-ref - self$1248 - 4) - (%closure-ref - self$1248 - 5) - (%closure-ref - self$1248 - 6) - (%closure-ref - self$1248 - 7) - (%closure-ref - self$1248 - 8))))) - (%closure-ref - self$1247 - 1) - (%closure-ref - self$1247 - 2) - (%closure-ref - self$1247 - 3) - (%closure-ref - self$1247 - 4) - (%closure-ref - self$1247 - 5) - (%closure-ref - self$1247 - 6) - (%closure-ref - self$1247 - 7) - (%closure-ref - self$1247 - 8)))) - (%closure-ref - self$1061 - 1) - (%closure-ref - self$1061 - 2) - (%closure-ref - self$1061 - 3) - (%closure-ref - self$1061 - 4) - (%closure-ref - self$1061 - 5) - (%closure-ref - self$1061 - 6) - (%closure-ref - self$1061 - 7) - (%closure-ref - self$1061 - 8))) - ((%closure - (lambda (self$1062 - r$589) - (if r$589 - ((%closure - (lambda (self$1222) - ((%closure - (lambda (self$1245 - k$607) - (if (%closure-ref - self$1245 - 1) - ((%closure-ref - k$607 - 0) - k$607 - #f) - ((%closure - (lambda (self$1246 - r$608) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1246 - 1) - r$608)) - k$607) - (null? (%closure-ref - self$1245 - 2))))) - (%closure-ref - self$1222 - 1) - (%closure-ref - self$1222 - 7)) - (%closure - (lambda (self$1223 - r$590) - (if r$590 - ((%closure - (lambda (self$1241) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1242 - r$591) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1243 - r$593) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1244 - r$592) - ((%closure-ref - (%closure-ref - self$1244 - 1) - 0) - (%closure-ref - self$1244 - 1) - (car r$592))) - (%closure-ref - self$1243 - 1)) - r$593 - (%closure-ref - self$1243 - 2))) - (%closure-ref - self$1242 - 1) - (%closure-ref - self$1242 - 3)) - (%closure-ref - self$1242 - 2))) - (%closure-ref - self$1241 - 2) - (%closure-ref - self$1241 - 4) - (%closure-ref - self$1241 - 5)) - (%closure-ref - self$1241 - 3) - (%closure-ref - self$1241 - 1))) - (%closure-ref - self$1223 - 2) - (%closure-ref - self$1223 - 4) - (%closure-ref - self$1223 - 6) - (%closure-ref - self$1223 - 7) - (%closure-ref - self$1223 - 8))) - ((%closure - (lambda (self$1224) - ((%closure - (lambda (self$1225 - r$604) - ((%closure - (lambda (self$1226 - r$605) - ((%closure - (lambda (self$1227 - r$606) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1228 - r$594) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1229 - r$595) - ((%closure - (lambda (self$1230 - sub$222 - toks*$221) - ((%closure - (lambda (self$1231 - new-toks$223) - ((%closure - (lambda (self$1232 - new-toks$223) - ((%closure - (lambda (self$1237 - k$600) - ((%closure - (lambda (self$1239 - k$602) - ((%closure - (lambda (self$1240 - r$603) - (if r$603 - ((%closure-ref - dotted? - 0) - dotted? - (%closure-ref - self$1240 - 1) - (%closure-ref - self$1240 - 2)) - ((%closure-ref - (%closure-ref - self$1240 - 1) - 0) - (%closure-ref - self$1240 - 1) - #f))) - k$602 - (%closure-ref - self$1239 - 1)) - (pair? (%closure-ref - self$1239 - 1)))) - (%closure-ref - self$1237 - 1)) - (%closure - (lambda (self$1238 - r$601) - (if r$601 - ((%closure-ref - ->dotted-list - 0) - ->dotted-list - (%closure-ref - self$1238 - 1) - (%closure-ref - self$1238 - 2)) - ((%closure-ref - (%closure-ref - self$1238 - 1) - 0) - (%closure-ref - self$1238 - 1) - (%closure-ref - self$1238 - 2)))) - k$600 - (%closure-ref - self$1237 - 1)))) - (%closure-ref - self$1232 - 6)) - (%closure - (lambda (self$1233 - r$599) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1234 - r$598) - ((%closure - (lambda (self$1235 - r$596) - (if (%closure-ref - self$1235 - 1) - ((%closure - (lambda (self$1236 - r$597) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1236 - 3) - (%closure-ref - self$1236 - 2) - r$597 - (cell-get - (%closure-ref - self$1236 - 4)) - (%closure-ref - self$1236 - 1) - #f - (%closure-ref - self$1236 - 5) - (%closure-ref - self$1236 - 6))) - (%closure-ref - self$1235 - 1) - (%closure-ref - self$1235 - 2) - (%closure-ref - self$1235 - 3) - (%closure-ref - self$1235 - 4) - (%closure-ref - self$1235 - 5) - (%closure-ref - self$1235 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1235 - 3) - 0) - (%closure-ref - self$1235 - 3) - (car (cell-get - (%closure-ref - self$1235 - 4)))))) - (%closure-ref - self$1234 - 1) - (%closure-ref - self$1234 - 2) - (%closure-ref - self$1234 - 3) - (%closure-ref - self$1234 - 4) - (%closure-ref - self$1234 - 5) - (%closure-ref - self$1234 - 6)) - (set-cell! - (%closure-ref - self$1234 - 4) - r$598))) - (%closure-ref - self$1233 - 1) - (%closure-ref - self$1233 - 2) - (%closure-ref - self$1233 - 3) - (%closure-ref - self$1233 - 4) - (%closure-ref - self$1233 - 5) - (%closure-ref - self$1233 - 6)) - r$599 - (%closure-ref - self$1233 - 7))) - (%closure-ref - self$1232 - 1) - (%closure-ref - self$1232 - 2) - (%closure-ref - self$1232 - 3) - new-toks$223 - (%closure-ref - self$1232 - 4) - (%closure-ref - self$1232 - 5) - (%closure-ref - self$1232 - 7)))) - (%closure-ref - self$1231 - 1) - (%closure-ref - self$1231 - 2) - (%closure-ref - self$1231 - 3) - (%closure-ref - self$1231 - 4) - (%closure-ref - self$1231 - 5) - (%closure-ref - self$1231 - 6) - (%closure-ref - self$1231 - 7)) - (cell new-toks$223))) - (%closure-ref - self$1230 - 1) - (%closure-ref - self$1230 - 2) - (%closure-ref - self$1230 - 3) - (%closure-ref - self$1230 - 4) - (%closure-ref - self$1230 - 5) - sub$222 - toks*$221) - #f)) - (%closure-ref - self$1229 - 1) - (%closure-ref - self$1229 - 2) - (%closure-ref - self$1229 - 3) - (%closure-ref - self$1229 - 4) - (%closure-ref - self$1229 - 5)) - (%closure-ref - self$1229 - 6) - r$595)) - (%closure-ref - self$1228 - 1) - (%closure-ref - self$1228 - 2) - (%closure-ref - self$1228 - 3) - (%closure-ref - self$1228 - 4) - (%closure-ref - self$1228 - 5) - r$594) - (%closure-ref - self$1228 - 6) - (%closure-ref - self$1228 - 7))) - (%closure-ref - self$1227 - 1) - (%closure-ref - self$1227 - 2) - (%closure-ref - self$1227 - 3) - (%closure-ref - self$1227 - 4) - (%closure-ref - self$1227 - 5) - (%closure-ref - self$1227 - 8) - (%closure-ref - self$1227 - 9)) - (%closure-ref - self$1227 - 2) - (%closure-ref - self$1227 - 6) - (%closure-ref - self$1227 - 7) - #t - #f - r$606 - (%closure-ref - self$1227 - 5))) - (%closure-ref - self$1226 - 1) - (%closure-ref - self$1226 - 2) - (%closure-ref - self$1226 - 3) - (%closure-ref - self$1226 - 4) - (%closure-ref - self$1226 - 5) - (%closure-ref - self$1226 - 6) - r$605 - (%closure-ref - self$1226 - 7) - (%closure-ref - self$1226 - 8)) - (+ (%closure-ref - self$1226 - 4) - 1))) - (%closure-ref - self$1225 - 1) - (%closure-ref - self$1225 - 2) - (%closure-ref - self$1225 - 3) - (%closure-ref - self$1225 - 4) - (%closure-ref - self$1225 - 5) - r$604 - (%closure-ref - self$1225 - 6) - (%closure-ref - self$1225 - 7)) - '())) - (%closure-ref - self$1224 - 1) - (%closure-ref - self$1224 - 2) - (%closure-ref - self$1224 - 3) - (%closure-ref - self$1224 - 4) - (%closure-ref - self$1224 - 5) - (%closure-ref - self$1224 - 6) - (%closure-ref - self$1224 - 7)) - '())) - (%closure-ref - self$1223 - 1) - (%closure-ref - self$1223 - 3) - (%closure-ref - self$1223 - 4) - (%closure-ref - self$1223 - 5) - (%closure-ref - self$1223 - 6) - (%closure-ref - self$1223 - 7) - (%closure-ref - self$1223 - 8))))) - (%closure-ref - self$1222 - 1) - (%closure-ref - self$1222 - 2) - (%closure-ref - self$1222 - 3) - (%closure-ref - self$1222 - 4) - (%closure-ref - self$1222 - 5) - (%closure-ref - self$1222 - 6) - (%closure-ref - self$1222 - 7) - (%closure-ref - self$1222 - 8)))) - (%closure-ref - self$1062 - 1) - (%closure-ref - self$1062 - 2) - (%closure-ref - self$1062 - 3) - (%closure-ref - self$1062 - 4) - (%closure-ref - self$1062 - 5) - (%closure-ref - self$1062 - 6) - (%closure-ref - self$1062 - 7) - (%closure-ref - self$1062 - 8))) - ((%closure - (lambda (self$1063 - r$609) - (if r$609 - ((%closure - (lambda (self$1208) - ((%closure - (lambda (self$1220 - k$618) - (if (%closure-ref - self$1220 - 1) - ((%closure-ref - k$618 - 0) - k$618 - #f) - ((%closure - (lambda (self$1221 - r$619) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1221 - 1) - r$619)) - k$618) - (null? (%closure-ref - self$1220 - 2))))) - (%closure-ref - self$1208 - 1) - (%closure-ref - self$1208 - 6)) - (%closure - (lambda (self$1209 - r$610) - (if r$610 - ((%closure - (lambda (self$1216) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1217 - r$611) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1218 - r$613) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1219 - r$612) - ((%closure-ref - (%closure-ref - self$1219 - 1) - 0) - (%closure-ref - self$1219 - 1) - (car r$612))) - (%closure-ref - self$1218 - 1)) - r$613 - (%closure-ref - self$1218 - 2))) - (%closure-ref - self$1217 - 1) - (%closure-ref - self$1217 - 3)) - (%closure-ref - self$1217 - 2))) - (%closure-ref - self$1216 - 2) - (%closure-ref - self$1216 - 4) - (%closure-ref - self$1216 - 5)) - (%closure-ref - self$1216 - 3) - (%closure-ref - self$1216 - 1))) - (%closure-ref - self$1209 - 1) - (%closure-ref - self$1209 - 2) - (%closure-ref - self$1209 - 4) - (%closure-ref - self$1209 - 5) - (%closure-ref - self$1209 - 6))) - ((%closure - (lambda (self$1210 - r$614) - (if r$614 - ((%closure - (lambda (self$1213) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1214 - r$615) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1215 - r$616) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1215 - 1) - "unexpected closing parenthesis" - (%closure-ref - self$1215 - 2) - r$616)) - (%closure-ref - self$1214 - 1) - r$615) - (%closure-ref - self$1214 - 2))) - (%closure-ref - self$1213 - 1) - (%closure-ref - self$1213 - 2)) - (%closure-ref - self$1213 - 2))) - (%closure-ref - self$1210 - 1) - (%closure-ref - self$1210 - 2))) - ((%closure - (lambda (self$1211) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1212 - r$617) - ((%closure-ref - reverse - 0) - reverse - (%closure-ref - self$1212 - 1) - r$617)) - (%closure-ref - self$1211 - 1)) - (%closure-ref - self$1211 - 2) - (%closure-ref - self$1211 - 3))) - (%closure-ref - self$1210 - 1) - (%closure-ref - self$1210 - 3) - (%closure-ref - self$1210 - 4))))) - (%closure-ref - self$1209 - 2) - (%closure-ref - self$1209 - 4) - (%closure-ref - self$1209 - 5) - (%closure-ref - self$1209 - 6)) - (= (%closure-ref - self$1209 - 3) - 0)))) - (%closure-ref - self$1208 - 2) - (%closure-ref - self$1208 - 3) - (%closure-ref - self$1208 - 4) - (%closure-ref - self$1208 - 5) - (%closure-ref - self$1208 - 6) - (%closure-ref - self$1208 - 7)))) - (%closure-ref - self$1063 - 1) - (%closure-ref - self$1063 - 2) - (%closure-ref - self$1063 - 4) - (%closure-ref - self$1063 - 5) - (%closure-ref - self$1063 - 6) - (%closure-ref - self$1063 - 7) - (%closure-ref - self$1063 - 8))) - ((%closure - (lambda (self$1064 - r$620) - (if r$620 - ((%closure - (lambda (self$1190) - ((%closure - (lambda (self$1206 - k$631) - (if (%closure-ref - self$1206 - 1) - ((%closure-ref - k$631 - 0) - k$631 - #f) - ((%closure - (lambda (self$1207 - r$632) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1207 - 1) - r$632)) - k$631) - (null? (%closure-ref - self$1206 - 2))))) - (%closure-ref - self$1190 - 1) - (%closure-ref - self$1190 - 7)) - (%closure - (lambda (self$1191 - r$621) - (if r$621 - ((%closure - (lambda (self$1202) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1203 - r$622) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1204 - r$624) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1205 - r$623) - ((%closure-ref - (%closure-ref - self$1205 - 1) - 0) - (%closure-ref - self$1205 - 1) - (car r$623))) - (%closure-ref - self$1204 - 1)) - r$624 - (%closure-ref - self$1204 - 2))) - (%closure-ref - self$1203 - 1) - (%closure-ref - self$1203 - 3)) - (%closure-ref - self$1203 - 2))) - (%closure-ref - self$1202 - 2) - (%closure-ref - self$1202 - 4) - (%closure-ref - self$1202 - 5)) - (%closure-ref - self$1202 - 3) - (%closure-ref - self$1202 - 1))) - (%closure-ref - self$1191 - 2) - (%closure-ref - self$1191 - 4) - (%closure-ref - self$1191 - 6) - (%closure-ref - self$1191 - 7) - (%closure-ref - self$1191 - 8))) - ((%closure - (lambda (self$1192) - ((%closure - (lambda (self$1193 - r$630) - ((%closure-ref - read-str - 0) - read-str - (%closure - (lambda (self$1194 - r$625) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1195 - r$626) - ((%closure - (lambda (self$1196 - str$219 - toks*$218) - ((%closure - (lambda (self$1197 - new-toks$220) - ((%closure - (lambda (self$1198 - new-toks$220) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1199 - r$629) - ((%closure - (lambda (self$1200 - r$627) - (if (%closure-ref - self$1200 - 1) - ((%closure - (lambda (self$1201 - r$628) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1201 - 3) - (%closure-ref - self$1201 - 2) - r$628 - (cell-get - (%closure-ref - self$1201 - 4)) - (%closure-ref - self$1201 - 1) - #f - (%closure-ref - self$1201 - 5) - (%closure-ref - self$1201 - 6))) - (%closure-ref - self$1200 - 1) - (%closure-ref - self$1200 - 2) - (%closure-ref - self$1200 - 3) - (%closure-ref - self$1200 - 4) - (%closure-ref - self$1200 - 5) - (%closure-ref - self$1200 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1200 - 3) - 0) - (%closure-ref - self$1200 - 3) - (car (cell-get - (%closure-ref - self$1200 - 4)))))) - (%closure-ref - self$1199 - 1) - (%closure-ref - self$1199 - 2) - (%closure-ref - self$1199 - 3) - (%closure-ref - self$1199 - 4) - (%closure-ref - self$1199 - 5) - (%closure-ref - self$1199 - 6)) - (set-cell! - (%closure-ref - self$1199 - 4) - r$629))) - (%closure-ref - self$1198 - 1) - (%closure-ref - self$1198 - 2) - (%closure-ref - self$1198 - 3) - new-toks$220 - (%closure-ref - self$1198 - 4) - (%closure-ref - self$1198 - 5)) - (%closure-ref - self$1198 - 6) - (%closure-ref - self$1198 - 7))) - (%closure-ref - self$1197 - 1) - (%closure-ref - self$1197 - 2) - (%closure-ref - self$1197 - 3) - (%closure-ref - self$1197 - 4) - (%closure-ref - self$1197 - 5) - (%closure-ref - self$1197 - 6) - (%closure-ref - self$1197 - 7)) - (cell new-toks$220))) - (%closure-ref - self$1196 - 1) - (%closure-ref - self$1196 - 2) - (%closure-ref - self$1196 - 3) - (%closure-ref - self$1196 - 4) - (%closure-ref - self$1196 - 5) - str$219 - toks*$218) - #f)) - (%closure-ref - self$1195 - 1) - (%closure-ref - self$1195 - 2) - (%closure-ref - self$1195 - 3) - (%closure-ref - self$1195 - 4) - (%closure-ref - self$1195 - 5)) - (%closure-ref - self$1195 - 6) - r$626)) - (%closure-ref - self$1194 - 1) - (%closure-ref - self$1194 - 2) - (%closure-ref - self$1194 - 3) - (%closure-ref - self$1194 - 4) - (%closure-ref - self$1194 - 5) - r$625) - (%closure-ref - self$1194 - 6) - (%closure-ref - self$1194 - 7))) - (%closure-ref - self$1193 - 1) - (%closure-ref - self$1193 - 2) - (%closure-ref - self$1193 - 3) - (%closure-ref - self$1193 - 4) - (%closure-ref - self$1193 - 5) - (%closure-ref - self$1193 - 6) - (%closure-ref - self$1193 - 7)) - (%closure-ref - self$1193 - 2) - r$630 - (%closure-ref - self$1193 - 5))) - (%closure-ref - self$1192 - 1) - (%closure-ref - self$1192 - 2) - (%closure-ref - self$1192 - 3) - (%closure-ref - self$1192 - 4) - (%closure-ref - self$1192 - 5) - (%closure-ref - self$1192 - 6) - (%closure-ref - self$1192 - 7)) - '())) - (%closure-ref - self$1191 - 1) - (%closure-ref - self$1191 - 3) - (%closure-ref - self$1191 - 4) - (%closure-ref - self$1191 - 5) - (%closure-ref - self$1191 - 6) - (%closure-ref - self$1191 - 7) - (%closure-ref - self$1191 - 8))))) - (%closure-ref - self$1190 - 1) - (%closure-ref - self$1190 - 2) - (%closure-ref - self$1190 - 3) - (%closure-ref - self$1190 - 4) - (%closure-ref - self$1190 - 5) - (%closure-ref - self$1190 - 6) - (%closure-ref - self$1190 - 7) - (%closure-ref - self$1190 - 8)))) - (%closure-ref - self$1064 - 1) - (%closure-ref - self$1064 - 2) - (%closure-ref - self$1064 - 3) - (%closure-ref - self$1064 - 4) - (%closure-ref - self$1064 - 5) - (%closure-ref - self$1064 - 6) - (%closure-ref - self$1064 - 7) - (%closure-ref - self$1064 - 8))) - ((%closure - (lambda (self$1065 - r$633) - (if r$633 - ((%closure - (lambda (self$1070) - ((%closure - (lambda (self$1071 - r$634) - (if r$634 - ((%closure - (lambda (self$1073 - next-c$205) - ((%closure - (lambda (self$1074 - next-c$205) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1075 - r$729) - ((%closure - (lambda (self$1076 - r$728) - ((%closure-ref - in-port:set-cnum! - 0) - in-port:set-cnum! - (%closure - (lambda (self$1077 - r$636) - ((%closure - (lambda (self$1078 - r$637) - (if r$637 - ((%closure - (lambda (self$1187) - ((%closure-ref - read-block-comment - 0) - read-block-comment - (%closure - (lambda (self$1188 - r$638) - ((%closure - (lambda (self$1189 - r$639) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1189 - 3) - (%closure-ref - self$1189 - 2) - r$639 - (%closure-ref - self$1189 - 6) - (%closure-ref - self$1189 - 1) - #f - (%closure-ref - self$1189 - 4) - (%closure-ref - self$1189 - 5))) - (%closure-ref - self$1188 - 1) - (%closure-ref - self$1188 - 2) - (%closure-ref - self$1188 - 3) - (%closure-ref - self$1188 - 4) - (%closure-ref - self$1188 - 5) - (%closure-ref - self$1188 - 6)) - '())) - (%closure-ref - self$1187 - 1) - (%closure-ref - self$1187 - 2) - (%closure-ref - self$1187 - 3) - (%closure-ref - self$1187 - 4) - (%closure-ref - self$1187 - 5) - (%closure-ref - self$1187 - 6)) - (%closure-ref - self$1187 - 2) - (%closure-ref - self$1187 - 5))) - (%closure-ref - self$1078 - 1) - (%closure-ref - self$1078 - 3) - (%closure-ref - self$1078 - 4) - (%closure-ref - self$1078 - 6) - (%closure-ref - self$1078 - 7) - (%closure-ref - self$1078 - 9))) - ((%closure - (lambda (self$1079 - r$640) - (if r$640 - ((%closure - (lambda (self$1184) - (if (%closure-ref - self$1184 - 1) - ((%closure - (lambda (self$1185 - r$641) - ((%closure - (lambda (self$1186 - r$642) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1186 - 3) - (%closure-ref - self$1186 - 2) - (%closure-ref - self$1186 - 6) - r$642 - (%closure-ref - self$1186 - 1) - #f - (%closure-ref - self$1186 - 4) - (%closure-ref - self$1186 - 5))) - (%closure-ref - self$1185 - 1) - (%closure-ref - self$1185 - 2) - (%closure-ref - self$1185 - 3) - (%closure-ref - self$1185 - 4) - (%closure-ref - self$1185 - 5) - r$641) - (cons #t - (%closure-ref - self$1185 - 6)))) - (%closure-ref - self$1184 - 1) - (%closure-ref - self$1184 - 2) - (%closure-ref - self$1184 - 3) - (%closure-ref - self$1184 - 4) - (%closure-ref - self$1184 - 5) - (%closure-ref - self$1184 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1184 - 3) - 0) - (%closure-ref - self$1184 - 3) - #t))) - (%closure-ref - self$1079 - 1) - (%closure-ref - self$1079 - 3) - (%closure-ref - self$1079 - 4) - (%closure-ref - self$1079 - 6) - (%closure-ref - self$1079 - 7) - (%closure-ref - self$1079 - 9))) - ((%closure - (lambda (self$1080 - r$643) - (if r$643 - ((%closure - (lambda (self$1181) - (if (%closure-ref - self$1181 - 1) - ((%closure - (lambda (self$1182 - r$644) - ((%closure - (lambda (self$1183 - r$645) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1183 - 3) - (%closure-ref - self$1183 - 2) - (%closure-ref - self$1183 - 6) - r$645 - (%closure-ref - self$1183 - 1) - #f - (%closure-ref - self$1183 - 4) - (%closure-ref - self$1183 - 5))) - (%closure-ref - self$1182 - 1) - (%closure-ref - self$1182 - 2) - (%closure-ref - self$1182 - 3) - (%closure-ref - self$1182 - 4) - (%closure-ref - self$1182 - 5) - r$644) - (cons #f - (%closure-ref - self$1182 - 6)))) - (%closure-ref - self$1181 - 1) - (%closure-ref - self$1181 - 2) - (%closure-ref - self$1181 - 3) - (%closure-ref - self$1181 - 4) - (%closure-ref - self$1181 - 5) - (%closure-ref - self$1181 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1181 - 3) - 0) - (%closure-ref - self$1181 - 3) - #f))) - (%closure-ref - self$1080 - 1) - (%closure-ref - self$1080 - 3) - (%closure-ref - self$1080 - 4) - (%closure-ref - self$1080 - 6) - (%closure-ref - self$1080 - 7) - (%closure-ref - self$1080 - 9))) - ((%closure - (lambda (self$1081 - r$646) - (if r$646 - ((%closure - (lambda (self$1177) - ((%closure - (lambda (self$1180 - r$647) - ((%closure-ref - parse-number - 0) - parse-number - (%closure-ref - self$1180 - 3) - (%closure-ref - self$1180 - 2) - (%closure-ref - self$1180 - 6) - (%closure-ref - self$1180 - 1) - (%closure-ref - self$1180 - 4) - (%closure-ref - self$1180 - 5) - 10 - r$647)) - (%closure-ref - self$1177 - 1) - (%closure-ref - self$1177 - 2) - (%closure-ref - self$1177 - 3) - (%closure-ref - self$1177 - 4) - (%closure-ref - self$1177 - 5) - (%closure-ref - self$1177 - 6)) - (%closure - (lambda (self$1178 - k$648 - num$217) - ((%closure-ref - parse-atom - 0) - parse-atom - (%closure - (lambda (self$1179 - r$649) - ((%closure-ref - exact - 0) - exact - (%closure-ref - self$1179 - 1) - r$649)) - k$648) - num$217))))) - (%closure-ref - self$1081 - 1) - (%closure-ref - self$1081 - 3) - (%closure-ref - self$1081 - 4) - (%closure-ref - self$1081 - 6) - (%closure-ref - self$1081 - 7) - (%closure-ref - self$1081 - 9))) - ((%closure - (lambda (self$1082 - r$650) - (if r$650 - ((%closure - (lambda (self$1173) - ((%closure - (lambda (self$1176 - r$651) - ((%closure-ref - parse-number - 0) - parse-number - (%closure-ref - self$1176 - 3) - (%closure-ref - self$1176 - 2) - (%closure-ref - self$1176 - 6) - (%closure-ref - self$1176 - 1) - (%closure-ref - self$1176 - 4) - (%closure-ref - self$1176 - 5) - 10 - r$651)) - (%closure-ref - self$1173 - 1) - (%closure-ref - self$1173 - 2) - (%closure-ref - self$1173 - 3) - (%closure-ref - self$1173 - 4) - (%closure-ref - self$1173 - 5) - (%closure-ref - self$1173 - 6)) - (%closure - (lambda (self$1174 - k$652 - num$216) - ((%closure-ref - parse-atom - 0) - parse-atom - (%closure - (lambda (self$1175 - r$653) - ((%closure-ref - inexact - 0) - inexact - (%closure-ref - self$1175 - 1) - r$653)) - k$652) - num$216))))) - (%closure-ref - self$1082 - 1) - (%closure-ref - self$1082 - 3) - (%closure-ref - self$1082 - 4) - (%closure-ref - self$1082 - 6) - (%closure-ref - self$1082 - 7) - (%closure-ref - self$1082 - 9))) - ((%closure - (lambda (self$1083 - r$654) - (if r$654 - ((%closure - (lambda (self$1169) - ((%closure - (lambda (self$1172 - r$655) - ((%closure-ref - parse-number - 0) - parse-number - (%closure-ref - self$1172 - 3) - (%closure-ref - self$1172 - 2) - (%closure-ref - self$1172 - 6) - (%closure-ref - self$1172 - 1) - (%closure-ref - self$1172 - 4) - (%closure-ref - self$1172 - 5) - 2 - r$655)) - (%closure-ref - self$1169 - 1) - (%closure-ref - self$1169 - 2) - (%closure-ref - self$1169 - 3) - (%closure-ref - self$1169 - 4) - (%closure-ref - self$1169 - 5) - (%closure-ref - self$1169 - 6)) - (%closure - (lambda (self$1170 - k$656 - num$215) - ((%closure - (lambda (self$1171 - r$657) - ((%closure-ref - (%closure-ref - self$1171 - 1) - 0) - (%closure-ref - self$1171 - 1) - (string->number - r$657 - 2))) - k$656) - (list->string - num$215)))))) - (%closure-ref - self$1083 - 1) - (%closure-ref - self$1083 - 3) - (%closure-ref - self$1083 - 4) - (%closure-ref - self$1083 - 6) - (%closure-ref - self$1083 - 7) - (%closure-ref - self$1083 - 9))) - ((%closure - (lambda (self$1084 - r$658) - (if r$658 - ((%closure - (lambda (self$1165) - ((%closure - (lambda (self$1168 - r$659) - ((%closure-ref - parse-number - 0) - parse-number - (%closure-ref - self$1168 - 3) - (%closure-ref - self$1168 - 2) - (%closure-ref - self$1168 - 6) - (%closure-ref - self$1168 - 1) - (%closure-ref - self$1168 - 4) - (%closure-ref - self$1168 - 5) - 8 - r$659)) - (%closure-ref - self$1165 - 1) - (%closure-ref - self$1165 - 2) - (%closure-ref - self$1165 - 3) - (%closure-ref - self$1165 - 4) - (%closure-ref - self$1165 - 5) - (%closure-ref - self$1165 - 6)) - (%closure - (lambda (self$1166 - k$660 - num$214) - ((%closure - (lambda (self$1167 - r$661) - ((%closure-ref - (%closure-ref - self$1167 - 1) - 0) - (%closure-ref - self$1167 - 1) - (string->number - r$661 - 8))) - k$660) - (list->string - num$214)))))) - (%closure-ref - self$1084 - 1) - (%closure-ref - self$1084 - 3) - (%closure-ref - self$1084 - 4) - (%closure-ref - self$1084 - 6) - (%closure-ref - self$1084 - 7) - (%closure-ref - self$1084 - 9))) - ((%closure - (lambda (self$1085 - r$662) - (if r$662 - ((%closure - (lambda (self$1161) - ((%closure - (lambda (self$1164 - r$663) - ((%closure-ref - parse-number - 0) - parse-number - (%closure-ref - self$1164 - 3) - (%closure-ref - self$1164 - 2) - (%closure-ref - self$1164 - 6) - (%closure-ref - self$1164 - 1) - (%closure-ref - self$1164 - 4) - (%closure-ref - self$1164 - 5) - 16 - r$663)) - (%closure-ref - self$1161 - 1) - (%closure-ref - self$1161 - 2) - (%closure-ref - self$1161 - 3) - (%closure-ref - self$1161 - 4) - (%closure-ref - self$1161 - 5) - (%closure-ref - self$1161 - 6)) - (%closure - (lambda (self$1162 - k$664 - num$213) - ((%closure - (lambda (self$1163 - r$665) - ((%closure-ref - (%closure-ref - self$1163 - 1) - 0) - (%closure-ref - self$1163 - 1) - (string->number - r$665 - 16))) - k$664) - (list->string - num$213)))))) - (%closure-ref - self$1085 - 1) - (%closure-ref - self$1085 - 3) - (%closure-ref - self$1085 - 4) - (%closure-ref - self$1085 - 6) - (%closure-ref - self$1085 - 7) - (%closure-ref - self$1085 - 9))) - ((%closure - (lambda (self$1086 - r$666) - (if r$666 - ((%closure - (lambda (self$1128) - ((%closure - (lambda (self$1129 - r$695) - ((%closure - (lambda (self$1130 - r$667) - ((%closure - (lambda (self$1157 - k$691) - ((%closure - (lambda (self$1158 - r$692) - (if r$692 - ((%closure-ref - (%closure-ref - self$1158 - 1) - 0) - (%closure-ref - self$1158 - 1) - #f) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1159 - r$693) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1160 - r$694) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1160 - 1) - "Unhandled input sequence" - (%closure-ref - self$1160 - 2) - r$694)) - (%closure-ref - self$1159 - 1) - r$693) - (%closure-ref - self$1159 - 2))) - (%closure-ref - self$1158 - 1) - (%closure-ref - self$1158 - 2)) - (%closure-ref - self$1158 - 2)))) - k$691 - (%closure-ref - self$1157 - 2)) - (eq? #\8 - (cell-get - (%closure-ref - self$1157 - 1))))) - (%closure-ref - self$1130 - 4) - (%closure-ref - self$1130 - 6)) - (%closure - (lambda (self$1131 - r$668) - ((%closure - (lambda (self$1132 - r$690) - ((%closure - (lambda (self$1133 - r$669) - ((%closure - (lambda (self$1153 - k$686) - ((%closure - (lambda (self$1154 - r$687) - (if r$687 - ((%closure-ref - (%closure-ref - self$1154 - 1) - 0) - (%closure-ref - self$1154 - 1) - #f) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1155 - r$688) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1156 - r$689) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1156 - 1) - "Unhandled input sequence" - (%closure-ref - self$1156 - 2) - r$689)) - (%closure-ref - self$1155 - 1) - r$688) - (%closure-ref - self$1155 - 2))) - (%closure-ref - self$1154 - 1) - (%closure-ref - self$1154 - 2)) - (%closure-ref - self$1154 - 2)))) - k$686 - (%closure-ref - self$1153 - 2)) - (eq? #\( - (cell-get - (%closure-ref - self$1153 - 1))))) - (%closure-ref - self$1133 - 4) - (%closure-ref - self$1133 - 6)) - (%closure - (lambda (self$1134 - r$670) - ((%closure - (lambda (self$1135 - r$683) - ((%closure - (lambda (self$1136 - r$684) - ((%closure - (lambda (self$1137 - r$685) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1138 - r$671) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1139 - r$672) - ((%closure - (lambda (self$1140 - sub$211 - toks*$210) - ((%closure - (lambda (self$1141 - new-toks$212) - ((%closure - (lambda (self$1142 - new-toks$212) - ((%closure - (lambda (self$1147 - k$677) - ((%closure - (lambda (self$1151 - k$681) - ((%closure - (lambda (self$1152 - r$682) - (if r$682 - ((%closure-ref - dotted? - 0) - dotted? - (%closure-ref - self$1152 - 1) - (%closure-ref - self$1152 - 2)) - ((%closure-ref - (%closure-ref - self$1152 - 1) - 0) - (%closure-ref - self$1152 - 1) - #f))) - k$681 - (%closure-ref - self$1151 - 1)) - (pair? (%closure-ref - self$1151 - 1)))) - (%closure-ref - self$1147 - 2)) - (%closure - (lambda (self$1148 - r$678) - (if r$678 - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1149 - r$679) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1150 - r$680) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1150 - 1) - "Invalid vector syntax" - (%closure-ref - self$1150 - 2) - r$680)) - (%closure-ref - self$1149 - 1) - r$679) - (%closure-ref - self$1149 - 2))) - (%closure-ref - self$1148 - 1) - (%closure-ref - self$1148 - 2)) - (%closure-ref - self$1148 - 2)) - ((%closure-ref - (%closure-ref - self$1148 - 1) - 0) - (%closure-ref - self$1148 - 1) - (apply bytevector - (%closure-ref - self$1148 - 3))))) - k$677 - (%closure-ref - self$1147 - 1) - (%closure-ref - self$1147 - 2)))) - (%closure-ref - self$1142 - 5) - (%closure-ref - self$1142 - 6)) - (%closure - (lambda (self$1143 - r$676) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1144 - r$675) - ((%closure - (lambda (self$1145 - r$673) - (if (%closure-ref - self$1145 - 1) - ((%closure - (lambda (self$1146 - r$674) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1146 - 3) - (%closure-ref - self$1146 - 2) - r$674 - (cell-get - (%closure-ref - self$1146 - 4)) - (%closure-ref - self$1146 - 1) - #f - (%closure-ref - self$1146 - 5) - (%closure-ref - self$1146 - 6))) - (%closure-ref - self$1145 - 1) - (%closure-ref - self$1145 - 2) - (%closure-ref - self$1145 - 3) - (%closure-ref - self$1145 - 4) - (%closure-ref - self$1145 - 5) - (%closure-ref - self$1145 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1145 - 3) - 0) - (%closure-ref - self$1145 - 3) - (car (cell-get - (%closure-ref - self$1145 - 4)))))) - (%closure-ref - self$1144 - 1) - (%closure-ref - self$1144 - 2) - (%closure-ref - self$1144 - 3) - (%closure-ref - self$1144 - 4) - (%closure-ref - self$1144 - 5) - (%closure-ref - self$1144 - 6)) - (set-cell! - (%closure-ref - self$1144 - 4) - r$675))) - (%closure-ref - self$1143 - 1) - (%closure-ref - self$1143 - 2) - (%closure-ref - self$1143 - 3) - (%closure-ref - self$1143 - 4) - (%closure-ref - self$1143 - 5) - (%closure-ref - self$1143 - 6)) - r$676 - (%closure-ref - self$1143 - 7))) - (%closure-ref - self$1142 - 1) - (%closure-ref - self$1142 - 2) - (%closure-ref - self$1142 - 3) - new-toks$212 - (%closure-ref - self$1142 - 4) - (%closure-ref - self$1142 - 5) - (%closure-ref - self$1142 - 7)))) - (%closure-ref - self$1141 - 1) - (%closure-ref - self$1141 - 2) - (%closure-ref - self$1141 - 3) - (%closure-ref - self$1141 - 4) - (%closure-ref - self$1141 - 5) - (%closure-ref - self$1141 - 6) - (%closure-ref - self$1141 - 7)) - (cell new-toks$212))) - (%closure-ref - self$1140 - 1) - (%closure-ref - self$1140 - 2) - (%closure-ref - self$1140 - 3) - (%closure-ref - self$1140 - 4) - (%closure-ref - self$1140 - 5) - sub$211 - toks*$210) - #f)) - (%closure-ref - self$1139 - 1) - (%closure-ref - self$1139 - 2) - (%closure-ref - self$1139 - 3) - (%closure-ref - self$1139 - 4) - (%closure-ref - self$1139 - 5)) - (%closure-ref - self$1139 - 6) - r$672)) - (%closure-ref - self$1138 - 1) - (%closure-ref - self$1138 - 2) - (%closure-ref - self$1138 - 3) - (%closure-ref - self$1138 - 4) - (%closure-ref - self$1138 - 5) - r$671) - (%closure-ref - self$1138 - 6) - (%closure-ref - self$1138 - 7))) - (%closure-ref - self$1137 - 1) - (%closure-ref - self$1137 - 2) - (%closure-ref - self$1137 - 3) - (%closure-ref - self$1137 - 4) - (%closure-ref - self$1137 - 5) - (%closure-ref - self$1137 - 8) - (%closure-ref - self$1137 - 9)) - (%closure-ref - self$1137 - 2) - (%closure-ref - self$1137 - 6) - (%closure-ref - self$1137 - 7) - #t - #f - r$685 - (%closure-ref - self$1137 - 5))) - (%closure-ref - self$1136 - 1) - (%closure-ref - self$1136 - 2) - (%closure-ref - self$1136 - 3) - (%closure-ref - self$1136 - 4) - (%closure-ref - self$1136 - 5) - (%closure-ref - self$1136 - 6) - r$684 - (%closure-ref - self$1136 - 7) - (%closure-ref - self$1136 - 8)) - (+ (%closure-ref - self$1136 - 4) - 1))) - (%closure-ref - self$1135 - 1) - (%closure-ref - self$1135 - 2) - (%closure-ref - self$1135 - 3) - (%closure-ref - self$1135 - 4) - (%closure-ref - self$1135 - 5) - r$683 - (%closure-ref - self$1135 - 6) - (%closure-ref - self$1135 - 7)) - '())) - (%closure-ref - self$1134 - 1) - (%closure-ref - self$1134 - 2) - (%closure-ref - self$1134 - 3) - (%closure-ref - self$1134 - 4) - (%closure-ref - self$1134 - 5) - (%closure-ref - self$1134 - 6) - (%closure-ref - self$1134 - 7)) - '())) - (%closure-ref - self$1133 - 1) - (%closure-ref - self$1133 - 2) - (%closure-ref - self$1133 - 3) - (%closure-ref - self$1133 - 5) - (%closure-ref - self$1133 - 6) - (%closure-ref - self$1133 - 7) - (%closure-ref - self$1133 - 8)))) - (%closure-ref - self$1132 - 1) - (%closure-ref - self$1132 - 2) - (%closure-ref - self$1132 - 3) - (%closure-ref - self$1132 - 4) - (%closure-ref - self$1132 - 5) - (%closure-ref - self$1132 - 6) - (%closure-ref - self$1132 - 7) - (%closure-ref - self$1132 - 8)) - (set-cell! - (%closure-ref - self$1132 - 4) - r$690))) - (%closure-ref - self$1131 - 1) - (%closure-ref - self$1131 - 2) - (%closure-ref - self$1131 - 3) - (%closure-ref - self$1131 - 4) - (%closure-ref - self$1131 - 5) - (%closure-ref - self$1131 - 6) - (%closure-ref - self$1131 - 7) - (%closure-ref - self$1131 - 8)) - (read-char - (%closure-ref - self$1131 - 2)))) - (%closure-ref - self$1130 - 1) - (%closure-ref - self$1130 - 2) - (%closure-ref - self$1130 - 3) - (%closure-ref - self$1130 - 4) - (%closure-ref - self$1130 - 5) - (%closure-ref - self$1130 - 6) - (%closure-ref - self$1130 - 7) - (%closure-ref - self$1130 - 8)))) - (%closure-ref - self$1129 - 1) - (%closure-ref - self$1129 - 2) - (%closure-ref - self$1129 - 3) - (%closure-ref - self$1129 - 4) - (%closure-ref - self$1129 - 5) - (%closure-ref - self$1129 - 6) - (%closure-ref - self$1129 - 7) - (%closure-ref - self$1129 - 8)) - (set-cell! - (%closure-ref - self$1129 - 4) - r$695))) - (%closure-ref - self$1128 - 1) - (%closure-ref - self$1128 - 2) - (%closure-ref - self$1128 - 3) - (%closure-ref - self$1128 - 4) - (%closure-ref - self$1128 - 5) - (%closure-ref - self$1128 - 6) - (%closure-ref - self$1128 - 7) - (%closure-ref - self$1128 - 8)) - (read-char - (%closure-ref - self$1128 - 2)))) - (%closure-ref - self$1086 - 1) - (%closure-ref - self$1086 - 3) - (%closure-ref - self$1086 - 4) - (%closure-ref - self$1086 - 5) - (%closure-ref - self$1086 - 6) - (%closure-ref - self$1086 - 7) - (%closure-ref - self$1086 - 8) - (%closure-ref - self$1086 - 9))) - ((%closure - (lambda (self$1087 - r$696) - (if r$696 - ((%closure - (lambda (self$1109) - ((%closure - (lambda (self$1110 - r$709) - ((%closure - (lambda (self$1111 - r$710) - ((%closure - (lambda (self$1112 - r$711) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1113 - r$697) - ((%closure-ref - get-toks - 0) - get-toks - (%closure - (lambda (self$1114 - r$698) - ((%closure - (lambda (self$1115 - sub$208 - toks*$207) - ((%closure - (lambda (self$1116 - new-toks$209) - ((%closure - (lambda (self$1117 - new-toks$209) - ((%closure - (lambda (self$1122 - k$703) - ((%closure - (lambda (self$1126 - k$707) - ((%closure - (lambda (self$1127 - r$708) - (if r$708 - ((%closure-ref - dotted? - 0) - dotted? - (%closure-ref - self$1127 - 1) - (%closure-ref - self$1127 - 2)) - ((%closure-ref - (%closure-ref - self$1127 - 1) - 0) - (%closure-ref - self$1127 - 1) - #f))) - k$707 - (%closure-ref - self$1126 - 1)) - (pair? (%closure-ref - self$1126 - 1)))) - (%closure-ref - self$1122 - 2)) - (%closure - (lambda (self$1123 - r$704) - (if r$704 - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1124 - r$705) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1125 - r$706) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1125 - 1) - "Invalid vector syntax" - (%closure-ref - self$1125 - 2) - r$706)) - (%closure-ref - self$1124 - 1) - r$705) - (%closure-ref - self$1124 - 2))) - (%closure-ref - self$1123 - 1) - (%closure-ref - self$1123 - 2)) - (%closure-ref - self$1123 - 2)) - ((%closure-ref - (%closure-ref - self$1123 - 1) - 0) - (%closure-ref - self$1123 - 1) - (list->vector - (%closure-ref - self$1123 - 3))))) - k$703 - (%closure-ref - self$1122 - 1) - (%closure-ref - self$1122 - 2)))) - (%closure-ref - self$1117 - 5) - (%closure-ref - self$1117 - 6)) - (%closure - (lambda (self$1118 - r$702) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1119 - r$701) - ((%closure - (lambda (self$1120 - r$699) - (if (%closure-ref - self$1120 - 1) - ((%closure - (lambda (self$1121 - r$700) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1121 - 3) - (%closure-ref - self$1121 - 2) - r$700 - (cell-get - (%closure-ref - self$1121 - 4)) - (%closure-ref - self$1121 - 1) - #f - (%closure-ref - self$1121 - 5) - (%closure-ref - self$1121 - 6))) - (%closure-ref - self$1120 - 1) - (%closure-ref - self$1120 - 2) - (%closure-ref - self$1120 - 3) - (%closure-ref - self$1120 - 4) - (%closure-ref - self$1120 - 5) - (%closure-ref - self$1120 - 6)) - '()) - ((%closure-ref - (%closure-ref - self$1120 - 3) - 0) - (%closure-ref - self$1120 - 3) - (car (cell-get - (%closure-ref - self$1120 - 4)))))) - (%closure-ref - self$1119 - 1) - (%closure-ref - self$1119 - 2) - (%closure-ref - self$1119 - 3) - (%closure-ref - self$1119 - 4) - (%closure-ref - self$1119 - 5) - (%closure-ref - self$1119 - 6)) - (set-cell! - (%closure-ref - self$1119 - 4) - r$701))) - (%closure-ref - self$1118 - 1) - (%closure-ref - self$1118 - 2) - (%closure-ref - self$1118 - 3) - (%closure-ref - self$1118 - 4) - (%closure-ref - self$1118 - 5) - (%closure-ref - self$1118 - 6)) - r$702 - (%closure-ref - self$1118 - 7))) - (%closure-ref - self$1117 - 1) - (%closure-ref - self$1117 - 2) - (%closure-ref - self$1117 - 3) - new-toks$209 - (%closure-ref - self$1117 - 4) - (%closure-ref - self$1117 - 5) - (%closure-ref - self$1117 - 7)))) - (%closure-ref - self$1116 - 1) - (%closure-ref - self$1116 - 2) - (%closure-ref - self$1116 - 3) - (%closure-ref - self$1116 - 4) - (%closure-ref - self$1116 - 5) - (%closure-ref - self$1116 - 6) - (%closure-ref - self$1116 - 7)) - (cell new-toks$209))) - (%closure-ref - self$1115 - 1) - (%closure-ref - self$1115 - 2) - (%closure-ref - self$1115 - 3) - (%closure-ref - self$1115 - 4) - (%closure-ref - self$1115 - 5) - sub$208 - toks*$207) - #f)) - (%closure-ref - self$1114 - 1) - (%closure-ref - self$1114 - 2) - (%closure-ref - self$1114 - 3) - (%closure-ref - self$1114 - 4) - (%closure-ref - self$1114 - 5)) - (%closure-ref - self$1114 - 6) - r$698)) - (%closure-ref - self$1113 - 1) - (%closure-ref - self$1113 - 2) - (%closure-ref - self$1113 - 3) - (%closure-ref - self$1113 - 4) - (%closure-ref - self$1113 - 5) - r$697) - (%closure-ref - self$1113 - 6) - (%closure-ref - self$1113 - 7))) - (%closure-ref - self$1112 - 1) - (%closure-ref - self$1112 - 2) - (%closure-ref - self$1112 - 3) - (%closure-ref - self$1112 - 4) - (%closure-ref - self$1112 - 5) - (%closure-ref - self$1112 - 8) - (%closure-ref - self$1112 - 9)) - (%closure-ref - self$1112 - 2) - (%closure-ref - self$1112 - 6) - (%closure-ref - self$1112 - 7) - #t - #f - r$711 - (%closure-ref - self$1112 - 5))) - (%closure-ref - self$1111 - 1) - (%closure-ref - self$1111 - 2) - (%closure-ref - self$1111 - 3) - (%closure-ref - self$1111 - 4) - (%closure-ref - self$1111 - 5) - (%closure-ref - self$1111 - 6) - r$710 - (%closure-ref - self$1111 - 7) - (%closure-ref - self$1111 - 8)) - (+ (%closure-ref - self$1111 - 4) - 1))) - (%closure-ref - self$1110 - 1) - (%closure-ref - self$1110 - 2) - (%closure-ref - self$1110 - 3) - (%closure-ref - self$1110 - 4) - (%closure-ref - self$1110 - 5) - r$709 - (%closure-ref - self$1110 - 6) - (%closure-ref - self$1110 - 7)) - '())) - (%closure-ref - self$1109 - 1) - (%closure-ref - self$1109 - 2) - (%closure-ref - self$1109 - 3) - (%closure-ref - self$1109 - 4) - (%closure-ref - self$1109 - 5) - (%closure-ref - self$1109 - 6) - (%closure-ref - self$1109 - 7)) - '())) - (%closure-ref - self$1087 - 1) - (%closure-ref - self$1087 - 3) - (%closure-ref - self$1087 - 4) - (%closure-ref - self$1087 - 6) - (%closure-ref - self$1087 - 7) - (%closure-ref - self$1087 - 8) - (%closure-ref - self$1087 - 9))) - ((%closure - (lambda (self$1088 - r$712) - (if r$712 - ((%closure - (lambda (self$1105) - ((%closure-ref - read-pound - 0) - read-pound - (%closure - (lambda (self$1106 - r$715) - ((%closure - (lambda (self$1107 - new-toks$206) - (if (%closure-ref - self$1107 - 1) - ((%closure - (lambda (self$1108 - r$714) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1108 - 3) - (%closure-ref - self$1108 - 2) - r$714 - (%closure-ref - self$1108 - 4) - (%closure-ref - self$1108 - 1) - #f - (%closure-ref - self$1108 - 5) - (%closure-ref - self$1108 - 6))) - (%closure-ref - self$1107 - 1) - (%closure-ref - self$1107 - 2) - (%closure-ref - self$1107 - 3) - new-toks$206 - (%closure-ref - self$1107 - 4) - (%closure-ref - self$1107 - 5)) - '()) - ((%closure-ref - (%closure-ref - self$1107 - 3) - 0) - (%closure-ref - self$1107 - 3) - (car new-toks$206)))) - (%closure-ref - self$1106 - 1) - (%closure-ref - self$1106 - 2) - (%closure-ref - self$1106 - 3) - (%closure-ref - self$1106 - 4) - (%closure-ref - self$1106 - 5)) - (cons r$715 - (%closure-ref - self$1106 - 6)))) - (%closure-ref - self$1105 - 1) - (%closure-ref - self$1105 - 2) - (%closure-ref - self$1105 - 3) - (%closure-ref - self$1105 - 4) - (%closure-ref - self$1105 - 5) - (%closure-ref - self$1105 - 6)) - (%closure-ref - self$1105 - 2) - (%closure-ref - self$1105 - 5))) - (%closure-ref - self$1088 - 1) - (%closure-ref - self$1088 - 3) - (%closure-ref - self$1088 - 4) - (%closure-ref - self$1088 - 6) - (%closure-ref - self$1088 - 7) - (%closure-ref - self$1088 - 9))) - ((%closure - (lambda (self$1089 - r$716) - (if r$716 - ((%closure - (lambda (self$1093) - ((%closure - (lambda (self$1094 - r$724) - ((%closure - (lambda (self$1095 - r$725) - ((%closure-ref - parse - 0) - parse - (%closure - (lambda (self$1096 - r$717) - ((%closure - (lambda (self$1103 - k$722) - (if (%closure-ref - self$1103 - 1) - ((%closure-ref - k$722 - 0) - k$722 - #f) - ((%closure - (lambda (self$1104 - r$723) - ((%closure-ref - not - 0) - not - (%closure-ref - self$1104 - 1) - r$723)) - k$722) - (null? (%closure-ref - self$1103 - 2))))) - (%closure-ref - self$1096 - 1) - (%closure-ref - self$1096 - 7)) - (%closure - (lambda (self$1097 - r$718) - (if r$718 - ((%closure - (lambda (self$1099) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$1100 - r$719) - ((%closure-ref - ->tok - 0) - ->tok - (%closure - (lambda (self$1101 - r$721) - ((%closure-ref - add-tok - 0) - add-tok - (%closure - (lambda (self$1102 - r$720) - ((%closure-ref - (%closure-ref - self$1102 - 1) - 0) - (%closure-ref - self$1102 - 1) - (car r$720))) - (%closure-ref - self$1101 - 1)) - r$721 - (%closure-ref - self$1101 - 2))) - (%closure-ref - self$1100 - 1) - (%closure-ref - self$1100 - 3)) - (%closure-ref - self$1100 - 2))) - (%closure-ref - self$1099 - 2) - (%closure-ref - self$1099 - 4) - (%closure-ref - self$1099 - 5)) - (%closure-ref - self$1099 - 3) - (%closure-ref - self$1099 - 1))) - (%closure-ref - self$1097 - 2) - (%closure-ref - self$1097 - 4) - (%closure-ref - self$1097 - 6) - (%closure-ref - self$1097 - 7) - (%closure-ref - self$1097 - 8))) - ((%closure - (lambda (self$1098) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1098 - 3) - (%closure-ref - self$1098 - 2) - (%closure-ref - self$1098 - 6) - (%closure-ref - self$1098 - 7) - (%closure-ref - self$1098 - 1) - #f - (%closure-ref - self$1098 - 4) - (%closure-ref - self$1098 - 5))) - (%closure-ref - self$1097 - 1) - (%closure-ref - self$1097 - 3) - (%closure-ref - self$1097 - 4) - (%closure-ref - self$1097 - 5) - (%closure-ref - self$1097 - 6) - (%closure-ref - self$1097 - 7) - (%closure-ref - self$1097 - 8))))) - (%closure-ref - self$1096 - 1) - (%closure-ref - self$1096 - 2) - (%closure-ref - self$1096 - 3) - (%closure-ref - self$1096 - 4) - (%closure-ref - self$1096 - 5) - (%closure-ref - self$1096 - 6) - (%closure-ref - self$1096 - 7) - (%closure-ref - self$1096 - 8)))) - (%closure-ref - self$1095 - 1) - (%closure-ref - self$1095 - 2) - (%closure-ref - self$1095 - 3) - (%closure-ref - self$1095 - 4) - (%closure-ref - self$1095 - 5) - (%closure-ref - self$1095 - 6) - (%closure-ref - self$1095 - 8) - (%closure-ref - self$1095 - 9)) - (%closure-ref - self$1095 - 3) - (%closure-ref - self$1095 - 7) - r$725 - #f - #f - 0 - (%closure-ref - self$1095 - 6))) - (%closure-ref - self$1094 - 1) - (%closure-ref - self$1094 - 2) - (%closure-ref - self$1094 - 3) - (%closure-ref - self$1094 - 4) - (%closure-ref - self$1094 - 5) - (%closure-ref - self$1094 - 6) - r$724 - (%closure-ref - self$1094 - 7) - (%closure-ref - self$1094 - 8)) - '())) - (%closure-ref - self$1093 - 1) - (%closure-ref - self$1093 - 2) - (%closure-ref - self$1093 - 3) - (%closure-ref - self$1093 - 4) - (%closure-ref - self$1093 - 5) - (%closure-ref - self$1093 - 6) - (%closure-ref - self$1093 - 7) - (%closure-ref - self$1093 - 8)) - '())) - (%closure-ref - self$1089 - 1) - (%closure-ref - self$1089 - 2) - (%closure-ref - self$1089 - 3) - (%closure-ref - self$1089 - 4) - (%closure-ref - self$1089 - 5) - (%closure-ref - self$1089 - 6) - (%closure-ref - self$1089 - 7) - (%closure-ref - self$1089 - 8))) - ((%closure - (lambda (self$1090) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1091 - r$726) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1092 - r$727) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1092 - 1) - "Unhandled input sequence" - (%closure-ref - self$1092 - 2) - r$727)) - (%closure-ref - self$1091 - 1) - r$726) - (%closure-ref - self$1091 - 2))) - (%closure-ref - self$1090 - 1) - (%closure-ref - self$1090 - 2)) - (%closure-ref - self$1090 - 2))) - (%closure-ref - self$1089 - 4) - (%closure-ref - self$1089 - 6))))) - (%closure-ref - self$1088 - 1) - (%closure-ref - self$1088 - 2) - (%closure-ref - self$1088 - 3) - (%closure-ref - self$1088 - 4) - (%closure-ref - self$1088 - 6) - (%closure-ref - self$1088 - 7) - (%closure-ref - self$1088 - 8) - (%closure-ref - self$1088 - 9)) - (eq? #\; - (cell-get - (%closure-ref - self$1088 - 5)))))) - (%closure-ref - self$1087 - 1) - (%closure-ref - self$1087 - 2) - (%closure-ref - self$1087 - 3) - (%closure-ref - self$1087 - 4) - (%closure-ref - self$1087 - 5) - (%closure-ref - self$1087 - 6) - (%closure-ref - self$1087 - 7) - (%closure-ref - self$1087 - 8) - (%closure-ref - self$1087 - 9)) - (eq? #\\ - (cell-get - (%closure-ref - self$1087 - 5)))))) - (%closure-ref - self$1086 - 1) - (%closure-ref - self$1086 - 2) - (%closure-ref - self$1086 - 3) - (%closure-ref - self$1086 - 4) - (%closure-ref - self$1086 - 5) - (%closure-ref - self$1086 - 6) - (%closure-ref - self$1086 - 7) - (%closure-ref - self$1086 - 8) - (%closure-ref - self$1086 - 9)) - (eq? #\( - (cell-get - (%closure-ref - self$1086 - 5)))))) - (%closure-ref - self$1085 - 1) - (%closure-ref - self$1085 - 2) - (%closure-ref - self$1085 - 3) - (%closure-ref - self$1085 - 4) - (%closure-ref - self$1085 - 5) - (%closure-ref - self$1085 - 6) - (%closure-ref - self$1085 - 7) - (%closure-ref - self$1085 - 8) - (%closure-ref - self$1085 - 9)) - (eq? #\u - (cell-get - (%closure-ref - self$1085 - 5)))))) - (%closure-ref - self$1084 - 1) - (%closure-ref - self$1084 - 2) - (%closure-ref - self$1084 - 3) - (%closure-ref - self$1084 - 4) - (%closure-ref - self$1084 - 5) - (%closure-ref - self$1084 - 6) - (%closure-ref - self$1084 - 7) - (%closure-ref - self$1084 - 8) - (%closure-ref - self$1084 - 9)) - (eq? #\x - (cell-get - (%closure-ref - self$1084 - 5)))))) - (%closure-ref - self$1083 - 1) - (%closure-ref - self$1083 - 2) - (%closure-ref - self$1083 - 3) - (%closure-ref - self$1083 - 4) - (%closure-ref - self$1083 - 5) - (%closure-ref - self$1083 - 6) - (%closure-ref - self$1083 - 7) - (%closure-ref - self$1083 - 8) - (%closure-ref - self$1083 - 9)) - (eq? #\o - (cell-get - (%closure-ref - self$1083 - 5)))))) - (%closure-ref - self$1082 - 1) - (%closure-ref - self$1082 - 2) - (%closure-ref - self$1082 - 3) - (%closure-ref - self$1082 - 4) - (%closure-ref - self$1082 - 5) - (%closure-ref - self$1082 - 6) - (%closure-ref - self$1082 - 7) - (%closure-ref - self$1082 - 8) - (%closure-ref - self$1082 - 9)) - (eq? #\b - (cell-get - (%closure-ref - self$1082 - 5)))))) - (%closure-ref - self$1081 - 1) - (%closure-ref - self$1081 - 2) - (%closure-ref - self$1081 - 3) - (%closure-ref - self$1081 - 4) - (%closure-ref - self$1081 - 5) - (%closure-ref - self$1081 - 6) - (%closure-ref - self$1081 - 7) - (%closure-ref - self$1081 - 8) - (%closure-ref - self$1081 - 9)) - (eq? #\i - (cell-get - (%closure-ref - self$1081 - 5)))))) - (%closure-ref - self$1080 - 1) - (%closure-ref - self$1080 - 2) - (%closure-ref - self$1080 - 3) - (%closure-ref - self$1080 - 4) - (%closure-ref - self$1080 - 5) - (%closure-ref - self$1080 - 6) - (%closure-ref - self$1080 - 7) - (%closure-ref - self$1080 - 8) - (%closure-ref - self$1080 - 9)) - (eq? #\e - (cell-get - (%closure-ref - self$1080 - 5)))))) - (%closure-ref - self$1079 - 1) - (%closure-ref - self$1079 - 2) - (%closure-ref - self$1079 - 3) - (%closure-ref - self$1079 - 4) - (%closure-ref - self$1079 - 5) - (%closure-ref - self$1079 - 6) - (%closure-ref - self$1079 - 7) - (%closure-ref - self$1079 - 8) - (%closure-ref - self$1079 - 9)) - (eq? #\f - (cell-get - (%closure-ref - self$1079 - 5)))))) - (%closure-ref - self$1078 - 1) - (%closure-ref - self$1078 - 2) - (%closure-ref - self$1078 - 3) - (%closure-ref - self$1078 - 4) - (%closure-ref - self$1078 - 5) - (%closure-ref - self$1078 - 6) - (%closure-ref - self$1078 - 7) - (%closure-ref - self$1078 - 8) - (%closure-ref - self$1078 - 9)) - (eq? #\t - (cell-get - (%closure-ref - self$1078 - 5)))))) - (%closure-ref - self$1077 - 1) - (%closure-ref - self$1077 - 2) - (%closure-ref - self$1077 - 3) - (%closure-ref - self$1077 - 4) - (%closure-ref - self$1077 - 5) - (%closure-ref - self$1077 - 6) - (%closure-ref - self$1077 - 7) - (%closure-ref - self$1077 - 8) - (%closure-ref - self$1077 - 9)) - (eq? #\| - (cell-get - (%closure-ref - self$1077 - 5))))) - (%closure-ref - self$1076 - 1) - (%closure-ref - self$1076 - 2) - (%closure-ref - self$1076 - 3) - (%closure-ref - self$1076 - 4) - (%closure-ref - self$1076 - 5) - (%closure-ref - self$1076 - 6) - (%closure-ref - self$1076 - 7) - (%closure-ref - self$1076 - 8) - (%closure-ref - self$1076 - 9)) - (%closure-ref - self$1076 - 7) - r$728)) - (%closure-ref - self$1075 - 1) - (%closure-ref - self$1075 - 2) - (%closure-ref - self$1075 - 3) - (%closure-ref - self$1075 - 4) - (%closure-ref - self$1075 - 5) - (%closure-ref - self$1075 - 6) - (%closure-ref - self$1075 - 7) - (%closure-ref - self$1075 - 8) - (%closure-ref - self$1075 - 9)) - (+ 1 - r$729))) - (%closure-ref - self$1074 - 1) - (%closure-ref - self$1074 - 2) - (%closure-ref - self$1074 - 3) - (%closure-ref - self$1074 - 4) - next-c$205 - (%closure-ref - self$1074 - 5) - (%closure-ref - self$1074 - 6) - (%closure-ref - self$1074 - 7) - (%closure-ref - self$1074 - 8)) - (%closure-ref - self$1074 - 6))) - (%closure-ref - self$1073 - 1) - (%closure-ref - self$1073 - 2) - (%closure-ref - self$1073 - 3) - (%closure-ref - self$1073 - 4) - (%closure-ref - self$1073 - 5) - (%closure-ref - self$1073 - 6) - (%closure-ref - self$1073 - 7) - (%closure-ref - self$1073 - 8)) - (cell next-c$205))) - (%closure-ref - self$1071 - 1) - (%closure-ref - self$1071 - 2) - (%closure-ref - self$1071 - 3) - (%closure-ref - self$1071 - 4) - (%closure-ref - self$1071 - 5) - (%closure-ref - self$1071 - 6) - (%closure-ref - self$1071 - 7) - (%closure-ref - self$1071 - 8)) - (read-char - (%closure-ref - self$1071 - 3))) - ((%closure - (lambda (self$1072 - r$730) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1072 - 3) - (%closure-ref - self$1072 - 2) - r$730 - (%closure-ref - self$1072 - 6) - (%closure-ref - self$1072 - 1) - #f - (%closure-ref - self$1072 - 4) - (%closure-ref - self$1072 - 5))) - (%closure-ref - self$1071 - 1) - (%closure-ref - self$1071 - 3) - (%closure-ref - self$1071 - 4) - (%closure-ref - self$1071 - 5) - (%closure-ref - self$1071 - 6) - (%closure-ref - self$1071 - 8)) - (cons (%closure-ref - self$1071 - 2) - (%closure-ref - self$1071 - 7))))) - (%closure-ref - self$1070 - 1) - (%closure-ref - self$1070 - 2) - (%closure-ref - self$1070 - 3) - (%closure-ref - self$1070 - 4) - (%closure-ref - self$1070 - 5) - (%closure-ref - self$1070 - 6) - (%closure-ref - self$1070 - 7) - (%closure-ref - self$1070 - 8)) - (null? (%closure-ref - self$1070 - 7)))) - (%closure-ref - self$1065 - 1) - (%closure-ref - self$1065 - 2) - (%closure-ref - self$1065 - 3) - (%closure-ref - self$1065 - 4) - (%closure-ref - self$1065 - 5) - (%closure-ref - self$1065 - 6) - (%closure-ref - self$1065 - 7) - (%closure-ref - self$1065 - 8))) - ((%closure - (lambda (self$1066 - r$731) - (if r$731 - ((%closure - (lambda (self$1069) - ((%closure-ref - parse-literal-identifier - 0) - parse-literal-identifier - (%closure-ref - self$1069 - 3) - (%closure-ref - self$1069 - 2) - (%closure-ref - self$1069 - 6) - (%closure-ref - self$1069 - 1) - (%closure-ref - self$1069 - 4) - (%closure-ref - self$1069 - 5))) - (%closure-ref - self$1066 - 1) - (%closure-ref - self$1066 - 3) - (%closure-ref - self$1066 - 4) - (%closure-ref - self$1066 - 5) - (%closure-ref - self$1066 - 6) - (%closure-ref - self$1066 - 8))) - ((%closure - (lambda (self$1067) - ((%closure - (lambda (self$1068 - r$732) - ((%closure-ref - parse - 0) - parse - (%closure-ref - self$1068 - 3) - (%closure-ref - self$1068 - 2) - r$732 - (%closure-ref - self$1068 - 6) - (%closure-ref - self$1068 - 1) - #f - (%closure-ref - self$1068 - 4) - (%closure-ref - self$1068 - 5))) - (%closure-ref - self$1067 - 1) - (%closure-ref - self$1067 - 3) - (%closure-ref - self$1067 - 4) - (%closure-ref - self$1067 - 5) - (%closure-ref - self$1067 - 6) - (%closure-ref - self$1067 - 8)) - (cons (%closure-ref - self$1067 - 2) - (%closure-ref - self$1067 - 7)))) - (%closure-ref - self$1066 - 1) - (%closure-ref - self$1066 - 2) - (%closure-ref - self$1066 - 3) - (%closure-ref - self$1066 - 4) - (%closure-ref - self$1066 - 5) - (%closure-ref - self$1066 - 6) - (%closure-ref - self$1066 - 7) - (%closure-ref - self$1066 - 8))))) - (%closure-ref - self$1065 - 1) - (%closure-ref - self$1065 - 2) - (%closure-ref - self$1065 - 3) - (%closure-ref - self$1065 - 4) - (%closure-ref - self$1065 - 5) - (%closure-ref - self$1065 - 6) - (%closure-ref - self$1065 - 7) - (%closure-ref - self$1065 - 8)) - (eq? (%closure-ref - self$1065 - 2) - #\|)))) - (%closure-ref - self$1064 - 1) - (%closure-ref - self$1064 - 2) - (%closure-ref - self$1064 - 3) - (%closure-ref - self$1064 - 4) - (%closure-ref - self$1064 - 5) - (%closure-ref - self$1064 - 6) - (%closure-ref - self$1064 - 7) - (%closure-ref - self$1064 - 8)) - (eq? (%closure-ref - self$1064 - 2) - #\#)))) - (%closure-ref - self$1063 - 1) - (%closure-ref - self$1063 - 2) - (%closure-ref - self$1063 - 3) - (%closure-ref - self$1063 - 4) - (%closure-ref - self$1063 - 5) - (%closure-ref - self$1063 - 6) - (%closure-ref - self$1063 - 7) - (%closure-ref - self$1063 - 8)) - (eq? (%closure-ref - self$1063 - 2) - #\")))) - (%closure-ref - self$1062 - 1) - (%closure-ref - self$1062 - 2) - (%closure-ref - self$1062 - 3) - (%closure-ref - self$1062 - 4) - (%closure-ref - self$1062 - 5) - (%closure-ref - self$1062 - 6) - (%closure-ref - self$1062 - 7) - (%closure-ref - self$1062 - 8)) - (eq? (%closure-ref - self$1062 - 2) - #\))))) - (%closure-ref - self$1061 - 1) - (%closure-ref - self$1061 - 2) - (%closure-ref - self$1061 - 3) - (%closure-ref - self$1061 - 4) - (%closure-ref - self$1061 - 5) - (%closure-ref - self$1061 - 6) - (%closure-ref - self$1061 - 7) - (%closure-ref - self$1061 - 8)) - (eq? (%closure-ref - self$1061 - 2) - #\()))) - (%closure-ref - self$1060 - 1) - (%closure-ref - self$1060 - 2) - (%closure-ref - self$1060 - 3) - (%closure-ref - self$1060 - 4) - (%closure-ref - self$1060 - 5) - (%closure-ref - self$1060 - 6) - (%closure-ref - self$1060 - 7) - (%closure-ref - self$1060 - 8)) - (eq? (%closure-ref - self$1060 - 2) - #\,)))) - (%closure-ref - self$1059 - 1) - (%closure-ref - self$1059 - 2) - (%closure-ref - self$1059 - 3) - (%closure-ref - self$1059 - 4) - (%closure-ref - self$1059 - 5) - (%closure-ref - self$1059 - 6) - (%closure-ref - self$1059 - 7) - (%closure-ref - self$1059 - 8)) - (eq? (%closure-ref - self$1059 - 2) - #\`)))) - (%closure-ref - self$1058 - 1) - (%closure-ref - self$1058 - 2) - (%closure-ref - self$1058 - 3) - (%closure-ref - self$1058 - 4) - (%closure-ref - self$1058 - 5) - (%closure-ref - self$1058 - 6) - (%closure-ref - self$1058 - 7) - (%closure-ref - self$1058 - 8)) - (eq? (%closure-ref - self$1058 - 2) - #\')))) - (%closure-ref self$1057 1) - (%closure-ref self$1057 2) - (%closure-ref self$1057 3) - (%closure-ref self$1057 4) - (%closure-ref self$1057 5) - (%closure-ref self$1057 6) - (%closure-ref self$1057 7) - (%closure-ref self$1057 8)) - (eq? (%closure-ref self$1057 2) - #\;)))) - (%closure-ref self$1056 1) - (%closure-ref self$1056 2) - (%closure-ref self$1056 4) - (%closure-ref self$1056 5) - (%closure-ref self$1056 6) - (%closure-ref self$1056 7) - (%closure-ref self$1056 8) - (%closure-ref self$1056 9)) - (%closure-ref self$1056 2))))) - (%closure-ref self$1055 1) - c$204 - (%closure-ref self$1055 2) - (%closure-ref self$1055 3) - (%closure-ref self$1055 4) - (%closure-ref self$1055 5) - (%closure-ref self$1055 6) - (%closure-ref self$1055 7) - (%closure-ref self$1055 8)) - (eof-object? c$204))) - (%closure-ref self$1054 1) - (%closure-ref self$1054 2) - (%closure-ref self$1054 3) - (%closure-ref self$1054 4) - (%closure-ref self$1054 5) - (%closure-ref self$1054 6) - (%closure-ref self$1054 7) - (%closure-ref self$1054 8)))) - (%closure-ref self$1053 1) - (%closure-ref self$1053 2) - (%closure-ref self$1053 3) - (%closure-ref self$1053 4) - (%closure-ref self$1053 5) - (%closure-ref self$1053 6) - (%closure-ref self$1053 7) - (%closure-ref self$1053 8)) - (%closure-ref self$1053 6) - r$735)) - (%closure-ref self$1052 1) - (%closure-ref self$1052 2) - (%closure-ref self$1052 3) - (%closure-ref self$1052 4) - (%closure-ref self$1052 5) - (%closure-ref self$1052 6) - (%closure-ref self$1052 7) - (%closure-ref self$1052 8)) - (+ 1 r$736))) - (%closure-ref self$1051 1) - (%closure-ref self$1051 2) - (%closure-ref self$1051 3) - (%closure-ref self$1051 4) - (%closure-ref self$1051 5) - (%closure-ref self$1051 6) - (%closure-ref self$1051 7) - (%closure-ref self$1051 8)) - (%closure-ref self$1051 6))) - all?$199 - comment?$198 - fp$202 - k$497 - parens$197 - ptbl$196 - tok$201 - toks$200)))) - (define read-pound - (lambda (k$438 fp$183 ptbl$182) - ((%closure - (lambda (self$976 done$187 loop$186) - ((%closure - (lambda (self$977 done$187) - ((%closure - (lambda (self$978 loop$186) - ((%closure - (lambda (self$979) - ((%closure - (lambda (self$1031 r$456) - ((%closure - (lambda (self$1032 r$439) - ((%closure - (lambda (self$1048 r$442) - ((%closure - (lambda (self$1049 r$440) - ((%closure - (lambda (self$1050 r$441) - ((%closure-ref - (cell-get - (%closure-ref - self$1050 - 2)) - 0) - (cell-get - (%closure-ref self$1050 2)) - (%closure-ref self$1050 1) - r$441)) - (%closure-ref self$1049 1) - (%closure-ref self$1049 2)) - '())) - (%closure-ref self$1048 1) - (%closure-ref self$1048 2)) - (set-cell! - (%closure-ref self$1048 2) - r$442))) - (%closure-ref self$1032 3) - (%closure-ref self$1032 4)) - (%closure - (lambda (self$1033 k$443 buf$190) - ((%closure - (lambda (self$1034 c$191) - ((%closure - (lambda (self$1035 tmp$192) - ((%closure - (lambda (self$1041 k$449) - (if (%closure-ref - self$1041 - 3) - ((%closure-ref k$449 0) - k$449 - (%closure-ref - self$1041 - 3)) - ((%closure - (lambda (self$1045 - k$453) - ((%closure-ref - char-whitespace? - 0) - char-whitespace? - (%closure - (lambda (self$1046 - r$454) - (if r$454 - ((%closure - (lambda (self$1047 - r$455) - ((%closure-ref - (%closure-ref - self$1047 - 1) - 0) - (%closure-ref - self$1047 - 1) - (> r$455 - 0))) - (%closure-ref - self$1046 - 2)) - (length - (%closure-ref - self$1046 - 1))) - ((%closure-ref - (%closure-ref - self$1046 - 2) - 0) - (%closure-ref - self$1046 - 2) - #f))) - (%closure-ref - self$1045 - 1) - k$453) - (%closure-ref - self$1045 - 2))) - (%closure-ref - self$1041 - 1) - (%closure-ref - self$1041 - 2)) - (%closure - (lambda (self$1042 - tmp$193) - (if tmp$193 - ((%closure-ref - (%closure-ref - self$1042 - 3) - 0) - (%closure-ref - self$1042 - 3) - tmp$193) - ((%closure - (lambda (self$1043 - r$452) - ((%closure - (lambda (self$1044 - r$451) - (if r$451 - ((%closure-ref - (%closure-ref - self$1044 - 2) - 0) - (%closure-ref - self$1044 - 2) - (equal? - (%closure-ref - self$1044 - 1) - #\))) - ((%closure-ref - (%closure-ref - self$1044 - 2) - 0) - (%closure-ref - self$1044 - 2) - #f))) - (%closure-ref - self$1043 - 1) - (%closure-ref - self$1043 - 2)) - (> r$452 - 0))) - (%closure-ref - self$1042 - 2) - (%closure-ref - self$1042 - 3)) - (length - (%closure-ref - self$1042 - 1))))) - (%closure-ref - self$1041 - 1) - (%closure-ref - self$1041 - 2) - k$449)))) - (%closure-ref self$1035 1) - (%closure-ref self$1035 2) - tmp$192) - (%closure - (lambda (self$1036 r$445) - (if r$445 - ((%closure - (lambda (self$1040) - ((%closure-ref - (cell-get - (%closure-ref - self$1040 - 2)) - 0) - (cell-get - (%closure-ref - self$1040 - 2)) - (%closure-ref - self$1040 - 3) - (%closure-ref - self$1040 - 1))) - (%closure-ref - self$1036 - 1) - (%closure-ref - self$1036 - 2) - (%closure-ref - self$1036 - 4))) - ((%closure - (lambda (self$1037) - ((%closure - (lambda (self$1038 - r$447) - ((%closure - (lambda (self$1039 - r$446) - ((%closure-ref - (cell-get - (%closure-ref - self$1039 - 2)) - 0) - (cell-get - (%closure-ref - self$1039 - 2)) - (%closure-ref - self$1039 - 1) - r$446)) - (%closure-ref - self$1038 - 2) - (%closure-ref - self$1038 - 3)) - (cons r$447 - (%closure-ref - self$1038 - 1)))) - (%closure-ref - self$1037 - 1) - (%closure-ref - self$1037 - 3) - (%closure-ref - self$1037 - 4)) - (read-char - (%closure-ref - self$1037 - 2)))) - (%closure-ref - self$1036 - 1) - (%closure-ref - self$1036 - 3) - (%closure-ref - self$1036 - 4) - (%closure-ref - self$1036 - 5))))) - (%closure-ref self$1035 1) - (%closure-ref self$1035 3) - (%closure-ref self$1035 4) - (%closure-ref self$1035 5) - (%closure-ref - self$1035 - 6)))) - (%closure-ref self$1034 1) - c$191 - (%closure-ref self$1034 2) - (%closure-ref self$1034 3) - (%closure-ref self$1034 4) - (%closure-ref self$1034 5)) - (eof-object? c$191))) - buf$190 - (%closure-ref self$1033 1) - (%closure-ref self$1033 2) - k$443 - (%closure-ref self$1033 3)) - (peek-char - (%closure-ref self$1033 2)))) - (%closure-ref self$1032 1) - (%closure-ref self$1032 2) - (%closure-ref self$1032 4)))) - (%closure-ref self$1031 1) - (%closure-ref self$1031 2) - (%closure-ref self$1031 3) - (%closure-ref self$1031 4)) - (set-cell! (%closure-ref self$1031 1) r$456))) - (%closure-ref self$979 1) - (%closure-ref self$979 2) - (%closure-ref self$979 3) - (%closure-ref self$979 4)) - (%closure - (lambda (self$980 k$457 raw-buf$194) - ((%closure-ref reverse 0) - reverse - (%closure - (lambda (self$981 buf$195) - ((%closure - (lambda (self$982 r$494) - ((%closure - (lambda (self$983 r$459) - (if r$459 - ((%closure - (lambda (self$1028) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1029 r$460) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1030 - r$461) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1030 - 1) - "missing character" - (%closure-ref - self$1030 - 2) - r$461)) - (%closure-ref - self$1029 - 1) - r$460) - (%closure-ref - self$1029 - 2))) - (%closure-ref - self$1028 - 1) - (%closure-ref - self$1028 - 2)) - (%closure-ref - self$1028 - 2))) - (%closure-ref self$983 2) - (%closure-ref self$983 3))) - ((%closure - (lambda (self$984 r$493) - ((%closure - (lambda (self$985 r$462) - (if r$462 - ((%closure - (lambda (self$1027) - ((%closure-ref - (%closure-ref - self$1027 - 2) - 0) - (%closure-ref - self$1027 - 2) - (car (%closure-ref - self$1027 - 1)))) - (%closure-ref - self$985 - 1) - (%closure-ref - self$985 - 2))) - ((%closure - (lambda (self$986 - r$492) - ((%closure - (lambda (self$987 - r$463) - (if r$463 - ((%closure - (lambda (self$1026) - ((%closure-ref - (%closure-ref - self$1026 - 1) - 0) - (%closure-ref - self$1026 - 1) - #\)) - (%closure-ref - self$987 - 2))) - ((%closure - (lambda (self$988 - r$491) - ((%closure - (lambda (self$989 - r$464) - (if r$464 - ((%closure - (lambda (self$1025) - ((%closure-ref - (%closure-ref - self$1025 - 1) - 0) - (%closure-ref - self$1025 - 1) - #\)) - (%closure-ref - self$989 - 2))) - ((%closure - (lambda (self$990 - r$490) - ((%closure - (lambda (self$991 - r$465) - (if r$465 - ((%closure - (lambda (self$1024) - ((%closure-ref - (%closure-ref - self$1024 - 1) - 0) - (%closure-ref - self$1024 - 1) - #\)) - (%closure-ref - self$991 - 2))) - ((%closure - (lambda (self$992 - r$489) - ((%closure - (lambda (self$993 - r$466) - (if r$466 - ((%closure - (lambda (self$1023) - ((%closure-ref - (%closure-ref - self$1023 - 1) - 0) - (%closure-ref - self$1023 - 1) - #\)) - (%closure-ref - self$993 - 2))) - ((%closure - (lambda (self$994 - r$488) - ((%closure - (lambda (self$995 - r$467) - (if r$467 - ((%closure - (lambda (self$1022) - ((%closure-ref - (%closure-ref - self$1022 - 1) - 0) - (%closure-ref - self$1022 - 1) - #\newline)) - (%closure-ref - self$995 - 2))) - ((%closure - (lambda (self$996 - r$487) - ((%closure - (lambda (self$997 - r$468) - (if r$468 - ((%closure - (lambda (self$1021) - ((%closure-ref - (%closure-ref - self$1021 - 1) - 0) - (%closure-ref - self$1021 - 1) - #\)) - (%closure-ref - self$997 - 2))) - ((%closure - (lambda (self$998 - r$486) - ((%closure - (lambda (self$999 - r$469) - (if r$469 - ((%closure - (lambda (self$1020) - ((%closure-ref - (%closure-ref - self$1020 - 1) - 0) - (%closure-ref - self$1020 - 1) - #\ )) - (%closure-ref - self$999 - 2))) - ((%closure - (lambda (self$1000 - r$485) - ((%closure - (lambda (self$1001 - r$470) - (if r$470 - ((%closure - (lambda (self$1019) - ((%closure-ref - (%closure-ref - self$1019 - 1) - 0) - (%closure-ref - self$1019 - 1) - #\space)) - (%closure-ref - self$1001 - 2))) - ((%closure - (lambda (self$1002 - r$484) - ((%closure - (lambda (self$1003 - r$471) - (if r$471 - ((%closure - (lambda (self$1018) - ((%closure-ref - (%closure-ref - self$1018 - 1) - 0) - (%closure-ref - self$1018 - 1) - #\ )) - (%closure-ref - self$1003 - 2))) - ((%closure - (lambda (self$1014 - k$480) - ((%closure - (lambda (self$1015 - r$483) - ((%closure - (lambda (self$1016 - r$481) - (if r$481 - ((%closure - (lambda (self$1017 - r$482) - ((%closure-ref - (%closure-ref - self$1017 - 1) - 0) - (%closure-ref - self$1017 - 1) - (equal? - r$482 - #\x))) - (%closure-ref - self$1016 - 2)) - (car (%closure-ref - self$1016 - 1))) - ((%closure-ref - (%closure-ref - self$1016 - 2) - 0) - (%closure-ref - self$1016 - 2) - #f))) - (%closure-ref - self$1015 - 1) - (%closure-ref - self$1015 - 2)) - (> r$483 - 1))) - (%closure-ref - self$1014 - 1) - k$480) - (length - (%closure-ref - self$1014 - 1)))) - (%closure-ref - self$1003 - 1)) - (%closure - (lambda (self$1004 - r$472) - (if r$472 - ((%closure - (lambda (self$1010) - ((%closure - (lambda (self$1011 - r$475) - ((%closure - (lambda (self$1012 - r$474) - ((%closure - (lambda (self$1013 - r$473) - ((%closure-ref - (%closure-ref - self$1013 - 1) - 0) - (%closure-ref - self$1013 - 1) - (integer->char - r$473))) - (%closure-ref - self$1012 - 1)) - (string->number - r$474 - 16))) - (%closure-ref - self$1011 - 1)) - (list->string - r$475))) - (%closure-ref - self$1010 - 2)) - (cdr (%closure-ref - self$1010 - 1)))) - (%closure-ref - self$1004 - 1) - (%closure-ref - self$1004 - 2))) - ((%closure - (lambda (self$1005) - ((%closure - (lambda (self$1006 - r$479) - ((%closure - (lambda (self$1007 - r$476) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$1008 - r$477) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$1009 - r$478) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$1009 - 1) - (%closure-ref - self$1009 - 2) - (%closure-ref - self$1009 - 3) - r$478)) - (%closure-ref - self$1008 - 1) - (%closure-ref - self$1008 - 3) - r$477) - (%closure-ref - self$1008 - 2))) - (%closure-ref - self$1007 - 1) - (%closure-ref - self$1007 - 2) - r$476) - (%closure-ref - self$1007 - 2))) - (%closure-ref - self$1006 - 1) - (%closure-ref - self$1006 - 2)) - (string-append - "unable to parse character: " - r$479))) - (%closure-ref - self$1005 - 2) - (%closure-ref - self$1005 - 3)) - (list->string - (%closure-ref - self$1005 - 1)))) - (%closure-ref - self$1004 - 1) - (%closure-ref - self$1004 - 2) - (%closure-ref - self$1004 - 3))))) - (%closure-ref - self$1003 - 1) - (%closure-ref - self$1003 - 2) - (%closure-ref - self$1003 - 3))))) - (%closure-ref - self$1002 - 1) - (%closure-ref - self$1002 - 2) - (%closure-ref - self$1002 - 3)) - (equal? - (%closure-ref - self$1002 - 1) - r$484))) - (%closure-ref - self$1001 - 1) - (%closure-ref - self$1001 - 2) - (%closure-ref - self$1001 - 3)) - '(#\t - #\a - #\b)))) - (%closure-ref - self$1000 - 1) - (%closure-ref - self$1000 - 2) - (%closure-ref - self$1000 - 3)) - (equal? - (%closure-ref - self$1000 - 1) - r$485))) - (%closure-ref - self$999 - 1) - (%closure-ref - self$999 - 2) - (%closure-ref - self$999 - 3)) - '(#\s - #\p - #\a - #\c - #\e)))) - (%closure-ref - self$998 - 1) - (%closure-ref - self$998 - 2) - (%closure-ref - self$998 - 3)) - (equal? - (%closure-ref - self$998 - 1) - r$486))) - (%closure-ref - self$997 - 1) - (%closure-ref - self$997 - 2) - (%closure-ref - self$997 - 3)) - '(#\r - #\e - #\t - #\u - #\r - #\n)))) - (%closure-ref - self$996 - 1) - (%closure-ref - self$996 - 2) - (%closure-ref - self$996 - 3)) - (equal? - (%closure-ref - self$996 - 1) - r$487))) - (%closure-ref - self$995 - 1) - (%closure-ref - self$995 - 2) - (%closure-ref - self$995 - 3)) - '(#\n - #\u - #\l - #\l)))) - (%closure-ref - self$994 - 1) - (%closure-ref - self$994 - 2) - (%closure-ref - self$994 - 3)) - (equal? - (%closure-ref - self$994 - 1) - r$488))) - (%closure-ref - self$993 - 1) - (%closure-ref - self$993 - 2) - (%closure-ref - self$993 - 3)) - '(#\n - #\e - #\w - #\l - #\i - #\n - #\e)))) - (%closure-ref - self$992 - 1) - (%closure-ref - self$992 - 2) - (%closure-ref - self$992 - 3)) - (equal? - (%closure-ref - self$992 - 1) - r$489))) - (%closure-ref - self$991 - 1) - (%closure-ref - self$991 - 2) - (%closure-ref - self$991 - 3)) - '(#\e - #\s - #\c - #\a - #\p - #\e)))) - (%closure-ref - self$990 - 1) - (%closure-ref - self$990 - 2) - (%closure-ref - self$990 - 3)) - (equal? - (%closure-ref - self$990 - 1) - r$490))) - (%closure-ref - self$989 - 1) - (%closure-ref - self$989 - 2) - (%closure-ref - self$989 - 3)) - '(#\d - #\e - #\l - #\e - #\t - #\e)))) - (%closure-ref - self$988 - 1) - (%closure-ref - self$988 - 2) - (%closure-ref - self$988 - 3)) - (equal? - (%closure-ref - self$988 - 1) - r$491))) - (%closure-ref - self$987 - 1) - (%closure-ref - self$987 - 2) - (%closure-ref - self$987 - 3)) - '(#\b - #\a - #\c - #\k - #\s - #\p - #\a - #\c - #\e)))) - (%closure-ref - self$986 - 1) - (%closure-ref - self$986 - 2) - (%closure-ref - self$986 - 3)) - (equal? - (%closure-ref - self$986 - 1) - r$492))) - (%closure-ref - self$985 - 1) - (%closure-ref - self$985 - 2) - (%closure-ref - self$985 - 3)) - '(#\a - #\l - #\a - #\r - #\m)))) - (%closure-ref self$984 1) - (%closure-ref self$984 2) - (%closure-ref - self$984 - 3)) - (= 1 r$493))) - (%closure-ref self$983 1) - (%closure-ref self$983 2) - (%closure-ref self$983 3)) - (length - (%closure-ref self$983 1))))) - (%closure-ref self$982 1) - (%closure-ref self$982 2) - (%closure-ref self$982 3)) - (= 0 r$494))) - buf$195 - (%closure-ref self$981 1) - (%closure-ref self$981 2)) - (length buf$195))) - k$457 - (%closure-ref self$980 1)) - raw-buf$194)) - (%closure-ref self$979 5)))) - (%closure-ref self$978 1) - (%closure-ref self$978 2) - (%closure-ref self$978 3) - loop$186 - (%closure-ref self$978 4)))) - done$187 - (%closure-ref self$977 1) - (%closure-ref self$977 2) - (%closure-ref self$977 4)) - (cell (%closure-ref self$977 3)))) - (%closure-ref self$976 1) - (%closure-ref self$976 2) - loop$186 - (%closure-ref self$976 3)) - (cell done$187))) - fp$183 - k$438 - ptbl$182) - #f - #f))) - (define read-str - (lambda (k$426 fp$180 buf$179 ptbl$178) - ((%closure - (lambda (self$963 c$181) - ((%closure - (lambda (self$964 r$428) - (if r$428 - ((%closure - (lambda (self$973) - ((%closure-ref in-port:get-lnum 0) - in-port:get-lnum - (%closure - (lambda (self$974 r$429) - ((%closure-ref in-port:get-cnum 0) - in-port:get-cnum - (%closure - (lambda (self$975 r$430) - ((%closure-ref parse-error 0) - parse-error - (%closure-ref self$975 1) - "missing closing double-quote" - (%closure-ref self$975 2) - r$430)) - (%closure-ref self$974 1) - r$429) - (%closure-ref self$974 2))) - (%closure-ref self$973 1) - (%closure-ref self$973 2)) - (%closure-ref self$973 2))) - (%closure-ref self$964 4) - (%closure-ref self$964 5))) - ((%closure - (lambda (self$965 r$431) - (if r$431 - ((%closure - (lambda (self$971) - ((%closure-ref read-str-esc 0) - read-str-esc - (%closure - (lambda (self$972 r$432) - ((%closure-ref read-str 0) - read-str - (%closure-ref self$972 2) - (%closure-ref self$972 1) - r$432 - (%closure-ref self$972 3))) - (%closure-ref self$971 2) - (%closure-ref self$971 3) - (%closure-ref self$971 4)) - (%closure-ref self$971 2) - (%closure-ref self$971 1) - (%closure-ref self$971 4))) - (%closure-ref self$965 1) - (%closure-ref self$965 3) - (%closure-ref self$965 4) - (%closure-ref self$965 5))) - ((%closure - (lambda (self$966 r$433) - (if r$433 - ((%closure - (lambda (self$969) - ((%closure-ref reverse 0) - reverse - (%closure - (lambda (self$970 r$434) - ((%closure-ref - (%closure-ref self$970 1) - 0) - (%closure-ref self$970 1) - (list->string r$434))) - (%closure-ref self$969 2)) - (%closure-ref self$969 1))) - (%closure-ref self$966 1) - (%closure-ref self$966 4))) - ((%closure - (lambda (self$967) - ((%closure - (lambda (self$968 r$435) - ((%closure-ref read-str 0) - read-str - (%closure-ref self$968 2) - (%closure-ref self$968 1) - r$435 - (%closure-ref self$968 3))) - (%closure-ref self$967 3) - (%closure-ref self$967 4) - (%closure-ref self$967 5)) - (cons (%closure-ref self$967 2) - (%closure-ref self$967 1)))) - (%closure-ref self$966 1) - (%closure-ref self$966 2) - (%closure-ref self$966 3) - (%closure-ref self$966 4) - (%closure-ref self$966 5))))) - (%closure-ref self$965 1) - (%closure-ref self$965 2) - (%closure-ref self$965 3) - (%closure-ref self$965 4) - (%closure-ref self$965 5)) - (equal? #\" (%closure-ref self$965 2))))) - (%closure-ref self$964 1) - (%closure-ref self$964 2) - (%closure-ref self$964 3) - (%closure-ref self$964 4) - (%closure-ref self$964 5)) - (equal? #\\ (%closure-ref self$964 2))))) - (%closure-ref self$963 1) - c$181 - (%closure-ref self$963 2) - (%closure-ref self$963 3) - (%closure-ref self$963 4)) - (eof-object? c$181))) - buf$179 - fp$180 - k$426 - ptbl$178) - (read-char fp$180)))) - (define read-str-esc - (lambda (k$410 fp$175 buf$174 ptbl$173) - ((%closure - (lambda (self$946 c$176) - ((%closure - (lambda (self$947 r$412) - (if r$412 - ((%closure - (lambda (self$960) - ((%closure-ref in-port:get-lnum 0) - in-port:get-lnum - (%closure - (lambda (self$961 r$413) - ((%closure-ref in-port:get-cnum 0) - in-port:get-cnum - (%closure - (lambda (self$962 r$414) - ((%closure-ref parse-error 0) - parse-error - (%closure-ref self$962 1) - "missing escaped character within string" - (%closure-ref self$962 2) - r$414)) - (%closure-ref self$961 1) - r$413) - (%closure-ref self$961 2))) - (%closure-ref self$960 1) - (%closure-ref self$960 2)) - (%closure-ref self$960 2))) - (%closure-ref self$947 3) - (%closure-ref self$947 4))) - ((%closure - (lambda (self$948 tmp$177) - ((%closure - (lambda (self$959 k$423) - (if (%closure-ref self$959 2) - ((%closure-ref k$423 0) - k$423 - (%closure-ref self$959 2)) - ((%closure-ref k$423 0) - k$423 - (equal? #\\ (%closure-ref self$959 1))))) - (%closure-ref self$948 2) - tmp$177) - (%closure - (lambda (self$949 r$415) - (if r$415 - ((%closure - (lambda (self$958) - ((%closure-ref (%closure-ref self$958 3) 0) - (%closure-ref self$958 3) - (cons (%closure-ref self$958 2) - (%closure-ref self$958 1)))) - (%closure-ref self$949 1) - (%closure-ref self$949 2) - (%closure-ref self$949 3))) - ((%closure - (lambda (self$950 r$416) - (if r$416 - ((%closure - (lambda (self$957) - ((%closure-ref - (%closure-ref self$957 2) - 0) - (%closure-ref self$957 2) - (cons #\newline - (%closure-ref self$957 1)))) - (%closure-ref self$950 1) - (%closure-ref self$950 3))) - ((%closure - (lambda (self$951) - ((%closure-ref list 0) - list - (%closure - (lambda (self$952 r$421) - ((%closure - (lambda (self$953 r$420) - ((%closure - (lambda (self$954 r$417) - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$955 - r$418) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$956 - r$419) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$956 - 1) - (%closure-ref - self$956 - 2) - (%closure-ref - self$956 - 3) - r$419)) - (%closure-ref - self$955 - 1) - (%closure-ref - self$955 - 3) - r$418) - (%closure-ref - self$955 - 2))) - (%closure-ref - self$954 - 1) - (%closure-ref - self$954 - 2) - r$417) - (%closure-ref - self$954 - 2))) - (%closure-ref self$953 1) - (%closure-ref self$953 2)) - (string-append - "invalid escape character [" - r$420 - "] in string"))) - (%closure-ref self$952 1) - (%closure-ref self$952 2)) - (list->string r$421))) - (%closure-ref self$951 2) - (%closure-ref self$951 3)) - (%closure-ref self$951 1))) - (%closure-ref self$950 2) - (%closure-ref self$950 3) - (%closure-ref self$950 4))))) - (%closure-ref self$949 1) - (%closure-ref self$949 2) - (%closure-ref self$949 3) - (%closure-ref self$949 4)) - (equal? #\n (%closure-ref self$949 2))))) - (%closure-ref self$948 1) - (%closure-ref self$948 2) - (%closure-ref self$948 3) - (%closure-ref self$948 4)))) - (%closure-ref self$947 1) - (%closure-ref self$947 2) - (%closure-ref self$947 3) - (%closure-ref self$947 4)) - (equal? #\" (%closure-ref self$947 2))))) - (%closure-ref self$946 1) - c$176 - (%closure-ref self$946 2) - (%closure-ref self$946 3)) - (eof-object? c$176))) - buf$174 - k$410 - ptbl$173) - (read-char fp$175)))) - (define sign? - (lambda (k$406 c$171) - ((%closure - (lambda (self$945 tmp$172) - (if tmp$172 - ((%closure-ref (%closure-ref self$945 2) 0) - (%closure-ref self$945 2) - tmp$172) - ((%closure-ref (%closure-ref self$945 2) 0) - (%closure-ref self$945 2) - (equal? (%closure-ref self$945 1) #\-)))) - c$171 - k$406) - (equal? c$171 #\+)))) - (define token-numeric? - (lambda (k$386 a$167) - ((%closure - (lambda (self$928 r$403) - ((%closure-ref char-numeric? 0) - char-numeric? - (%closure - (lambda (self$929 tmp$168) - (if tmp$168 - ((%closure-ref (%closure-ref self$929 2) 0) - (%closure-ref self$929 2) - tmp$168) - ((%closure - (lambda (self$939 k$397) - ((%closure - (lambda (self$940 r$402) - ((%closure - (lambda (self$941 r$398) - (if r$398 - ((%closure - (lambda (self$942 r$401) - ((%closure - (lambda (self$943 r$399) - (if r$399 - ((%closure - (lambda (self$944 r$400) - ((%closure-ref - char-numeric? - 0) - char-numeric? - (%closure-ref self$944 1) - r$400)) - (%closure-ref self$943 2)) - (cadr (%closure-ref self$943 1))) - ((%closure-ref - (%closure-ref self$943 2) - 0) - (%closure-ref self$943 2) - #f))) - (%closure-ref self$942 1) - (%closure-ref self$942 2)) - (eq? #\. r$401))) - (%closure-ref self$941 1) - (%closure-ref self$941 2)) - (car (%closure-ref self$941 1))) - ((%closure-ref (%closure-ref self$941 2) 0) - (%closure-ref self$941 2) - #f))) - (%closure-ref self$940 1) - (%closure-ref self$940 2)) - (> r$402 1))) - (%closure-ref self$939 1) - k$397) - (length (%closure-ref self$939 1)))) - (%closure-ref self$929 1)) - (%closure - (lambda (self$930 tmp$169) - (if tmp$169 - ((%closure-ref (%closure-ref self$930 2) 0) - (%closure-ref self$930 2) - tmp$169) - ((%closure - (lambda (self$931 r$396) - ((%closure - (lambda (self$932 r$389) - (if r$389 - ((%closure - (lambda (self$933 r$395) - ((%closure-ref char-numeric? 0) - char-numeric? - (%closure - (lambda (self$934 tmp$170) - ((%closure - (lambda (self$937 k$393) - (if (%closure-ref self$937 2) - ((%closure-ref k$393 0) - k$393 - (%closure-ref self$937 2)) - ((%closure - (lambda (self$938 r$394) - ((%closure-ref - (%closure-ref - self$938 - 1) - 0) - (%closure-ref - self$938 - 1) - (eq? #\. r$394))) - k$393) - (cadr (%closure-ref - self$937 - 1))))) - (%closure-ref self$934 1) - tmp$170) - (%closure - (lambda (self$935 r$390) - (if r$390 - ((%closure - (lambda (self$936 r$391) - ((%closure-ref - sign? - 0) - sign? - (%closure-ref - self$936 - 1) - r$391)) - (%closure-ref - self$935 - 2)) - (car (%closure-ref - self$935 - 1))) - ((%closure-ref - (%closure-ref - self$935 - 2) - 0) - (%closure-ref self$935 2) - #f))) - (%closure-ref self$934 1) - (%closure-ref self$934 2)))) - (%closure-ref self$933 1) - (%closure-ref self$933 2)) - r$395)) - (%closure-ref self$932 1) - (%closure-ref self$932 2)) - (cadr (%closure-ref self$932 1))) - ((%closure-ref (%closure-ref self$932 2) 0) - (%closure-ref self$932 2) - #f))) - (%closure-ref self$931 1) - (%closure-ref self$931 2)) - (> r$396 1))) - (%closure-ref self$930 1) - (%closure-ref self$930 2)) - (length (%closure-ref self$930 1))))) - (%closure-ref self$929 1) - (%closure-ref self$929 2))))) - (%closure-ref self$928 1) - (%closure-ref self$928 2)) - r$403)) - a$167 - k$386) - (car a$167)))) - (define parse-atom - (lambda (k$380 a$166) - ((%closure-ref token-numeric? 0) - token-numeric? - (%closure - (lambda (self$923 r$381) - (if r$381 - ((%closure - (lambda (self$926) - ((%closure - (lambda (self$927 r$382) - ((%closure-ref (%closure-ref self$927 1) 0) - (%closure-ref self$927 1) - (string->number r$382))) - (%closure-ref self$926 2)) - (list->string (%closure-ref self$926 1)))) - (%closure-ref self$923 1) - (%closure-ref self$923 2))) - ((%closure - (lambda (self$924) - ((%closure - (lambda (self$925 r$383) - ((%closure-ref (%closure-ref self$925 1) 0) - (%closure-ref self$925 1) - (string->symbol r$383))) - (%closure-ref self$924 2)) - (list->string (%closure-ref self$924 1)))) - (%closure-ref self$923 1) - (%closure-ref self$923 2))))) - a$166 - k$380) - a$166))) - (define get-next-char - (lambda (k$376 fp$165 ptbl$164) - ((%closure-ref in-port:get-buf 0) - in-port:get-buf - (%closure - (lambda (self$922 r$377) - (if r$377 - ((%closure-ref in-port:read-buf! 0) - in-port:read-buf! - (%closure-ref self$922 2) - (%closure-ref self$922 3)) - ((%closure-ref (%closure-ref self$922 2) 0) - (%closure-ref self$922 2) - (read-char (%closure-ref self$922 1))))) - fp$165 - k$376 - ptbl$164) - ptbl$164))) - (define read-block-comment - (lambda (k$371 fp$162 ptbl$161) - ((%closure-ref get-next-char 0) - get-next-char - (%closure - (lambda (self$918 c$163) - ((%closure - (lambda (self$919 r$373) - (if r$373 - ((%closure - (lambda (self$921) - ((%closure-ref read-block-terminator 0) - read-block-terminator - (%closure-ref self$921 2) - (%closure-ref self$921 1) - (%closure-ref self$921 3))) - (%closure-ref self$919 1) - (%closure-ref self$919 2) - (%closure-ref self$919 3))) - ((%closure - (lambda (self$920) - ((%closure-ref read-block-comment 0) - read-block-comment - (%closure-ref self$920 2) - (%closure-ref self$920 1) - (%closure-ref self$920 3))) - (%closure-ref self$919 1) - (%closure-ref self$919 2) - (%closure-ref self$919 3))))) - (%closure-ref self$918 1) - (%closure-ref self$918 2) - (%closure-ref self$918 3)) - (eq? #\| c$163))) - fp$162 - k$371 - ptbl$161) - fp$162 - ptbl$161))) - (define read-block-terminator - (lambda (k$365 fp$159 ptbl$158) - ((%closure-ref get-next-char 0) - get-next-char - (%closure - (lambda (self$912 c$160) - ((%closure - (lambda (self$913 r$367) - (if r$367 - ((%closure - (lambda (self$917) - ((%closure-ref (%closure-ref self$917 1) 0) - (%closure-ref self$917 1) - #t)) - (%closure-ref self$913 3))) - ((%closure - (lambda (self$914 r$368) - (if r$368 - ((%closure - (lambda (self$916) - ((%closure-ref read-block-terminator 0) - read-block-terminator - (%closure-ref self$916 2) - (%closure-ref self$916 1) - (%closure-ref self$916 3))) - (%closure-ref self$914 1) - (%closure-ref self$914 2) - (%closure-ref self$914 3))) - ((%closure - (lambda (self$915) - ((%closure-ref read-block-comment 0) - read-block-comment - (%closure-ref self$915 2) - (%closure-ref self$915 1) - (%closure-ref self$915 3))) - (%closure-ref self$914 1) - (%closure-ref self$914 2) - (%closure-ref self$914 3))))) - (%closure-ref self$913 2) - (%closure-ref self$913 3) - (%closure-ref self$913 4)) - (eq? #\| (%closure-ref self$913 1))))) - c$160 - (%closure-ref self$912 1) - (%closure-ref self$912 2) - (%closure-ref self$912 3)) - (eq? #\# c$160))) - fp$159 - k$365 - ptbl$158) - fp$159 - ptbl$158))) - (define parse-literal-identifier - (lambda (k$358 - fp$156 - toks$155 - all?$154 - parens$153 - ptbl$152) - ((%closure - (lambda (self$908 r$362) - ((%closure-ref parse-li-rec 0) - parse-li-rec - (%closure - (lambda (self$909 sym$157) - (if (%closure-ref self$909 1) - ((%closure - (lambda (self$910 r$360) - ((%closure - (lambda (self$911 r$361) - ((%closure-ref parse 0) - parse - (%closure-ref self$911 3) - (%closure-ref self$911 2) - (%closure-ref self$911 6) - r$361 - (%closure-ref self$911 1) - #f - (%closure-ref self$911 4) - (%closure-ref self$911 5))) - (%closure-ref self$910 1) - (%closure-ref self$910 2) - (%closure-ref self$910 3) - (%closure-ref self$910 4) - (%closure-ref self$910 5) - r$360) - (cons (%closure-ref self$910 6) - (%closure-ref self$910 7)))) - (%closure-ref self$909 1) - (%closure-ref self$909 2) - (%closure-ref self$909 3) - (%closure-ref self$909 4) - (%closure-ref self$909 5) - sym$157 - (%closure-ref self$909 6)) - '()) - ((%closure-ref (%closure-ref self$909 3) 0) - (%closure-ref self$909 3) - sym$157))) - (%closure-ref self$908 1) - (%closure-ref self$908 2) - (%closure-ref self$908 3) - (%closure-ref self$908 4) - (%closure-ref self$908 5) - (%closure-ref self$908 6)) - (%closure-ref self$908 2) - r$362 - (%closure-ref self$908 5))) - all?$154 - fp$156 - k$358 - parens$153 - ptbl$152 - toks$155) - '()))) - (define parse-li-rec - (lambda (k$343 fp$147 tok$146 ptbl$145) - ((%closure-ref get-next-char 0) - get-next-char - (%closure - (lambda (self$892 r$344) - ((%closure - (lambda (self$895 r$345) - ((%closure - (lambda (self$896 c$150 next$149) - ((%closure - (lambda (self$897 r$346) - (if r$346 - ((%closure - (lambda (self$903) - ((%closure - (lambda (self$905 k$348) - ((%closure - (lambda (self$906 r$349) - (if r$349 - ((%closure-ref - (%closure-ref self$906 1) - 0) - (%closure-ref self$906 1) - "||") - ((%closure-ref reverse 0) - reverse - (%closure - (lambda (self$907 r$350) - ((%closure-ref - (%closure-ref self$907 1) - 0) - (%closure-ref self$907 1) - (list->string r$350))) - (%closure-ref self$906 1)) - (%closure-ref self$906 2)))) - k$348 - (%closure-ref self$905 1)) - (null? (%closure-ref self$905 1)))) - (%closure-ref self$903 2)) - (%closure - (lambda (self$904 str$151) - ((%closure-ref (%closure-ref self$904 1) 0) - (%closure-ref self$904 1) - (string->symbol str$151))) - (%closure-ref self$903 1)))) - (%closure-ref self$897 2) - (%closure-ref self$897 5))) - ((%closure - (lambda (self$898 r$351) - (if r$351 - ((%closure - (lambda (self$900) - ((%closure-ref in-port:get-lnum 0) - in-port:get-lnum - (%closure - (lambda (self$901 r$352) - ((%closure-ref in-port:get-cnum 0) - in-port:get-cnum - (%closure - (lambda (self$902 r$353) - ((%closure-ref parse-error 0) - parse-error - (%closure-ref self$902 1) - "EOF encountered parsing literal identifier" - (%closure-ref self$902 2) - r$353)) - (%closure-ref self$901 1) - r$352) - (%closure-ref self$901 2))) - (%closure-ref self$900 1) - (%closure-ref self$900 2)) - (%closure-ref self$900 2))) - (%closure-ref self$898 2) - (%closure-ref self$898 4))) - ((%closure - (lambda (self$899) - ((%closure-ref - (%closure-ref self$899 3) - 0) - (%closure-ref self$899 3) - (%closure-ref self$899 2) - (%closure-ref self$899 1))) - (%closure-ref self$898 1) - (%closure-ref self$898 2) - (%closure-ref self$898 3))))) - (%closure-ref self$897 1) - (%closure-ref self$897 2) - (%closure-ref self$897 3) - (%closure-ref self$897 4)) - (eof-object? (%closure-ref self$897 1))))) - c$150 - (%closure-ref self$896 1) - next$149 - (%closure-ref self$896 2) - (%closure-ref self$896 3)) - (eq? #\| c$150))) - (%closure-ref self$895 1) - (%closure-ref self$895 2) - (%closure-ref self$895 4)) - (%closure-ref self$895 3) - r$345)) - (%closure-ref self$892 2) - (%closure-ref self$892 3) - r$344 - (%closure-ref self$892 4)) - (%closure - (lambda (self$893 k$354 c$148) - ((%closure - (lambda (self$894 r$355) - ((%closure-ref parse-li-rec 0) - parse-li-rec - (%closure-ref self$894 2) - (%closure-ref self$894 1) - r$355 - (%closure-ref self$894 3))) - (%closure-ref self$893 1) - k$354 - (%closure-ref self$893 2)) - (cons c$148 (%closure-ref self$893 3)))) - (%closure-ref self$892 1) - (%closure-ref self$892 3) - (%closure-ref self$892 4)))) - fp$147 - k$343 - ptbl$145 - tok$146) - fp$147 - ptbl$145))) - (define parse-number - (lambda (k$325 - fp$141 - toks$140 - all?$139 - parens$138 - ptbl$137 - base$136 - tok->num$135) - ((%closure - (lambda (self$875 r$340) - ((%closure-ref parse-number-rec 0) - parse-number-rec - (%closure - (lambda (self$876 num$142) - ((%closure - (lambda (self$885 k$333) - ((%closure - (lambda (self$886 r$334) - (if r$334 - ((%closure-ref (%closure-ref self$886 2) 0) - (%closure-ref self$886 2) - #f) - ((%closure-ref token-numeric? 0) - token-numeric? - (%closure - (lambda (self$887 tmp$144) - (if tmp$144 - ((%closure-ref (%closure-ref self$887 2) 0) - (%closure-ref self$887 2) - tmp$144) - ((%closure - (lambda (self$888 r$339) - ((%closure - (lambda (self$889 r$336) - (if r$336 - ((%closure - (lambda (self$890 r$337) - (if r$337 - ((%closure - (lambda (self$891 r$338) - ((%closure-ref - hex-digit? - 0) - hex-digit? - (%closure-ref - self$891 - 1) - r$338)) - (%closure-ref - self$890 - 1)) - (car (%closure-ref - self$890 - 2))) - ((%closure-ref - (%closure-ref - self$890 - 1) - 0) - (%closure-ref self$890 1) - #f))) - (%closure-ref self$889 2) - (%closure-ref self$889 3)) - (= (%closure-ref self$889 1) 16)) - ((%closure-ref - (%closure-ref self$889 2) - 0) - (%closure-ref self$889 2) - #f))) - (%closure-ref self$888 1) - (%closure-ref self$888 2) - (%closure-ref self$888 3)) - (> r$339 0))) - (%closure-ref self$887 1) - (%closure-ref self$887 2) - (%closure-ref self$887 3)) - (length (%closure-ref self$887 3))))) - (%closure-ref self$886 1) - (%closure-ref self$886 2) - (%closure-ref self$886 3)) - (%closure-ref self$886 3)))) - (%closure-ref self$885 1) - k$333 - (%closure-ref self$885 2)) - (null? (%closure-ref self$885 2)))) - (%closure-ref self$876 2) - num$142) - (%closure - (lambda (self$877 r$327) - (if r$327 - ((%closure - (lambda (self$881) - ((%closure-ref (%closure-ref self$881 7) 0) - (%closure-ref self$881 7) - (%closure - (lambda (self$882 result$143) - (if (%closure-ref self$882 1) - ((%closure - (lambda (self$883 r$329) - ((%closure - (lambda (self$884 r$330) - ((%closure-ref parse 0) - parse - (%closure-ref self$884 3) - (%closure-ref self$884 2) - (%closure-ref self$884 6) - r$330 - (%closure-ref self$884 1) - #f - (%closure-ref self$884 4) - (%closure-ref self$884 5))) - (%closure-ref self$883 1) - (%closure-ref self$883 2) - (%closure-ref self$883 3) - (%closure-ref self$883 4) - (%closure-ref self$883 5) - r$329) - (cons (%closure-ref self$883 6) - (%closure-ref self$883 7)))) - (%closure-ref self$882 1) - (%closure-ref self$882 2) - (%closure-ref self$882 3) - (%closure-ref self$882 4) - (%closure-ref self$882 5) - result$143 - (%closure-ref self$882 6)) - '()) - ((%closure-ref (%closure-ref self$882 3) 0) - (%closure-ref self$882 3) - result$143))) - (%closure-ref self$881 1) - (%closure-ref self$881 2) - (%closure-ref self$881 3) - (%closure-ref self$881 5) - (%closure-ref self$881 6) - (%closure-ref self$881 8)) - (%closure-ref self$881 4))) - (%closure-ref self$877 1) - (%closure-ref self$877 2) - (%closure-ref self$877 3) - (%closure-ref self$877 4) - (%closure-ref self$877 5) - (%closure-ref self$877 6) - (%closure-ref self$877 7) - (%closure-ref self$877 8))) - ((%closure - (lambda (self$878) - ((%closure-ref in-port:get-lnum 0) - in-port:get-lnum - (%closure - (lambda (self$879 r$331) - ((%closure-ref in-port:get-cnum 0) - in-port:get-cnum - (%closure - (lambda (self$880 r$332) - ((%closure-ref parse-error 0) - parse-error - (%closure-ref self$880 1) - "Illegal number syntax" - (%closure-ref self$880 2) - r$332)) - (%closure-ref self$879 1) - r$331) - (%closure-ref self$879 2))) - (%closure-ref self$878 1) - (%closure-ref self$878 2)) - (%closure-ref self$878 2))) - (%closure-ref self$877 3) - (%closure-ref self$877 6))))) - (%closure-ref self$876 1) - (%closure-ref self$876 3) - (%closure-ref self$876 4) - num$142 - (%closure-ref self$876 5) - (%closure-ref self$876 6) - (%closure-ref self$876 7) - (%closure-ref self$876 8)))) - (%closure-ref self$875 1) - (%closure-ref self$875 2) - (%closure-ref self$875 3) - (%closure-ref self$875 4) - (%closure-ref self$875 5) - (%closure-ref self$875 6) - (%closure-ref self$875 7) - (%closure-ref self$875 8)) - (%closure-ref self$875 2) - (%closure-ref self$875 3) - r$340 - (%closure-ref self$875 6))) - all?$139 - base$136 - fp$141 - k$325 - parens$138 - ptbl$137 - tok->num$135 - toks$140) - '()))) - (define parse-number-rec - (lambda (k$301 base$130 fp$129 tok$128 ptbl$127) - ((%closure-ref get-next-char 0) - get-next-char - (%closure - (lambda (self$848 r$302) - ((%closure - (lambda (self$851 r$303) - ((%closure - (lambda (self$852 c$133 next$132) - ((%closure-ref sign? 0) - sign? - (%closure - (lambda (self$853 r$304) - (if r$304 - ((%closure - (lambda (self$874) - ((%closure-ref (%closure-ref self$874 3) 0) - (%closure-ref self$874 3) - (%closure-ref self$874 2) - (%closure-ref self$874 1))) - (%closure-ref self$853 2) - (%closure-ref self$853 3) - (%closure-ref self$853 4))) - ((%closure - (lambda (self$854 r$305) - (if r$305 - ((%closure - (lambda (self$873) - ((%closure-ref - (%closure-ref self$873 3) - 0) - (%closure-ref self$873 3) - (%closure-ref self$873 2) - (%closure-ref self$873 1))) - (%closure-ref self$854 2) - (%closure-ref self$854 3) - (%closure-ref self$854 4))) - ((%closure-ref char-numeric? 0) - char-numeric? - (%closure - (lambda (self$855 r$306) - (if r$306 - ((%closure - (lambda (self$862) - ((%closure - (lambda (self$864 k$308) - ((%closure - (lambda (self$871 k$315) - ((%closure - (lambda (self$872 - r$316) - (if r$316 - ((%closure-ref - char>? - 0) - char>? - (%closure-ref - self$872 - 2) - (%closure-ref - self$872 - 1) - #\1) - ((%closure-ref - (%closure-ref - self$872 - 2) - 0) - (%closure-ref - self$872 - 2) - #f))) - (%closure-ref - self$871 - 2) - k$315) - (= (%closure-ref - self$871 - 1) - 2))) - (%closure-ref self$864 1) - (%closure-ref self$864 2)) - (%closure - (lambda (self$865 tmp$134) - ((%closure - (lambda (self$869 - k$313) - (if (%closure-ref - self$869 - 3) - ((%closure-ref - k$313 - 0) - k$313 - (%closure-ref - self$869 - 3)) - ((%closure - (lambda (self$870 - r$314) - (if r$314 - ((%closure-ref - char>? - 0) - char>? - (%closure-ref - self$870 - 2) - (%closure-ref - self$870 - 1) - #\7) - ((%closure-ref - (%closure-ref - self$870 - 2) - 0) - (%closure-ref - self$870 - 2) - #f))) - (%closure-ref - self$869 - 2) - k$313) - (= (%closure-ref - self$869 - 1) - 8)))) - (%closure-ref - self$865 - 1) - (%closure-ref - self$865 - 2) - tmp$134) - (%closure - (lambda (self$866 - r$309) - (if r$309 - ((%closure-ref - in-port:get-lnum - 0) - in-port:get-lnum - (%closure - (lambda (self$867 - r$310) - ((%closure-ref - in-port:get-cnum - 0) - in-port:get-cnum - (%closure - (lambda (self$868 - r$311) - ((%closure-ref - parse-error - 0) - parse-error - (%closure-ref - self$868 - 1) - "Illegal digit" - (%closure-ref - self$868 - 2) - r$311)) - (%closure-ref - self$867 - 1) - r$310) - (%closure-ref - self$867 - 2))) - (%closure-ref - self$866 - 1) - (%closure-ref - self$866 - 2)) - (%closure-ref - self$866 - 2)) - ((%closure-ref - (%closure-ref - self$866 - 1) - 0) - (%closure-ref - self$866 - 1) - #f))) - (%closure-ref - self$865 - 3) - (%closure-ref - self$865 - 4)))) - (%closure-ref self$864 1) - (%closure-ref self$864 2) - k$308 - (%closure-ref - self$864 - 3)))) - (%closure-ref self$862 1) - (%closure-ref self$862 2) - (%closure-ref self$862 5)) - (%closure - (lambda (self$863 r$307) - ((%closure-ref - (%closure-ref self$863 3) - 0) - (%closure-ref self$863 3) - (%closure-ref self$863 2) - (%closure-ref self$863 1))) - (%closure-ref self$862 2) - (%closure-ref self$862 3) - (%closure-ref self$862 4)))) - (%closure-ref self$855 1) - (%closure-ref self$855 2) - (%closure-ref self$855 3) - (%closure-ref self$855 4) - (%closure-ref self$855 5))) - ((%closure - (lambda (self$860 k$319) - ((%closure - (lambda (self$861 r$320) - (if r$320 - ((%closure-ref - hex-digit? - 0) - hex-digit? - (%closure-ref self$861 2) - (%closure-ref self$861 1)) - ((%closure-ref - (%closure-ref - self$861 - 2) - 0) - (%closure-ref self$861 2) - #f))) - (%closure-ref self$860 2) - k$319) - (= (%closure-ref self$860 1) - 16))) - (%closure-ref self$855 1) - (%closure-ref self$855 2)) - (%closure - (lambda (self$856 r$317) - (if r$317 - ((%closure - (lambda (self$859) - ((%closure-ref - (%closure-ref - self$859 - 3) - 0) - (%closure-ref self$859 3) - (%closure-ref self$859 2) - (%closure-ref - self$859 - 1))) - (%closure-ref self$856 1) - (%closure-ref self$856 2) - (%closure-ref self$856 3))) - ((%closure - (lambda (self$857) - ((%closure-ref - in-port:set-buf! - 0) - in-port:set-buf! - (%closure - (lambda (self$858 r$318) - ((%closure-ref - reverse - 0) - reverse - (%closure-ref - self$858 - 1) - (%closure-ref - self$858 - 2))) - (%closure-ref - self$857 - 2) - (%closure-ref - self$857 - 4)) - (%closure-ref self$857 3) - (%closure-ref - self$857 - 1))) - (%closure-ref self$856 1) - (%closure-ref self$856 2) - (%closure-ref self$856 4) - (%closure-ref self$856 5))))) - (%closure-ref self$855 2) - (%closure-ref self$855 3) - (%closure-ref self$855 4) - (%closure-ref self$855 5) - (%closure-ref self$855 6))))) - (%closure-ref self$854 1) - (%closure-ref self$854 2) - (%closure-ref self$854 3) - (%closure-ref self$854 4) - (%closure-ref self$854 5) - (%closure-ref self$854 6)) - (%closure-ref self$854 2)))) - (%closure-ref self$853 1) - (%closure-ref self$853 2) - (%closure-ref self$853 3) - (%closure-ref self$853 4) - (%closure-ref self$853 5) - (%closure-ref self$853 6)) - (eq? #\. (%closure-ref self$853 2))))) - (%closure-ref self$852 1) - c$133 - (%closure-ref self$852 2) - next$132 - (%closure-ref self$852 3) - (%closure-ref self$852 4)) - c$133)) - (%closure-ref self$851 1) - (%closure-ref self$851 2) - (%closure-ref self$851 3) - (%closure-ref self$851 5)) - (%closure-ref self$851 4) - r$303)) - (%closure-ref self$848 1) - (%closure-ref self$848 3) - (%closure-ref self$848 4) - r$302 - (%closure-ref self$848 5)) - (%closure - (lambda (self$849 k$321 c$131) - ((%closure - (lambda (self$850 r$322) - ((%closure-ref parse-number-rec 0) - parse-number-rec - (%closure-ref self$850 3) - (%closure-ref self$850 1) - (%closure-ref self$850 2) - r$322 - (%closure-ref self$850 4))) - (%closure-ref self$849 1) - (%closure-ref self$849 2) - k$321 - (%closure-ref self$849 3)) - (cons c$131 (%closure-ref self$849 4)))) - (%closure-ref self$848 1) - (%closure-ref self$848 2) - (%closure-ref self$848 4) - (%closure-ref self$848 5)))) - base$130 - fp$129 - k$301 - ptbl$127 - tok$128) - fp$129 - ptbl$127))) - (define hex-digit? - (lambda (k$294 c$125) - ((%closure - (lambda (self$846 k$297) - ((%closure-ref char>=? 0) - char>=? - (%closure - (lambda (self$847 r$298) - (if r$298 - ((%closure-ref char<=? 0) - char<=? - (%closure-ref self$847 2) - (%closure-ref self$847 1) - #\f) - ((%closure-ref (%closure-ref self$847 2) 0) - (%closure-ref self$847 2) - #f))) - (%closure-ref self$846 1) - k$297) - (%closure-ref self$846 1) - #\a)) - c$125) - (%closure - (lambda (self$844 tmp$126) - (if tmp$126 - ((%closure-ref (%closure-ref self$844 2) 0) - (%closure-ref self$844 2) - tmp$126) - ((%closure-ref char>=? 0) - char>=? - (%closure - (lambda (self$845 r$296) - (if r$296 - ((%closure-ref char<=? 0) - char<=? - (%closure-ref self$845 2) - (%closure-ref self$845 1) - #\F) - ((%closure-ref (%closure-ref self$845 2) 0) - (%closure-ref self$845 2) - #f))) - (%closure-ref self$844 1) - (%closure-ref self$844 2)) - (%closure-ref self$844 1) - #\A))) - c$125 - k$294)))) - (define cyc-read - (lambda (k$285 . args$123) - ((%closure - (lambda (self$842 k$290) - ((%closure - (lambda (self$843 r$291) - (if r$291 - ((%closure-ref current-input-port 0) - current-input-port - (%closure-ref self$843 2)) - ((%closure-ref (%closure-ref self$843 2) 0) - (%closure-ref self$843 2) - (car (%closure-ref self$843 1))))) - (%closure-ref self$842 1) - k$290) - (null? (%closure-ref self$842 1)))) - args$123) - (%closure - (lambda (self$838 fp$124) - ((%closure - (lambda (self$839 r$287) - ((%closure - (lambda (self$840 r$288) - ((%closure-ref reg-port 0) - reg-port - (%closure - (lambda (self$841 r$289) - ((%closure-ref parse 0) - parse - (%closure-ref self$841 2) - (%closure-ref self$841 1) - (%closure-ref self$841 3) - (%closure-ref self$841 4) - #f - #f - 0 - r$289)) - (%closure-ref self$840 1) - (%closure-ref self$840 2) - (%closure-ref self$840 3) - r$288) - (%closure-ref self$840 1))) - (%closure-ref self$839 1) - (%closure-ref self$839 2) - r$287) - '())) - fp$124 - (%closure-ref self$838 1)) - '())) - k$285)))) - (define read-all - (lambda (k$272 . args$116) - ((%closure - (lambda (self$825) - ((%closure - (lambda (self$836 k$281) - ((%closure - (lambda (self$837 r$282) - (if r$282 - ((%closure-ref current-input-port 0) - current-input-port - (%closure-ref self$837 2)) - ((%closure-ref (%closure-ref self$837 2) 0) - (%closure-ref self$837 2) - (car (%closure-ref self$837 1))))) - (%closure-ref self$836 1) - k$281) - (null? (%closure-ref self$836 1)))) - (%closure-ref self$825 1)) - (%closure - (lambda (self$826 fp$118) - ((%closure - (lambda (self$827 loop$119) - ((%closure - (lambda (self$828 loop$119) - ((%closure - (lambda (self$833 r$276) - ((%closure - (lambda (self$834 r$274) - ((%closure - (lambda (self$835 r$275) - ((%closure-ref - (cell-get (%closure-ref self$835 3)) - 0) - (cell-get (%closure-ref self$835 3)) - (%closure-ref self$835 2) - (%closure-ref self$835 1) - r$275)) - (%closure-ref self$834 1) - (%closure-ref self$834 2) - (%closure-ref self$834 3)) - '())) - (%closure-ref self$833 1) - (%closure-ref self$833 2) - (%closure-ref self$833 3)) - (set-cell! (%closure-ref self$833 3) r$276))) - (%closure-ref self$828 1) - (%closure-ref self$828 2) - loop$119) - (%closure - (lambda (self$829 k$277 fp$121 result$120) - ((%closure-ref cyc-read 0) - cyc-read - (%closure - (lambda (self$830 obj$122) - ((%closure - (lambda (self$831 r$279) - (if r$279 - ((%closure-ref reverse 0) - reverse - (%closure-ref self$831 2) - (%closure-ref self$831 5)) - ((%closure - (lambda (self$832 r$280) - ((%closure-ref - (cell-get - (%closure-ref self$832 3)) - 0) - (cell-get - (%closure-ref self$832 3)) - (%closure-ref self$832 2) - (%closure-ref self$832 1) - r$280)) - (%closure-ref self$831 1) - (%closure-ref self$831 2) - (%closure-ref self$831 3)) - (cons (%closure-ref self$831 4) - (%closure-ref self$831 5))))) - (%closure-ref self$830 1) - (%closure-ref self$830 2) - (%closure-ref self$830 3) - obj$122 - (%closure-ref self$830 4)) - (eof-object? obj$122))) - fp$121 - k$277 - (%closure-ref self$829 1) - result$120) - fp$121)) - loop$119))) - (%closure-ref self$827 1) - (%closure-ref self$827 2)) - (cell loop$119))) - fp$118 - (%closure-ref self$826 1)) - #f)) - (%closure-ref self$825 2)))) - args$116 - k$272)))) - (define lib-init:schemeread - (lambda (k$266) - ((%closure - (lambda (self$822) - ((%closure - (lambda (self$823 r$268) - ((%closure - (lambda (self$824 r$269) - ((%closure-ref (%closure-ref self$824 1) 0) - (%closure-ref self$824 1) - (set-global! *in-port-table* r$269))) - (%closure-ref self$823 1)) - '())) - (%closure-ref self$822 1)) - (set-global! read cyc-read))) - k$266))))) - */ -/* -"---------------- C headers: " - */ -/* -() - */ -/* -"---------------- C code:" - */ -#define closcall0(td, clo) \ - ((clo)->fn)(td, 0, clo) -#define return_closcall0(td, clo) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[0]; \ - GC(td, clo, buf, 0); \ - return; \ - } else {\ - closcall0(td, (closure) (clo)); \ - return;\ - } \ -} - -#define return_direct0(td, _fn) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[0]; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 0); \ - return; \ - } else { \ - (_fn)(td, 0, (closure)_fn); \ - }} - -#define closcall1(td, clo,a1) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 0, (closure)(a1), clo); \ -} else { \ - ((clo)->fn)(td, 1, clo,a1);\ -} -#define return_closcall1(td, clo,a1) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[1]; buf[0] = a1;\ - GC(td, clo, buf, 1); \ - return; \ - } else {\ - closcall1(td, (closure) (clo),a1); \ - return;\ - } \ -} - -#define return_direct1(td, _fn,a1) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[1]; buf[0] = a1; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 1); \ - return; \ - } else { \ - (_fn)(td, 1, (closure)_fn,a1); \ - }} - -#define closcall2(td, clo,a1,a2) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 1, (closure)(a1), clo,a2); \ -} else { \ - ((clo)->fn)(td, 2, clo,a1,a2);\ -} -#define return_closcall2(td, clo,a1,a2) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[2]; buf[0] = a1;buf[1] = a2;\ - GC(td, clo, buf, 2); \ - return; \ - } else {\ - closcall2(td, (closure) (clo),a1,a2); \ - return;\ - } \ -} - -#define return_direct2(td, _fn,a1,a2) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[2]; buf[0] = a1;buf[1] = a2; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 2); \ - return; \ - } else { \ - (_fn)(td, 2, (closure)_fn,a1,a2); \ - }} - -#define closcall3(td, clo,a1,a2,a3) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ -} else { \ - ((clo)->fn)(td, 3, clo,a1,a2,a3);\ -} -#define return_closcall3(td, clo,a1,a2,a3) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ - GC(td, clo, buf, 3); \ - return; \ - } else {\ - closcall3(td, (closure) (clo),a1,a2,a3); \ - return;\ - } \ -} - -#define return_direct3(td, _fn,a1,a2,a3) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 3); \ - return; \ - } else { \ - (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ - }} - -#define closcall4(td, clo,a1,a2,a3,a4) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ -} else { \ - ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ -} -#define return_closcall4(td, clo,a1,a2,a3,a4) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ - GC(td, clo, buf, 4); \ - return; \ - } else {\ - closcall4(td, (closure) (clo),a1,a2,a3,a4); \ - return;\ - } \ -} - -#define return_direct4(td, _fn,a1,a2,a3,a4) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 4); \ - return; \ - } else { \ - (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ - }} - -#define closcall5(td, clo,a1,a2,a3,a4,a5) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ -} else { \ - ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ -} -#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ - GC(td, clo, buf, 5); \ - return; \ - } else {\ - closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ - return;\ - } \ -} - -#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 5); \ - return; \ - } else { \ - (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ - }} - -#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \ -} else { \ - ((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\ -} -#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\ - GC(td, clo, buf, 6); \ - return; \ - } else {\ - closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \ - return;\ - } \ -} - -#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 6); \ - return; \ - } else { \ - (_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \ - }} - -#define closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 7, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8); \ -} else { \ - ((clo)->fn)(td, 8, clo,a1,a2,a3,a4,a5,a6,a7,a8);\ -} -#define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\ - GC(td, clo, buf, 8); \ - return; \ - } else {\ - closcall8(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8); \ - return;\ - } \ -} - -#define return_direct8(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 8); \ - return; \ - } else { \ - (_fn)(td, 8, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8); \ - }} - -#define closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 8, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9); \ -} else { \ - ((clo)->fn)(td, 9, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9);\ -} -#define return_closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;\ - GC(td, clo, buf, 9); \ - return; \ - } else {\ - closcall9(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9); \ - return;\ - } \ -} - -#define return_direct9(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 9); \ - return; \ - } else { \ - (_fn)(td, 9, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9); \ - }} - -#include "cyclone/types.h" -object __glo_lib_91init_117schemeread_scheme_read = NULL; -object __glo_read_91all_scheme_read = NULL; -object __glo_cyc_91read_scheme_read = NULL; -object __glo_hex_91digit_127_scheme_read = NULL; -object __glo_parse_91number_91rec_scheme_read = NULL; -object __glo_parse_91number_scheme_read = NULL; -object __glo_parse_91li_91rec_scheme_read = NULL; -object __glo_parse_91literal_91identifier_scheme_read = NULL; -object __glo_read_91block_91terminator_scheme_read = NULL; -object __glo_read_91block_91comment_scheme_read = NULL; -object __glo_get_91next_91char_scheme_read = NULL; -object __glo_parse_91atom_scheme_read = NULL; -object __glo_token_91numeric_127_scheme_read = NULL; -object __glo_sign_127_scheme_read = NULL; -object __glo_read_91str_91esc_scheme_read = NULL; -object __glo_read_91str_scheme_read = NULL; -object __glo_read_91pound_scheme_read = NULL; -object __glo_parse_scheme_read = NULL; -object __glo_parse_95tok_scheme_read = NULL; -object __glo_parse_91error_scheme_read = NULL; -object __glo__91_125dotted_91list_scheme_read = NULL; -object __glo_dotted_127_scheme_read = NULL; -object __glo__91_125tok_scheme_read = NULL; -object __glo_get_91toks_scheme_read = NULL; -object __glo_add_91tok_scheme_read = NULL; -object __glo_in_91port_117set_91cnum_67_scheme_read = NULL; -object __glo_in_91port_117get_91cnum_scheme_read = NULL; -object __glo_in_91port_117set_91lnum_67_scheme_read = NULL; -object __glo_in_91port_117get_91lnum_scheme_read = NULL; -object __glo_in_91port_117set_91buf_67_scheme_read = NULL; -object __glo_in_91port_117get_91buf_scheme_read = NULL; -object __glo_in_91port_117read_91buf_67_scheme_read = NULL; -object __glo_reg_91port_scheme_read = NULL; -object __glo__85in_91port_91table_85_scheme_read = NULL; -object __glo_read_scheme_read = NULL; -extern object __glo_cons_91source_scheme_base; -extern object __glo_syntax_91rules_scheme_base; -extern object __glo_letrec_85_scheme_base; -extern object __glo_guard_scheme_base; -extern object __glo_guard_91aux_scheme_base; -extern object __glo_define_91record_91type_scheme_base; -extern object __glo_record_127_scheme_base; -extern object __glo_register_91simple_91type_scheme_base; -extern object __glo_make_91type_91predicate_scheme_base; -extern object __glo_make_91constructor_scheme_base; -extern object __glo_make_91getter_scheme_base; -extern object __glo_make_91setter_scheme_base; -extern object __glo_slot_91set_67_scheme_base; -extern object __glo_type_91slot_91offset_scheme_base; -extern object __glo_receive_scheme_base; -extern object __glo_abs_scheme_base; -extern object __glo_max_scheme_base; -extern object __glo_min_scheme_base; -extern object __glo_modulo_scheme_base; -extern object __glo_floor_91remainder_scheme_base; -extern object __glo_even_127_scheme_base; -extern object __glo_exact_91integer_127_scheme_base; -extern object __glo_exact_127_scheme_base; -extern object __glo_inexact_127_scheme_base; -extern object __glo_odd_127_scheme_base; -extern object __glo_complex_127_scheme_base; -extern object __glo_rational_127_scheme_base; -extern object __glo_gcd_scheme_base; -extern object __glo_lcm_scheme_base; -extern object __glo_quotient_scheme_base; -extern object __glo_remainder_scheme_base; -extern object __glo_truncate_91quotient_scheme_base; -extern object __glo_truncate_91remainder_scheme_base; -extern object __glo_truncate_95_scheme_base; -extern object __glo_floor_91quotient_scheme_base; -extern object __glo_floor_91remainder_scheme_base; -extern object __glo_floor_95_scheme_base; -extern object __glo_square_scheme_base; -extern object __glo_expt_scheme_base; -extern object __glo_call_91with_91current_91continuation_scheme_base; -extern object __glo_call_95cc_scheme_base; -extern object __glo_call_91with_91values_scheme_base; -extern object __glo_dynamic_91wind_scheme_base; -extern object __glo_values_scheme_base; -extern object __glo_char_123_127_scheme_base; -extern object __glo_char_121_127_scheme_base; -extern object __glo_char_125_127_scheme_base; -extern object __glo_char_121_123_127_scheme_base; -extern object __glo_char_125_123_127_scheme_base; -extern object __glo_string_123_127_scheme_base; -extern object __glo_string_121_127_scheme_base; -extern object __glo_string_121_123_127_scheme_base; -extern object __glo_string_125_127_scheme_base; -extern object __glo_string_125_123_127_scheme_base; -extern object __glo_foldl_scheme_base; -extern object __glo_foldr_scheme_base; -extern object __glo_not_scheme_base; -extern object __glo_list_127_scheme_base; -extern object __glo_zero_127_scheme_base; -extern object __glo_positive_127_scheme_base; -extern object __glo_negative_127_scheme_base; -extern object __glo_append_scheme_base; -extern object __glo__list_scheme_base; -extern object __glo_make_91list_scheme_base; -extern object __glo_list_91copy_scheme_base; -extern object __glo_map_scheme_base; -extern object __glo_for_91each_scheme_base; -extern object __glo_list_91tail_scheme_base; -extern object __glo_list_91ref_scheme_base; -extern object __glo_list_91set_67_scheme_base; -extern object __glo_reverse_scheme_base; -extern object __glo_boolean_123_127_scheme_base; -extern object __glo_symbol_123_127_scheme_base; -extern object __glo_Cyc_91obj_123_127_scheme_base; -extern object __glo_vector_scheme_base; -extern object __glo_vector_91append_scheme_base; -extern object __glo_vector_91copy_scheme_base; -extern object __glo_vector_91copy_67_scheme_base; -extern object __glo_vector_91fill_67_scheme_base; -extern object __glo_vector_91_125list_scheme_base; -extern object __glo_vector_91_125string_scheme_base; -extern object __glo_vector_91map_scheme_base; -extern object __glo_vector_91for_91each_scheme_base; -extern object __glo_make_91string_scheme_base; -extern object __glo_string_scheme_base; -extern object __glo_string_91copy_scheme_base; -extern object __glo_string_91copy_67_scheme_base; -extern object __glo_string_91fill_67_scheme_base; -extern object __glo_string_91_125list_scheme_base; -extern object __glo_string_91_125vector_scheme_base; -extern object __glo_string_91map_scheme_base; -extern object __glo_string_91for_91each_scheme_base; -extern object __glo_make_91parameter_scheme_base; -extern object __glo_current_91output_91port_scheme_base; -extern object __glo_current_91input_91port_scheme_base; -extern object __glo_current_91error_91port_scheme_base; -extern object __glo_call_91with_91port_scheme_base; -extern object __glo_error_scheme_base; -extern object __glo_raise_scheme_base; -extern object __glo_raise_91continuable_scheme_base; -extern object __glo_with_91exception_91handler_scheme_base; -extern object __glo_Cyc_91add_91exception_91handler_scheme_base; -extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; -extern object __glo_newline_scheme_base; -extern object __glo_write_91char_scheme_base; -extern object __glo_write_91string_scheme_base; -extern object __glo_flush_91output_91port_scheme_base; -extern object __glo_read_91line_scheme_base; -extern object __glo_read_91string_scheme_base; -extern object __glo_input_91port_127_scheme_base; -extern object __glo_output_91port_127_scheme_base; -extern object __glo_input_91port_91open_127_scheme_base; -extern object __glo_output_91port_91open_127_scheme_base; -extern object __glo_features_scheme_base; -extern object __glo_any_scheme_base; -extern object __glo_every_scheme_base; -extern object __glo_and_scheme_base; -extern object __glo_or_scheme_base; -extern object __glo_let_scheme_base; -extern object __glo_let_85_scheme_base; -extern object __glo_letrec_scheme_base; -extern object __glo_begin_scheme_base; -extern object __glo__case_scheme_base; -extern object __glo_cond_scheme_base; -extern object __glo_cond_91expand_scheme_base; -extern object __glo__do_scheme_base; -extern object __glo_when_scheme_base; -extern object __glo_unless_scheme_base; -extern object __glo_quasiquote_scheme_base; -extern object __glo_floor_scheme_base; -extern object __glo_ceiling_scheme_base; -extern object __glo_truncate_scheme_base; -extern object __glo_round_scheme_base; -extern object __glo_exact_scheme_base; -extern object __glo_inexact_scheme_base; -extern object __glo_eof_91object_scheme_base; -extern object __glo_syntax_91error_scheme_base; -extern object __glo_bytevector_91copy_scheme_base; -extern object __glo_utf8_91_125string_scheme_base; -extern object __glo_string_91_125utf8_scheme_base; -extern object __glo_denominator_scheme_base; -extern object __glo_numerator_scheme_base; -extern object __glo_char_91alphabetic_127_scheme__char; -extern object __glo_char_91downcase_scheme__char; -extern object __glo_char_91foldcase_scheme__char; -extern object __glo_char_91lower_91case_127_scheme__char; -extern object __glo_char_91numeric_127_scheme__char; -extern object __glo_char_91upcase_scheme__char; -extern object __glo_char_91upper_91case_127_scheme__char; -extern object __glo_char_91whitespace_127_scheme__char; -extern object __glo_char_91ci_121_123_127_scheme__char; -extern object __glo_char_91ci_121_127_scheme__char; -extern object __glo_char_91ci_123_127_scheme__char; -extern object __glo_char_91ci_125_123_127_scheme__char; -extern object __glo_char_91ci_125_127_scheme__char; -extern object __glo_digit_91value_scheme__char; -extern object __glo_string_91upcase_scheme__char; -extern object __glo_string_91downcase_scheme__char; -extern object __glo_string_91foldcase_scheme__char; -extern object __glo_string_91ci_121_123_127_scheme__char; -extern object __glo_string_91ci_121_127_scheme__char; -extern object __glo_string_91ci_123_127_scheme__char; -extern object __glo_string_91ci_125_123_127_scheme__char; -extern object __glo_string_91ci_125_127_scheme__char; -#include "cyclone/runtime.h" -defsymbol(unquote); -defsymbol(unquote_91splicing); -defsymbol(quasiquote); -defsymbol(quote); -static void __lambda_613(void *data, int argc, closure _,object k_73266) ; -static void __lambda_612(void *data, int argc, object self_73822) ; -static void __lambda_611(void *data, int argc, object self_73823, object r_73268) ; -static void __lambda_610(void *data, int argc, object self_73824, object r_73269) ; -static void __lambda_609(void *data, int argc, closure _,object k_73272, object args_73116_raw, ...) ; -static void __lambda_608(void *data, int argc, object self_73825) ; -static void __lambda_607(void *data, int argc, object self_73826, object fp_73118) ; -static void __lambda_606(void *data, int argc, object self_73827, object loop_73119) ; -static void __lambda_605(void *data, int argc, object self_73828, object loop_73119) ; -static void __lambda_604(void *data, int argc, object self_73829, object k_73277, object fp_73121, object result_73120) ; -static void __lambda_603(void *data, int argc, object self_73830, object obj_73122) ; -static void __lambda_602(void *data, int argc, object self_73831, object r_73279) ; -static void __lambda_601(void *data, int argc, object self_73832, object r_73280) ; -static void __lambda_600(void *data, int argc, object self_73833, object r_73276) ; -static void __lambda_599(void *data, int argc, object self_73834, object r_73274) ; -static void __lambda_598(void *data, int argc, object self_73835, object r_73275) ; -static void __lambda_597(void *data, int argc, object self_73836, object k_73281) ; -static void __lambda_596(void *data, int argc, object self_73837, object r_73282) ; -static void __lambda_595(void *data, int argc, closure _,object k_73285, object args_73123_raw, ...) ; -static void __lambda_594(void *data, int argc, object self_73838, object fp_73124) ; -static void __lambda_593(void *data, int argc, object self_73839, object r_73287) ; -static void __lambda_592(void *data, int argc, object self_73840, object r_73288) ; -static void __lambda_591(void *data, int argc, object self_73841, object r_73289) ; -static void __lambda_590(void *data, int argc, object self_73842, object k_73290) ; -static void __lambda_589(void *data, int argc, object self_73843, object r_73291) ; -static void __lambda_588(void *data, int argc, closure _,object k_73294, object c_73125) ; -static void __lambda_587(void *data, int argc, object self_73844, object tmp_73126) ; -static void __lambda_586(void *data, int argc, object self_73845, object r_73296) ; -static void __lambda_585(void *data, int argc, object self_73846, object k_73297) ; -static void __lambda_584(void *data, int argc, object self_73847, object r_73298) ; -static void __lambda_583(void *data, int argc, closure _,object k_73301, object base_73130, object fp_73129, object tok_73128, object ptbl_73127) ; -static void __lambda_582(void *data, int argc, object self_73848, object r_73302) ; -static void __lambda_581(void *data, int argc, object self_73849, object k_73321, object c_73131) ; -static void __lambda_580(void *data, int argc, object self_73850, object r_73322) ; -static void __lambda_579(void *data, int argc, object self_73851, object r_73303) ; -static void __lambda_578(void *data, int argc, object self_73852, object c_73133, object next_73132) ; -static void __lambda_577(void *data, int argc, object self_73853, object r_73304) ; -static void __lambda_576(void *data, int argc, object self_73854, object r_73305) ; -static void __lambda_575(void *data, int argc, object self_73855, object r_73306) ; -static void __lambda_574(void *data, int argc, object self_73856, object r_73317) ; -static void __lambda_573(void *data, int argc, object self_73857) ; -static void __lambda_572(void *data, int argc, object self_73858, object r_73318) ; -static void __lambda_571(void *data, int argc, object self_73859) ; -static void __lambda_570(void *data, int argc, object self_73860, object k_73319) ; -static void __lambda_569(void *data, int argc, object self_73861, object r_73320) ; -static void __lambda_568(void *data, int argc, object self_73862) ; -static void __lambda_567(void *data, int argc, object self_73863, object r_73307) ; -static void __lambda_566(void *data, int argc, object self_73864, object k_73308) ; -static void __lambda_565(void *data, int argc, object self_73865, object tmp_73134) ; -static void __lambda_564(void *data, int argc, object self_73866, object r_73309) ; -static void __lambda_563(void *data, int argc, object self_73867, object r_73310) ; -static void __lambda_562(void *data, int argc, object self_73868, object r_73311) ; -static void __lambda_561(void *data, int argc, object self_73869, object k_73313) ; -static void __lambda_560(void *data, int argc, object self_73870, object r_73314) ; -static void __lambda_559(void *data, int argc, object self_73871, object k_73315) ; -static void __lambda_558(void *data, int argc, object self_73872, object r_73316) ; -static void __lambda_557(void *data, int argc, object self_73873) ; -static void __lambda_556(void *data, int argc, object self_73874) ; -static void __lambda_555(void *data, int argc, closure _,object k_73325, object fp_73141, object toks_73140, object all_127_73139, object parens_73138, object ptbl_73137, object base_73136, object tok_91_125num_73135) ; -static void __lambda_554(void *data, int argc, object self_73875, object r_73340) ; -static void __lambda_553(void *data, int argc, object self_73876, object num_73142) ; -static void __lambda_552(void *data, int argc, object self_73877, object r_73327) ; -static void __lambda_551(void *data, int argc, object self_73878) ; -static void __lambda_550(void *data, int argc, object self_73879, object r_73331) ; -static void __lambda_549(void *data, int argc, object self_73880, object r_73332) ; -static void __lambda_548(void *data, int argc, object self_73881) ; -static void __lambda_547(void *data, int argc, object self_73882, object result_73143) ; -static void __lambda_546(void *data, int argc, object self_73883, object r_73329) ; -static void __lambda_545(void *data, int argc, object self_73884, object r_73330) ; -static void __lambda_544(void *data, int argc, object self_73885, object k_73333) ; -static void __lambda_543(void *data, int argc, object self_73886, object r_73334) ; -static void __lambda_542(void *data, int argc, object self_73887, object tmp_73144) ; -static void __lambda_541(void *data, int argc, object self_73888, object r_73339) ; -static void __lambda_540(void *data, int argc, object self_73889, object r_73336) ; -static void __lambda_539(void *data, int argc, object self_73890, object r_73337) ; -static void __lambda_538(void *data, int argc, object self_73891, object r_73338) ; -static void __lambda_537(void *data, int argc, closure _,object k_73343, object fp_73147, object tok_73146, object ptbl_73145) ; -static void __lambda_536(void *data, int argc, object self_73892, object r_73344) ; -static void __lambda_535(void *data, int argc, object self_73893, object k_73354, object c_73148) ; -static void __lambda_534(void *data, int argc, object self_73894, object r_73355) ; -static void __lambda_533(void *data, int argc, object self_73895, object r_73345) ; -static void __lambda_532(void *data, int argc, object self_73896, object c_73150, object next_73149) ; -static void __lambda_531(void *data, int argc, object self_73897, object r_73346) ; -static void __lambda_530(void *data, int argc, object self_73898, object r_73351) ; -static void __lambda_529(void *data, int argc, object self_73899) ; -static void __lambda_528(void *data, int argc, object self_73900) ; -static void __lambda_527(void *data, int argc, object self_73901, object r_73352) ; -static void __lambda_526(void *data, int argc, object self_73902, object r_73353) ; -static void __lambda_525(void *data, int argc, object self_73903) ; -static void __lambda_524(void *data, int argc, object self_73904, object str_73151) ; -static void __lambda_523(void *data, int argc, object self_73905, object k_73348) ; -static void __lambda_522(void *data, int argc, object self_73906, object r_73349) ; -static void __lambda_521(void *data, int argc, object self_73907, object r_73350) ; -static void __lambda_520(void *data, int argc, closure _,object k_73358, object fp_73156, object toks_73155, object all_127_73154, object parens_73153, object ptbl_73152) ; -static void __lambda_519(void *data, int argc, object self_73908, object r_73362) ; -static void __lambda_518(void *data, int argc, object self_73909, object sym_73157) ; -static void __lambda_517(void *data, int argc, object self_73910, object r_73360) ; -static void __lambda_516(void *data, int argc, object self_73911, object r_73361) ; -static void __lambda_515(void *data, int argc, closure _,object k_73365, object fp_73159, object ptbl_73158) ; -static void __lambda_514(void *data, int argc, object self_73912, object c_73160) ; -static void __lambda_513(void *data, int argc, object self_73913, object r_73367) ; -static void __lambda_512(void *data, int argc, object self_73914, object r_73368) ; -static void __lambda_511(void *data, int argc, object self_73915) ; -static void __lambda_510(void *data, int argc, object self_73916) ; -static void __lambda_509(void *data, int argc, object self_73917) ; -static void __lambda_508(void *data, int argc, closure _,object k_73371, object fp_73162, object ptbl_73161) ; -static void __lambda_507(void *data, int argc, object self_73918, object c_73163) ; -static void __lambda_506(void *data, int argc, object self_73919, object r_73373) ; -static void __lambda_505(void *data, int argc, object self_73920) ; -static void __lambda_504(void *data, int argc, object self_73921) ; -static void __lambda_503(void *data, int argc, closure _,object k_73376, object fp_73165, object ptbl_73164) ; -static void __lambda_502(void *data, int argc, object self_73922, object r_73377) ; -static void __lambda_501(void *data, int argc, closure _,object k_73380, object a_73166) ; -static void __lambda_500(void *data, int argc, object self_73923, object r_73381) ; -static void __lambda_499(void *data, int argc, object self_73924) ; -static void __lambda_498(void *data, int argc, object self_73925, object r_73383) ; -static void __lambda_497(void *data, int argc, object self_73926) ; -static void __lambda_496(void *data, int argc, object self_73927, object r_73382) ; -static void __lambda_495(void *data, int argc, closure _,object k_73386, object a_73167) ; -static void __lambda_494(void *data, int argc, object self_73928, object r_73403) ; -static void __lambda_493(void *data, int argc, object self_73929, object tmp_73168) ; -static void __lambda_492(void *data, int argc, object self_73930, object tmp_73169) ; -static void __lambda_491(void *data, int argc, object self_73931, object r_73396) ; -static void __lambda_490(void *data, int argc, object self_73932, object r_73389) ; -static void __lambda_489(void *data, int argc, object self_73933, object r_73395) ; -static void __lambda_488(void *data, int argc, object self_73934, object tmp_73170) ; -static void __lambda_487(void *data, int argc, object self_73935, object r_73390) ; -static void __lambda_486(void *data, int argc, object self_73936, object r_73391) ; -static void __lambda_485(void *data, int argc, object self_73937, object k_73393) ; -static void __lambda_484(void *data, int argc, object self_73938, object r_73394) ; -static void __lambda_483(void *data, int argc, object self_73939, object k_73397) ; -static void __lambda_482(void *data, int argc, object self_73940, object r_73402) ; -static void __lambda_481(void *data, int argc, object self_73941, object r_73398) ; -static void __lambda_480(void *data, int argc, object self_73942, object r_73401) ; -static void __lambda_479(void *data, int argc, object self_73943, object r_73399) ; -static void __lambda_478(void *data, int argc, object self_73944, object r_73400) ; -static void __lambda_477(void *data, int argc, closure _,object k_73406, object c_73171) ; -static void __lambda_476(void *data, int argc, object self_73945, object tmp_73172) ; -static void __lambda_475(void *data, int argc, closure _,object k_73410, object fp_73175, object buf_73174, object ptbl_73173) ; -static void __lambda_474(void *data, int argc, object self_73946, object c_73176) ; -static void __lambda_473(void *data, int argc, object self_73947, object r_73412) ; -static void __lambda_472(void *data, int argc, object self_73948, object tmp_73177) ; -static void __lambda_471(void *data, int argc, object self_73949, object r_73415) ; -static void __lambda_470(void *data, int argc, object self_73950, object r_73416) ; -static void __lambda_469(void *data, int argc, object self_73951) ; -static void __lambda_468(void *data, int argc, object self_73952, object r_73421) ; -static void __lambda_467(void *data, int argc, object self_73953, object r_73420) ; -static void __lambda_466(void *data, int argc, object self_73954, object r_73417) ; -static void __lambda_465(void *data, int argc, object self_73955, object r_73418) ; -static void __lambda_464(void *data, int argc, object self_73956, object r_73419) ; -static void __lambda_463(void *data, int argc, object self_73957) ; -static void __lambda_462(void *data, int argc, object self_73958) ; -static void __lambda_461(void *data, int argc, object self_73959, object k_73423) ; -static void __lambda_460(void *data, int argc, object self_73960) ; -static void __lambda_459(void *data, int argc, object self_73961, object r_73413) ; -static void __lambda_458(void *data, int argc, object self_73962, object r_73414) ; -static void __lambda_457(void *data, int argc, closure _,object k_73426, object fp_73180, object buf_73179, object ptbl_73178) ; -static void __lambda_456(void *data, int argc, object self_73963, object c_73181) ; -static void __lambda_455(void *data, int argc, object self_73964, object r_73428) ; -static void __lambda_454(void *data, int argc, object self_73965, object r_73431) ; -static void __lambda_453(void *data, int argc, object self_73966, object r_73433) ; -static void __lambda_452(void *data, int argc, object self_73967) ; -static void __lambda_451(void *data, int argc, object self_73968, object r_73435) ; -static void __lambda_450(void *data, int argc, object self_73969) ; -static void __lambda_449(void *data, int argc, object self_73970, object r_73434) ; -static void __lambda_448(void *data, int argc, object self_73971) ; -static void __lambda_447(void *data, int argc, object self_73972, object r_73432) ; -static void __lambda_446(void *data, int argc, object self_73973) ; -static void __lambda_445(void *data, int argc, object self_73974, object r_73429) ; -static void __lambda_444(void *data, int argc, object self_73975, object r_73430) ; -static void __lambda_443(void *data, int argc, closure _,object k_73438, object fp_73183, object ptbl_73182) ; -static void __lambda_442(void *data, int argc, object self_73976, object done_73187, object loop_73186) ; -static void __lambda_441(void *data, int argc, object self_73977, object done_73187) ; -static void __lambda_440(void *data, int argc, object self_73978, object loop_73186) ; -static void __lambda_439(void *data, int argc, object self_73979) ; -static void __lambda_438(void *data, int argc, object self_73980, object k_73457, object raw_91buf_73194) ; -static void __lambda_437(void *data, int argc, object self_73981, object buf_73195) ; -static void __lambda_436(void *data, int argc, object self_73982, object r_73494) ; -static void __lambda_435(void *data, int argc, object self_73983, object r_73459) ; -static void __lambda_434(void *data, int argc, object self_73984, object r_73493) ; -static void __lambda_433(void *data, int argc, object self_73985, object r_73462) ; -static void __lambda_432(void *data, int argc, object self_73986, object r_73492) ; -static void __lambda_431(void *data, int argc, object self_73987, object r_73463) ; -static void __lambda_430(void *data, int argc, object self_73988, object r_73491) ; -static void __lambda_429(void *data, int argc, object self_73989, object r_73464) ; -static void __lambda_428(void *data, int argc, object self_73990, object r_73490) ; -static void __lambda_427(void *data, int argc, object self_73991, object r_73465) ; -static void __lambda_426(void *data, int argc, object self_73992, object r_73489) ; -static void __lambda_425(void *data, int argc, object self_73993, object r_73466) ; -static void __lambda_424(void *data, int argc, object self_73994, object r_73488) ; -static void __lambda_423(void *data, int argc, object self_73995, object r_73467) ; -static void __lambda_422(void *data, int argc, object self_73996, object r_73487) ; -static void __lambda_421(void *data, int argc, object self_73997, object r_73468) ; -static void __lambda_420(void *data, int argc, object self_73998, object r_73486) ; -static void __lambda_419(void *data, int argc, object self_73999, object r_73469) ; -static void __lambda_418(void *data, int argc, object self_731000, object r_73485) ; -static void __lambda_417(void *data, int argc, object self_731001, object r_73470) ; -static void __lambda_416(void *data, int argc, object self_731002, object r_73484) ; -static void __lambda_415(void *data, int argc, object self_731003, object r_73471) ; -static void __lambda_414(void *data, int argc, object self_731004, object r_73472) ; -static void __lambda_413(void *data, int argc, object self_731005) ; -static void __lambda_412(void *data, int argc, object self_731006, object r_73479) ; -static void __lambda_411(void *data, int argc, object self_731007, object r_73476) ; -static void __lambda_410(void *data, int argc, object self_731008, object r_73477) ; -static void __lambda_409(void *data, int argc, object self_731009, object r_73478) ; -static void __lambda_408(void *data, int argc, object self_731010) ; -static void __lambda_407(void *data, int argc, object self_731011, object r_73475) ; -static void __lambda_406(void *data, int argc, object self_731012, object r_73474) ; -static void __lambda_405(void *data, int argc, object self_731013, object r_73473) ; -static void __lambda_404(void *data, int argc, object self_731014, object k_73480) ; -static void __lambda_403(void *data, int argc, object self_731015, object r_73483) ; -static void __lambda_402(void *data, int argc, object self_731016, object r_73481) ; -static void __lambda_401(void *data, int argc, object self_731017, object r_73482) ; -static void __lambda_400(void *data, int argc, object self_731018) ; -static void __lambda_399(void *data, int argc, object self_731019) ; -static void __lambda_398(void *data, int argc, object self_731020) ; -static void __lambda_397(void *data, int argc, object self_731021) ; -static void __lambda_396(void *data, int argc, object self_731022) ; -static void __lambda_395(void *data, int argc, object self_731023) ; -static void __lambda_394(void *data, int argc, object self_731024) ; -static void __lambda_393(void *data, int argc, object self_731025) ; -static void __lambda_392(void *data, int argc, object self_731026) ; -static void __lambda_391(void *data, int argc, object self_731027) ; -static void __lambda_390(void *data, int argc, object self_731028) ; -static void __lambda_389(void *data, int argc, object self_731029, object r_73460) ; -static void __lambda_388(void *data, int argc, object self_731030, object r_73461) ; -static void __lambda_387(void *data, int argc, object self_731031, object r_73456) ; -static void __lambda_386(void *data, int argc, object self_731032, object r_73439) ; -static void __lambda_385(void *data, int argc, object self_731033, object k_73443, object buf_73190) ; -static void __lambda_384(void *data, int argc, object self_731034, object c_73191) ; -static void __lambda_383(void *data, int argc, object self_731035, object tmp_73192) ; -static void __lambda_382(void *data, int argc, object self_731036, object r_73445) ; -static void __lambda_381(void *data, int argc, object self_731037) ; -static void __lambda_380(void *data, int argc, object self_731038, object r_73447) ; -static void __lambda_379(void *data, int argc, object self_731039, object r_73446) ; -static void __lambda_378(void *data, int argc, object self_731040) ; -static void __lambda_377(void *data, int argc, object self_731041, object k_73449) ; -static void __lambda_376(void *data, int argc, object self_731042, object tmp_73193) ; -static void __lambda_375(void *data, int argc, object self_731043, object r_73452) ; -static void __lambda_374(void *data, int argc, object self_731044, object r_73451) ; -static void __lambda_373(void *data, int argc, object self_731045, object k_73453) ; -static void __lambda_372(void *data, int argc, object self_731046, object r_73454) ; -static void __lambda_371(void *data, int argc, object self_731047, object r_73455) ; -static void __lambda_370(void *data, int argc, object self_731048, object r_73442) ; -static void __lambda_369(void *data, int argc, object self_731049, object r_73440) ; -static void __lambda_368(void *data, int argc, object self_731050, object r_73441) ; -static void __lambda_367(void *data, int argc, closure _,object k_73497, object fp_73202, object tok_73201, object toks_73200, object all_127_73199, object comment_127_73198, object parens_73197, object ptbl_73196) ; -static void __lambda_366(void *data, int argc, object self_731051) ; -static void __lambda_365(void *data, int argc, object self_731052, object r_73736) ; -static void __lambda_364(void *data, int argc, object self_731053, object r_73735) ; -static void __lambda_363(void *data, int argc, object self_731054, object r_73498) ; -static void __lambda_362(void *data, int argc, object self_731055, object c_73204) ; -static void __lambda_361(void *data, int argc, object self_731056, object r_73500) ; -static void __lambda_360(void *data, int argc, object self_731057, object r_73517) ; -static void __lambda_359(void *data, int argc, object self_731058, object r_73526) ; -static void __lambda_358(void *data, int argc, object self_731059, object r_73527) ; -static void __lambda_357(void *data, int argc, object self_731060, object r_73543) ; -static void __lambda_356(void *data, int argc, object self_731061, object r_73559) ; -static void __lambda_355(void *data, int argc, object self_731062, object r_73589) ; -static void __lambda_354(void *data, int argc, object self_731063, object r_73609) ; -static void __lambda_353(void *data, int argc, object self_731064, object r_73620) ; -static void __lambda_352(void *data, int argc, object self_731065, object r_73633) ; -static void __lambda_351(void *data, int argc, object self_731066, object r_73731) ; -static void __lambda_350(void *data, int argc, object self_731067) ; -static void __lambda_349(void *data, int argc, object self_731068, object r_73732) ; -static void __lambda_348(void *data, int argc, object self_731069) ; -static void __lambda_347(void *data, int argc, object self_731070) ; -static void __lambda_346(void *data, int argc, object self_731071, object r_73634) ; -static void __lambda_345(void *data, int argc, object self_731072, object r_73730) ; -static void __lambda_344(void *data, int argc, object self_731073, object next_91c_73205) ; -static void __lambda_343(void *data, int argc, object self_731074, object next_91c_73205) ; -static void __lambda_342(void *data, int argc, object self_731075, object r_73729) ; -static void __lambda_341(void *data, int argc, object self_731076, object r_73728) ; -static void __lambda_340(void *data, int argc, object self_731077, object r_73636) ; -static void __lambda_339(void *data, int argc, object self_731078, object r_73637) ; -static void __lambda_338(void *data, int argc, object self_731079, object r_73640) ; -static void __lambda_337(void *data, int argc, object self_731080, object r_73643) ; -static void __lambda_336(void *data, int argc, object self_731081, object r_73646) ; -static void __lambda_335(void *data, int argc, object self_731082, object r_73650) ; -static void __lambda_334(void *data, int argc, object self_731083, object r_73654) ; -static void __lambda_333(void *data, int argc, object self_731084, object r_73658) ; -static void __lambda_332(void *data, int argc, object self_731085, object r_73662) ; -static void __lambda_331(void *data, int argc, object self_731086, object r_73666) ; -static void __lambda_330(void *data, int argc, object self_731087, object r_73696) ; -static void __lambda_329(void *data, int argc, object self_731088, object r_73712) ; -static void __lambda_328(void *data, int argc, object self_731089, object r_73716) ; -static void __lambda_327(void *data, int argc, object self_731090) ; -static void __lambda_326(void *data, int argc, object self_731091, object r_73726) ; -static void __lambda_325(void *data, int argc, object self_731092, object r_73727) ; -static void __lambda_324(void *data, int argc, object self_731093) ; -static void __lambda_323(void *data, int argc, object self_731094, object r_73724) ; -static void __lambda_322(void *data, int argc, object self_731095, object r_73725) ; -static void __lambda_321(void *data, int argc, object self_731096, object r_73717) ; -static void __lambda_320(void *data, int argc, object self_731097, object r_73718) ; -static void __lambda_319(void *data, int argc, object self_731098) ; -static void __lambda_318(void *data, int argc, object self_731099) ; -static void __lambda_317(void *data, int argc, object self_731100, object r_73719) ; -static void __lambda_316(void *data, int argc, object self_731101, object r_73721) ; -static void __lambda_315(void *data, int argc, object self_731102, object r_73720) ; -static void __lambda_314(void *data, int argc, object self_731103, object k_73722) ; -static void __lambda_313(void *data, int argc, object self_731104, object r_73723) ; -static void __lambda_312(void *data, int argc, object self_731105) ; -static void __lambda_311(void *data, int argc, object self_731106, object r_73715) ; -static void __lambda_310(void *data, int argc, object self_731107, object new_91toks_73206) ; -static void __lambda_309(void *data, int argc, object self_731108, object r_73714) ; -static void __lambda_308(void *data, int argc, object self_731109) ; -static void __lambda_307(void *data, int argc, object self_731110, object r_73709) ; -static void __lambda_306(void *data, int argc, object self_731111, object r_73710) ; -static void __lambda_305(void *data, int argc, object self_731112, object r_73711) ; -static void __lambda_304(void *data, int argc, object self_731113, object r_73697) ; -static void __lambda_303(void *data, int argc, object self_731114, object r_73698) ; -static void __lambda_302(void *data, int argc, object self_731115, object sub_73208, object toks_85_73207) ; -static void __lambda_301(void *data, int argc, object self_731116, object new_91toks_73209) ; -static void __lambda_300(void *data, int argc, object self_731117, object new_91toks_73209) ; -static void __lambda_299(void *data, int argc, object self_731118, object r_73702) ; -static void __lambda_298(void *data, int argc, object self_731119, object r_73701) ; -static void __lambda_297(void *data, int argc, object self_731120, object r_73699) ; -static void __lambda_296(void *data, int argc, object self_731121, object r_73700) ; -static void __lambda_295(void *data, int argc, object self_731122, object k_73703) ; -static void __lambda_294(void *data, int argc, object self_731123, object r_73704) ; -static void __lambda_293(void *data, int argc, object self_731124, object r_73705) ; -static void __lambda_292(void *data, int argc, object self_731125, object r_73706) ; -static void __lambda_291(void *data, int argc, object self_731126, object k_73707) ; -static void __lambda_290(void *data, int argc, object self_731127, object r_73708) ; -static void __lambda_289(void *data, int argc, object self_731128) ; -static void __lambda_288(void *data, int argc, object self_731129, object r_73695) ; -static void __lambda_287(void *data, int argc, object self_731130, object r_73667) ; -static void __lambda_286(void *data, int argc, object self_731131, object r_73668) ; -static void __lambda_285(void *data, int argc, object self_731132, object r_73690) ; -static void __lambda_284(void *data, int argc, object self_731133, object r_73669) ; -static void __lambda_283(void *data, int argc, object self_731134, object r_73670) ; -static void __lambda_282(void *data, int argc, object self_731135, object r_73683) ; -static void __lambda_281(void *data, int argc, object self_731136, object r_73684) ; -static void __lambda_280(void *data, int argc, object self_731137, object r_73685) ; -static void __lambda_279(void *data, int argc, object self_731138, object r_73671) ; -static void __lambda_278(void *data, int argc, object self_731139, object r_73672) ; -static void __lambda_277(void *data, int argc, object self_731140, object sub_73211, object toks_85_73210) ; -static void __lambda_276(void *data, int argc, object self_731141, object new_91toks_73212) ; -static void __lambda_275(void *data, int argc, object self_731142, object new_91toks_73212) ; -static void __lambda_274(void *data, int argc, object self_731143, object r_73676) ; -static void __lambda_273(void *data, int argc, object self_731144, object r_73675) ; -static void __lambda_272(void *data, int argc, object self_731145, object r_73673) ; -static void __lambda_271(void *data, int argc, object self_731146, object r_73674) ; -static void __lambda_270(void *data, int argc, object self_731147, object k_73677) ; -static void __lambda_269(void *data, int argc, object self_731148, object r_73678) ; -static void __lambda_268(void *data, int argc, object self_731149, object r_73679) ; -static void __lambda_267(void *data, int argc, object self_731150, object r_73680) ; -static void __lambda_266(void *data, int argc, object self_731151, object k_73681) ; -static void __lambda_265(void *data, int argc, object self_731152, object r_73682) ; -static void __lambda_264(void *data, int argc, object self_731153, object k_73686) ; -static void __lambda_263(void *data, int argc, object self_731154, object r_73687) ; -static void __lambda_262(void *data, int argc, object self_731155, object r_73688) ; -static void __lambda_261(void *data, int argc, object self_731156, object r_73689) ; -static void __lambda_260(void *data, int argc, object self_731157, object k_73691) ; -static void __lambda_259(void *data, int argc, object self_731158, object r_73692) ; -static void __lambda_258(void *data, int argc, object self_731159, object r_73693) ; -static void __lambda_257(void *data, int argc, object self_731160, object r_73694) ; -static void __lambda_256(void *data, int argc, object self_731161) ; -static void __lambda_255(void *data, int argc, object self_731162, object k_73664, object num_73213) ; -static void __lambda_254(void *data, int argc, object self_731163, object r_73665) ; -static void __lambda_253(void *data, int argc, object self_731164, object r_73663) ; -static void __lambda_252(void *data, int argc, object self_731165) ; -static void __lambda_251(void *data, int argc, object self_731166, object k_73660, object num_73214) ; -static void __lambda_250(void *data, int argc, object self_731167, object r_73661) ; -static void __lambda_249(void *data, int argc, object self_731168, object r_73659) ; -static void __lambda_248(void *data, int argc, object self_731169) ; -static void __lambda_247(void *data, int argc, object self_731170, object k_73656, object num_73215) ; -static void __lambda_246(void *data, int argc, object self_731171, object r_73657) ; -static void __lambda_245(void *data, int argc, object self_731172, object r_73655) ; -static void __lambda_244(void *data, int argc, object self_731173) ; -static void __lambda_243(void *data, int argc, object self_731174, object k_73652, object num_73216) ; -static void __lambda_242(void *data, int argc, object self_731175, object r_73653) ; -static void __lambda_241(void *data, int argc, object self_731176, object r_73651) ; -static void __lambda_240(void *data, int argc, object self_731177) ; -static void __lambda_239(void *data, int argc, object self_731178, object k_73648, object num_73217) ; -static void __lambda_238(void *data, int argc, object self_731179, object r_73649) ; -static void __lambda_237(void *data, int argc, object self_731180, object r_73647) ; -static void __lambda_236(void *data, int argc, object self_731181) ; -static void __lambda_235(void *data, int argc, object self_731182, object r_73644) ; -static void __lambda_234(void *data, int argc, object self_731183, object r_73645) ; -static void __lambda_233(void *data, int argc, object self_731184) ; -static void __lambda_232(void *data, int argc, object self_731185, object r_73641) ; -static void __lambda_231(void *data, int argc, object self_731186, object r_73642) ; -static void __lambda_230(void *data, int argc, object self_731187) ; -static void __lambda_229(void *data, int argc, object self_731188, object r_73638) ; -static void __lambda_228(void *data, int argc, object self_731189, object r_73639) ; -static void __lambda_227(void *data, int argc, object self_731190) ; -static void __lambda_226(void *data, int argc, object self_731191, object r_73621) ; -static void __lambda_225(void *data, int argc, object self_731192) ; -static void __lambda_224(void *data, int argc, object self_731193, object r_73630) ; -static void __lambda_223(void *data, int argc, object self_731194, object r_73625) ; -static void __lambda_222(void *data, int argc, object self_731195, object r_73626) ; -static void __lambda_221(void *data, int argc, object self_731196, object str_73219, object toks_85_73218) ; -static void __lambda_220(void *data, int argc, object self_731197, object new_91toks_73220) ; -static void __lambda_219(void *data, int argc, object self_731198, object new_91toks_73220) ; -static void __lambda_218(void *data, int argc, object self_731199, object r_73629) ; -static void __lambda_217(void *data, int argc, object self_731200, object r_73627) ; -static void __lambda_216(void *data, int argc, object self_731201, object r_73628) ; -static void __lambda_215(void *data, int argc, object self_731202) ; -static void __lambda_214(void *data, int argc, object self_731203, object r_73622) ; -static void __lambda_213(void *data, int argc, object self_731204, object r_73624) ; -static void __lambda_212(void *data, int argc, object self_731205, object r_73623) ; -static void __lambda_211(void *data, int argc, object self_731206, object k_73631) ; -static void __lambda_210(void *data, int argc, object self_731207, object r_73632) ; -static void __lambda_209(void *data, int argc, object self_731208) ; -static void __lambda_208(void *data, int argc, object self_731209, object r_73610) ; -static void __lambda_207(void *data, int argc, object self_731210, object r_73614) ; -static void __lambda_206(void *data, int argc, object self_731211) ; -static void __lambda_205(void *data, int argc, object self_731212, object r_73617) ; -static void __lambda_204(void *data, int argc, object self_731213) ; -static void __lambda_203(void *data, int argc, object self_731214, object r_73615) ; -static void __lambda_202(void *data, int argc, object self_731215, object r_73616) ; -static void __lambda_201(void *data, int argc, object self_731216) ; -static void __lambda_200(void *data, int argc, object self_731217, object r_73611) ; -static void __lambda_199(void *data, int argc, object self_731218, object r_73613) ; -static void __lambda_198(void *data, int argc, object self_731219, object r_73612) ; -static void __lambda_197(void *data, int argc, object self_731220, object k_73618) ; -static void __lambda_196(void *data, int argc, object self_731221, object r_73619) ; -static void __lambda_195(void *data, int argc, object self_731222) ; -static void __lambda_194(void *data, int argc, object self_731223, object r_73590) ; -static void __lambda_193(void *data, int argc, object self_731224) ; -static void __lambda_192(void *data, int argc, object self_731225, object r_73604) ; -static void __lambda_191(void *data, int argc, object self_731226, object r_73605) ; -static void __lambda_190(void *data, int argc, object self_731227, object r_73606) ; -static void __lambda_189(void *data, int argc, object self_731228, object r_73594) ; -static void __lambda_188(void *data, int argc, object self_731229, object r_73595) ; -static void __lambda_187(void *data, int argc, object self_731230, object sub_73222, object toks_85_73221) ; -static void __lambda_186(void *data, int argc, object self_731231, object new_91toks_73223) ; -static void __lambda_185(void *data, int argc, object self_731232, object new_91toks_73223) ; -static void __lambda_184(void *data, int argc, object self_731233, object r_73599) ; -static void __lambda_183(void *data, int argc, object self_731234, object r_73598) ; -static void __lambda_182(void *data, int argc, object self_731235, object r_73596) ; -static void __lambda_181(void *data, int argc, object self_731236, object r_73597) ; -static void __lambda_180(void *data, int argc, object self_731237, object k_73600) ; -static void __lambda_179(void *data, int argc, object self_731238, object r_73601) ; -static void __lambda_178(void *data, int argc, object self_731239, object k_73602) ; -static void __lambda_177(void *data, int argc, object self_731240, object r_73603) ; -static void __lambda_176(void *data, int argc, object self_731241) ; -static void __lambda_175(void *data, int argc, object self_731242, object r_73591) ; -static void __lambda_174(void *data, int argc, object self_731243, object r_73593) ; -static void __lambda_173(void *data, int argc, object self_731244, object r_73592) ; -static void __lambda_172(void *data, int argc, object self_731245, object k_73607) ; -static void __lambda_171(void *data, int argc, object self_731246, object r_73608) ; -static void __lambda_170(void *data, int argc, object self_731247) ; -static void __lambda_169(void *data, int argc, object self_731248, object r_73560) ; -static void __lambda_168(void *data, int argc, object self_731249) ; -static void __lambda_167(void *data, int argc, object self_731250, object sub_73227, object next_91c_73226, object unquote_91sym_73225, object new_91toks_73224) ; -static void __lambda_166(void *data, int argc, object self_731251, object sub_73227) ; -static void __lambda_165(void *data, int argc, object self_731252, object next_91c_73226) ; -static void __lambda_164(void *data, int argc, object self_731253, object unquote_91sym_73225) ; -static void __lambda_163(void *data, int argc, object self_731254, object new_91toks_73224) ; -static void __lambda_162(void *data, int argc, object self_731255, object r_73564) ; -static void __lambda_161(void *data, int argc, object self_731256, object r_73586) ; -static void __lambda_160(void *data, int argc, object self_731257, object r_73565) ; -static void __lambda_159(void *data, int argc, object self_731258, object r_73583) ; -static void __lambda_158(void *data, int argc, object self_731259, object r_73566) ; -static void __lambda_157(void *data, int argc, object self_731260, object r_73567) ; -static void __lambda_156(void *data, int argc, object self_731261, object r_73568) ; -static void __lambda_155(void *data, int argc, object self_731262, object r_73576) ; -static void __lambda_154(void *data, int argc, object self_731263, object r_73577) ; -static void __lambda_153(void *data, int argc, object self_731264, object r_73575) ; -static void __lambda_152(void *data, int argc, object self_731265, object r_73569) ; -static void __lambda_151(void *data, int argc, object self_731266, object r_73573) ; -static void __lambda_150(void *data, int argc, object self_731267, object r_73574) ; -static void __lambda_149(void *data, int argc, object self_731268, object r_73572) ; -static void __lambda_148(void *data, int argc, object self_731269, object r_73570) ; -static void __lambda_147(void *data, int argc, object self_731270, object r_73571) ; -static void __lambda_146(void *data, int argc, object self_731271, object k_73578) ; -static void __lambda_145(void *data, int argc, object self_731272, object r_73579) ; -static void __lambda_144(void *data, int argc, object self_731273, object r_73582) ; -static void __lambda_143(void *data, int argc, object self_731274) ; -static void __lambda_142(void *data, int argc, object self_731275) ; -static void __lambda_141(void *data, int argc, object self_731276) ; -static void __lambda_140(void *data, int argc, object self_731277, object r_73580) ; -static void __lambda_139(void *data, int argc, object self_731278, object r_73581) ; -static void __lambda_138(void *data, int argc, object self_731279, object k_73584) ; -static void __lambda_137(void *data, int argc, object self_731280, object r_73585) ; -static void __lambda_136(void *data, int argc, object self_731281) ; -static void __lambda_135(void *data, int argc, object self_731282, object r_73561) ; -static void __lambda_134(void *data, int argc, object self_731283, object r_73563) ; -static void __lambda_133(void *data, int argc, object self_731284, object r_73562) ; -static void __lambda_132(void *data, int argc, object self_731285, object k_73587) ; -static void __lambda_131(void *data, int argc, object self_731286, object r_73588) ; -static void __lambda_130(void *data, int argc, object self_731287) ; -static void __lambda_129(void *data, int argc, object self_731288, object r_73544) ; -static void __lambda_128(void *data, int argc, object self_731289) ; -static void __lambda_127(void *data, int argc, object self_731290, object r_73555) ; -static void __lambda_126(void *data, int argc, object self_731291, object r_73556) ; -static void __lambda_125(void *data, int argc, object self_731292, object sub_73228) ; -static void __lambda_124(void *data, int argc, object self_731293, object new_91toks_73229) ; -static void __lambda_123(void *data, int argc, object self_731294, object new_91toks_73229) ; -static void __lambda_122(void *data, int argc, object self_731295, object r_73554) ; -static void __lambda_121(void *data, int argc, object self_731296, object r_73552) ; -static void __lambda_120(void *data, int argc, object self_731297, object r_73553) ; -static void __lambda_119(void *data, int argc, object self_731298, object r_73551) ; -static void __lambda_118(void *data, int argc, object self_731299, object r_73549) ; -static void __lambda_117(void *data, int argc, object self_731300, object r_73550) ; -static void __lambda_116(void *data, int argc, object self_731301) ; -static void __lambda_115(void *data, int argc, object self_731302, object r_73545) ; -static void __lambda_114(void *data, int argc, object self_731303, object r_73547) ; -static void __lambda_113(void *data, int argc, object self_731304, object r_73546) ; -static void __lambda_112(void *data, int argc, object self_731305, object k_73557) ; -static void __lambda_111(void *data, int argc, object self_731306, object r_73558) ; -static void __lambda_110(void *data, int argc, object self_731307) ; -static void __lambda_109(void *data, int argc, object self_731308, object r_73528) ; -static void __lambda_108(void *data, int argc, object self_731309) ; -static void __lambda_107(void *data, int argc, object self_731310, object r_73539) ; -static void __lambda_106(void *data, int argc, object self_731311, object r_73540) ; -static void __lambda_105(void *data, int argc, object self_731312, object sub_73230) ; -static void __lambda_104(void *data, int argc, object self_731313, object new_91toks_73231) ; -static void __lambda_103(void *data, int argc, object self_731314, object new_91toks_73231) ; -static void __lambda_102(void *data, int argc, object self_731315, object r_73538) ; -static void __lambda_101(void *data, int argc, object self_731316, object r_73536) ; -static void __lambda_100(void *data, int argc, object self_731317, object r_73537) ; -static void __lambda_99(void *data, int argc, object self_731318, object r_73535) ; -static void __lambda_98(void *data, int argc, object self_731319, object r_73533) ; -static void __lambda_97(void *data, int argc, object self_731320, object r_73534) ; -static void __lambda_96(void *data, int argc, object self_731321) ; -static void __lambda_95(void *data, int argc, object self_731322, object r_73529) ; -static void __lambda_94(void *data, int argc, object self_731323, object r_73531) ; -static void __lambda_93(void *data, int argc, object self_731324, object r_73530) ; -static void __lambda_92(void *data, int argc, object self_731325, object k_73541) ; -static void __lambda_91(void *data, int argc, object self_731326, object r_73542) ; -static void __lambda_90(void *data, int argc, object self_731327) ; -static void __lambda_89(void *data, int argc, object self_731328) ; -static void __lambda_88(void *data, int argc, object self_731329, object r_73518) ; -static void __lambda_87(void *data, int argc, object self_731330, object r_73519) ; -static void __lambda_86(void *data, int argc, object self_731331, object k_73520) ; -static void __lambda_85(void *data, int argc, object self_731332, object r_73521) ; -static void __lambda_84(void *data, int argc, object self_731333, object k_73522) ; -static void __lambda_83(void *data, int argc, object self_731334, object r_73523) ; -static void __lambda_82(void *data, int argc, object self_731335, object r_73525) ; -static void __lambda_81(void *data, int argc, object self_731336, object r_73524) ; -static void __lambda_80(void *data, int argc, object self_731337) ; -static void __lambda_79(void *data, int argc, object self_731338, object r_73510) ; -static void __lambda_78(void *data, int argc, object self_731339, object r_73516) ; -static void __lambda_77(void *data, int argc, object self_731340) ; -static void __lambda_76(void *data, int argc, object self_731341, object r_73515) ; -static void __lambda_75(void *data, int argc, object self_731342, object r_73514) ; -static void __lambda_74(void *data, int argc, object self_731343, object r_73511) ; -static void __lambda_73(void *data, int argc, object self_731344, object r_73512) ; -static void __lambda_72(void *data, int argc, object self_731345, object r_73513) ; -static void __lambda_71(void *data, int argc, object self_731346) ; -static void __lambda_70(void *data, int argc, object self_731347, object r_73501) ; -static void __lambda_69(void *data, int argc, object self_731348, object last_73232) ; -static void __lambda_68(void *data, int argc, object self_731349, object r_73505) ; -static void __lambda_67(void *data, int argc, object self_731350, object r_73504) ; -static void __lambda_66(void *data, int argc, object self_731351, object r_73502) ; -static void __lambda_65(void *data, int argc, object self_731352, object k_73506) ; -static void __lambda_64(void *data, int argc, object self_731353, object r_73507) ; -static void __lambda_63(void *data, int argc, object self_731354, object r_73508) ; -static void __lambda_62(void *data, int argc, object self_731355, object r_73509) ; -static void __lambda_61(void *data, int argc, object self_731356, object k_73733) ; -static void __lambda_60(void *data, int argc, object self_731357, object r_73734) ; -static void __lambda_59(void *data, int argc, closure _,object k_73739, object fp_73240, object tok_73239, object toks_73238, object all_127_73237, object comment_127_73236, object parens_73235, object ptbl_73234, object curr_91char_73233) ; -static void __lambda_58(void *data, int argc, object self_731358, object r_73740) ; -static void __lambda_57(void *data, int argc, object self_731359) ; -static void __lambda_56(void *data, int argc, object self_731360, object r_73745) ; -static void __lambda_55(void *data, int argc, object self_731361, object r_73747) ; -static void __lambda_54(void *data, int argc, object self_731362, object r_73746) ; -static void __lambda_53(void *data, int argc, object self_731363) ; -static void __lambda_52(void *data, int argc, object self_731364, object r_73742) ; -static void __lambda_51(void *data, int argc, object self_731365, object r_73744) ; -static void __lambda_50(void *data, int argc, object self_731366, object r_73743) ; -static void __lambda_49(void *data, int argc, object self_731367) ; -static void __lambda_48(void *data, int argc, object self_731368, object r_73741) ; -static void __lambda_47(void *data, int argc, closure _,object k_73750, object msg_73243, object lnum_73242, object cnum_73241) ; -static void __lambda_46(void *data, int argc, object self_731369, object r_73752) ; -static void __lambda_45(void *data, int argc, object self_731370, object r_73753) ; -static void __lambda_44(void *data, int argc, object self_731371, object r_73751) ; -static void __lambda_43(void *data, int argc, closure _,object k_73756, object lst_73244) ; -static void __lambda_42(void *data, int argc, object self_731372, object r_73757) ; -static void __lambda_41(void *data, int argc, object self_731373, object r_73762) ; -static void __lambda_40(void *data, int argc, object self_731374, object r_73763) ; -static void __lambda_39(void *data, int argc, object self_731375, object r_73758) ; -static void __lambda_38(void *data, int argc, object self_731376) ; -static void __lambda_37(void *data, int argc, object self_731377, object r_73759) ; -static void __lambda_36(void *data, int argc, object self_731378, object r_73761) ; -static void __lambda_35(void *data, int argc, object self_731379, object r_73760) ; -static void __lambda_34(void *data, int argc, object self_731380) ; -static void __lambda_33(void *data, int argc, object self_731381) ; -static void __lambda_32(void *data, int argc, closure _,object k_73766, object lst_73245) ; -static void __lambda_31(void *data, int argc, object self_731382, object r_73771) ; -static void __lambda_30(void *data, int argc, object self_731383, object r_73767) ; -static void __lambda_29(void *data, int argc, object self_731384, object r_73770) ; -static void __lambda_28(void *data, int argc, object self_731385, object r_73768) ; -static void __lambda_27(void *data, int argc, object self_731386, object r_73769) ; -static void __lambda_26(void *data, int argc, closure _,object k_73774, object lst_73246) ; -static void __lambda_25(void *data, int argc, object self_731387, object r_73775) ; -static void __lambda_24(void *data, int argc, closure _,object k_73778, object tok_73248, object toks_73247) ; -static void __lambda_23(void *data, int argc, object self_731388, object r_73779) ; -static void __lambda_22(void *data, int argc, object self_731389, object r_73780) ; -static void __lambda_21(void *data, int argc, closure _,object k_73783, object tok_73250, object toks_73249) ; -static void __lambda_20(void *data, int argc, closure _,object k_73786, object ptbl_73252, object cnum_73251) ; -static void __lambda_19(void *data, int argc, object self_731390, object r_73787) ; -static void __lambda_18(void *data, int argc, closure _,object k_73790, object ptbl_73253) ; -static void __lambda_17(void *data, int argc, closure _,object k_73793, object ptbl_73255, object lnum_73254) ; -static void __lambda_16(void *data, int argc, object self_731391, object r_73794) ; -static void __lambda_15(void *data, int argc, closure _,object k_73797, object ptbl_73256) ; -static void __lambda_14(void *data, int argc, closure _,object k_73800, object ptbl_73258, object buf_73257) ; -static void __lambda_13(void *data, int argc, object self_731392, object r_73801) ; -static void __lambda_12(void *data, int argc, closure _,object k_73804, object ptbl_73259) ; -static void __lambda_11(void *data, int argc, closure _,object k_73807, object ptbl_73260) ; -static void __lambda_10(void *data, int argc, object self_731393, object result_73261) ; -static void __lambda_9(void *data, int argc, object self_731394, object r_73809) ; -static void __lambda_8(void *data, int argc, closure _,object k_73812, object fp_73262) ; -static void __lambda_7(void *data, int argc, object self_731395, object r_73263) ; -static void __lambda_6(void *data, int argc, object self_731396, object r_73263) ; -static void __lambda_5(void *data, int argc, object self_731397) ; -static void __lambda_4(void *data, int argc, object self_731398, object r_73817) ; -static void __lambda_3(void *data, int argc, object self_731399, object r_73814) ; -static void __lambda_2(void *data, int argc, object self_731400, object r_73816) ; -static void __lambda_1(void *data, int argc, object self_731401, object r_73815) ; -static void __lambda_0(void *data, int argc, object self_731402) ; - -static void __lambda_613(void *data, int argc, closure _,object k_73266) { - Cyc_st_add(data, "scheme/read.sld:lib-init:schemeread"); - -closureN_type c_734296; -c_734296.hdr.mark = gc_color_red; - c_734296.hdr.grayed = 0; -c_734296.tag = closureN_tag; - c_734296.fn = (function_type)__lambda_612; -c_734296.num_args = 0; -c_734296.num_elements = 1; -c_734296.elements = (object *)alloca(sizeof(object) * 1); -c_734296.elements[0] = k_73266; - -return_closcall0(data,(closure)&c_734296);; -} - -static void __lambda_612(void *data, int argc, object self_73822) { - -closureN_type c_734298; -c_734298.hdr.mark = gc_color_red; - c_734298.hdr.grayed = 0; -c_734298.tag = closureN_tag; - c_734298.fn = (function_type)__lambda_611; -c_734298.num_args = 1; -c_734298.num_elements = 1; -c_734298.elements = (object *)alloca(sizeof(object) * 1); -c_734298.elements[0] = ((closureN)self_73822)->elements[0]; - -return_closcall1(data,(closure)&c_734298, global_set(__glo_read_scheme_read, __glo_cyc_91read_scheme_read));; -} - -static void __lambda_611(void *data, int argc, object self_73823, object r_73268) { - -closureN_type c_734300; -c_734300.hdr.mark = gc_color_red; - c_734300.hdr.grayed = 0; -c_734300.tag = closureN_tag; - c_734300.fn = (function_type)__lambda_610; -c_734300.num_args = 1; -c_734300.num_elements = 1; -c_734300.elements = (object *)alloca(sizeof(object) * 1); -c_734300.elements[0] = ((closureN)self_73823)->elements[0]; - -return_closcall1(data,(closure)&c_734300, NULL);; -} - -static void __lambda_610(void *data, int argc, object self_73824, object r_73269) { - return_closcall1(data, ((closureN)self_73824)->elements[0], global_set(__glo__85in_91port_91table_85_scheme_read, r_73269));; -} - -static void __lambda_609(void *data, int argc, closure _,object k_73272, object args_73116_raw, ...) { -load_varargs(args_73116, args_73116_raw, argc - 1); - Cyc_st_add(data, "scheme/read.sld:read-all"); - -closureN_type c_734233; -c_734233.hdr.mark = gc_color_red; - c_734233.hdr.grayed = 0; -c_734233.tag = closureN_tag; - c_734233.fn = (function_type)__lambda_608; -c_734233.num_args = 0; -c_734233.num_elements = 2; -c_734233.elements = (object *)alloca(sizeof(object) * 2); -c_734233.elements[0] = args_73116; -c_734233.elements[1] = k_73272; - -return_closcall0(data,(closure)&c_734233);; -} - -static void __lambda_608(void *data, int argc, object self_73825) { - -closureN_type c_734235; -c_734235.hdr.mark = gc_color_red; - c_734235.hdr.grayed = 0; -c_734235.tag = closureN_tag; - c_734235.fn = (function_type)__lambda_597; -c_734235.num_args = 0; -c_734235.num_elements = 1; -c_734235.elements = (object *)alloca(sizeof(object) * 1); -c_734235.elements[0] = ((closureN)self_73825)->elements[0]; - - -closureN_type c_734248; -c_734248.hdr.mark = gc_color_red; - c_734248.hdr.grayed = 0; -c_734248.tag = closureN_tag; - c_734248.fn = (function_type)__lambda_607; -c_734248.num_args = 1; -c_734248.num_elements = 1; -c_734248.elements = (object *)alloca(sizeof(object) * 1); -c_734248.elements[0] = ((closureN)self_73825)->elements[1]; - -return_closcall1(data,(closure)&c_734235, &c_734248);; -} - -static void __lambda_607(void *data, int argc, object self_73826, object fp_73118) { - -closureN_type c_734250; -c_734250.hdr.mark = gc_color_red; - c_734250.hdr.grayed = 0; -c_734250.tag = closureN_tag; - c_734250.fn = (function_type)__lambda_606; -c_734250.num_args = 1; -c_734250.num_elements = 2; -c_734250.elements = (object *)alloca(sizeof(object) * 2); -c_734250.elements[0] = fp_73118; -c_734250.elements[1] = ((closureN)self_73826)->elements[0]; - -return_closcall1(data,(closure)&c_734250, boolean_f);; -} - -static void __lambda_606(void *data, int argc, object self_73827, object loop_73119) { - -closureN_type c_734252; -c_734252.hdr.mark = gc_color_red; - c_734252.hdr.grayed = 0; -c_734252.tag = closureN_tag; - c_734252.fn = (function_type)__lambda_605; -c_734252.num_args = 1; -c_734252.num_elements = 2; -c_734252.elements = (object *)alloca(sizeof(object) * 2); -c_734252.elements[0] = ((closureN)self_73827)->elements[0]; -c_734252.elements[1] = ((closureN)self_73827)->elements[1]; - - -make_cell(c_734293,loop_73119); -return_closcall1(data,(closure)&c_734252, &c_734293);; -} - -static void __lambda_605(void *data, int argc, object self_73828, object loop_73119) { - -closureN_type c_734254; -c_734254.hdr.mark = gc_color_red; - c_734254.hdr.grayed = 0; -c_734254.tag = closureN_tag; - c_734254.fn = (function_type)__lambda_600; -c_734254.num_args = 1; -c_734254.num_elements = 3; -c_734254.elements = (object *)alloca(sizeof(object) * 3); -c_734254.elements[0] = ((closureN)self_73828)->elements[0]; -c_734254.elements[1] = ((closureN)self_73828)->elements[1]; -c_734254.elements[2] = loop_73119; - - -closureN_type c_734268; -c_734268.hdr.mark = gc_color_red; - c_734268.hdr.grayed = 0; -c_734268.tag = closureN_tag; - c_734268.fn = (function_type)__lambda_604; -c_734268.num_args = 2; -c_734268.num_elements = 1; -c_734268.elements = (object *)alloca(sizeof(object) * 1); -c_734268.elements[0] = loop_73119; - -return_closcall1(data,(closure)&c_734254, &c_734268);; -} - -static void __lambda_604(void *data, int argc, object self_73829, object k_73277, object fp_73121, object result_73120) { - -closureN_type c_734270; -c_734270.hdr.mark = gc_color_red; - c_734270.hdr.grayed = 0; -c_734270.tag = closureN_tag; - c_734270.fn = (function_type)__lambda_603; -c_734270.num_args = 1; -c_734270.num_elements = 4; -c_734270.elements = (object *)alloca(sizeof(object) * 4); -c_734270.elements[0] = fp_73121; -c_734270.elements[1] = k_73277; -c_734270.elements[2] = ((closureN)self_73829)->elements[0]; -c_734270.elements[3] = result_73120; - -return_closcall2(data, __glo_cyc_91read_scheme_read, &c_734270, fp_73121);; -} - -static void __lambda_603(void *data, int argc, object self_73830, object obj_73122) { - -closureN_type c_734272; -c_734272.hdr.mark = gc_color_red; - c_734272.hdr.grayed = 0; -c_734272.tag = closureN_tag; - c_734272.fn = (function_type)__lambda_602; -c_734272.num_args = 1; -c_734272.num_elements = 5; -c_734272.elements = (object *)alloca(sizeof(object) * 5); -c_734272.elements[0] = ((closureN)self_73830)->elements[0]; -c_734272.elements[1] = ((closureN)self_73830)->elements[1]; -c_734272.elements[2] = ((closureN)self_73830)->elements[2]; -c_734272.elements[3] = obj_73122; -c_734272.elements[4] = ((closureN)self_73830)->elements[3]; - -return_closcall1(data,(closure)&c_734272, Cyc_is_eof_object(obj_73122));; -} - -static void __lambda_602(void *data, int argc, object self_73831, object r_73279) { - if( (boolean_f != r_73279) ){ - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73831)->elements[1], ((closureN)self_73831)->elements[4]); -} else { - -closureN_type c_734277; -c_734277.hdr.mark = gc_color_red; - c_734277.hdr.grayed = 0; -c_734277.tag = closureN_tag; - c_734277.fn = (function_type)__lambda_601; -c_734277.num_args = 1; -c_734277.num_elements = 3; -c_734277.elements = (object *)alloca(sizeof(object) * 3); -c_734277.elements[0] = ((closureN)self_73831)->elements[0]; -c_734277.elements[1] = ((closureN)self_73831)->elements[1]; -c_734277.elements[2] = ((closureN)self_73831)->elements[2]; - - -make_pair(c_734286,((closureN)self_73831)->elements[3], ((closureN)self_73831)->elements[4]); -return_closcall1(data,(closure)&c_734277, &c_734286);} -; -} - -static void __lambda_601(void *data, int argc, object self_73832, object r_73280) { - return_closcall3(data, cell_get(((closureN)self_73832)->elements[2]), ((closureN)self_73832)->elements[1], ((closureN)self_73832)->elements[0], r_73280);; -} - -static void __lambda_600(void *data, int argc, object self_73833, object r_73276) { - -closureN_type c_734256; -c_734256.hdr.mark = gc_color_red; - c_734256.hdr.grayed = 0; -c_734256.tag = closureN_tag; - c_734256.fn = (function_type)__lambda_599; -c_734256.num_args = 1; -c_734256.num_elements = 3; -c_734256.elements = (object *)alloca(sizeof(object) * 3); -c_734256.elements[0] = ((closureN)self_73833)->elements[0]; -c_734256.elements[1] = ((closureN)self_73833)->elements[1]; -c_734256.elements[2] = ((closureN)self_73833)->elements[2]; - -return_closcall1(data,(closure)&c_734256, Cyc_set_car(data, ((closureN)self_73833)->elements[2], r_73276));; -} - -static void __lambda_599(void *data, int argc, object self_73834, object r_73274) { - -closureN_type c_734258; -c_734258.hdr.mark = gc_color_red; - c_734258.hdr.grayed = 0; -c_734258.tag = closureN_tag; - c_734258.fn = (function_type)__lambda_598; -c_734258.num_args = 1; -c_734258.num_elements = 3; -c_734258.elements = (object *)alloca(sizeof(object) * 3); -c_734258.elements[0] = ((closureN)self_73834)->elements[0]; -c_734258.elements[1] = ((closureN)self_73834)->elements[1]; -c_734258.elements[2] = ((closureN)self_73834)->elements[2]; - -return_closcall1(data,(closure)&c_734258, NULL);; -} - -static void __lambda_598(void *data, int argc, object self_73835, object r_73275) { - return_closcall3(data, cell_get(((closureN)self_73835)->elements[2]), ((closureN)self_73835)->elements[1], ((closureN)self_73835)->elements[0], r_73275);; -} - -static void __lambda_597(void *data, int argc, object self_73836, object k_73281) { - -closureN_type c_734237; -c_734237.hdr.mark = gc_color_red; - c_734237.hdr.grayed = 0; -c_734237.tag = closureN_tag; - c_734237.fn = (function_type)__lambda_596; -c_734237.num_args = 1; -c_734237.num_elements = 2; -c_734237.elements = (object *)alloca(sizeof(object) * 2); -c_734237.elements[0] = ((closureN)self_73836)->elements[0]; -c_734237.elements[1] = k_73281; - -return_closcall1(data,(closure)&c_734237, Cyc_is_null(((closureN)self_73836)->elements[0]));; -} - -static void __lambda_596(void *data, int argc, object self_73837, object r_73282) { - if( (boolean_f != r_73282) ){ - return_closcall1(data, __glo_current_91input_91port_scheme_base, ((closureN)self_73837)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_73837)->elements[1], car(((closureN)self_73837)->elements[0]));} -; -} - -static void __lambda_595(void *data, int argc, closure _,object k_73285, object args_73123_raw, ...) { -load_varargs(args_73123, args_73123_raw, argc - 1); - Cyc_st_add(data, "scheme/read.sld:cyc-read"); - -closureN_type c_734205; -c_734205.hdr.mark = gc_color_red; - c_734205.hdr.grayed = 0; -c_734205.tag = closureN_tag; - c_734205.fn = (function_type)__lambda_590; -c_734205.num_args = 0; -c_734205.num_elements = 1; -c_734205.elements = (object *)alloca(sizeof(object) * 1); -c_734205.elements[0] = args_73123; - - -closureN_type c_734218; -c_734218.hdr.mark = gc_color_red; - c_734218.hdr.grayed = 0; -c_734218.tag = closureN_tag; - c_734218.fn = (function_type)__lambda_594; -c_734218.num_args = 1; -c_734218.num_elements = 1; -c_734218.elements = (object *)alloca(sizeof(object) * 1); -c_734218.elements[0] = k_73285; - -return_closcall1(data,(closure)&c_734205, &c_734218);; -} - -static void __lambda_594(void *data, int argc, object self_73838, object fp_73124) { - -closureN_type c_734220; -c_734220.hdr.mark = gc_color_red; - c_734220.hdr.grayed = 0; -c_734220.tag = closureN_tag; - c_734220.fn = (function_type)__lambda_593; -c_734220.num_args = 1; -c_734220.num_elements = 2; -c_734220.elements = (object *)alloca(sizeof(object) * 2); -c_734220.elements[0] = fp_73124; -c_734220.elements[1] = ((closureN)self_73838)->elements[0]; - -return_closcall1(data,(closure)&c_734220, NULL);; -} - -static void __lambda_593(void *data, int argc, object self_73839, object r_73287) { - -closureN_type c_734222; -c_734222.hdr.mark = gc_color_red; - c_734222.hdr.grayed = 0; -c_734222.tag = closureN_tag; - c_734222.fn = (function_type)__lambda_592; -c_734222.num_args = 1; -c_734222.num_elements = 3; -c_734222.elements = (object *)alloca(sizeof(object) * 3); -c_734222.elements[0] = ((closureN)self_73839)->elements[0]; -c_734222.elements[1] = ((closureN)self_73839)->elements[1]; -c_734222.elements[2] = r_73287; - -return_closcall1(data,(closure)&c_734222, NULL);; -} - -static void __lambda_592(void *data, int argc, object self_73840, object r_73288) { - -closureN_type c_734224; -c_734224.hdr.mark = gc_color_red; - c_734224.hdr.grayed = 0; -c_734224.tag = closureN_tag; - c_734224.fn = (function_type)__lambda_591; -c_734224.num_args = 1; -c_734224.num_elements = 4; -c_734224.elements = (object *)alloca(sizeof(object) * 4); -c_734224.elements[0] = ((closureN)self_73840)->elements[0]; -c_734224.elements[1] = ((closureN)self_73840)->elements[1]; -c_734224.elements[2] = ((closureN)self_73840)->elements[2]; -c_734224.elements[3] = r_73288; - -return_closcall2(data, __glo_reg_91port_scheme_read, &c_734224, ((closureN)self_73840)->elements[0]);; -} - -static void __lambda_591(void *data, int argc, object self_73841, object r_73289) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73841)->elements[1], ((closureN)self_73841)->elements[0], ((closureN)self_73841)->elements[2], ((closureN)self_73841)->elements[3], boolean_f, boolean_f, obj_int2obj(0), r_73289);; -} - -static void __lambda_590(void *data, int argc, object self_73842, object k_73290) { - -closureN_type c_734207; -c_734207.hdr.mark = gc_color_red; - c_734207.hdr.grayed = 0; -c_734207.tag = closureN_tag; - c_734207.fn = (function_type)__lambda_589; -c_734207.num_args = 1; -c_734207.num_elements = 2; -c_734207.elements = (object *)alloca(sizeof(object) * 2); -c_734207.elements[0] = ((closureN)self_73842)->elements[0]; -c_734207.elements[1] = k_73290; - -return_closcall1(data,(closure)&c_734207, Cyc_is_null(((closureN)self_73842)->elements[0]));; -} - -static void __lambda_589(void *data, int argc, object self_73843, object r_73291) { - if( (boolean_f != r_73291) ){ - return_closcall1(data, __glo_current_91input_91port_scheme_base, ((closureN)self_73843)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_73843)->elements[1], car(((closureN)self_73843)->elements[0]));} -; -} - -static void __lambda_588(void *data, int argc, closure _,object k_73294, object c_73125) { - Cyc_st_add(data, "scheme/read.sld:hex-digit?"); - -closureN_type c_734183; -c_734183.hdr.mark = gc_color_red; - c_734183.hdr.grayed = 0; -c_734183.tag = closureN_tag; - c_734183.fn = (function_type)__lambda_585; -c_734183.num_args = 0; -c_734183.num_elements = 1; -c_734183.elements = (object *)alloca(sizeof(object) * 1); -c_734183.elements[0] = c_73125; - - -closureN_type c_734192; -c_734192.hdr.mark = gc_color_red; - c_734192.hdr.grayed = 0; -c_734192.tag = closureN_tag; - c_734192.fn = (function_type)__lambda_587; -c_734192.num_args = 1; -c_734192.num_elements = 2; -c_734192.elements = (object *)alloca(sizeof(object) * 2); -c_734192.elements[0] = c_73125; -c_734192.elements[1] = k_73294; - -return_closcall1(data,(closure)&c_734183, &c_734192);; -} - -static void __lambda_587(void *data, int argc, object self_73844, object tmp_73126) { - if( (boolean_f != tmp_73126) ){ - return_closcall1(data, ((closureN)self_73844)->elements[1], tmp_73126); -} else { - -closureN_type c_734196; -c_734196.hdr.mark = gc_color_red; - c_734196.hdr.grayed = 0; -c_734196.tag = closureN_tag; - c_734196.fn = (function_type)__lambda_586; -c_734196.num_args = 1; -c_734196.num_elements = 2; -c_734196.elements = (object *)alloca(sizeof(object) * 2); -c_734196.elements[0] = ((closureN)self_73844)->elements[0]; -c_734196.elements[1] = ((closureN)self_73844)->elements[1]; - -return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_734196, ((closureN)self_73844)->elements[0], obj_char2obj(65));} -; -} - -static void __lambda_586(void *data, int argc, object self_73845, object r_73296) { - if( (boolean_f != r_73296) ){ - return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73845)->elements[1], ((closureN)self_73845)->elements[0], obj_char2obj(70)); -} else { - return_closcall1(data, ((closureN)self_73845)->elements[1], boolean_f);} -; -} - -static void __lambda_585(void *data, int argc, object self_73846, object k_73297) { - -closureN_type c_734185; -c_734185.hdr.mark = gc_color_red; - c_734185.hdr.grayed = 0; -c_734185.tag = closureN_tag; - c_734185.fn = (function_type)__lambda_584; -c_734185.num_args = 1; -c_734185.num_elements = 2; -c_734185.elements = (object *)alloca(sizeof(object) * 2); -c_734185.elements[0] = ((closureN)self_73846)->elements[0]; -c_734185.elements[1] = k_73297; - -return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_734185, ((closureN)self_73846)->elements[0], obj_char2obj(97));; -} - -static void __lambda_584(void *data, int argc, object self_73847, object r_73298) { - if( (boolean_f != r_73298) ){ - return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73847)->elements[1], ((closureN)self_73847)->elements[0], obj_char2obj(102)); -} else { - return_closcall1(data, ((closureN)self_73847)->elements[1], boolean_f);} -; -} - -static void __lambda_583(void *data, int argc, closure _,object k_73301, object base_73130, object fp_73129, object tok_73128, object ptbl_73127) { - Cyc_st_add(data, "scheme/read.sld:parse-number-rec"); - -closureN_type c_734060; -c_734060.hdr.mark = gc_color_red; - c_734060.hdr.grayed = 0; -c_734060.tag = closureN_tag; - c_734060.fn = (function_type)__lambda_582; -c_734060.num_args = 1; -c_734060.num_elements = 5; -c_734060.elements = (object *)alloca(sizeof(object) * 5); -c_734060.elements[0] = base_73130; -c_734060.elements[1] = fp_73129; -c_734060.elements[2] = k_73301; -c_734060.elements[3] = ptbl_73127; -c_734060.elements[4] = tok_73128; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_734060, fp_73129, ptbl_73127);; -} - -static void __lambda_582(void *data, int argc, object self_73848, object r_73302) { - -closureN_type c_734062; -c_734062.hdr.mark = gc_color_red; - c_734062.hdr.grayed = 0; -c_734062.tag = closureN_tag; - c_734062.fn = (function_type)__lambda_579; -c_734062.num_args = 1; -c_734062.num_elements = 5; -c_734062.elements = (object *)alloca(sizeof(object) * 5); -c_734062.elements[0] = ((closureN)self_73848)->elements[0]; -c_734062.elements[1] = ((closureN)self_73848)->elements[2]; -c_734062.elements[2] = ((closureN)self_73848)->elements[3]; -c_734062.elements[3] = r_73302; -c_734062.elements[4] = ((closureN)self_73848)->elements[4]; - - -closureN_type c_734169; -c_734169.hdr.mark = gc_color_red; - c_734169.hdr.grayed = 0; -c_734169.tag = closureN_tag; - c_734169.fn = (function_type)__lambda_581; -c_734169.num_args = 1; -c_734169.num_elements = 4; -c_734169.elements = (object *)alloca(sizeof(object) * 4); -c_734169.elements[0] = ((closureN)self_73848)->elements[0]; -c_734169.elements[1] = ((closureN)self_73848)->elements[1]; -c_734169.elements[2] = ((closureN)self_73848)->elements[3]; -c_734169.elements[3] = ((closureN)self_73848)->elements[4]; - -return_closcall1(data,(closure)&c_734062, &c_734169);; -} - -static void __lambda_581(void *data, int argc, object self_73849, object k_73321, object c_73131) { - -closureN_type c_734171; -c_734171.hdr.mark = gc_color_red; - c_734171.hdr.grayed = 0; -c_734171.tag = closureN_tag; - c_734171.fn = (function_type)__lambda_580; -c_734171.num_args = 1; -c_734171.num_elements = 4; -c_734171.elements = (object *)alloca(sizeof(object) * 4); -c_734171.elements[0] = ((closureN)self_73849)->elements[0]; -c_734171.elements[1] = ((closureN)self_73849)->elements[1]; -c_734171.elements[2] = k_73321; -c_734171.elements[3] = ((closureN)self_73849)->elements[2]; - - -make_pair(c_734179,c_73131, ((closureN)self_73849)->elements[3]); -return_closcall1(data,(closure)&c_734171, &c_734179);; -} - -static void __lambda_580(void *data, int argc, object self_73850, object r_73322) { - return_closcall5(data, __glo_parse_91number_91rec_scheme_read, ((closureN)self_73850)->elements[2], ((closureN)self_73850)->elements[0], ((closureN)self_73850)->elements[1], r_73322, ((closureN)self_73850)->elements[3]);; -} - -static void __lambda_579(void *data, int argc, object self_73851, object r_73303) { - -closureN_type c_734064; -c_734064.hdr.mark = gc_color_red; - c_734064.hdr.grayed = 0; -c_734064.tag = closureN_tag; - c_734064.fn = (function_type)__lambda_578; -c_734064.num_args = 2; -c_734064.num_elements = 4; -c_734064.elements = (object *)alloca(sizeof(object) * 4); -c_734064.elements[0] = ((closureN)self_73851)->elements[0]; -c_734064.elements[1] = ((closureN)self_73851)->elements[1]; -c_734064.elements[2] = ((closureN)self_73851)->elements[2]; -c_734064.elements[3] = ((closureN)self_73851)->elements[4]; - -return_closcall2(data,(closure)&c_734064, ((closureN)self_73851)->elements[3], r_73303);; -} - -static void __lambda_578(void *data, int argc, object self_73852, object c_73133, object next_73132) { - -closureN_type c_734066; -c_734066.hdr.mark = gc_color_red; - c_734066.hdr.grayed = 0; -c_734066.tag = closureN_tag; - c_734066.fn = (function_type)__lambda_577; -c_734066.num_args = 1; -c_734066.num_elements = 6; -c_734066.elements = (object *)alloca(sizeof(object) * 6); -c_734066.elements[0] = ((closureN)self_73852)->elements[0]; -c_734066.elements[1] = c_73133; -c_734066.elements[2] = ((closureN)self_73852)->elements[1]; -c_734066.elements[3] = next_73132; -c_734066.elements[4] = ((closureN)self_73852)->elements[2]; -c_734066.elements[5] = ((closureN)self_73852)->elements[3]; - -return_closcall2(data, __glo_sign_127_scheme_read, &c_734066, c_73133);; -} - -static void __lambda_577(void *data, int argc, object self_73853, object r_73304) { - if( (boolean_f != r_73304) ){ - -closureN_type c_734068; -c_734068.hdr.mark = gc_color_red; - c_734068.hdr.grayed = 0; -c_734068.tag = closureN_tag; - c_734068.fn = (function_type)__lambda_556; -c_734068.num_args = 0; -c_734068.num_elements = 3; -c_734068.elements = (object *)alloca(sizeof(object) * 3); -c_734068.elements[0] = ((closureN)self_73853)->elements[1]; -c_734068.elements[1] = ((closureN)self_73853)->elements[2]; -c_734068.elements[2] = ((closureN)self_73853)->elements[3]; - -return_closcall0(data,(closure)&c_734068); -} else { - -closureN_type c_734074; -c_734074.hdr.mark = gc_color_red; - c_734074.hdr.grayed = 0; -c_734074.tag = closureN_tag; - c_734074.fn = (function_type)__lambda_576; -c_734074.num_args = 1; -c_734074.num_elements = 6; -c_734074.elements = (object *)alloca(sizeof(object) * 6); -c_734074.elements[0] = ((closureN)self_73853)->elements[0]; -c_734074.elements[1] = ((closureN)self_73853)->elements[1]; -c_734074.elements[2] = ((closureN)self_73853)->elements[2]; -c_734074.elements[3] = ((closureN)self_73853)->elements[3]; -c_734074.elements[4] = ((closureN)self_73853)->elements[4]; -c_734074.elements[5] = ((closureN)self_73853)->elements[5]; - -return_closcall1(data,(closure)&c_734074, Cyc_eq(obj_char2obj(46), ((closureN)self_73853)->elements[1]));} -; -} - -static void __lambda_576(void *data, int argc, object self_73854, object r_73305) { - if( (boolean_f != r_73305) ){ - -closureN_type c_734076; -c_734076.hdr.mark = gc_color_red; - c_734076.hdr.grayed = 0; -c_734076.tag = closureN_tag; - c_734076.fn = (function_type)__lambda_557; -c_734076.num_args = 0; -c_734076.num_elements = 3; -c_734076.elements = (object *)alloca(sizeof(object) * 3); -c_734076.elements[0] = ((closureN)self_73854)->elements[1]; -c_734076.elements[1] = ((closureN)self_73854)->elements[2]; -c_734076.elements[2] = ((closureN)self_73854)->elements[3]; - -return_closcall0(data,(closure)&c_734076); -} else { - -closureN_type c_734082; -c_734082.hdr.mark = gc_color_red; - c_734082.hdr.grayed = 0; -c_734082.tag = closureN_tag; - c_734082.fn = (function_type)__lambda_575; -c_734082.num_args = 1; -c_734082.num_elements = 6; -c_734082.elements = (object *)alloca(sizeof(object) * 6); -c_734082.elements[0] = ((closureN)self_73854)->elements[0]; -c_734082.elements[1] = ((closureN)self_73854)->elements[1]; -c_734082.elements[2] = ((closureN)self_73854)->elements[2]; -c_734082.elements[3] = ((closureN)self_73854)->elements[3]; -c_734082.elements[4] = ((closureN)self_73854)->elements[4]; -c_734082.elements[5] = ((closureN)self_73854)->elements[5]; - -return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_734082, ((closureN)self_73854)->elements[1]);} -; -} - -static void __lambda_575(void *data, int argc, object self_73855, object r_73306) { - if( (boolean_f != r_73306) ){ - -closureN_type c_734084; -c_734084.hdr.mark = gc_color_red; - c_734084.hdr.grayed = 0; -c_734084.tag = closureN_tag; - c_734084.fn = (function_type)__lambda_568; -c_734084.num_args = 0; -c_734084.num_elements = 5; -c_734084.elements = (object *)alloca(sizeof(object) * 5); -c_734084.elements[0] = ((closureN)self_73855)->elements[0]; -c_734084.elements[1] = ((closureN)self_73855)->elements[1]; -c_734084.elements[2] = ((closureN)self_73855)->elements[2]; -c_734084.elements[3] = ((closureN)self_73855)->elements[3]; -c_734084.elements[4] = ((closureN)self_73855)->elements[4]; - -return_closcall0(data,(closure)&c_734084); -} else { - -closureN_type c_734136; -c_734136.hdr.mark = gc_color_red; - c_734136.hdr.grayed = 0; -c_734136.tag = closureN_tag; - c_734136.fn = (function_type)__lambda_570; -c_734136.num_args = 0; -c_734136.num_elements = 2; -c_734136.elements = (object *)alloca(sizeof(object) * 2); -c_734136.elements[0] = ((closureN)self_73855)->elements[0]; -c_734136.elements[1] = ((closureN)self_73855)->elements[1]; - - -closureN_type c_734148; -c_734148.hdr.mark = gc_color_red; - c_734148.hdr.grayed = 0; -c_734148.tag = closureN_tag; - c_734148.fn = (function_type)__lambda_574; -c_734148.num_args = 1; -c_734148.num_elements = 5; -c_734148.elements = (object *)alloca(sizeof(object) * 5); -c_734148.elements[0] = ((closureN)self_73855)->elements[1]; -c_734148.elements[1] = ((closureN)self_73855)->elements[2]; -c_734148.elements[2] = ((closureN)self_73855)->elements[3]; -c_734148.elements[3] = ((closureN)self_73855)->elements[4]; -c_734148.elements[4] = ((closureN)self_73855)->elements[5]; - -return_closcall1(data,(closure)&c_734136, &c_734148);} -; -} - -static void __lambda_574(void *data, int argc, object self_73856, object r_73317) { - if( (boolean_f != r_73317) ){ - -closureN_type c_734150; -c_734150.hdr.mark = gc_color_red; - c_734150.hdr.grayed = 0; -c_734150.tag = closureN_tag; - c_734150.fn = (function_type)__lambda_571; -c_734150.num_args = 0; -c_734150.num_elements = 3; -c_734150.elements = (object *)alloca(sizeof(object) * 3); -c_734150.elements[0] = ((closureN)self_73856)->elements[0]; -c_734150.elements[1] = ((closureN)self_73856)->elements[1]; -c_734150.elements[2] = ((closureN)self_73856)->elements[2]; - -return_closcall0(data,(closure)&c_734150); -} else { - -closureN_type c_734156; -c_734156.hdr.mark = gc_color_red; - c_734156.hdr.grayed = 0; -c_734156.tag = closureN_tag; - c_734156.fn = (function_type)__lambda_573; -c_734156.num_args = 0; -c_734156.num_elements = 4; -c_734156.elements = (object *)alloca(sizeof(object) * 4); -c_734156.elements[0] = ((closureN)self_73856)->elements[0]; -c_734156.elements[1] = ((closureN)self_73856)->elements[1]; -c_734156.elements[2] = ((closureN)self_73856)->elements[3]; -c_734156.elements[3] = ((closureN)self_73856)->elements[4]; - -return_closcall0(data,(closure)&c_734156);} -; -} - -static void __lambda_573(void *data, int argc, object self_73857) { - -closureN_type c_734158; -c_734158.hdr.mark = gc_color_red; - c_734158.hdr.grayed = 0; -c_734158.tag = closureN_tag; - c_734158.fn = (function_type)__lambda_572; -c_734158.num_args = 1; -c_734158.num_elements = 2; -c_734158.elements = (object *)alloca(sizeof(object) * 2); -c_734158.elements[0] = ((closureN)self_73857)->elements[1]; -c_734158.elements[1] = ((closureN)self_73857)->elements[3]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_734158, ((closureN)self_73857)->elements[2], ((closureN)self_73857)->elements[0]);; -} - -static void __lambda_572(void *data, int argc, object self_73858, object r_73318) { - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73858)->elements[0], ((closureN)self_73858)->elements[1]);; -} - -static void __lambda_571(void *data, int argc, object self_73859) { - return_closcall2(data, ((closureN)self_73859)->elements[2], ((closureN)self_73859)->elements[1], ((closureN)self_73859)->elements[0]);; -} - -static void __lambda_570(void *data, int argc, object self_73860, object k_73319) { - -closureN_type c_734138; -c_734138.hdr.mark = gc_color_red; - c_734138.hdr.grayed = 0; -c_734138.tag = closureN_tag; - c_734138.fn = (function_type)__lambda_569; -c_734138.num_args = 1; -c_734138.num_elements = 2; -c_734138.elements = (object *)alloca(sizeof(object) * 2); -c_734138.elements[0] = ((closureN)self_73860)->elements[1]; -c_734138.elements[1] = k_73319; - - -object c_734146 = Cyc_num_eq(data,(closure)&c_734138,2,((closureN)self_73860)->elements[0], obj_int2obj(16)); -return_closcall1(data,(closure)&c_734138, c_734146);; -} - -static void __lambda_569(void *data, int argc, object self_73861, object r_73320) { - if( (boolean_f != r_73320) ){ - return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73861)->elements[1], ((closureN)self_73861)->elements[0]); -} else { - return_closcall1(data, ((closureN)self_73861)->elements[1], boolean_f);} -; -} - -static void __lambda_568(void *data, int argc, object self_73862) { - -closureN_type c_734086; -c_734086.hdr.mark = gc_color_red; - c_734086.hdr.grayed = 0; -c_734086.tag = closureN_tag; - c_734086.fn = (function_type)__lambda_566; -c_734086.num_args = 0; -c_734086.num_elements = 3; -c_734086.elements = (object *)alloca(sizeof(object) * 3); -c_734086.elements[0] = ((closureN)self_73862)->elements[0]; -c_734086.elements[1] = ((closureN)self_73862)->elements[1]; -c_734086.elements[2] = ((closureN)self_73862)->elements[4]; - - -closureN_type c_734130; -c_734130.hdr.mark = gc_color_red; - c_734130.hdr.grayed = 0; -c_734130.tag = closureN_tag; - c_734130.fn = (function_type)__lambda_567; -c_734130.num_args = 1; -c_734130.num_elements = 3; -c_734130.elements = (object *)alloca(sizeof(object) * 3); -c_734130.elements[0] = ((closureN)self_73862)->elements[1]; -c_734130.elements[1] = ((closureN)self_73862)->elements[2]; -c_734130.elements[2] = ((closureN)self_73862)->elements[3]; - -return_closcall1(data,(closure)&c_734086, &c_734130);; -} - -static void __lambda_567(void *data, int argc, object self_73863, object r_73307) { - return_closcall2(data, ((closureN)self_73863)->elements[2], ((closureN)self_73863)->elements[1], ((closureN)self_73863)->elements[0]);; -} - -static void __lambda_566(void *data, int argc, object self_73864, object k_73308) { - -closureN_type c_734088; -c_734088.hdr.mark = gc_color_red; - c_734088.hdr.grayed = 0; -c_734088.tag = closureN_tag; - c_734088.fn = (function_type)__lambda_559; -c_734088.num_args = 0; -c_734088.num_elements = 2; -c_734088.elements = (object *)alloca(sizeof(object) * 2); -c_734088.elements[0] = ((closureN)self_73864)->elements[0]; -c_734088.elements[1] = ((closureN)self_73864)->elements[1]; - - -closureN_type c_734100; -c_734100.hdr.mark = gc_color_red; - c_734100.hdr.grayed = 0; -c_734100.tag = closureN_tag; - c_734100.fn = (function_type)__lambda_565; -c_734100.num_args = 1; -c_734100.num_elements = 4; -c_734100.elements = (object *)alloca(sizeof(object) * 4); -c_734100.elements[0] = ((closureN)self_73864)->elements[0]; -c_734100.elements[1] = ((closureN)self_73864)->elements[1]; -c_734100.elements[2] = k_73308; -c_734100.elements[3] = ((closureN)self_73864)->elements[2]; - -return_closcall1(data,(closure)&c_734088, &c_734100);; -} - -static void __lambda_565(void *data, int argc, object self_73865, object tmp_73134) { - -closureN_type c_734102; -c_734102.hdr.mark = gc_color_red; - c_734102.hdr.grayed = 0; -c_734102.tag = closureN_tag; - c_734102.fn = (function_type)__lambda_561; -c_734102.num_args = 0; -c_734102.num_elements = 3; -c_734102.elements = (object *)alloca(sizeof(object) * 3); -c_734102.elements[0] = ((closureN)self_73865)->elements[0]; -c_734102.elements[1] = ((closureN)self_73865)->elements[1]; -c_734102.elements[2] = tmp_73134; - - -closureN_type c_734117; -c_734117.hdr.mark = gc_color_red; - c_734117.hdr.grayed = 0; -c_734117.tag = closureN_tag; - c_734117.fn = (function_type)__lambda_564; -c_734117.num_args = 1; -c_734117.num_elements = 2; -c_734117.elements = (object *)alloca(sizeof(object) * 2); -c_734117.elements[0] = ((closureN)self_73865)->elements[2]; -c_734117.elements[1] = ((closureN)self_73865)->elements[3]; - -return_closcall1(data,(closure)&c_734102, &c_734117);; -} - -static void __lambda_564(void *data, int argc, object self_73866, object r_73309) { - if( (boolean_f != r_73309) ){ - -closureN_type c_734119; -c_734119.hdr.mark = gc_color_red; - c_734119.hdr.grayed = 0; -c_734119.tag = closureN_tag; - c_734119.fn = (function_type)__lambda_563; -c_734119.num_args = 1; -c_734119.num_elements = 2; -c_734119.elements = (object *)alloca(sizeof(object) * 2); -c_734119.elements[0] = ((closureN)self_73866)->elements[0]; -c_734119.elements[1] = ((closureN)self_73866)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_734119, ((closureN)self_73866)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_73866)->elements[0], boolean_f);} -; -} - -static void __lambda_563(void *data, int argc, object self_73867, object r_73310) { - -closureN_type c_734121; -c_734121.hdr.mark = gc_color_red; - c_734121.hdr.grayed = 0; -c_734121.tag = closureN_tag; - c_734121.fn = (function_type)__lambda_562; -c_734121.num_args = 1; -c_734121.num_elements = 2; -c_734121.elements = (object *)alloca(sizeof(object) * 2); -c_734121.elements[0] = ((closureN)self_73867)->elements[0]; -c_734121.elements[1] = r_73310; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_734121, ((closureN)self_73867)->elements[1]);; -} - -static void __lambda_562(void *data, int argc, object self_73868, object r_73311) { - -make_string(c_734124, "Illegal digit"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73868)->elements[0], &c_734124, ((closureN)self_73868)->elements[1], r_73311);; -} - -static void __lambda_561(void *data, int argc, object self_73869, object k_73313) { - if( (boolean_f != ((closureN)self_73869)->elements[2]) ){ - return_closcall1(data, k_73313, ((closureN)self_73869)->elements[2]); -} else { - -closureN_type c_734107; -c_734107.hdr.mark = gc_color_red; - c_734107.hdr.grayed = 0; -c_734107.tag = closureN_tag; - c_734107.fn = (function_type)__lambda_560; -c_734107.num_args = 1; -c_734107.num_elements = 2; -c_734107.elements = (object *)alloca(sizeof(object) * 2); -c_734107.elements[0] = ((closureN)self_73869)->elements[1]; -c_734107.elements[1] = k_73313; - - -object c_734115 = Cyc_num_eq(data,(closure)&c_734107,2,((closureN)self_73869)->elements[0], obj_int2obj(8)); -return_closcall1(data,(closure)&c_734107, c_734115);} -; -} - -static void __lambda_560(void *data, int argc, object self_73870, object r_73314) { - if( (boolean_f != r_73314) ){ - return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73870)->elements[1], ((closureN)self_73870)->elements[0], obj_char2obj(55)); -} else { - return_closcall1(data, ((closureN)self_73870)->elements[1], boolean_f);} -; -} - -static void __lambda_559(void *data, int argc, object self_73871, object k_73315) { - -closureN_type c_734090; -c_734090.hdr.mark = gc_color_red; - c_734090.hdr.grayed = 0; -c_734090.tag = closureN_tag; - c_734090.fn = (function_type)__lambda_558; -c_734090.num_args = 1; -c_734090.num_elements = 2; -c_734090.elements = (object *)alloca(sizeof(object) * 2); -c_734090.elements[0] = ((closureN)self_73871)->elements[1]; -c_734090.elements[1] = k_73315; - - -object c_734098 = Cyc_num_eq(data,(closure)&c_734090,2,((closureN)self_73871)->elements[0], obj_int2obj(2)); -return_closcall1(data,(closure)&c_734090, c_734098);; -} - -static void __lambda_558(void *data, int argc, object self_73872, object r_73316) { - if( (boolean_f != r_73316) ){ - return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73872)->elements[1], ((closureN)self_73872)->elements[0], obj_char2obj(49)); -} else { - return_closcall1(data, ((closureN)self_73872)->elements[1], boolean_f);} -; -} - -static void __lambda_557(void *data, int argc, object self_73873) { - return_closcall2(data, ((closureN)self_73873)->elements[2], ((closureN)self_73873)->elements[1], ((closureN)self_73873)->elements[0]);; -} - -static void __lambda_556(void *data, int argc, object self_73874) { - return_closcall2(data, ((closureN)self_73874)->elements[2], ((closureN)self_73874)->elements[1], ((closureN)self_73874)->elements[0]);; -} - -static void __lambda_555(void *data, int argc, closure _,object k_73325, object fp_73141, object toks_73140, object all_127_73139, object parens_73138, object ptbl_73137, object base_73136, object tok_91_125num_73135) { - Cyc_st_add(data, "scheme/read.sld:parse-number"); - -closureN_type c_733973; -c_733973.hdr.mark = gc_color_red; - c_733973.hdr.grayed = 0; -c_733973.tag = closureN_tag; - c_733973.fn = (function_type)__lambda_554; -c_733973.num_args = 1; -c_733973.num_elements = 8; -c_733973.elements = (object *)alloca(sizeof(object) * 8); -c_733973.elements[0] = all_127_73139; -c_733973.elements[1] = base_73136; -c_733973.elements[2] = fp_73141; -c_733973.elements[3] = k_73325; -c_733973.elements[4] = parens_73138; -c_733973.elements[5] = ptbl_73137; -c_733973.elements[6] = tok_91_125num_73135; -c_733973.elements[7] = toks_73140; - -return_closcall1(data,(closure)&c_733973, NULL);; -} - -static void __lambda_554(void *data, int argc, object self_73875, object r_73340) { - -closureN_type c_733975; -c_733975.hdr.mark = gc_color_red; - c_733975.hdr.grayed = 0; -c_733975.tag = closureN_tag; - c_733975.fn = (function_type)__lambda_553; -c_733975.num_args = 1; -c_733975.num_elements = 8; -c_733975.elements = (object *)alloca(sizeof(object) * 8); -c_733975.elements[0] = ((closureN)self_73875)->elements[0]; -c_733975.elements[1] = ((closureN)self_73875)->elements[1]; -c_733975.elements[2] = ((closureN)self_73875)->elements[2]; -c_733975.elements[3] = ((closureN)self_73875)->elements[3]; -c_733975.elements[4] = ((closureN)self_73875)->elements[4]; -c_733975.elements[5] = ((closureN)self_73875)->elements[5]; -c_733975.elements[6] = ((closureN)self_73875)->elements[6]; -c_733975.elements[7] = ((closureN)self_73875)->elements[7]; - -return_closcall5(data, __glo_parse_91number_91rec_scheme_read, &c_733975, ((closureN)self_73875)->elements[1], ((closureN)self_73875)->elements[2], r_73340, ((closureN)self_73875)->elements[5]);; -} - -static void __lambda_553(void *data, int argc, object self_73876, object num_73142) { - -closureN_type c_733977; -c_733977.hdr.mark = gc_color_red; - c_733977.hdr.grayed = 0; -c_733977.tag = closureN_tag; - c_733977.fn = (function_type)__lambda_544; -c_733977.num_args = 0; -c_733977.num_elements = 2; -c_733977.elements = (object *)alloca(sizeof(object) * 2); -c_733977.elements[0] = ((closureN)self_73876)->elements[1]; -c_733977.elements[1] = num_73142; - - -closureN_type c_734017; -c_734017.hdr.mark = gc_color_red; - c_734017.hdr.grayed = 0; -c_734017.tag = closureN_tag; - c_734017.fn = (function_type)__lambda_552; -c_734017.num_args = 1; -c_734017.num_elements = 8; -c_734017.elements = (object *)alloca(sizeof(object) * 8); -c_734017.elements[0] = ((closureN)self_73876)->elements[0]; -c_734017.elements[1] = ((closureN)self_73876)->elements[2]; -c_734017.elements[2] = ((closureN)self_73876)->elements[3]; -c_734017.elements[3] = num_73142; -c_734017.elements[4] = ((closureN)self_73876)->elements[4]; -c_734017.elements[5] = ((closureN)self_73876)->elements[5]; -c_734017.elements[6] = ((closureN)self_73876)->elements[6]; -c_734017.elements[7] = ((closureN)self_73876)->elements[7]; - -return_closcall1(data,(closure)&c_733977, &c_734017);; -} - -static void __lambda_552(void *data, int argc, object self_73877, object r_73327) { - if( (boolean_f != r_73327) ){ - -closureN_type c_734019; -c_734019.hdr.mark = gc_color_red; - c_734019.hdr.grayed = 0; -c_734019.tag = closureN_tag; - c_734019.fn = (function_type)__lambda_548; -c_734019.num_args = 0; -c_734019.num_elements = 8; -c_734019.elements = (object *)alloca(sizeof(object) * 8); -c_734019.elements[0] = ((closureN)self_73877)->elements[0]; -c_734019.elements[1] = ((closureN)self_73877)->elements[1]; -c_734019.elements[2] = ((closureN)self_73877)->elements[2]; -c_734019.elements[3] = ((closureN)self_73877)->elements[3]; -c_734019.elements[4] = ((closureN)self_73877)->elements[4]; -c_734019.elements[5] = ((closureN)self_73877)->elements[5]; -c_734019.elements[6] = ((closureN)self_73877)->elements[6]; -c_734019.elements[7] = ((closureN)self_73877)->elements[7]; - -return_closcall0(data,(closure)&c_734019); -} else { - -closureN_type c_734044; -c_734044.hdr.mark = gc_color_red; - c_734044.hdr.grayed = 0; -c_734044.tag = closureN_tag; - c_734044.fn = (function_type)__lambda_551; -c_734044.num_args = 0; -c_734044.num_elements = 2; -c_734044.elements = (object *)alloca(sizeof(object) * 2); -c_734044.elements[0] = ((closureN)self_73877)->elements[2]; -c_734044.elements[1] = ((closureN)self_73877)->elements[5]; - -return_closcall0(data,(closure)&c_734044);} -; -} - -static void __lambda_551(void *data, int argc, object self_73878) { - -closureN_type c_734046; -c_734046.hdr.mark = gc_color_red; - c_734046.hdr.grayed = 0; -c_734046.tag = closureN_tag; - c_734046.fn = (function_type)__lambda_550; -c_734046.num_args = 1; -c_734046.num_elements = 2; -c_734046.elements = (object *)alloca(sizeof(object) * 2); -c_734046.elements[0] = ((closureN)self_73878)->elements[0]; -c_734046.elements[1] = ((closureN)self_73878)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_734046, ((closureN)self_73878)->elements[1]);; -} - -static void __lambda_550(void *data, int argc, object self_73879, object r_73331) { - -closureN_type c_734048; -c_734048.hdr.mark = gc_color_red; - c_734048.hdr.grayed = 0; -c_734048.tag = closureN_tag; - c_734048.fn = (function_type)__lambda_549; -c_734048.num_args = 1; -c_734048.num_elements = 2; -c_734048.elements = (object *)alloca(sizeof(object) * 2); -c_734048.elements[0] = ((closureN)self_73879)->elements[0]; -c_734048.elements[1] = r_73331; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_734048, ((closureN)self_73879)->elements[1]);; -} - -static void __lambda_549(void *data, int argc, object self_73880, object r_73332) { - -make_string(c_734051, "Illegal number syntax"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73880)->elements[0], &c_734051, ((closureN)self_73880)->elements[1], r_73332);; -} - -static void __lambda_548(void *data, int argc, object self_73881) { - -closureN_type c_734022; -c_734022.hdr.mark = gc_color_red; - c_734022.hdr.grayed = 0; -c_734022.tag = closureN_tag; - c_734022.fn = (function_type)__lambda_547; -c_734022.num_args = 1; -c_734022.num_elements = 6; -c_734022.elements = (object *)alloca(sizeof(object) * 6); -c_734022.elements[0] = ((closureN)self_73881)->elements[0]; -c_734022.elements[1] = ((closureN)self_73881)->elements[1]; -c_734022.elements[2] = ((closureN)self_73881)->elements[2]; -c_734022.elements[3] = ((closureN)self_73881)->elements[4]; -c_734022.elements[4] = ((closureN)self_73881)->elements[5]; -c_734022.elements[5] = ((closureN)self_73881)->elements[7]; - -return_closcall2(data, ((closureN)self_73881)->elements[6], &c_734022, ((closureN)self_73881)->elements[3]);; -} - -static void __lambda_547(void *data, int argc, object self_73882, object result_73143) { - if( (boolean_f != ((closureN)self_73882)->elements[0]) ){ - -closureN_type c_734025; -c_734025.hdr.mark = gc_color_red; - c_734025.hdr.grayed = 0; -c_734025.tag = closureN_tag; - c_734025.fn = (function_type)__lambda_546; -c_734025.num_args = 1; -c_734025.num_elements = 7; -c_734025.elements = (object *)alloca(sizeof(object) * 7); -c_734025.elements[0] = ((closureN)self_73882)->elements[0]; -c_734025.elements[1] = ((closureN)self_73882)->elements[1]; -c_734025.elements[2] = ((closureN)self_73882)->elements[2]; -c_734025.elements[3] = ((closureN)self_73882)->elements[3]; -c_734025.elements[4] = ((closureN)self_73882)->elements[4]; -c_734025.elements[5] = result_73143; -c_734025.elements[6] = ((closureN)self_73882)->elements[5]; - -return_closcall1(data,(closure)&c_734025, NULL); -} else { - return_closcall1(data, ((closureN)self_73882)->elements[2], result_73143);} -; -} - -static void __lambda_546(void *data, int argc, object self_73883, object r_73329) { - -closureN_type c_734027; -c_734027.hdr.mark = gc_color_red; - c_734027.hdr.grayed = 0; -c_734027.tag = closureN_tag; - c_734027.fn = (function_type)__lambda_545; -c_734027.num_args = 1; -c_734027.num_elements = 6; -c_734027.elements = (object *)alloca(sizeof(object) * 6); -c_734027.elements[0] = ((closureN)self_73883)->elements[0]; -c_734027.elements[1] = ((closureN)self_73883)->elements[1]; -c_734027.elements[2] = ((closureN)self_73883)->elements[2]; -c_734027.elements[3] = ((closureN)self_73883)->elements[3]; -c_734027.elements[4] = ((closureN)self_73883)->elements[4]; -c_734027.elements[5] = r_73329; - - -make_pair(c_734037,((closureN)self_73883)->elements[5], ((closureN)self_73883)->elements[6]); -return_closcall1(data,(closure)&c_734027, &c_734037);; -} - -static void __lambda_545(void *data, int argc, object self_73884, object r_73330) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73884)->elements[2], ((closureN)self_73884)->elements[1], ((closureN)self_73884)->elements[5], r_73330, ((closureN)self_73884)->elements[0], boolean_f, ((closureN)self_73884)->elements[3], ((closureN)self_73884)->elements[4]);; -} - -static void __lambda_544(void *data, int argc, object self_73885, object k_73333) { - -closureN_type c_733979; -c_733979.hdr.mark = gc_color_red; - c_733979.hdr.grayed = 0; -c_733979.tag = closureN_tag; - c_733979.fn = (function_type)__lambda_543; -c_733979.num_args = 1; -c_733979.num_elements = 3; -c_733979.elements = (object *)alloca(sizeof(object) * 3); -c_733979.elements[0] = ((closureN)self_73885)->elements[0]; -c_733979.elements[1] = k_73333; -c_733979.elements[2] = ((closureN)self_73885)->elements[1]; - -return_closcall1(data,(closure)&c_733979, Cyc_is_null(((closureN)self_73885)->elements[1]));; -} - -static void __lambda_543(void *data, int argc, object self_73886, object r_73334) { - if( (boolean_f != r_73334) ){ - return_closcall1(data, ((closureN)self_73886)->elements[1], boolean_f); -} else { - -closureN_type c_733983; -c_733983.hdr.mark = gc_color_red; - c_733983.hdr.grayed = 0; -c_733983.tag = closureN_tag; - c_733983.fn = (function_type)__lambda_542; -c_733983.num_args = 1; -c_733983.num_elements = 3; -c_733983.elements = (object *)alloca(sizeof(object) * 3); -c_733983.elements[0] = ((closureN)self_73886)->elements[0]; -c_733983.elements[1] = ((closureN)self_73886)->elements[1]; -c_733983.elements[2] = ((closureN)self_73886)->elements[2]; - -return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733983, ((closureN)self_73886)->elements[2]);} -; -} - -static void __lambda_542(void *data, int argc, object self_73887, object tmp_73144) { - if( (boolean_f != tmp_73144) ){ - return_closcall1(data, ((closureN)self_73887)->elements[1], tmp_73144); -} else { - -closureN_type c_733987; -c_733987.hdr.mark = gc_color_red; - c_733987.hdr.grayed = 0; -c_733987.tag = closureN_tag; - c_733987.fn = (function_type)__lambda_541; -c_733987.num_args = 1; -c_733987.num_elements = 3; -c_733987.elements = (object *)alloca(sizeof(object) * 3); -c_733987.elements[0] = ((closureN)self_73887)->elements[0]; -c_733987.elements[1] = ((closureN)self_73887)->elements[1]; -c_733987.elements[2] = ((closureN)self_73887)->elements[2]; - -return_closcall1(data,(closure)&c_733987, Cyc_length(data, ((closureN)self_73887)->elements[2]));} -; -} - -static void __lambda_541(void *data, int argc, object self_73888, object r_73339) { - -closureN_type c_733989; -c_733989.hdr.mark = gc_color_red; - c_733989.hdr.grayed = 0; -c_733989.tag = closureN_tag; - c_733989.fn = (function_type)__lambda_540; -c_733989.num_args = 1; -c_733989.num_elements = 3; -c_733989.elements = (object *)alloca(sizeof(object) * 3); -c_733989.elements[0] = ((closureN)self_73888)->elements[0]; -c_733989.elements[1] = ((closureN)self_73888)->elements[1]; -c_733989.elements[2] = ((closureN)self_73888)->elements[2]; - - -object c_734009 = Cyc_num_gt(data,(closure)&c_733989,2,r_73339, obj_int2obj(0)); -return_closcall1(data,(closure)&c_733989, c_734009);; -} - -static void __lambda_540(void *data, int argc, object self_73889, object r_73336) { - if( (boolean_f != r_73336) ){ - -closureN_type c_733991; -c_733991.hdr.mark = gc_color_red; - c_733991.hdr.grayed = 0; -c_733991.tag = closureN_tag; - c_733991.fn = (function_type)__lambda_539; -c_733991.num_args = 1; -c_733991.num_elements = 2; -c_733991.elements = (object *)alloca(sizeof(object) * 2); -c_733991.elements[0] = ((closureN)self_73889)->elements[1]; -c_733991.elements[1] = ((closureN)self_73889)->elements[2]; - - -object c_734003 = Cyc_num_eq(data,(closure)&c_733991,2,((closureN)self_73889)->elements[0], obj_int2obj(16)); -return_closcall1(data,(closure)&c_733991, c_734003); -} else { - return_closcall1(data, ((closureN)self_73889)->elements[1], boolean_f);} -; -} - -static void __lambda_539(void *data, int argc, object self_73890, object r_73337) { - if( (boolean_f != r_73337) ){ - -closureN_type c_733993; -c_733993.hdr.mark = gc_color_red; - c_733993.hdr.grayed = 0; -c_733993.tag = closureN_tag; - c_733993.fn = (function_type)__lambda_538; -c_733993.num_args = 1; -c_733993.num_elements = 1; -c_733993.elements = (object *)alloca(sizeof(object) * 1); -c_733993.elements[0] = ((closureN)self_73890)->elements[0]; - -return_closcall1(data,(closure)&c_733993, car(((closureN)self_73890)->elements[1])); -} else { - return_closcall1(data, ((closureN)self_73890)->elements[0], boolean_f);} -; -} - -static void __lambda_538(void *data, int argc, object self_73891, object r_73338) { - return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73891)->elements[0], r_73338);; -} - -static void __lambda_537(void *data, int argc, closure _,object k_73343, object fp_73147, object tok_73146, object ptbl_73145) { - Cyc_st_add(data, "scheme/read.sld:parse-li-rec"); - -closureN_type c_733902; -c_733902.hdr.mark = gc_color_red; - c_733902.hdr.grayed = 0; -c_733902.tag = closureN_tag; - c_733902.fn = (function_type)__lambda_536; -c_733902.num_args = 1; -c_733902.num_elements = 4; -c_733902.elements = (object *)alloca(sizeof(object) * 4); -c_733902.elements[0] = fp_73147; -c_733902.elements[1] = k_73343; -c_733902.elements[2] = ptbl_73145; -c_733902.elements[3] = tok_73146; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733902, fp_73147, ptbl_73145);; -} - -static void __lambda_536(void *data, int argc, object self_73892, object r_73344) { - -closureN_type c_733904; -c_733904.hdr.mark = gc_color_red; - c_733904.hdr.grayed = 0; -c_733904.tag = closureN_tag; - c_733904.fn = (function_type)__lambda_533; -c_733904.num_args = 1; -c_733904.num_elements = 4; -c_733904.elements = (object *)alloca(sizeof(object) * 4); -c_733904.elements[0] = ((closureN)self_73892)->elements[1]; -c_733904.elements[1] = ((closureN)self_73892)->elements[2]; -c_733904.elements[2] = r_73344; -c_733904.elements[3] = ((closureN)self_73892)->elements[3]; - - -closureN_type c_733960; -c_733960.hdr.mark = gc_color_red; - c_733960.hdr.grayed = 0; -c_733960.tag = closureN_tag; - c_733960.fn = (function_type)__lambda_535; -c_733960.num_args = 1; -c_733960.num_elements = 3; -c_733960.elements = (object *)alloca(sizeof(object) * 3); -c_733960.elements[0] = ((closureN)self_73892)->elements[0]; -c_733960.elements[1] = ((closureN)self_73892)->elements[2]; -c_733960.elements[2] = ((closureN)self_73892)->elements[3]; - -return_closcall1(data,(closure)&c_733904, &c_733960);; -} - -static void __lambda_535(void *data, int argc, object self_73893, object k_73354, object c_73148) { - -closureN_type c_733962; -c_733962.hdr.mark = gc_color_red; - c_733962.hdr.grayed = 0; -c_733962.tag = closureN_tag; - c_733962.fn = (function_type)__lambda_534; -c_733962.num_args = 1; -c_733962.num_elements = 3; -c_733962.elements = (object *)alloca(sizeof(object) * 3); -c_733962.elements[0] = ((closureN)self_73893)->elements[0]; -c_733962.elements[1] = k_73354; -c_733962.elements[2] = ((closureN)self_73893)->elements[1]; - - -make_pair(c_733969,c_73148, ((closureN)self_73893)->elements[2]); -return_closcall1(data,(closure)&c_733962, &c_733969);; -} - -static void __lambda_534(void *data, int argc, object self_73894, object r_73355) { - return_closcall4(data, __glo_parse_91li_91rec_scheme_read, ((closureN)self_73894)->elements[1], ((closureN)self_73894)->elements[0], r_73355, ((closureN)self_73894)->elements[2]);; -} - -static void __lambda_533(void *data, int argc, object self_73895, object r_73345) { - -closureN_type c_733906; -c_733906.hdr.mark = gc_color_red; - c_733906.hdr.grayed = 0; -c_733906.tag = closureN_tag; - c_733906.fn = (function_type)__lambda_532; -c_733906.num_args = 2; -c_733906.num_elements = 3; -c_733906.elements = (object *)alloca(sizeof(object) * 3); -c_733906.elements[0] = ((closureN)self_73895)->elements[0]; -c_733906.elements[1] = ((closureN)self_73895)->elements[1]; -c_733906.elements[2] = ((closureN)self_73895)->elements[3]; - -return_closcall2(data,(closure)&c_733906, ((closureN)self_73895)->elements[2], r_73345);; -} - -static void __lambda_532(void *data, int argc, object self_73896, object c_73150, object next_73149) { - -closureN_type c_733908; -c_733908.hdr.mark = gc_color_red; - c_733908.hdr.grayed = 0; -c_733908.tag = closureN_tag; - c_733908.fn = (function_type)__lambda_531; -c_733908.num_args = 1; -c_733908.num_elements = 5; -c_733908.elements = (object *)alloca(sizeof(object) * 5); -c_733908.elements[0] = c_73150; -c_733908.elements[1] = ((closureN)self_73896)->elements[0]; -c_733908.elements[2] = next_73149; -c_733908.elements[3] = ((closureN)self_73896)->elements[1]; -c_733908.elements[4] = ((closureN)self_73896)->elements[2]; - -return_closcall1(data,(closure)&c_733908, Cyc_eq(obj_char2obj(124), c_73150));; -} - -static void __lambda_531(void *data, int argc, object self_73897, object r_73346) { - if( (boolean_f != r_73346) ){ - -closureN_type c_733910; -c_733910.hdr.mark = gc_color_red; - c_733910.hdr.grayed = 0; -c_733910.tag = closureN_tag; - c_733910.fn = (function_type)__lambda_525; -c_733910.num_args = 0; -c_733910.num_elements = 2; -c_733910.elements = (object *)alloca(sizeof(object) * 2); -c_733910.elements[0] = ((closureN)self_73897)->elements[1]; -c_733910.elements[1] = ((closureN)self_73897)->elements[4]; - -return_closcall0(data,(closure)&c_733910); -} else { - -closureN_type c_733935; -c_733935.hdr.mark = gc_color_red; - c_733935.hdr.grayed = 0; -c_733935.tag = closureN_tag; - c_733935.fn = (function_type)__lambda_530; -c_733935.num_args = 1; -c_733935.num_elements = 4; -c_733935.elements = (object *)alloca(sizeof(object) * 4); -c_733935.elements[0] = ((closureN)self_73897)->elements[0]; -c_733935.elements[1] = ((closureN)self_73897)->elements[1]; -c_733935.elements[2] = ((closureN)self_73897)->elements[2]; -c_733935.elements[3] = ((closureN)self_73897)->elements[3]; - -return_closcall1(data,(closure)&c_733935, Cyc_is_eof_object(((closureN)self_73897)->elements[0]));} -; -} - -static void __lambda_530(void *data, int argc, object self_73898, object r_73351) { - if( (boolean_f != r_73351) ){ - -closureN_type c_733937; -c_733937.hdr.mark = gc_color_red; - c_733937.hdr.grayed = 0; -c_733937.tag = closureN_tag; - c_733937.fn = (function_type)__lambda_528; -c_733937.num_args = 0; -c_733937.num_elements = 2; -c_733937.elements = (object *)alloca(sizeof(object) * 2); -c_733937.elements[0] = ((closureN)self_73898)->elements[1]; -c_733937.elements[1] = ((closureN)self_73898)->elements[3]; - -return_closcall0(data,(closure)&c_733937); -} else { - -closureN_type c_733949; -c_733949.hdr.mark = gc_color_red; - c_733949.hdr.grayed = 0; -c_733949.tag = closureN_tag; - c_733949.fn = (function_type)__lambda_529; -c_733949.num_args = 0; -c_733949.num_elements = 3; -c_733949.elements = (object *)alloca(sizeof(object) * 3); -c_733949.elements[0] = ((closureN)self_73898)->elements[0]; -c_733949.elements[1] = ((closureN)self_73898)->elements[1]; -c_733949.elements[2] = ((closureN)self_73898)->elements[2]; - -return_closcall0(data,(closure)&c_733949);} -; -} - -static void __lambda_529(void *data, int argc, object self_73899) { - return_closcall2(data, ((closureN)self_73899)->elements[2], ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[0]);; -} - -static void __lambda_528(void *data, int argc, object self_73900) { - -closureN_type c_733939; -c_733939.hdr.mark = gc_color_red; - c_733939.hdr.grayed = 0; -c_733939.tag = closureN_tag; - c_733939.fn = (function_type)__lambda_527; -c_733939.num_args = 1; -c_733939.num_elements = 2; -c_733939.elements = (object *)alloca(sizeof(object) * 2); -c_733939.elements[0] = ((closureN)self_73900)->elements[0]; -c_733939.elements[1] = ((closureN)self_73900)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733939, ((closureN)self_73900)->elements[1]);; -} - -static void __lambda_527(void *data, int argc, object self_73901, object r_73352) { - -closureN_type c_733941; -c_733941.hdr.mark = gc_color_red; - c_733941.hdr.grayed = 0; -c_733941.tag = closureN_tag; - c_733941.fn = (function_type)__lambda_526; -c_733941.num_args = 1; -c_733941.num_elements = 2; -c_733941.elements = (object *)alloca(sizeof(object) * 2); -c_733941.elements[0] = ((closureN)self_73901)->elements[0]; -c_733941.elements[1] = r_73352; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733941, ((closureN)self_73901)->elements[1]);; -} - -static void __lambda_526(void *data, int argc, object self_73902, object r_73353) { - -make_string(c_733944, "EOF encountered parsing literal identifier"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73902)->elements[0], &c_733944, ((closureN)self_73902)->elements[1], r_73353);; -} - -static void __lambda_525(void *data, int argc, object self_73903) { - -closureN_type c_733912; -c_733912.hdr.mark = gc_color_red; - c_733912.hdr.grayed = 0; -c_733912.tag = closureN_tag; - c_733912.fn = (function_type)__lambda_523; -c_733912.num_args = 0; -c_733912.num_elements = 1; -c_733912.elements = (object *)alloca(sizeof(object) * 1); -c_733912.elements[0] = ((closureN)self_73903)->elements[1]; - - -closureN_type c_733929; -c_733929.hdr.mark = gc_color_red; - c_733929.hdr.grayed = 0; -c_733929.tag = closureN_tag; - c_733929.fn = (function_type)__lambda_524; -c_733929.num_args = 1; -c_733929.num_elements = 1; -c_733929.elements = (object *)alloca(sizeof(object) * 1); -c_733929.elements[0] = ((closureN)self_73903)->elements[0]; - -return_closcall1(data,(closure)&c_733912, &c_733929);; -} - -static void __lambda_524(void *data, int argc, object self_73904, object str_73151) { - return_closcall1(data, ((closureN)self_73904)->elements[0], Cyc_string2symbol(data, str_73151));; -} - -static void __lambda_523(void *data, int argc, object self_73905, object k_73348) { - -closureN_type c_733914; -c_733914.hdr.mark = gc_color_red; - c_733914.hdr.grayed = 0; -c_733914.tag = closureN_tag; - c_733914.fn = (function_type)__lambda_522; -c_733914.num_args = 1; -c_733914.num_elements = 2; -c_733914.elements = (object *)alloca(sizeof(object) * 2); -c_733914.elements[0] = k_73348; -c_733914.elements[1] = ((closureN)self_73905)->elements[0]; - -return_closcall1(data,(closure)&c_733914, Cyc_is_null(((closureN)self_73905)->elements[0]));; -} - -static void __lambda_522(void *data, int argc, object self_73906, object r_73349) { - if( (boolean_f != r_73349) ){ - -make_string(c_733917, "||"); -return_closcall1(data, ((closureN)self_73906)->elements[0], &c_733917); -} else { - -closureN_type c_733919; -c_733919.hdr.mark = gc_color_red; - c_733919.hdr.grayed = 0; -c_733919.tag = closureN_tag; - c_733919.fn = (function_type)__lambda_521; -c_733919.num_args = 1; -c_733919.num_elements = 1; -c_733919.elements = (object *)alloca(sizeof(object) * 1); -c_733919.elements[0] = ((closureN)self_73906)->elements[0]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_733919, ((closureN)self_73906)->elements[1]);} -; -} - -static void __lambda_521(void *data, int argc, object self_73907, object r_73350) { - -object c_733924 = Cyc_list2string(data, ((closureN)self_73907)->elements[0],r_73350); -return_closcall1(data, ((closureN)self_73907)->elements[0], c_733924);; -} - -static void __lambda_520(void *data, int argc, closure _,object k_73358, object fp_73156, object toks_73155, object all_127_73154, object parens_73153, object ptbl_73152) { - Cyc_st_add(data, "scheme/read.sld:parse-literal-identifier"); - -closureN_type c_733876; -c_733876.hdr.mark = gc_color_red; - c_733876.hdr.grayed = 0; -c_733876.tag = closureN_tag; - c_733876.fn = (function_type)__lambda_519; -c_733876.num_args = 1; -c_733876.num_elements = 6; -c_733876.elements = (object *)alloca(sizeof(object) * 6); -c_733876.elements[0] = all_127_73154; -c_733876.elements[1] = fp_73156; -c_733876.elements[2] = k_73358; -c_733876.elements[3] = parens_73153; -c_733876.elements[4] = ptbl_73152; -c_733876.elements[5] = toks_73155; - -return_closcall1(data,(closure)&c_733876, NULL);; -} - -static void __lambda_519(void *data, int argc, object self_73908, object r_73362) { - -closureN_type c_733878; -c_733878.hdr.mark = gc_color_red; - c_733878.hdr.grayed = 0; -c_733878.tag = closureN_tag; - c_733878.fn = (function_type)__lambda_518; -c_733878.num_args = 1; -c_733878.num_elements = 6; -c_733878.elements = (object *)alloca(sizeof(object) * 6); -c_733878.elements[0] = ((closureN)self_73908)->elements[0]; -c_733878.elements[1] = ((closureN)self_73908)->elements[1]; -c_733878.elements[2] = ((closureN)self_73908)->elements[2]; -c_733878.elements[3] = ((closureN)self_73908)->elements[3]; -c_733878.elements[4] = ((closureN)self_73908)->elements[4]; -c_733878.elements[5] = ((closureN)self_73908)->elements[5]; - -return_closcall4(data, __glo_parse_91li_91rec_scheme_read, &c_733878, ((closureN)self_73908)->elements[1], r_73362, ((closureN)self_73908)->elements[4]);; -} - -static void __lambda_518(void *data, int argc, object self_73909, object sym_73157) { - if( (boolean_f != ((closureN)self_73909)->elements[0]) ){ - -closureN_type c_733881; -c_733881.hdr.mark = gc_color_red; - c_733881.hdr.grayed = 0; -c_733881.tag = closureN_tag; - c_733881.fn = (function_type)__lambda_517; -c_733881.num_args = 1; -c_733881.num_elements = 7; -c_733881.elements = (object *)alloca(sizeof(object) * 7); -c_733881.elements[0] = ((closureN)self_73909)->elements[0]; -c_733881.elements[1] = ((closureN)self_73909)->elements[1]; -c_733881.elements[2] = ((closureN)self_73909)->elements[2]; -c_733881.elements[3] = ((closureN)self_73909)->elements[3]; -c_733881.elements[4] = ((closureN)self_73909)->elements[4]; -c_733881.elements[5] = sym_73157; -c_733881.elements[6] = ((closureN)self_73909)->elements[5]; - -return_closcall1(data,(closure)&c_733881, NULL); -} else { - return_closcall1(data, ((closureN)self_73909)->elements[2], sym_73157);} -; -} - -static void __lambda_517(void *data, int argc, object self_73910, object r_73360) { - -closureN_type c_733883; -c_733883.hdr.mark = gc_color_red; - c_733883.hdr.grayed = 0; -c_733883.tag = closureN_tag; - c_733883.fn = (function_type)__lambda_516; -c_733883.num_args = 1; -c_733883.num_elements = 6; -c_733883.elements = (object *)alloca(sizeof(object) * 6); -c_733883.elements[0] = ((closureN)self_73910)->elements[0]; -c_733883.elements[1] = ((closureN)self_73910)->elements[1]; -c_733883.elements[2] = ((closureN)self_73910)->elements[2]; -c_733883.elements[3] = ((closureN)self_73910)->elements[3]; -c_733883.elements[4] = ((closureN)self_73910)->elements[4]; -c_733883.elements[5] = r_73360; - - -make_pair(c_733893,((closureN)self_73910)->elements[5], ((closureN)self_73910)->elements[6]); -return_closcall1(data,(closure)&c_733883, &c_733893);; -} - -static void __lambda_516(void *data, int argc, object self_73911, object r_73361) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73911)->elements[2], ((closureN)self_73911)->elements[1], ((closureN)self_73911)->elements[5], r_73361, ((closureN)self_73911)->elements[0], boolean_f, ((closureN)self_73911)->elements[3], ((closureN)self_73911)->elements[4]);; -} - -static void __lambda_515(void *data, int argc, closure _,object k_73365, object fp_73159, object ptbl_73158) { - Cyc_st_add(data, "scheme/read.sld:read-block-terminator"); - -closureN_type c_733848; -c_733848.hdr.mark = gc_color_red; - c_733848.hdr.grayed = 0; -c_733848.tag = closureN_tag; - c_733848.fn = (function_type)__lambda_514; -c_733848.num_args = 1; -c_733848.num_elements = 3; -c_733848.elements = (object *)alloca(sizeof(object) * 3); -c_733848.elements[0] = fp_73159; -c_733848.elements[1] = k_73365; -c_733848.elements[2] = ptbl_73158; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733848, fp_73159, ptbl_73158);; -} - -static void __lambda_514(void *data, int argc, object self_73912, object c_73160) { - -closureN_type c_733850; -c_733850.hdr.mark = gc_color_red; - c_733850.hdr.grayed = 0; -c_733850.tag = closureN_tag; - c_733850.fn = (function_type)__lambda_513; -c_733850.num_args = 1; -c_733850.num_elements = 4; -c_733850.elements = (object *)alloca(sizeof(object) * 4); -c_733850.elements[0] = c_73160; -c_733850.elements[1] = ((closureN)self_73912)->elements[0]; -c_733850.elements[2] = ((closureN)self_73912)->elements[1]; -c_733850.elements[3] = ((closureN)self_73912)->elements[2]; - -return_closcall1(data,(closure)&c_733850, Cyc_eq(obj_char2obj(35), c_73160));; -} - -static void __lambda_513(void *data, int argc, object self_73913, object r_73367) { - if( (boolean_f != r_73367) ){ - -closureN_type c_733852; -c_733852.hdr.mark = gc_color_red; - c_733852.hdr.grayed = 0; -c_733852.tag = closureN_tag; - c_733852.fn = (function_type)__lambda_509; -c_733852.num_args = 0; -c_733852.num_elements = 1; -c_733852.elements = (object *)alloca(sizeof(object) * 1); -c_733852.elements[0] = ((closureN)self_73913)->elements[2]; - -return_closcall0(data,(closure)&c_733852); -} else { - -closureN_type c_733856; -c_733856.hdr.mark = gc_color_red; - c_733856.hdr.grayed = 0; -c_733856.tag = closureN_tag; - c_733856.fn = (function_type)__lambda_512; -c_733856.num_args = 1; -c_733856.num_elements = 3; -c_733856.elements = (object *)alloca(sizeof(object) * 3); -c_733856.elements[0] = ((closureN)self_73913)->elements[1]; -c_733856.elements[1] = ((closureN)self_73913)->elements[2]; -c_733856.elements[2] = ((closureN)self_73913)->elements[3]; - -return_closcall1(data,(closure)&c_733856, Cyc_eq(obj_char2obj(124), ((closureN)self_73913)->elements[0]));} -; -} - -static void __lambda_512(void *data, int argc, object self_73914, object r_73368) { - if( (boolean_f != r_73368) ){ - -closureN_type c_733858; -c_733858.hdr.mark = gc_color_red; - c_733858.hdr.grayed = 0; -c_733858.tag = closureN_tag; - c_733858.fn = (function_type)__lambda_510; -c_733858.num_args = 0; -c_733858.num_elements = 3; -c_733858.elements = (object *)alloca(sizeof(object) * 3); -c_733858.elements[0] = ((closureN)self_73914)->elements[0]; -c_733858.elements[1] = ((closureN)self_73914)->elements[1]; -c_733858.elements[2] = ((closureN)self_73914)->elements[2]; - -return_closcall0(data,(closure)&c_733858); -} else { - -closureN_type c_733864; -c_733864.hdr.mark = gc_color_red; - c_733864.hdr.grayed = 0; -c_733864.tag = closureN_tag; - c_733864.fn = (function_type)__lambda_511; -c_733864.num_args = 0; -c_733864.num_elements = 3; -c_733864.elements = (object *)alloca(sizeof(object) * 3); -c_733864.elements[0] = ((closureN)self_73914)->elements[0]; -c_733864.elements[1] = ((closureN)self_73914)->elements[1]; -c_733864.elements[2] = ((closureN)self_73914)->elements[2]; - -return_closcall0(data,(closure)&c_733864);} -; -} - -static void __lambda_511(void *data, int argc, object self_73915) { - return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73915)->elements[1], ((closureN)self_73915)->elements[0], ((closureN)self_73915)->elements[2]);; -} - -static void __lambda_510(void *data, int argc, object self_73916) { - return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73916)->elements[1], ((closureN)self_73916)->elements[0], ((closureN)self_73916)->elements[2]);; -} - -static void __lambda_509(void *data, int argc, object self_73917) { - return_closcall1(data, ((closureN)self_73917)->elements[0], boolean_t);; -} - -static void __lambda_508(void *data, int argc, closure _,object k_73371, object fp_73162, object ptbl_73161) { - Cyc_st_add(data, "scheme/read.sld:read-block-comment"); - -closureN_type c_733829; -c_733829.hdr.mark = gc_color_red; - c_733829.hdr.grayed = 0; -c_733829.tag = closureN_tag; - c_733829.fn = (function_type)__lambda_507; -c_733829.num_args = 1; -c_733829.num_elements = 3; -c_733829.elements = (object *)alloca(sizeof(object) * 3); -c_733829.elements[0] = fp_73162; -c_733829.elements[1] = k_73371; -c_733829.elements[2] = ptbl_73161; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733829, fp_73162, ptbl_73161);; -} - -static void __lambda_507(void *data, int argc, object self_73918, object c_73163) { - -closureN_type c_733831; -c_733831.hdr.mark = gc_color_red; - c_733831.hdr.grayed = 0; -c_733831.tag = closureN_tag; - c_733831.fn = (function_type)__lambda_506; -c_733831.num_args = 1; -c_733831.num_elements = 3; -c_733831.elements = (object *)alloca(sizeof(object) * 3); -c_733831.elements[0] = ((closureN)self_73918)->elements[0]; -c_733831.elements[1] = ((closureN)self_73918)->elements[1]; -c_733831.elements[2] = ((closureN)self_73918)->elements[2]; - -return_closcall1(data,(closure)&c_733831, Cyc_eq(obj_char2obj(124), c_73163));; -} - -static void __lambda_506(void *data, int argc, object self_73919, object r_73373) { - if( (boolean_f != r_73373) ){ - -closureN_type c_733833; -c_733833.hdr.mark = gc_color_red; - c_733833.hdr.grayed = 0; -c_733833.tag = closureN_tag; - c_733833.fn = (function_type)__lambda_504; -c_733833.num_args = 0; -c_733833.num_elements = 3; -c_733833.elements = (object *)alloca(sizeof(object) * 3); -c_733833.elements[0] = ((closureN)self_73919)->elements[0]; -c_733833.elements[1] = ((closureN)self_73919)->elements[1]; -c_733833.elements[2] = ((closureN)self_73919)->elements[2]; - -return_closcall0(data,(closure)&c_733833); -} else { - -closureN_type c_733839; -c_733839.hdr.mark = gc_color_red; - c_733839.hdr.grayed = 0; -c_733839.tag = closureN_tag; - c_733839.fn = (function_type)__lambda_505; -c_733839.num_args = 0; -c_733839.num_elements = 3; -c_733839.elements = (object *)alloca(sizeof(object) * 3); -c_733839.elements[0] = ((closureN)self_73919)->elements[0]; -c_733839.elements[1] = ((closureN)self_73919)->elements[1]; -c_733839.elements[2] = ((closureN)self_73919)->elements[2]; - -return_closcall0(data,(closure)&c_733839);} -; -} - -static void __lambda_505(void *data, int argc, object self_73920) { - return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73920)->elements[1], ((closureN)self_73920)->elements[0], ((closureN)self_73920)->elements[2]);; -} - -static void __lambda_504(void *data, int argc, object self_73921) { - return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73921)->elements[1], ((closureN)self_73921)->elements[0], ((closureN)self_73921)->elements[2]);; -} - -static void __lambda_503(void *data, int argc, closure _,object k_73376, object fp_73165, object ptbl_73164) { - Cyc_st_add(data, "scheme/read.sld:get-next-char"); - -closureN_type c_733817; -c_733817.hdr.mark = gc_color_red; - c_733817.hdr.grayed = 0; -c_733817.tag = closureN_tag; - c_733817.fn = (function_type)__lambda_502; -c_733817.num_args = 1; -c_733817.num_elements = 3; -c_733817.elements = (object *)alloca(sizeof(object) * 3); -c_733817.elements[0] = fp_73165; -c_733817.elements[1] = k_73376; -c_733817.elements[2] = ptbl_73164; - -return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_733817, ptbl_73164);; -} - -static void __lambda_502(void *data, int argc, object self_73922, object r_73377) { - if( (boolean_f != r_73377) ){ - return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_73922)->elements[1], ((closureN)self_73922)->elements[2]); -} else { - -object c_733825 = Cyc_io_read_char(data, ((closureN)self_73922)->elements[1],((closureN)self_73922)->elements[0]); -return_closcall1(data, ((closureN)self_73922)->elements[1], c_733825);} -; -} - -static void __lambda_501(void *data, int argc, closure _,object k_73380, object a_73166) { - Cyc_st_add(data, "scheme/read.sld:parse-atom"); - -closureN_type c_733789; -c_733789.hdr.mark = gc_color_red; - c_733789.hdr.grayed = 0; -c_733789.tag = closureN_tag; - c_733789.fn = (function_type)__lambda_500; -c_733789.num_args = 1; -c_733789.num_elements = 2; -c_733789.elements = (object *)alloca(sizeof(object) * 2); -c_733789.elements[0] = a_73166; -c_733789.elements[1] = k_73380; - -return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733789, a_73166);; -} - -static void __lambda_500(void *data, int argc, object self_73923, object r_73381) { - if( (boolean_f != r_73381) ){ - -closureN_type c_733791; -c_733791.hdr.mark = gc_color_red; - c_733791.hdr.grayed = 0; -c_733791.tag = closureN_tag; - c_733791.fn = (function_type)__lambda_497; -c_733791.num_args = 0; -c_733791.num_elements = 2; -c_733791.elements = (object *)alloca(sizeof(object) * 2); -c_733791.elements[0] = ((closureN)self_73923)->elements[0]; -c_733791.elements[1] = ((closureN)self_73923)->elements[1]; - -return_closcall0(data,(closure)&c_733791); -} else { - -closureN_type c_733804; -c_733804.hdr.mark = gc_color_red; - c_733804.hdr.grayed = 0; -c_733804.tag = closureN_tag; - c_733804.fn = (function_type)__lambda_499; -c_733804.num_args = 0; -c_733804.num_elements = 2; -c_733804.elements = (object *)alloca(sizeof(object) * 2); -c_733804.elements[0] = ((closureN)self_73923)->elements[0]; -c_733804.elements[1] = ((closureN)self_73923)->elements[1]; - -return_closcall0(data,(closure)&c_733804);} -; -} - -static void __lambda_499(void *data, int argc, object self_73924) { - -closureN_type c_733806; -c_733806.hdr.mark = gc_color_red; - c_733806.hdr.grayed = 0; -c_733806.tag = closureN_tag; - c_733806.fn = (function_type)__lambda_498; -c_733806.num_args = 1; -c_733806.num_elements = 1; -c_733806.elements = (object *)alloca(sizeof(object) * 1); -c_733806.elements[0] = ((closureN)self_73924)->elements[1]; - - -object c_733813 = Cyc_list2string(data,(closure)&c_733806,((closureN)self_73924)->elements[0]); -return_closcall1(data,(closure)&c_733806, c_733813);; -} - -static void __lambda_498(void *data, int argc, object self_73925, object r_73383) { - return_closcall1(data, ((closureN)self_73925)->elements[0], Cyc_string2symbol(data, r_73383));; -} - -static void __lambda_497(void *data, int argc, object self_73926) { - -closureN_type c_733793; -c_733793.hdr.mark = gc_color_red; - c_733793.hdr.grayed = 0; -c_733793.tag = closureN_tag; - c_733793.fn = (function_type)__lambda_496; -c_733793.num_args = 1; -c_733793.num_elements = 1; -c_733793.elements = (object *)alloca(sizeof(object) * 1); -c_733793.elements[0] = ((closureN)self_73926)->elements[1]; - - -object c_733801 = Cyc_list2string(data,(closure)&c_733793,((closureN)self_73926)->elements[0]); -return_closcall1(data,(closure)&c_733793, c_733801);; -} - -static void __lambda_496(void *data, int argc, object self_73927, object r_73382) { - -object c_733798 = Cyc_string2number2_(data, ((closureN)self_73927)->elements[0],1,r_73382); -return_closcall1(data, ((closureN)self_73927)->elements[0], c_733798);; -} - -static void __lambda_495(void *data, int argc, closure _,object k_73386, object a_73167) { - Cyc_st_add(data, "scheme/read.sld:token-numeric?"); - -closureN_type c_733702; -c_733702.hdr.mark = gc_color_red; - c_733702.hdr.grayed = 0; -c_733702.tag = closureN_tag; - c_733702.fn = (function_type)__lambda_494; -c_733702.num_args = 1; -c_733702.num_elements = 2; -c_733702.elements = (object *)alloca(sizeof(object) * 2); -c_733702.elements[0] = a_73167; -c_733702.elements[1] = k_73386; - -return_closcall1(data,(closure)&c_733702, car(a_73167));; -} - -static void __lambda_494(void *data, int argc, object self_73928, object r_73403) { - -closureN_type c_733704; -c_733704.hdr.mark = gc_color_red; - c_733704.hdr.grayed = 0; -c_733704.tag = closureN_tag; - c_733704.fn = (function_type)__lambda_493; -c_733704.num_args = 1; -c_733704.num_elements = 2; -c_733704.elements = (object *)alloca(sizeof(object) * 2); -c_733704.elements[0] = ((closureN)self_73928)->elements[0]; -c_733704.elements[1] = ((closureN)self_73928)->elements[1]; - -return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733704, r_73403);; -} - -static void __lambda_493(void *data, int argc, object self_73929, object tmp_73168) { - if( (boolean_f != tmp_73168) ){ - return_closcall1(data, ((closureN)self_73929)->elements[1], tmp_73168); -} else { - -closureN_type c_733708; -c_733708.hdr.mark = gc_color_red; - c_733708.hdr.grayed = 0; -c_733708.tag = closureN_tag; - c_733708.fn = (function_type)__lambda_483; -c_733708.num_args = 0; -c_733708.num_elements = 1; -c_733708.elements = (object *)alloca(sizeof(object) * 1); -c_733708.elements[0] = ((closureN)self_73929)->elements[0]; - - -closureN_type c_733739; -c_733739.hdr.mark = gc_color_red; - c_733739.hdr.grayed = 0; -c_733739.tag = closureN_tag; - c_733739.fn = (function_type)__lambda_492; -c_733739.num_args = 1; -c_733739.num_elements = 2; -c_733739.elements = (object *)alloca(sizeof(object) * 2); -c_733739.elements[0] = ((closureN)self_73929)->elements[0]; -c_733739.elements[1] = ((closureN)self_73929)->elements[1]; - -return_closcall1(data,(closure)&c_733708, &c_733739);} -; -} - -static void __lambda_492(void *data, int argc, object self_73930, object tmp_73169) { - if( (boolean_f != tmp_73169) ){ - return_closcall1(data, ((closureN)self_73930)->elements[1], tmp_73169); -} else { - -closureN_type c_733743; -c_733743.hdr.mark = gc_color_red; - c_733743.hdr.grayed = 0; -c_733743.tag = closureN_tag; - c_733743.fn = (function_type)__lambda_491; -c_733743.num_args = 1; -c_733743.num_elements = 2; -c_733743.elements = (object *)alloca(sizeof(object) * 2); -c_733743.elements[0] = ((closureN)self_73930)->elements[0]; -c_733743.elements[1] = ((closureN)self_73930)->elements[1]; - -return_closcall1(data,(closure)&c_733743, Cyc_length(data, ((closureN)self_73930)->elements[0]));} -; -} - -static void __lambda_491(void *data, int argc, object self_73931, object r_73396) { - -closureN_type c_733745; -c_733745.hdr.mark = gc_color_red; - c_733745.hdr.grayed = 0; -c_733745.tag = closureN_tag; - c_733745.fn = (function_type)__lambda_490; -c_733745.num_args = 1; -c_733745.num_elements = 2; -c_733745.elements = (object *)alloca(sizeof(object) * 2); -c_733745.elements[0] = ((closureN)self_73931)->elements[0]; -c_733745.elements[1] = ((closureN)self_73931)->elements[1]; - - -object c_733781 = Cyc_num_gt(data,(closure)&c_733745,2,r_73396, obj_int2obj(1)); -return_closcall1(data,(closure)&c_733745, c_733781);; -} - -static void __lambda_490(void *data, int argc, object self_73932, object r_73389) { - if( (boolean_f != r_73389) ){ - -closureN_type c_733747; -c_733747.hdr.mark = gc_color_red; - c_733747.hdr.grayed = 0; -c_733747.tag = closureN_tag; - c_733747.fn = (function_type)__lambda_489; -c_733747.num_args = 1; -c_733747.num_elements = 2; -c_733747.elements = (object *)alloca(sizeof(object) * 2); -c_733747.elements[0] = ((closureN)self_73932)->elements[0]; -c_733747.elements[1] = ((closureN)self_73932)->elements[1]; - -return_closcall1(data,(closure)&c_733747, cadr(((closureN)self_73932)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73932)->elements[1], boolean_f);} -; -} - -static void __lambda_489(void *data, int argc, object self_73933, object r_73395) { - -closureN_type c_733749; -c_733749.hdr.mark = gc_color_red; - c_733749.hdr.grayed = 0; -c_733749.tag = closureN_tag; - c_733749.fn = (function_type)__lambda_488; -c_733749.num_args = 1; -c_733749.num_elements = 2; -c_733749.elements = (object *)alloca(sizeof(object) * 2); -c_733749.elements[0] = ((closureN)self_73933)->elements[0]; -c_733749.elements[1] = ((closureN)self_73933)->elements[1]; - -return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733749, r_73395);; -} - -static void __lambda_488(void *data, int argc, object self_73934, object tmp_73170) { - -closureN_type c_733751; -c_733751.hdr.mark = gc_color_red; - c_733751.hdr.grayed = 0; -c_733751.tag = closureN_tag; - c_733751.fn = (function_type)__lambda_485; -c_733751.num_args = 0; -c_733751.num_elements = 2; -c_733751.elements = (object *)alloca(sizeof(object) * 2); -c_733751.elements[0] = ((closureN)self_73934)->elements[0]; -c_733751.elements[1] = tmp_73170; - - -closureN_type c_733764; -c_733764.hdr.mark = gc_color_red; - c_733764.hdr.grayed = 0; -c_733764.tag = closureN_tag; - c_733764.fn = (function_type)__lambda_487; -c_733764.num_args = 1; -c_733764.num_elements = 2; -c_733764.elements = (object *)alloca(sizeof(object) * 2); -c_733764.elements[0] = ((closureN)self_73934)->elements[0]; -c_733764.elements[1] = ((closureN)self_73934)->elements[1]; - -return_closcall1(data,(closure)&c_733751, &c_733764);; -} - -static void __lambda_487(void *data, int argc, object self_73935, object r_73390) { - if( (boolean_f != r_73390) ){ - -closureN_type c_733766; -c_733766.hdr.mark = gc_color_red; - c_733766.hdr.grayed = 0; -c_733766.tag = closureN_tag; - c_733766.fn = (function_type)__lambda_486; -c_733766.num_args = 1; -c_733766.num_elements = 1; -c_733766.elements = (object *)alloca(sizeof(object) * 1); -c_733766.elements[0] = ((closureN)self_73935)->elements[1]; - -return_closcall1(data,(closure)&c_733766, car(((closureN)self_73935)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73935)->elements[1], boolean_f);} -; -} - -static void __lambda_486(void *data, int argc, object self_73936, object r_73391) { - return_closcall2(data, __glo_sign_127_scheme_read, ((closureN)self_73936)->elements[0], r_73391);; -} - -static void __lambda_485(void *data, int argc, object self_73937, object k_73393) { - if( (boolean_f != ((closureN)self_73937)->elements[1]) ){ - return_closcall1(data, k_73393, ((closureN)self_73937)->elements[1]); -} else { - -closureN_type c_733756; -c_733756.hdr.mark = gc_color_red; - c_733756.hdr.grayed = 0; -c_733756.tag = closureN_tag; - c_733756.fn = (function_type)__lambda_484; -c_733756.num_args = 1; -c_733756.num_elements = 1; -c_733756.elements = (object *)alloca(sizeof(object) * 1); -c_733756.elements[0] = k_73393; - -return_closcall1(data,(closure)&c_733756, cadr(((closureN)self_73937)->elements[0]));} -; -} - -static void __lambda_484(void *data, int argc, object self_73938, object r_73394) { - return_closcall1(data, ((closureN)self_73938)->elements[0], Cyc_eq(obj_char2obj(46), r_73394));; -} - -static void __lambda_483(void *data, int argc, object self_73939, object k_73397) { - -closureN_type c_733710; -c_733710.hdr.mark = gc_color_red; - c_733710.hdr.grayed = 0; -c_733710.tag = closureN_tag; - c_733710.fn = (function_type)__lambda_482; -c_733710.num_args = 1; -c_733710.num_elements = 2; -c_733710.elements = (object *)alloca(sizeof(object) * 2); -c_733710.elements[0] = ((closureN)self_73939)->elements[0]; -c_733710.elements[1] = k_73397; - -return_closcall1(data,(closure)&c_733710, Cyc_length(data, ((closureN)self_73939)->elements[0]));; -} - -static void __lambda_482(void *data, int argc, object self_73940, object r_73402) { - -closureN_type c_733712; -c_733712.hdr.mark = gc_color_red; - c_733712.hdr.grayed = 0; -c_733712.tag = closureN_tag; - c_733712.fn = (function_type)__lambda_481; -c_733712.num_args = 1; -c_733712.num_elements = 2; -c_733712.elements = (object *)alloca(sizeof(object) * 2); -c_733712.elements[0] = ((closureN)self_73940)->elements[0]; -c_733712.elements[1] = ((closureN)self_73940)->elements[1]; - - -object c_733735 = Cyc_num_gt(data,(closure)&c_733712,2,r_73402, obj_int2obj(1)); -return_closcall1(data,(closure)&c_733712, c_733735);; -} - -static void __lambda_481(void *data, int argc, object self_73941, object r_73398) { - if( (boolean_f != r_73398) ){ - -closureN_type c_733714; -c_733714.hdr.mark = gc_color_red; - c_733714.hdr.grayed = 0; -c_733714.tag = closureN_tag; - c_733714.fn = (function_type)__lambda_480; -c_733714.num_args = 1; -c_733714.num_elements = 2; -c_733714.elements = (object *)alloca(sizeof(object) * 2); -c_733714.elements[0] = ((closureN)self_73941)->elements[0]; -c_733714.elements[1] = ((closureN)self_73941)->elements[1]; - -return_closcall1(data,(closure)&c_733714, car(((closureN)self_73941)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73941)->elements[1], boolean_f);} -; -} - -static void __lambda_480(void *data, int argc, object self_73942, object r_73401) { - -closureN_type c_733716; -c_733716.hdr.mark = gc_color_red; - c_733716.hdr.grayed = 0; -c_733716.tag = closureN_tag; - c_733716.fn = (function_type)__lambda_479; -c_733716.num_args = 1; -c_733716.num_elements = 2; -c_733716.elements = (object *)alloca(sizeof(object) * 2); -c_733716.elements[0] = ((closureN)self_73942)->elements[0]; -c_733716.elements[1] = ((closureN)self_73942)->elements[1]; - -return_closcall1(data,(closure)&c_733716, Cyc_eq(obj_char2obj(46), r_73401));; -} - -static void __lambda_479(void *data, int argc, object self_73943, object r_73399) { - if( (boolean_f != r_73399) ){ - -closureN_type c_733718; -c_733718.hdr.mark = gc_color_red; - c_733718.hdr.grayed = 0; -c_733718.tag = closureN_tag; - c_733718.fn = (function_type)__lambda_478; -c_733718.num_args = 1; -c_733718.num_elements = 1; -c_733718.elements = (object *)alloca(sizeof(object) * 1); -c_733718.elements[0] = ((closureN)self_73943)->elements[1]; - -return_closcall1(data,(closure)&c_733718, cadr(((closureN)self_73943)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73943)->elements[1], boolean_f);} -; -} - -static void __lambda_478(void *data, int argc, object self_73944, object r_73400) { - return_closcall2(data, __glo_char_91numeric_127_scheme__char, ((closureN)self_73944)->elements[0], r_73400);; -} - -static void __lambda_477(void *data, int argc, closure _,object k_73406, object c_73171) { - Cyc_st_add(data, "scheme/read.sld:sign?"); - -closureN_type c_733690; -c_733690.hdr.mark = gc_color_red; - c_733690.hdr.grayed = 0; -c_733690.tag = closureN_tag; - c_733690.fn = (function_type)__lambda_476; -c_733690.num_args = 1; -c_733690.num_elements = 2; -c_733690.elements = (object *)alloca(sizeof(object) * 2); -c_733690.elements[0] = c_73171; -c_733690.elements[1] = k_73406; - -return_closcall1(data,(closure)&c_733690, equalp(c_73171, obj_char2obj(43)));; -} - -static void __lambda_476(void *data, int argc, object self_73945, object tmp_73172) { - if( (boolean_f != tmp_73172) ){ - return_closcall1(data, ((closureN)self_73945)->elements[1], tmp_73172); -} else { - return_closcall1(data, ((closureN)self_73945)->elements[1], equalp(((closureN)self_73945)->elements[0], obj_char2obj(45)));} -; -} - -static void __lambda_475(void *data, int argc, closure _,object k_73410, object fp_73175, object buf_73174, object ptbl_73173) { - Cyc_st_add(data, "scheme/read.sld:read-str-esc"); - -closureN_type c_733604; -c_733604.hdr.mark = gc_color_red; - c_733604.hdr.grayed = 0; -c_733604.tag = closureN_tag; - c_733604.fn = (function_type)__lambda_474; -c_733604.num_args = 1; -c_733604.num_elements = 3; -c_733604.elements = (object *)alloca(sizeof(object) * 3); -c_733604.elements[0] = buf_73174; -c_733604.elements[1] = k_73410; -c_733604.elements[2] = ptbl_73173; - - -object c_733687 = Cyc_io_read_char(data,(closure)&c_733604,fp_73175); -return_closcall1(data,(closure)&c_733604, c_733687);; -} - -static void __lambda_474(void *data, int argc, object self_73946, object c_73176) { - -closureN_type c_733606; -c_733606.hdr.mark = gc_color_red; - c_733606.hdr.grayed = 0; -c_733606.tag = closureN_tag; - c_733606.fn = (function_type)__lambda_473; -c_733606.num_args = 1; -c_733606.num_elements = 4; -c_733606.elements = (object *)alloca(sizeof(object) * 4); -c_733606.elements[0] = ((closureN)self_73946)->elements[0]; -c_733606.elements[1] = c_73176; -c_733606.elements[2] = ((closureN)self_73946)->elements[1]; -c_733606.elements[3] = ((closureN)self_73946)->elements[2]; - -return_closcall1(data,(closure)&c_733606, Cyc_is_eof_object(c_73176));; -} - -static void __lambda_473(void *data, int argc, object self_73947, object r_73412) { - if( (boolean_f != r_73412) ){ - -closureN_type c_733608; -c_733608.hdr.mark = gc_color_red; - c_733608.hdr.grayed = 0; -c_733608.tag = closureN_tag; - c_733608.fn = (function_type)__lambda_460; -c_733608.num_args = 0; -c_733608.num_elements = 2; -c_733608.elements = (object *)alloca(sizeof(object) * 2); -c_733608.elements[0] = ((closureN)self_73947)->elements[2]; -c_733608.elements[1] = ((closureN)self_73947)->elements[3]; - -return_closcall0(data,(closure)&c_733608); -} else { - -closureN_type c_733620; -c_733620.hdr.mark = gc_color_red; - c_733620.hdr.grayed = 0; -c_733620.tag = closureN_tag; - c_733620.fn = (function_type)__lambda_472; -c_733620.num_args = 1; -c_733620.num_elements = 4; -c_733620.elements = (object *)alloca(sizeof(object) * 4); -c_733620.elements[0] = ((closureN)self_73947)->elements[0]; -c_733620.elements[1] = ((closureN)self_73947)->elements[1]; -c_733620.elements[2] = ((closureN)self_73947)->elements[2]; -c_733620.elements[3] = ((closureN)self_73947)->elements[3]; - -return_closcall1(data,(closure)&c_733620, equalp(obj_char2obj(34), ((closureN)self_73947)->elements[1]));} -; -} - -static void __lambda_472(void *data, int argc, object self_73948, object tmp_73177) { - -closureN_type c_733622; -c_733622.hdr.mark = gc_color_red; - c_733622.hdr.grayed = 0; -c_733622.tag = closureN_tag; - c_733622.fn = (function_type)__lambda_461; -c_733622.num_args = 0; -c_733622.num_elements = 2; -c_733622.elements = (object *)alloca(sizeof(object) * 2); -c_733622.elements[0] = ((closureN)self_73948)->elements[1]; -c_733622.elements[1] = tmp_73177; - - -closureN_type c_733630; -c_733630.hdr.mark = gc_color_red; - c_733630.hdr.grayed = 0; -c_733630.tag = closureN_tag; - c_733630.fn = (function_type)__lambda_471; -c_733630.num_args = 1; -c_733630.num_elements = 4; -c_733630.elements = (object *)alloca(sizeof(object) * 4); -c_733630.elements[0] = ((closureN)self_73948)->elements[0]; -c_733630.elements[1] = ((closureN)self_73948)->elements[1]; -c_733630.elements[2] = ((closureN)self_73948)->elements[2]; -c_733630.elements[3] = ((closureN)self_73948)->elements[3]; - -return_closcall1(data,(closure)&c_733622, &c_733630);; -} - -static void __lambda_471(void *data, int argc, object self_73949, object r_73415) { - if( (boolean_f != r_73415) ){ - -closureN_type c_733632; -c_733632.hdr.mark = gc_color_red; - c_733632.hdr.grayed = 0; -c_733632.tag = closureN_tag; - c_733632.fn = (function_type)__lambda_462; -c_733632.num_args = 0; -c_733632.num_elements = 3; -c_733632.elements = (object *)alloca(sizeof(object) * 3); -c_733632.elements[0] = ((closureN)self_73949)->elements[0]; -c_733632.elements[1] = ((closureN)self_73949)->elements[1]; -c_733632.elements[2] = ((closureN)self_73949)->elements[2]; - -return_closcall0(data,(closure)&c_733632); -} else { - -closureN_type c_733641; -c_733641.hdr.mark = gc_color_red; - c_733641.hdr.grayed = 0; -c_733641.tag = closureN_tag; - c_733641.fn = (function_type)__lambda_470; -c_733641.num_args = 1; -c_733641.num_elements = 4; -c_733641.elements = (object *)alloca(sizeof(object) * 4); -c_733641.elements[0] = ((closureN)self_73949)->elements[0]; -c_733641.elements[1] = ((closureN)self_73949)->elements[1]; -c_733641.elements[2] = ((closureN)self_73949)->elements[2]; -c_733641.elements[3] = ((closureN)self_73949)->elements[3]; - -return_closcall1(data,(closure)&c_733641, equalp(obj_char2obj(110), ((closureN)self_73949)->elements[1]));} -; -} - -static void __lambda_470(void *data, int argc, object self_73950, object r_73416) { - if( (boolean_f != r_73416) ){ - -closureN_type c_733643; -c_733643.hdr.mark = gc_color_red; - c_733643.hdr.grayed = 0; -c_733643.tag = closureN_tag; - c_733643.fn = (function_type)__lambda_463; -c_733643.num_args = 0; -c_733643.num_elements = 2; -c_733643.elements = (object *)alloca(sizeof(object) * 2); -c_733643.elements[0] = ((closureN)self_73950)->elements[0]; -c_733643.elements[1] = ((closureN)self_73950)->elements[2]; - -return_closcall0(data,(closure)&c_733643); -} else { - -closureN_type c_733651; -c_733651.hdr.mark = gc_color_red; - c_733651.hdr.grayed = 0; -c_733651.tag = closureN_tag; - c_733651.fn = (function_type)__lambda_469; -c_733651.num_args = 0; -c_733651.num_elements = 3; -c_733651.elements = (object *)alloca(sizeof(object) * 3); -c_733651.elements[0] = ((closureN)self_73950)->elements[1]; -c_733651.elements[1] = ((closureN)self_73950)->elements[2]; -c_733651.elements[2] = ((closureN)self_73950)->elements[3]; - -return_closcall0(data,(closure)&c_733651);} -; -} - -static void __lambda_469(void *data, int argc, object self_73951) { - -closureN_type c_733653; -c_733653.hdr.mark = gc_color_red; - c_733653.hdr.grayed = 0; -c_733653.tag = closureN_tag; - c_733653.fn = (function_type)__lambda_468; -c_733653.num_args = 1; -c_733653.num_elements = 2; -c_733653.elements = (object *)alloca(sizeof(object) * 2); -c_733653.elements[0] = ((closureN)self_73951)->elements[1]; -c_733653.elements[1] = ((closureN)self_73951)->elements[2]; - -return_closcall2(data, __glo__list_scheme_base, &c_733653, ((closureN)self_73951)->elements[0]);; -} - -static void __lambda_468(void *data, int argc, object self_73952, object r_73421) { - -closureN_type c_733655; -c_733655.hdr.mark = gc_color_red; - c_733655.hdr.grayed = 0; -c_733655.tag = closureN_tag; - c_733655.fn = (function_type)__lambda_467; -c_733655.num_args = 1; -c_733655.num_elements = 2; -c_733655.elements = (object *)alloca(sizeof(object) * 2); -c_733655.elements[0] = ((closureN)self_73952)->elements[0]; -c_733655.elements[1] = ((closureN)self_73952)->elements[1]; - - -object c_733675 = Cyc_list2string(data,(closure)&c_733655,r_73421); -return_closcall1(data,(closure)&c_733655, c_733675);; -} - -static void __lambda_467(void *data, int argc, object self_73953, object r_73420) { - -closureN_type c_733657; -c_733657.hdr.mark = gc_color_red; - c_733657.hdr.grayed = 0; -c_733657.tag = closureN_tag; - c_733657.fn = (function_type)__lambda_466; -c_733657.num_args = 1; -c_733657.num_elements = 2; -c_733657.elements = (object *)alloca(sizeof(object) * 2); -c_733657.elements[0] = ((closureN)self_73953)->elements[0]; -c_733657.elements[1] = ((closureN)self_73953)->elements[1]; - - -make_string(c_733671, "invalid escape character ["); - -make_string(c_733672, "] in string"); - -object c_733670 = Cyc_string_append(data,(closure)&c_733657,3,&c_733671, r_73420, &c_733672); -return_closcall1(data,(closure)&c_733657, c_733670);; -} - -static void __lambda_466(void *data, int argc, object self_73954, object r_73417) { - -closureN_type c_733659; -c_733659.hdr.mark = gc_color_red; - c_733659.hdr.grayed = 0; -c_733659.tag = closureN_tag; - c_733659.fn = (function_type)__lambda_465; -c_733659.num_args = 1; -c_733659.num_elements = 3; -c_733659.elements = (object *)alloca(sizeof(object) * 3); -c_733659.elements[0] = ((closureN)self_73954)->elements[0]; -c_733659.elements[1] = ((closureN)self_73954)->elements[1]; -c_733659.elements[2] = r_73417; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733659, ((closureN)self_73954)->elements[1]);; -} - -static void __lambda_465(void *data, int argc, object self_73955, object r_73418) { - -closureN_type c_733661; -c_733661.hdr.mark = gc_color_red; - c_733661.hdr.grayed = 0; -c_733661.tag = closureN_tag; - c_733661.fn = (function_type)__lambda_464; -c_733661.num_args = 1; -c_733661.num_elements = 3; -c_733661.elements = (object *)alloca(sizeof(object) * 3); -c_733661.elements[0] = ((closureN)self_73955)->elements[0]; -c_733661.elements[1] = ((closureN)self_73955)->elements[2]; -c_733661.elements[2] = r_73418; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733661, ((closureN)self_73955)->elements[1]);; -} - -static void __lambda_464(void *data, int argc, object self_73956, object r_73419) { - return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73956)->elements[0], ((closureN)self_73956)->elements[1], ((closureN)self_73956)->elements[2], r_73419);; -} - -static void __lambda_463(void *data, int argc, object self_73957) { - -make_pair(c_733648,obj_char2obj(10), ((closureN)self_73957)->elements[0]); -return_closcall1(data, ((closureN)self_73957)->elements[1], &c_733648);; -} - -static void __lambda_462(void *data, int argc, object self_73958) { - -make_pair(c_733637,((closureN)self_73958)->elements[1], ((closureN)self_73958)->elements[0]); -return_closcall1(data, ((closureN)self_73958)->elements[2], &c_733637);; -} - -static void __lambda_461(void *data, int argc, object self_73959, object k_73423) { - if( (boolean_f != ((closureN)self_73959)->elements[1]) ){ - return_closcall1(data, k_73423, ((closureN)self_73959)->elements[1]); -} else { - return_closcall1(data, k_73423, equalp(obj_char2obj(92), ((closureN)self_73959)->elements[0]));} -; -} - -static void __lambda_460(void *data, int argc, object self_73960) { - -closureN_type c_733610; -c_733610.hdr.mark = gc_color_red; - c_733610.hdr.grayed = 0; -c_733610.tag = closureN_tag; - c_733610.fn = (function_type)__lambda_459; -c_733610.num_args = 1; -c_733610.num_elements = 2; -c_733610.elements = (object *)alloca(sizeof(object) * 2); -c_733610.elements[0] = ((closureN)self_73960)->elements[0]; -c_733610.elements[1] = ((closureN)self_73960)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733610, ((closureN)self_73960)->elements[1]);; -} - -static void __lambda_459(void *data, int argc, object self_73961, object r_73413) { - -closureN_type c_733612; -c_733612.hdr.mark = gc_color_red; - c_733612.hdr.grayed = 0; -c_733612.tag = closureN_tag; - c_733612.fn = (function_type)__lambda_458; -c_733612.num_args = 1; -c_733612.num_elements = 2; -c_733612.elements = (object *)alloca(sizeof(object) * 2); -c_733612.elements[0] = ((closureN)self_73961)->elements[0]; -c_733612.elements[1] = r_73413; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733612, ((closureN)self_73961)->elements[1]);; -} - -static void __lambda_458(void *data, int argc, object self_73962, object r_73414) { - -make_string(c_733615, "missing escaped character within string"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73962)->elements[0], &c_733615, ((closureN)self_73962)->elements[1], r_73414);; -} - -static void __lambda_457(void *data, int argc, closure _,object k_73426, object fp_73180, object buf_73179, object ptbl_73178) { - Cyc_st_add(data, "scheme/read.sld:read-str"); - -closureN_type c_733538; -c_733538.hdr.mark = gc_color_red; - c_733538.hdr.grayed = 0; -c_733538.tag = closureN_tag; - c_733538.fn = (function_type)__lambda_456; -c_733538.num_args = 1; -c_733538.num_elements = 4; -c_733538.elements = (object *)alloca(sizeof(object) * 4); -c_733538.elements[0] = buf_73179; -c_733538.elements[1] = fp_73180; -c_733538.elements[2] = k_73426; -c_733538.elements[3] = ptbl_73178; - - -object c_733601 = Cyc_io_read_char(data,(closure)&c_733538,fp_73180); -return_closcall1(data,(closure)&c_733538, c_733601);; -} - -static void __lambda_456(void *data, int argc, object self_73963, object c_73181) { - -closureN_type c_733540; -c_733540.hdr.mark = gc_color_red; - c_733540.hdr.grayed = 0; -c_733540.tag = closureN_tag; - c_733540.fn = (function_type)__lambda_455; -c_733540.num_args = 1; -c_733540.num_elements = 5; -c_733540.elements = (object *)alloca(sizeof(object) * 5); -c_733540.elements[0] = ((closureN)self_73963)->elements[0]; -c_733540.elements[1] = c_73181; -c_733540.elements[2] = ((closureN)self_73963)->elements[1]; -c_733540.elements[3] = ((closureN)self_73963)->elements[2]; -c_733540.elements[4] = ((closureN)self_73963)->elements[3]; - -return_closcall1(data,(closure)&c_733540, Cyc_is_eof_object(c_73181));; -} - -static void __lambda_455(void *data, int argc, object self_73964, object r_73428) { - if( (boolean_f != r_73428) ){ - -closureN_type c_733542; -c_733542.hdr.mark = gc_color_red; - c_733542.hdr.grayed = 0; -c_733542.tag = closureN_tag; - c_733542.fn = (function_type)__lambda_446; -c_733542.num_args = 0; -c_733542.num_elements = 2; -c_733542.elements = (object *)alloca(sizeof(object) * 2); -c_733542.elements[0] = ((closureN)self_73964)->elements[3]; -c_733542.elements[1] = ((closureN)self_73964)->elements[4]; - -return_closcall0(data,(closure)&c_733542); -} else { - -closureN_type c_733554; -c_733554.hdr.mark = gc_color_red; - c_733554.hdr.grayed = 0; -c_733554.tag = closureN_tag; - c_733554.fn = (function_type)__lambda_454; -c_733554.num_args = 1; -c_733554.num_elements = 5; -c_733554.elements = (object *)alloca(sizeof(object) * 5); -c_733554.elements[0] = ((closureN)self_73964)->elements[0]; -c_733554.elements[1] = ((closureN)self_73964)->elements[1]; -c_733554.elements[2] = ((closureN)self_73964)->elements[2]; -c_733554.elements[3] = ((closureN)self_73964)->elements[3]; -c_733554.elements[4] = ((closureN)self_73964)->elements[4]; - -return_closcall1(data,(closure)&c_733554, equalp(obj_char2obj(92), ((closureN)self_73964)->elements[1]));} -; -} - -static void __lambda_454(void *data, int argc, object self_73965, object r_73431) { - if( (boolean_f != r_73431) ){ - -closureN_type c_733556; -c_733556.hdr.mark = gc_color_red; - c_733556.hdr.grayed = 0; -c_733556.tag = closureN_tag; - c_733556.fn = (function_type)__lambda_448; -c_733556.num_args = 0; -c_733556.num_elements = 4; -c_733556.elements = (object *)alloca(sizeof(object) * 4); -c_733556.elements[0] = ((closureN)self_73965)->elements[0]; -c_733556.elements[1] = ((closureN)self_73965)->elements[2]; -c_733556.elements[2] = ((closureN)self_73965)->elements[3]; -c_733556.elements[3] = ((closureN)self_73965)->elements[4]; - -return_closcall0(data,(closure)&c_733556); -} else { - -closureN_type c_733567; -c_733567.hdr.mark = gc_color_red; - c_733567.hdr.grayed = 0; -c_733567.tag = closureN_tag; - c_733567.fn = (function_type)__lambda_453; -c_733567.num_args = 1; -c_733567.num_elements = 5; -c_733567.elements = (object *)alloca(sizeof(object) * 5); -c_733567.elements[0] = ((closureN)self_73965)->elements[0]; -c_733567.elements[1] = ((closureN)self_73965)->elements[1]; -c_733567.elements[2] = ((closureN)self_73965)->elements[2]; -c_733567.elements[3] = ((closureN)self_73965)->elements[3]; -c_733567.elements[4] = ((closureN)self_73965)->elements[4]; - -return_closcall1(data,(closure)&c_733567, equalp(obj_char2obj(34), ((closureN)self_73965)->elements[1]));} -; -} - -static void __lambda_453(void *data, int argc, object self_73966, object r_73433) { - if( (boolean_f != r_73433) ){ - -closureN_type c_733569; -c_733569.hdr.mark = gc_color_red; - c_733569.hdr.grayed = 0; -c_733569.tag = closureN_tag; - c_733569.fn = (function_type)__lambda_450; -c_733569.num_args = 0; -c_733569.num_elements = 2; -c_733569.elements = (object *)alloca(sizeof(object) * 2); -c_733569.elements[0] = ((closureN)self_73966)->elements[0]; -c_733569.elements[1] = ((closureN)self_73966)->elements[3]; - -return_closcall0(data,(closure)&c_733569); -} else { - -closureN_type c_733579; -c_733579.hdr.mark = gc_color_red; - c_733579.hdr.grayed = 0; -c_733579.tag = closureN_tag; - c_733579.fn = (function_type)__lambda_452; -c_733579.num_args = 0; -c_733579.num_elements = 5; -c_733579.elements = (object *)alloca(sizeof(object) * 5); -c_733579.elements[0] = ((closureN)self_73966)->elements[0]; -c_733579.elements[1] = ((closureN)self_73966)->elements[1]; -c_733579.elements[2] = ((closureN)self_73966)->elements[2]; -c_733579.elements[3] = ((closureN)self_73966)->elements[3]; -c_733579.elements[4] = ((closureN)self_73966)->elements[4]; - -return_closcall0(data,(closure)&c_733579);} -; -} - -static void __lambda_452(void *data, int argc, object self_73967) { - -closureN_type c_733581; -c_733581.hdr.mark = gc_color_red; - c_733581.hdr.grayed = 0; -c_733581.tag = closureN_tag; - c_733581.fn = (function_type)__lambda_451; -c_733581.num_args = 1; -c_733581.num_elements = 3; -c_733581.elements = (object *)alloca(sizeof(object) * 3); -c_733581.elements[0] = ((closureN)self_73967)->elements[2]; -c_733581.elements[1] = ((closureN)self_73967)->elements[3]; -c_733581.elements[2] = ((closureN)self_73967)->elements[4]; - - -make_pair(c_733588,((closureN)self_73967)->elements[1], ((closureN)self_73967)->elements[0]); -return_closcall1(data,(closure)&c_733581, &c_733588);; -} - -static void __lambda_451(void *data, int argc, object self_73968, object r_73435) { - return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73968)->elements[1], ((closureN)self_73968)->elements[0], r_73435, ((closureN)self_73968)->elements[2]);; -} - -static void __lambda_450(void *data, int argc, object self_73969) { - -closureN_type c_733571; -c_733571.hdr.mark = gc_color_red; - c_733571.hdr.grayed = 0; -c_733571.tag = closureN_tag; - c_733571.fn = (function_type)__lambda_449; -c_733571.num_args = 1; -c_733571.num_elements = 1; -c_733571.elements = (object *)alloca(sizeof(object) * 1); -c_733571.elements[0] = ((closureN)self_73969)->elements[1]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_733571, ((closureN)self_73969)->elements[0]);; -} - -static void __lambda_449(void *data, int argc, object self_73970, object r_73434) { - -object c_733576 = Cyc_list2string(data, ((closureN)self_73970)->elements[0],r_73434); -return_closcall1(data, ((closureN)self_73970)->elements[0], c_733576);; -} - -static void __lambda_448(void *data, int argc, object self_73971) { - -closureN_type c_733558; -c_733558.hdr.mark = gc_color_red; - c_733558.hdr.grayed = 0; -c_733558.tag = closureN_tag; - c_733558.fn = (function_type)__lambda_447; -c_733558.num_args = 1; -c_733558.num_elements = 3; -c_733558.elements = (object *)alloca(sizeof(object) * 3); -c_733558.elements[0] = ((closureN)self_73971)->elements[1]; -c_733558.elements[1] = ((closureN)self_73971)->elements[2]; -c_733558.elements[2] = ((closureN)self_73971)->elements[3]; - -return_closcall4(data, __glo_read_91str_91esc_scheme_read, &c_733558, ((closureN)self_73971)->elements[1], ((closureN)self_73971)->elements[0], ((closureN)self_73971)->elements[3]);; -} - -static void __lambda_447(void *data, int argc, object self_73972, object r_73432) { - return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73972)->elements[1], ((closureN)self_73972)->elements[0], r_73432, ((closureN)self_73972)->elements[2]);; -} - -static void __lambda_446(void *data, int argc, object self_73973) { - -closureN_type c_733544; -c_733544.hdr.mark = gc_color_red; - c_733544.hdr.grayed = 0; -c_733544.tag = closureN_tag; - c_733544.fn = (function_type)__lambda_445; -c_733544.num_args = 1; -c_733544.num_elements = 2; -c_733544.elements = (object *)alloca(sizeof(object) * 2); -c_733544.elements[0] = ((closureN)self_73973)->elements[0]; -c_733544.elements[1] = ((closureN)self_73973)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733544, ((closureN)self_73973)->elements[1]);; -} - -static void __lambda_445(void *data, int argc, object self_73974, object r_73429) { - -closureN_type c_733546; -c_733546.hdr.mark = gc_color_red; - c_733546.hdr.grayed = 0; -c_733546.tag = closureN_tag; - c_733546.fn = (function_type)__lambda_444; -c_733546.num_args = 1; -c_733546.num_elements = 2; -c_733546.elements = (object *)alloca(sizeof(object) * 2); -c_733546.elements[0] = ((closureN)self_73974)->elements[0]; -c_733546.elements[1] = r_73429; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733546, ((closureN)self_73974)->elements[1]);; -} - -static void __lambda_444(void *data, int argc, object self_73975, object r_73430) { - -make_string(c_733549, "missing closing double-quote"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73975)->elements[0], &c_733549, ((closureN)self_73975)->elements[1], r_73430);; -} - -static void __lambda_443(void *data, int argc, closure _,object k_73438, object fp_73183, object ptbl_73182) { - Cyc_st_add(data, "scheme/read.sld:read-pound"); - -closureN_type c_733160; -c_733160.hdr.mark = gc_color_red; - c_733160.hdr.grayed = 0; -c_733160.tag = closureN_tag; - c_733160.fn = (function_type)__lambda_442; -c_733160.num_args = 2; -c_733160.num_elements = 3; -c_733160.elements = (object *)alloca(sizeof(object) * 3); -c_733160.elements[0] = fp_73183; -c_733160.elements[1] = k_73438; -c_733160.elements[2] = ptbl_73182; - -return_closcall2(data,(closure)&c_733160, boolean_f, boolean_f);; -} - -static void __lambda_442(void *data, int argc, object self_73976, object done_73187, object loop_73186) { - -closureN_type c_733162; -c_733162.hdr.mark = gc_color_red; - c_733162.hdr.grayed = 0; -c_733162.tag = closureN_tag; - c_733162.fn = (function_type)__lambda_441; -c_733162.num_args = 1; -c_733162.num_elements = 4; -c_733162.elements = (object *)alloca(sizeof(object) * 4); -c_733162.elements[0] = ((closureN)self_73976)->elements[0]; -c_733162.elements[1] = ((closureN)self_73976)->elements[1]; -c_733162.elements[2] = loop_73186; -c_733162.elements[3] = ((closureN)self_73976)->elements[2]; - - -make_cell(c_733535,done_73187); -return_closcall1(data,(closure)&c_733162, &c_733535);; -} - -static void __lambda_441(void *data, int argc, object self_73977, object done_73187) { - -closureN_type c_733164; -c_733164.hdr.mark = gc_color_red; - c_733164.hdr.grayed = 0; -c_733164.tag = closureN_tag; - c_733164.fn = (function_type)__lambda_440; -c_733164.num_args = 1; -c_733164.num_elements = 4; -c_733164.elements = (object *)alloca(sizeof(object) * 4); -c_733164.elements[0] = done_73187; -c_733164.elements[1] = ((closureN)self_73977)->elements[0]; -c_733164.elements[2] = ((closureN)self_73977)->elements[1]; -c_733164.elements[3] = ((closureN)self_73977)->elements[3]; - - -make_cell(c_733531,((closureN)self_73977)->elements[2]); -return_closcall1(data,(closure)&c_733164, &c_733531);; -} - -static void __lambda_440(void *data, int argc, object self_73978, object loop_73186) { - -closureN_type c_733166; -c_733166.hdr.mark = gc_color_red; - c_733166.hdr.grayed = 0; -c_733166.tag = closureN_tag; - c_733166.fn = (function_type)__lambda_439; -c_733166.num_args = 0; -c_733166.num_elements = 5; -c_733166.elements = (object *)alloca(sizeof(object) * 5); -c_733166.elements[0] = ((closureN)self_73978)->elements[0]; -c_733166.elements[1] = ((closureN)self_73978)->elements[1]; -c_733166.elements[2] = ((closureN)self_73978)->elements[2]; -c_733166.elements[3] = loop_73186; -c_733166.elements[4] = ((closureN)self_73978)->elements[3]; - -return_closcall0(data,(closure)&c_733166);; -} - -static void __lambda_439(void *data, int argc, object self_73979) { - -closureN_type c_733168; -c_733168.hdr.mark = gc_color_red; - c_733168.hdr.grayed = 0; -c_733168.tag = closureN_tag; - c_733168.fn = (function_type)__lambda_387; -c_733168.num_args = 1; -c_733168.num_elements = 4; -c_733168.elements = (object *)alloca(sizeof(object) * 4); -c_733168.elements[0] = ((closureN)self_73979)->elements[0]; -c_733168.elements[1] = ((closureN)self_73979)->elements[1]; -c_733168.elements[2] = ((closureN)self_73979)->elements[2]; -c_733168.elements[3] = ((closureN)self_73979)->elements[3]; - - -closureN_type c_733269; -c_733269.hdr.mark = gc_color_red; - c_733269.hdr.grayed = 0; -c_733269.tag = closureN_tag; - c_733269.fn = (function_type)__lambda_438; -c_733269.num_args = 1; -c_733269.num_elements = 1; -c_733269.elements = (object *)alloca(sizeof(object) * 1); -c_733269.elements[0] = ((closureN)self_73979)->elements[4]; - -return_closcall1(data,(closure)&c_733168, &c_733269);; -} - -static void __lambda_438(void *data, int argc, object self_73980, object k_73457, object raw_91buf_73194) { - -closureN_type c_733271; -c_733271.hdr.mark = gc_color_red; - c_733271.hdr.grayed = 0; -c_733271.tag = closureN_tag; - c_733271.fn = (function_type)__lambda_437; -c_733271.num_args = 1; -c_733271.num_elements = 2; -c_733271.elements = (object *)alloca(sizeof(object) * 2); -c_733271.elements[0] = k_73457; -c_733271.elements[1] = ((closureN)self_73980)->elements[0]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_733271, raw_91buf_73194);; -} - -static void __lambda_437(void *data, int argc, object self_73981, object buf_73195) { - -closureN_type c_733273; -c_733273.hdr.mark = gc_color_red; - c_733273.hdr.grayed = 0; -c_733273.tag = closureN_tag; - c_733273.fn = (function_type)__lambda_436; -c_733273.num_args = 1; -c_733273.num_elements = 3; -c_733273.elements = (object *)alloca(sizeof(object) * 3); -c_733273.elements[0] = buf_73195; -c_733273.elements[1] = ((closureN)self_73981)->elements[0]; -c_733273.elements[2] = ((closureN)self_73981)->elements[1]; - -return_closcall1(data,(closure)&c_733273, Cyc_length(data, buf_73195));; -} - -static void __lambda_436(void *data, int argc, object self_73982, object r_73494) { - -closureN_type c_733275; -c_733275.hdr.mark = gc_color_red; - c_733275.hdr.grayed = 0; -c_733275.tag = closureN_tag; - c_733275.fn = (function_type)__lambda_435; -c_733275.num_args = 1; -c_733275.num_elements = 3; -c_733275.elements = (object *)alloca(sizeof(object) * 3); -c_733275.elements[0] = ((closureN)self_73982)->elements[0]; -c_733275.elements[1] = ((closureN)self_73982)->elements[1]; -c_733275.elements[2] = ((closureN)self_73982)->elements[2]; - - -object c_733526 = Cyc_num_eq(data,(closure)&c_733275,2,obj_int2obj(0), r_73494); -return_closcall1(data,(closure)&c_733275, c_733526);; -} - -static void __lambda_435(void *data, int argc, object self_73983, object r_73459) { - if( (boolean_f != r_73459) ){ - -closureN_type c_733277; -c_733277.hdr.mark = gc_color_red; - c_733277.hdr.grayed = 0; -c_733277.tag = closureN_tag; - c_733277.fn = (function_type)__lambda_390; -c_733277.num_args = 0; -c_733277.num_elements = 2; -c_733277.elements = (object *)alloca(sizeof(object) * 2); -c_733277.elements[0] = ((closureN)self_73983)->elements[1]; -c_733277.elements[1] = ((closureN)self_73983)->elements[2]; - -return_closcall0(data,(closure)&c_733277); -} else { - -closureN_type c_733289; -c_733289.hdr.mark = gc_color_red; - c_733289.hdr.grayed = 0; -c_733289.tag = closureN_tag; - c_733289.fn = (function_type)__lambda_434; -c_733289.num_args = 1; -c_733289.num_elements = 3; -c_733289.elements = (object *)alloca(sizeof(object) * 3); -c_733289.elements[0] = ((closureN)self_73983)->elements[0]; -c_733289.elements[1] = ((closureN)self_73983)->elements[1]; -c_733289.elements[2] = ((closureN)self_73983)->elements[2]; - -return_closcall1(data,(closure)&c_733289, Cyc_length(data, ((closureN)self_73983)->elements[0]));} -; -} - -static void __lambda_434(void *data, int argc, object self_73984, object r_73493) { - -closureN_type c_733291; -c_733291.hdr.mark = gc_color_red; - c_733291.hdr.grayed = 0; -c_733291.tag = closureN_tag; - c_733291.fn = (function_type)__lambda_433; -c_733291.num_args = 1; -c_733291.num_elements = 3; -c_733291.elements = (object *)alloca(sizeof(object) * 3); -c_733291.elements[0] = ((closureN)self_73984)->elements[0]; -c_733291.elements[1] = ((closureN)self_73984)->elements[1]; -c_733291.elements[2] = ((closureN)self_73984)->elements[2]; - - -object c_733520 = Cyc_num_eq(data,(closure)&c_733291,2,obj_int2obj(1), r_73493); -return_closcall1(data,(closure)&c_733291, c_733520);; -} - -static void __lambda_433(void *data, int argc, object self_73985, object r_73462) { - if( (boolean_f != r_73462) ){ - -closureN_type c_733293; -c_733293.hdr.mark = gc_color_red; - c_733293.hdr.grayed = 0; -c_733293.tag = closureN_tag; - c_733293.fn = (function_type)__lambda_391; -c_733293.num_args = 0; -c_733293.num_elements = 2; -c_733293.elements = (object *)alloca(sizeof(object) * 2); -c_733293.elements[0] = ((closureN)self_73985)->elements[0]; -c_733293.elements[1] = ((closureN)self_73985)->elements[1]; - -return_closcall0(data,(closure)&c_733293); -} else { - -closureN_type c_733300; -c_733300.hdr.mark = gc_color_red; - c_733300.hdr.grayed = 0; -c_733300.tag = closureN_tag; - c_733300.fn = (function_type)__lambda_432; -c_733300.num_args = 1; -c_733300.num_elements = 3; -c_733300.elements = (object *)alloca(sizeof(object) * 3); -c_733300.elements[0] = ((closureN)self_73985)->elements[0]; -c_733300.elements[1] = ((closureN)self_73985)->elements[1]; -c_733300.elements[2] = ((closureN)self_73985)->elements[2]; - - -make_pair(c_733517,obj_char2obj(109),NULL); - -make_pair(c_733516,obj_char2obj(114),&c_733517); - -make_pair(c_733515,obj_char2obj(97),&c_733516); - -make_pair(c_733514,obj_char2obj(108),&c_733515); - -make_pair(c_733513,obj_char2obj(97),&c_733514); -return_closcall1(data,(closure)&c_733300, &c_733513);} -; -} - -static void __lambda_432(void *data, int argc, object self_73986, object r_73492) { - -closureN_type c_733302; -c_733302.hdr.mark = gc_color_red; - c_733302.hdr.grayed = 0; -c_733302.tag = closureN_tag; - c_733302.fn = (function_type)__lambda_431; -c_733302.num_args = 1; -c_733302.num_elements = 3; -c_733302.elements = (object *)alloca(sizeof(object) * 3); -c_733302.elements[0] = ((closureN)self_73986)->elements[0]; -c_733302.elements[1] = ((closureN)self_73986)->elements[1]; -c_733302.elements[2] = ((closureN)self_73986)->elements[2]; - -return_closcall1(data,(closure)&c_733302, equalp(((closureN)self_73986)->elements[0], r_73492));; -} - -static void __lambda_431(void *data, int argc, object self_73987, object r_73463) { - if( (boolean_f != r_73463) ){ - -closureN_type c_733304; -c_733304.hdr.mark = gc_color_red; - c_733304.hdr.grayed = 0; -c_733304.tag = closureN_tag; - c_733304.fn = (function_type)__lambda_392; -c_733304.num_args = 0; -c_733304.num_elements = 1; -c_733304.elements = (object *)alloca(sizeof(object) * 1); -c_733304.elements[0] = ((closureN)self_73987)->elements[1]; - -return_closcall0(data,(closure)&c_733304); -} else { - -closureN_type c_733308; -c_733308.hdr.mark = gc_color_red; - c_733308.hdr.grayed = 0; -c_733308.tag = closureN_tag; - c_733308.fn = (function_type)__lambda_430; -c_733308.num_args = 1; -c_733308.num_elements = 3; -c_733308.elements = (object *)alloca(sizeof(object) * 3); -c_733308.elements[0] = ((closureN)self_73987)->elements[0]; -c_733308.elements[1] = ((closureN)self_73987)->elements[1]; -c_733308.elements[2] = ((closureN)self_73987)->elements[2]; - - -make_pair(c_733509,obj_char2obj(101),NULL); - -make_pair(c_733508,obj_char2obj(99),&c_733509); - -make_pair(c_733507,obj_char2obj(97),&c_733508); - -make_pair(c_733506,obj_char2obj(112),&c_733507); - -make_pair(c_733505,obj_char2obj(115),&c_733506); - -make_pair(c_733504,obj_char2obj(107),&c_733505); - -make_pair(c_733503,obj_char2obj(99),&c_733504); - -make_pair(c_733502,obj_char2obj(97),&c_733503); - -make_pair(c_733501,obj_char2obj(98),&c_733502); -return_closcall1(data,(closure)&c_733308, &c_733501);} -; -} - -static void __lambda_430(void *data, int argc, object self_73988, object r_73491) { - -closureN_type c_733310; -c_733310.hdr.mark = gc_color_red; - c_733310.hdr.grayed = 0; -c_733310.tag = closureN_tag; - c_733310.fn = (function_type)__lambda_429; -c_733310.num_args = 1; -c_733310.num_elements = 3; -c_733310.elements = (object *)alloca(sizeof(object) * 3); -c_733310.elements[0] = ((closureN)self_73988)->elements[0]; -c_733310.elements[1] = ((closureN)self_73988)->elements[1]; -c_733310.elements[2] = ((closureN)self_73988)->elements[2]; - -return_closcall1(data,(closure)&c_733310, equalp(((closureN)self_73988)->elements[0], r_73491));; -} - -static void __lambda_429(void *data, int argc, object self_73989, object r_73464) { - if( (boolean_f != r_73464) ){ - -closureN_type c_733312; -c_733312.hdr.mark = gc_color_red; - c_733312.hdr.grayed = 0; -c_733312.tag = closureN_tag; - c_733312.fn = (function_type)__lambda_393; -c_733312.num_args = 0; -c_733312.num_elements = 1; -c_733312.elements = (object *)alloca(sizeof(object) * 1); -c_733312.elements[0] = ((closureN)self_73989)->elements[1]; - -return_closcall0(data,(closure)&c_733312); -} else { - -closureN_type c_733316; -c_733316.hdr.mark = gc_color_red; - c_733316.hdr.grayed = 0; -c_733316.tag = closureN_tag; - c_733316.fn = (function_type)__lambda_428; -c_733316.num_args = 1; -c_733316.num_elements = 3; -c_733316.elements = (object *)alloca(sizeof(object) * 3); -c_733316.elements[0] = ((closureN)self_73989)->elements[0]; -c_733316.elements[1] = ((closureN)self_73989)->elements[1]; -c_733316.elements[2] = ((closureN)self_73989)->elements[2]; - - -make_pair(c_733497,obj_char2obj(101),NULL); - -make_pair(c_733496,obj_char2obj(116),&c_733497); - -make_pair(c_733495,obj_char2obj(101),&c_733496); - -make_pair(c_733494,obj_char2obj(108),&c_733495); - -make_pair(c_733493,obj_char2obj(101),&c_733494); - -make_pair(c_733492,obj_char2obj(100),&c_733493); -return_closcall1(data,(closure)&c_733316, &c_733492);} -; -} - -static void __lambda_428(void *data, int argc, object self_73990, object r_73490) { - -closureN_type c_733318; -c_733318.hdr.mark = gc_color_red; - c_733318.hdr.grayed = 0; -c_733318.tag = closureN_tag; - c_733318.fn = (function_type)__lambda_427; -c_733318.num_args = 1; -c_733318.num_elements = 3; -c_733318.elements = (object *)alloca(sizeof(object) * 3); -c_733318.elements[0] = ((closureN)self_73990)->elements[0]; -c_733318.elements[1] = ((closureN)self_73990)->elements[1]; -c_733318.elements[2] = ((closureN)self_73990)->elements[2]; - -return_closcall1(data,(closure)&c_733318, equalp(((closureN)self_73990)->elements[0], r_73490));; -} - -static void __lambda_427(void *data, int argc, object self_73991, object r_73465) { - if( (boolean_f != r_73465) ){ - -closureN_type c_733320; -c_733320.hdr.mark = gc_color_red; - c_733320.hdr.grayed = 0; -c_733320.tag = closureN_tag; - c_733320.fn = (function_type)__lambda_394; -c_733320.num_args = 0; -c_733320.num_elements = 1; -c_733320.elements = (object *)alloca(sizeof(object) * 1); -c_733320.elements[0] = ((closureN)self_73991)->elements[1]; - -return_closcall0(data,(closure)&c_733320); -} else { - -closureN_type c_733324; -c_733324.hdr.mark = gc_color_red; - c_733324.hdr.grayed = 0; -c_733324.tag = closureN_tag; - c_733324.fn = (function_type)__lambda_426; -c_733324.num_args = 1; -c_733324.num_elements = 3; -c_733324.elements = (object *)alloca(sizeof(object) * 3); -c_733324.elements[0] = ((closureN)self_73991)->elements[0]; -c_733324.elements[1] = ((closureN)self_73991)->elements[1]; -c_733324.elements[2] = ((closureN)self_73991)->elements[2]; - - -make_pair(c_733488,obj_char2obj(101),NULL); - -make_pair(c_733487,obj_char2obj(112),&c_733488); - -make_pair(c_733486,obj_char2obj(97),&c_733487); - -make_pair(c_733485,obj_char2obj(99),&c_733486); - -make_pair(c_733484,obj_char2obj(115),&c_733485); - -make_pair(c_733483,obj_char2obj(101),&c_733484); -return_closcall1(data,(closure)&c_733324, &c_733483);} -; -} - -static void __lambda_426(void *data, int argc, object self_73992, object r_73489) { - -closureN_type c_733326; -c_733326.hdr.mark = gc_color_red; - c_733326.hdr.grayed = 0; -c_733326.tag = closureN_tag; - c_733326.fn = (function_type)__lambda_425; -c_733326.num_args = 1; -c_733326.num_elements = 3; -c_733326.elements = (object *)alloca(sizeof(object) * 3); -c_733326.elements[0] = ((closureN)self_73992)->elements[0]; -c_733326.elements[1] = ((closureN)self_73992)->elements[1]; -c_733326.elements[2] = ((closureN)self_73992)->elements[2]; - -return_closcall1(data,(closure)&c_733326, equalp(((closureN)self_73992)->elements[0], r_73489));; -} - -static void __lambda_425(void *data, int argc, object self_73993, object r_73466) { - if( (boolean_f != r_73466) ){ - -closureN_type c_733328; -c_733328.hdr.mark = gc_color_red; - c_733328.hdr.grayed = 0; -c_733328.tag = closureN_tag; - c_733328.fn = (function_type)__lambda_395; -c_733328.num_args = 0; -c_733328.num_elements = 1; -c_733328.elements = (object *)alloca(sizeof(object) * 1); -c_733328.elements[0] = ((closureN)self_73993)->elements[1]; - -return_closcall0(data,(closure)&c_733328); -} else { - -closureN_type c_733332; -c_733332.hdr.mark = gc_color_red; - c_733332.hdr.grayed = 0; -c_733332.tag = closureN_tag; - c_733332.fn = (function_type)__lambda_424; -c_733332.num_args = 1; -c_733332.num_elements = 3; -c_733332.elements = (object *)alloca(sizeof(object) * 3); -c_733332.elements[0] = ((closureN)self_73993)->elements[0]; -c_733332.elements[1] = ((closureN)self_73993)->elements[1]; -c_733332.elements[2] = ((closureN)self_73993)->elements[2]; - - -make_pair(c_733479,obj_char2obj(101),NULL); - -make_pair(c_733478,obj_char2obj(110),&c_733479); - -make_pair(c_733477,obj_char2obj(105),&c_733478); - -make_pair(c_733476,obj_char2obj(108),&c_733477); - -make_pair(c_733475,obj_char2obj(119),&c_733476); - -make_pair(c_733474,obj_char2obj(101),&c_733475); - -make_pair(c_733473,obj_char2obj(110),&c_733474); -return_closcall1(data,(closure)&c_733332, &c_733473);} -; -} - -static void __lambda_424(void *data, int argc, object self_73994, object r_73488) { - -closureN_type c_733334; -c_733334.hdr.mark = gc_color_red; - c_733334.hdr.grayed = 0; -c_733334.tag = closureN_tag; - c_733334.fn = (function_type)__lambda_423; -c_733334.num_args = 1; -c_733334.num_elements = 3; -c_733334.elements = (object *)alloca(sizeof(object) * 3); -c_733334.elements[0] = ((closureN)self_73994)->elements[0]; -c_733334.elements[1] = ((closureN)self_73994)->elements[1]; -c_733334.elements[2] = ((closureN)self_73994)->elements[2]; - -return_closcall1(data,(closure)&c_733334, equalp(((closureN)self_73994)->elements[0], r_73488));; -} - -static void __lambda_423(void *data, int argc, object self_73995, object r_73467) { - if( (boolean_f != r_73467) ){ - -closureN_type c_733336; -c_733336.hdr.mark = gc_color_red; - c_733336.hdr.grayed = 0; -c_733336.tag = closureN_tag; - c_733336.fn = (function_type)__lambda_396; -c_733336.num_args = 0; -c_733336.num_elements = 1; -c_733336.elements = (object *)alloca(sizeof(object) * 1); -c_733336.elements[0] = ((closureN)self_73995)->elements[1]; - -return_closcall0(data,(closure)&c_733336); -} else { - -closureN_type c_733340; -c_733340.hdr.mark = gc_color_red; - c_733340.hdr.grayed = 0; -c_733340.tag = closureN_tag; - c_733340.fn = (function_type)__lambda_422; -c_733340.num_args = 1; -c_733340.num_elements = 3; -c_733340.elements = (object *)alloca(sizeof(object) * 3); -c_733340.elements[0] = ((closureN)self_73995)->elements[0]; -c_733340.elements[1] = ((closureN)self_73995)->elements[1]; -c_733340.elements[2] = ((closureN)self_73995)->elements[2]; - - -make_pair(c_733469,obj_char2obj(108),NULL); - -make_pair(c_733468,obj_char2obj(108),&c_733469); - -make_pair(c_733467,obj_char2obj(117),&c_733468); - -make_pair(c_733466,obj_char2obj(110),&c_733467); -return_closcall1(data,(closure)&c_733340, &c_733466);} -; -} - -static void __lambda_422(void *data, int argc, object self_73996, object r_73487) { - -closureN_type c_733342; -c_733342.hdr.mark = gc_color_red; - c_733342.hdr.grayed = 0; -c_733342.tag = closureN_tag; - c_733342.fn = (function_type)__lambda_421; -c_733342.num_args = 1; -c_733342.num_elements = 3; -c_733342.elements = (object *)alloca(sizeof(object) * 3); -c_733342.elements[0] = ((closureN)self_73996)->elements[0]; -c_733342.elements[1] = ((closureN)self_73996)->elements[1]; -c_733342.elements[2] = ((closureN)self_73996)->elements[2]; - -return_closcall1(data,(closure)&c_733342, equalp(((closureN)self_73996)->elements[0], r_73487));; -} - -static void __lambda_421(void *data, int argc, object self_73997, object r_73468) { - if( (boolean_f != r_73468) ){ - -closureN_type c_733344; -c_733344.hdr.mark = gc_color_red; - c_733344.hdr.grayed = 0; -c_733344.tag = closureN_tag; - c_733344.fn = (function_type)__lambda_397; -c_733344.num_args = 0; -c_733344.num_elements = 1; -c_733344.elements = (object *)alloca(sizeof(object) * 1); -c_733344.elements[0] = ((closureN)self_73997)->elements[1]; - -return_closcall0(data,(closure)&c_733344); -} else { - -closureN_type c_733348; -c_733348.hdr.mark = gc_color_red; - c_733348.hdr.grayed = 0; -c_733348.tag = closureN_tag; - c_733348.fn = (function_type)__lambda_420; -c_733348.num_args = 1; -c_733348.num_elements = 3; -c_733348.elements = (object *)alloca(sizeof(object) * 3); -c_733348.elements[0] = ((closureN)self_73997)->elements[0]; -c_733348.elements[1] = ((closureN)self_73997)->elements[1]; -c_733348.elements[2] = ((closureN)self_73997)->elements[2]; - - -make_pair(c_733462,obj_char2obj(110),NULL); - -make_pair(c_733461,obj_char2obj(114),&c_733462); - -make_pair(c_733460,obj_char2obj(117),&c_733461); - -make_pair(c_733459,obj_char2obj(116),&c_733460); - -make_pair(c_733458,obj_char2obj(101),&c_733459); - -make_pair(c_733457,obj_char2obj(114),&c_733458); -return_closcall1(data,(closure)&c_733348, &c_733457);} -; -} - -static void __lambda_420(void *data, int argc, object self_73998, object r_73486) { - -closureN_type c_733350; -c_733350.hdr.mark = gc_color_red; - c_733350.hdr.grayed = 0; -c_733350.tag = closureN_tag; - c_733350.fn = (function_type)__lambda_419; -c_733350.num_args = 1; -c_733350.num_elements = 3; -c_733350.elements = (object *)alloca(sizeof(object) * 3); -c_733350.elements[0] = ((closureN)self_73998)->elements[0]; -c_733350.elements[1] = ((closureN)self_73998)->elements[1]; -c_733350.elements[2] = ((closureN)self_73998)->elements[2]; - -return_closcall1(data,(closure)&c_733350, equalp(((closureN)self_73998)->elements[0], r_73486));; -} - -static void __lambda_419(void *data, int argc, object self_73999, object r_73469) { - if( (boolean_f != r_73469) ){ - -closureN_type c_733352; -c_733352.hdr.mark = gc_color_red; - c_733352.hdr.grayed = 0; -c_733352.tag = closureN_tag; - c_733352.fn = (function_type)__lambda_398; -c_733352.num_args = 0; -c_733352.num_elements = 1; -c_733352.elements = (object *)alloca(sizeof(object) * 1); -c_733352.elements[0] = ((closureN)self_73999)->elements[1]; - -return_closcall0(data,(closure)&c_733352); -} else { - -closureN_type c_733356; -c_733356.hdr.mark = gc_color_red; - c_733356.hdr.grayed = 0; -c_733356.tag = closureN_tag; - c_733356.fn = (function_type)__lambda_418; -c_733356.num_args = 1; -c_733356.num_elements = 3; -c_733356.elements = (object *)alloca(sizeof(object) * 3); -c_733356.elements[0] = ((closureN)self_73999)->elements[0]; -c_733356.elements[1] = ((closureN)self_73999)->elements[1]; -c_733356.elements[2] = ((closureN)self_73999)->elements[2]; - - -make_pair(c_733453,obj_char2obj(101),NULL); - -make_pair(c_733452,obj_char2obj(99),&c_733453); - -make_pair(c_733451,obj_char2obj(97),&c_733452); - -make_pair(c_733450,obj_char2obj(112),&c_733451); - -make_pair(c_733449,obj_char2obj(115),&c_733450); -return_closcall1(data,(closure)&c_733356, &c_733449);} -; -} - -static void __lambda_418(void *data, int argc, object self_731000, object r_73485) { - -closureN_type c_733358; -c_733358.hdr.mark = gc_color_red; - c_733358.hdr.grayed = 0; -c_733358.tag = closureN_tag; - c_733358.fn = (function_type)__lambda_417; -c_733358.num_args = 1; -c_733358.num_elements = 3; -c_733358.elements = (object *)alloca(sizeof(object) * 3); -c_733358.elements[0] = ((closureN)self_731000)->elements[0]; -c_733358.elements[1] = ((closureN)self_731000)->elements[1]; -c_733358.elements[2] = ((closureN)self_731000)->elements[2]; - -return_closcall1(data,(closure)&c_733358, equalp(((closureN)self_731000)->elements[0], r_73485));; -} - -static void __lambda_417(void *data, int argc, object self_731001, object r_73470) { - if( (boolean_f != r_73470) ){ - -closureN_type c_733360; -c_733360.hdr.mark = gc_color_red; - c_733360.hdr.grayed = 0; -c_733360.tag = closureN_tag; - c_733360.fn = (function_type)__lambda_399; -c_733360.num_args = 0; -c_733360.num_elements = 1; -c_733360.elements = (object *)alloca(sizeof(object) * 1); -c_733360.elements[0] = ((closureN)self_731001)->elements[1]; - -return_closcall0(data,(closure)&c_733360); -} else { - -closureN_type c_733364; -c_733364.hdr.mark = gc_color_red; - c_733364.hdr.grayed = 0; -c_733364.tag = closureN_tag; - c_733364.fn = (function_type)__lambda_416; -c_733364.num_args = 1; -c_733364.num_elements = 3; -c_733364.elements = (object *)alloca(sizeof(object) * 3); -c_733364.elements[0] = ((closureN)self_731001)->elements[0]; -c_733364.elements[1] = ((closureN)self_731001)->elements[1]; -c_733364.elements[2] = ((closureN)self_731001)->elements[2]; - - -make_pair(c_733445,obj_char2obj(98),NULL); - -make_pair(c_733444,obj_char2obj(97),&c_733445); - -make_pair(c_733443,obj_char2obj(116),&c_733444); -return_closcall1(data,(closure)&c_733364, &c_733443);} -; -} - -static void __lambda_416(void *data, int argc, object self_731002, object r_73484) { - -closureN_type c_733366; -c_733366.hdr.mark = gc_color_red; - c_733366.hdr.grayed = 0; -c_733366.tag = closureN_tag; - c_733366.fn = (function_type)__lambda_415; -c_733366.num_args = 1; -c_733366.num_elements = 3; -c_733366.elements = (object *)alloca(sizeof(object) * 3); -c_733366.elements[0] = ((closureN)self_731002)->elements[0]; -c_733366.elements[1] = ((closureN)self_731002)->elements[1]; -c_733366.elements[2] = ((closureN)self_731002)->elements[2]; - -return_closcall1(data,(closure)&c_733366, equalp(((closureN)self_731002)->elements[0], r_73484));; -} - -static void __lambda_415(void *data, int argc, object self_731003, object r_73471) { - if( (boolean_f != r_73471) ){ - -closureN_type c_733368; -c_733368.hdr.mark = gc_color_red; - c_733368.hdr.grayed = 0; -c_733368.tag = closureN_tag; - c_733368.fn = (function_type)__lambda_400; -c_733368.num_args = 0; -c_733368.num_elements = 1; -c_733368.elements = (object *)alloca(sizeof(object) * 1); -c_733368.elements[0] = ((closureN)self_731003)->elements[1]; - -return_closcall0(data,(closure)&c_733368); -} else { - -closureN_type c_733372; -c_733372.hdr.mark = gc_color_red; - c_733372.hdr.grayed = 0; -c_733372.tag = closureN_tag; - c_733372.fn = (function_type)__lambda_404; -c_733372.num_args = 0; -c_733372.num_elements = 1; -c_733372.elements = (object *)alloca(sizeof(object) * 1); -c_733372.elements[0] = ((closureN)self_731003)->elements[0]; - - -closureN_type c_733394; -c_733394.hdr.mark = gc_color_red; - c_733394.hdr.grayed = 0; -c_733394.tag = closureN_tag; - c_733394.fn = (function_type)__lambda_414; -c_733394.num_args = 1; -c_733394.num_elements = 3; -c_733394.elements = (object *)alloca(sizeof(object) * 3); -c_733394.elements[0] = ((closureN)self_731003)->elements[0]; -c_733394.elements[1] = ((closureN)self_731003)->elements[1]; -c_733394.elements[2] = ((closureN)self_731003)->elements[2]; - -return_closcall1(data,(closure)&c_733372, &c_733394);} -; -} - -static void __lambda_414(void *data, int argc, object self_731004, object r_73472) { - if( (boolean_f != r_73472) ){ - -closureN_type c_733396; -c_733396.hdr.mark = gc_color_red; - c_733396.hdr.grayed = 0; -c_733396.tag = closureN_tag; - c_733396.fn = (function_type)__lambda_408; -c_733396.num_args = 0; -c_733396.num_elements = 2; -c_733396.elements = (object *)alloca(sizeof(object) * 2); -c_733396.elements[0] = ((closureN)self_731004)->elements[0]; -c_733396.elements[1] = ((closureN)self_731004)->elements[1]; - -return_closcall0(data,(closure)&c_733396); -} else { - -closureN_type c_733417; -c_733417.hdr.mark = gc_color_red; - c_733417.hdr.grayed = 0; -c_733417.tag = closureN_tag; - c_733417.fn = (function_type)__lambda_413; -c_733417.num_args = 0; -c_733417.num_elements = 3; -c_733417.elements = (object *)alloca(sizeof(object) * 3); -c_733417.elements[0] = ((closureN)self_731004)->elements[0]; -c_733417.elements[1] = ((closureN)self_731004)->elements[1]; -c_733417.elements[2] = ((closureN)self_731004)->elements[2]; - -return_closcall0(data,(closure)&c_733417);} -; -} - -static void __lambda_413(void *data, int argc, object self_731005) { - -closureN_type c_733419; -c_733419.hdr.mark = gc_color_red; - c_733419.hdr.grayed = 0; -c_733419.tag = closureN_tag; - c_733419.fn = (function_type)__lambda_412; -c_733419.num_args = 1; -c_733419.num_elements = 2; -c_733419.elements = (object *)alloca(sizeof(object) * 2); -c_733419.elements[0] = ((closureN)self_731005)->elements[1]; -c_733419.elements[1] = ((closureN)self_731005)->elements[2]; - - -object c_733438 = Cyc_list2string(data,(closure)&c_733419,((closureN)self_731005)->elements[0]); -return_closcall1(data,(closure)&c_733419, c_733438);; -} - -static void __lambda_412(void *data, int argc, object self_731006, object r_73479) { - -closureN_type c_733421; -c_733421.hdr.mark = gc_color_red; - c_733421.hdr.grayed = 0; -c_733421.tag = closureN_tag; - c_733421.fn = (function_type)__lambda_411; -c_733421.num_args = 1; -c_733421.num_elements = 2; -c_733421.elements = (object *)alloca(sizeof(object) * 2); -c_733421.elements[0] = ((closureN)self_731006)->elements[0]; -c_733421.elements[1] = ((closureN)self_731006)->elements[1]; - - -make_string(c_733435, "unable to parse character: "); - -object c_733434 = Cyc_string_append(data,(closure)&c_733421,2,&c_733435, r_73479); -return_closcall1(data,(closure)&c_733421, c_733434);; -} - -static void __lambda_411(void *data, int argc, object self_731007, object r_73476) { - -closureN_type c_733423; -c_733423.hdr.mark = gc_color_red; - c_733423.hdr.grayed = 0; -c_733423.tag = closureN_tag; - c_733423.fn = (function_type)__lambda_410; -c_733423.num_args = 1; -c_733423.num_elements = 3; -c_733423.elements = (object *)alloca(sizeof(object) * 3); -c_733423.elements[0] = ((closureN)self_731007)->elements[0]; -c_733423.elements[1] = ((closureN)self_731007)->elements[1]; -c_733423.elements[2] = r_73476; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733423, ((closureN)self_731007)->elements[1]);; -} - -static void __lambda_410(void *data, int argc, object self_731008, object r_73477) { - -closureN_type c_733425; -c_733425.hdr.mark = gc_color_red; - c_733425.hdr.grayed = 0; -c_733425.tag = closureN_tag; - c_733425.fn = (function_type)__lambda_409; -c_733425.num_args = 1; -c_733425.num_elements = 3; -c_733425.elements = (object *)alloca(sizeof(object) * 3); -c_733425.elements[0] = ((closureN)self_731008)->elements[0]; -c_733425.elements[1] = ((closureN)self_731008)->elements[2]; -c_733425.elements[2] = r_73477; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733425, ((closureN)self_731008)->elements[1]);; -} - -static void __lambda_409(void *data, int argc, object self_731009, object r_73478) { - return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731009)->elements[0], ((closureN)self_731009)->elements[1], ((closureN)self_731009)->elements[2], r_73478);; -} - -static void __lambda_408(void *data, int argc, object self_731010) { - -closureN_type c_733398; -c_733398.hdr.mark = gc_color_red; - c_733398.hdr.grayed = 0; -c_733398.tag = closureN_tag; - c_733398.fn = (function_type)__lambda_407; -c_733398.num_args = 1; -c_733398.num_elements = 1; -c_733398.elements = (object *)alloca(sizeof(object) * 1); -c_733398.elements[0] = ((closureN)self_731010)->elements[1]; - -return_closcall1(data,(closure)&c_733398, cdr(((closureN)self_731010)->elements[0]));; -} - -static void __lambda_407(void *data, int argc, object self_731011, object r_73475) { - -closureN_type c_733400; -c_733400.hdr.mark = gc_color_red; - c_733400.hdr.grayed = 0; -c_733400.tag = closureN_tag; - c_733400.fn = (function_type)__lambda_406; -c_733400.num_args = 1; -c_733400.num_elements = 1; -c_733400.elements = (object *)alloca(sizeof(object) * 1); -c_733400.elements[0] = ((closureN)self_731011)->elements[0]; - - -object c_733412 = Cyc_list2string(data,(closure)&c_733400,r_73475); -return_closcall1(data,(closure)&c_733400, c_733412);; -} - -static void __lambda_406(void *data, int argc, object self_731012, object r_73474) { - -closureN_type c_733402; -c_733402.hdr.mark = gc_color_red; - c_733402.hdr.grayed = 0; -c_733402.tag = closureN_tag; - c_733402.fn = (function_type)__lambda_405; -c_733402.num_args = 1; -c_733402.num_elements = 1; -c_733402.elements = (object *)alloca(sizeof(object) * 1); -c_733402.elements[0] = ((closureN)self_731012)->elements[0]; - - -object c_733409 = Cyc_string2number2_(data,(closure)&c_733402,2,r_73474, obj_int2obj(16)); -return_closcall1(data,(closure)&c_733402, c_733409);; -} - -static void __lambda_405(void *data, int argc, object self_731013, object r_73473) { - return_closcall1(data, ((closureN)self_731013)->elements[0], Cyc_integer2char(data, r_73473));; -} - -static void __lambda_404(void *data, int argc, object self_731014, object k_73480) { - -closureN_type c_733374; -c_733374.hdr.mark = gc_color_red; - c_733374.hdr.grayed = 0; -c_733374.tag = closureN_tag; - c_733374.fn = (function_type)__lambda_403; -c_733374.num_args = 1; -c_733374.num_elements = 2; -c_733374.elements = (object *)alloca(sizeof(object) * 2); -c_733374.elements[0] = ((closureN)self_731014)->elements[0]; -c_733374.elements[1] = k_73480; - -return_closcall1(data,(closure)&c_733374, Cyc_length(data, ((closureN)self_731014)->elements[0]));; -} - -static void __lambda_403(void *data, int argc, object self_731015, object r_73483) { - -closureN_type c_733376; -c_733376.hdr.mark = gc_color_red; - c_733376.hdr.grayed = 0; -c_733376.tag = closureN_tag; - c_733376.fn = (function_type)__lambda_402; -c_733376.num_args = 1; -c_733376.num_elements = 2; -c_733376.elements = (object *)alloca(sizeof(object) * 2); -c_733376.elements[0] = ((closureN)self_731015)->elements[0]; -c_733376.elements[1] = ((closureN)self_731015)->elements[1]; - - -object c_733390 = Cyc_num_gt(data,(closure)&c_733376,2,r_73483, obj_int2obj(1)); -return_closcall1(data,(closure)&c_733376, c_733390);; -} - -static void __lambda_402(void *data, int argc, object self_731016, object r_73481) { - if( (boolean_f != r_73481) ){ - -closureN_type c_733378; -c_733378.hdr.mark = gc_color_red; - c_733378.hdr.grayed = 0; -c_733378.tag = closureN_tag; - c_733378.fn = (function_type)__lambda_401; -c_733378.num_args = 1; -c_733378.num_elements = 1; -c_733378.elements = (object *)alloca(sizeof(object) * 1); -c_733378.elements[0] = ((closureN)self_731016)->elements[1]; - -return_closcall1(data,(closure)&c_733378, car(((closureN)self_731016)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_731016)->elements[1], boolean_f);} -; -} - -static void __lambda_401(void *data, int argc, object self_731017, object r_73482) { - return_closcall1(data, ((closureN)self_731017)->elements[0], equalp(r_73482, obj_char2obj(120)));; -} - -static void __lambda_400(void *data, int argc, object self_731018) { - return_closcall1(data, ((closureN)self_731018)->elements[0], obj_char2obj(9));; -} - -static void __lambda_399(void *data, int argc, object self_731019) { - return_closcall1(data, ((closureN)self_731019)->elements[0], obj_char2obj(32));; -} - -static void __lambda_398(void *data, int argc, object self_731020) { - return_closcall1(data, ((closureN)self_731020)->elements[0], obj_char2obj(13));; -} - -static void __lambda_397(void *data, int argc, object self_731021) { - return_closcall1(data, ((closureN)self_731021)->elements[0], obj_char2obj(0));; -} - -static void __lambda_396(void *data, int argc, object self_731022) { - return_closcall1(data, ((closureN)self_731022)->elements[0], obj_char2obj(10));; -} - -static void __lambda_395(void *data, int argc, object self_731023) { - return_closcall1(data, ((closureN)self_731023)->elements[0], obj_char2obj(27));; -} - -static void __lambda_394(void *data, int argc, object self_731024) { - return_closcall1(data, ((closureN)self_731024)->elements[0], obj_char2obj(127));; -} - -static void __lambda_393(void *data, int argc, object self_731025) { - return_closcall1(data, ((closureN)self_731025)->elements[0], obj_char2obj(8));; -} - -static void __lambda_392(void *data, int argc, object self_731026) { - return_closcall1(data, ((closureN)self_731026)->elements[0], obj_char2obj(7));; -} - -static void __lambda_391(void *data, int argc, object self_731027) { - return_closcall1(data, ((closureN)self_731027)->elements[1], car(((closureN)self_731027)->elements[0]));; -} - -static void __lambda_390(void *data, int argc, object self_731028) { - -closureN_type c_733279; -c_733279.hdr.mark = gc_color_red; - c_733279.hdr.grayed = 0; -c_733279.tag = closureN_tag; - c_733279.fn = (function_type)__lambda_389; -c_733279.num_args = 1; -c_733279.num_elements = 2; -c_733279.elements = (object *)alloca(sizeof(object) * 2); -c_733279.elements[0] = ((closureN)self_731028)->elements[0]; -c_733279.elements[1] = ((closureN)self_731028)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733279, ((closureN)self_731028)->elements[1]);; -} - -static void __lambda_389(void *data, int argc, object self_731029, object r_73460) { - -closureN_type c_733281; -c_733281.hdr.mark = gc_color_red; - c_733281.hdr.grayed = 0; -c_733281.tag = closureN_tag; - c_733281.fn = (function_type)__lambda_388; -c_733281.num_args = 1; -c_733281.num_elements = 2; -c_733281.elements = (object *)alloca(sizeof(object) * 2); -c_733281.elements[0] = ((closureN)self_731029)->elements[0]; -c_733281.elements[1] = r_73460; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733281, ((closureN)self_731029)->elements[1]);; -} - -static void __lambda_388(void *data, int argc, object self_731030, object r_73461) { - -make_string(c_733284, "missing character"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731030)->elements[0], &c_733284, ((closureN)self_731030)->elements[1], r_73461);; -} - -static void __lambda_387(void *data, int argc, object self_731031, object r_73456) { - -closureN_type c_733170; -c_733170.hdr.mark = gc_color_red; - c_733170.hdr.grayed = 0; -c_733170.tag = closureN_tag; - c_733170.fn = (function_type)__lambda_386; -c_733170.num_args = 1; -c_733170.num_elements = 4; -c_733170.elements = (object *)alloca(sizeof(object) * 4); -c_733170.elements[0] = ((closureN)self_731031)->elements[0]; -c_733170.elements[1] = ((closureN)self_731031)->elements[1]; -c_733170.elements[2] = ((closureN)self_731031)->elements[2]; -c_733170.elements[3] = ((closureN)self_731031)->elements[3]; - -return_closcall1(data,(closure)&c_733170, Cyc_set_car(data, ((closureN)self_731031)->elements[0], r_73456));; -} - -static void __lambda_386(void *data, int argc, object self_731032, object r_73439) { - -closureN_type c_733172; -c_733172.hdr.mark = gc_color_red; - c_733172.hdr.grayed = 0; -c_733172.tag = closureN_tag; - c_733172.fn = (function_type)__lambda_370; -c_733172.num_args = 1; -c_733172.num_elements = 2; -c_733172.elements = (object *)alloca(sizeof(object) * 2); -c_733172.elements[0] = ((closureN)self_731032)->elements[2]; -c_733172.elements[1] = ((closureN)self_731032)->elements[3]; - - -closureN_type c_733185; -c_733185.hdr.mark = gc_color_red; - c_733185.hdr.grayed = 0; -c_733185.tag = closureN_tag; - c_733185.fn = (function_type)__lambda_385; -c_733185.num_args = 1; -c_733185.num_elements = 3; -c_733185.elements = (object *)alloca(sizeof(object) * 3); -c_733185.elements[0] = ((closureN)self_731032)->elements[0]; -c_733185.elements[1] = ((closureN)self_731032)->elements[1]; -c_733185.elements[2] = ((closureN)self_731032)->elements[3]; - -return_closcall1(data,(closure)&c_733172, &c_733185);; -} - -static void __lambda_385(void *data, int argc, object self_731033, object k_73443, object buf_73190) { - -closureN_type c_733187; -c_733187.hdr.mark = gc_color_red; - c_733187.hdr.grayed = 0; -c_733187.tag = closureN_tag; - c_733187.fn = (function_type)__lambda_384; -c_733187.num_args = 1; -c_733187.num_elements = 5; -c_733187.elements = (object *)alloca(sizeof(object) * 5); -c_733187.elements[0] = buf_73190; -c_733187.elements[1] = ((closureN)self_731033)->elements[0]; -c_733187.elements[2] = ((closureN)self_731033)->elements[1]; -c_733187.elements[3] = k_73443; -c_733187.elements[4] = ((closureN)self_731033)->elements[2]; - - -object c_733264 = Cyc_io_peek_char(data,(closure)&c_733187,((closureN)self_731033)->elements[1]); -return_closcall1(data,(closure)&c_733187, c_733264);; -} - -static void __lambda_384(void *data, int argc, object self_731034, object c_73191) { - -closureN_type c_733189; -c_733189.hdr.mark = gc_color_red; - c_733189.hdr.grayed = 0; -c_733189.tag = closureN_tag; - c_733189.fn = (function_type)__lambda_383; -c_733189.num_args = 1; -c_733189.num_elements = 6; -c_733189.elements = (object *)alloca(sizeof(object) * 6); -c_733189.elements[0] = ((closureN)self_731034)->elements[0]; -c_733189.elements[1] = c_73191; -c_733189.elements[2] = ((closureN)self_731034)->elements[1]; -c_733189.elements[3] = ((closureN)self_731034)->elements[2]; -c_733189.elements[4] = ((closureN)self_731034)->elements[3]; -c_733189.elements[5] = ((closureN)self_731034)->elements[4]; - -return_closcall1(data,(closure)&c_733189, Cyc_is_eof_object(c_73191));; -} - -static void __lambda_383(void *data, int argc, object self_731035, object tmp_73192) { - -closureN_type c_733191; -c_733191.hdr.mark = gc_color_red; - c_733191.hdr.grayed = 0; -c_733191.tag = closureN_tag; - c_733191.fn = (function_type)__lambda_377; -c_733191.num_args = 0; -c_733191.num_elements = 3; -c_733191.elements = (object *)alloca(sizeof(object) * 3); -c_733191.elements[0] = ((closureN)self_731035)->elements[0]; -c_733191.elements[1] = ((closureN)self_731035)->elements[1]; -c_733191.elements[2] = tmp_73192; - - -closureN_type c_733232; -c_733232.hdr.mark = gc_color_red; - c_733232.hdr.grayed = 0; -c_733232.tag = closureN_tag; - c_733232.fn = (function_type)__lambda_382; -c_733232.num_args = 1; -c_733232.num_elements = 5; -c_733232.elements = (object *)alloca(sizeof(object) * 5); -c_733232.elements[0] = ((closureN)self_731035)->elements[0]; -c_733232.elements[1] = ((closureN)self_731035)->elements[2]; -c_733232.elements[2] = ((closureN)self_731035)->elements[3]; -c_733232.elements[3] = ((closureN)self_731035)->elements[4]; -c_733232.elements[4] = ((closureN)self_731035)->elements[5]; - -return_closcall1(data,(closure)&c_733191, &c_733232);; -} - -static void __lambda_382(void *data, int argc, object self_731036, object r_73445) { - if( (boolean_f != r_73445) ){ - -closureN_type c_733234; -c_733234.hdr.mark = gc_color_red; - c_733234.hdr.grayed = 0; -c_733234.tag = closureN_tag; - c_733234.fn = (function_type)__lambda_378; -c_733234.num_args = 0; -c_733234.num_elements = 3; -c_733234.elements = (object *)alloca(sizeof(object) * 3); -c_733234.elements[0] = ((closureN)self_731036)->elements[0]; -c_733234.elements[1] = ((closureN)self_731036)->elements[1]; -c_733234.elements[2] = ((closureN)self_731036)->elements[3]; - -return_closcall0(data,(closure)&c_733234); -} else { - -closureN_type c_733242; -c_733242.hdr.mark = gc_color_red; - c_733242.hdr.grayed = 0; -c_733242.tag = closureN_tag; - c_733242.fn = (function_type)__lambda_381; -c_733242.num_args = 0; -c_733242.num_elements = 4; -c_733242.elements = (object *)alloca(sizeof(object) * 4); -c_733242.elements[0] = ((closureN)self_731036)->elements[0]; -c_733242.elements[1] = ((closureN)self_731036)->elements[2]; -c_733242.elements[2] = ((closureN)self_731036)->elements[3]; -c_733242.elements[3] = ((closureN)self_731036)->elements[4]; - -return_closcall0(data,(closure)&c_733242);} -; -} - -static void __lambda_381(void *data, int argc, object self_731037) { - -closureN_type c_733244; -c_733244.hdr.mark = gc_color_red; - c_733244.hdr.grayed = 0; -c_733244.tag = closureN_tag; - c_733244.fn = (function_type)__lambda_380; -c_733244.num_args = 1; -c_733244.num_elements = 3; -c_733244.elements = (object *)alloca(sizeof(object) * 3); -c_733244.elements[0] = ((closureN)self_731037)->elements[0]; -c_733244.elements[1] = ((closureN)self_731037)->elements[2]; -c_733244.elements[2] = ((closureN)self_731037)->elements[3]; - - -object c_733258 = Cyc_io_read_char(data,(closure)&c_733244,((closureN)self_731037)->elements[1]); -return_closcall1(data,(closure)&c_733244, c_733258);; -} - -static void __lambda_380(void *data, int argc, object self_731038, object r_73447) { - -closureN_type c_733246; -c_733246.hdr.mark = gc_color_red; - c_733246.hdr.grayed = 0; -c_733246.tag = closureN_tag; - c_733246.fn = (function_type)__lambda_379; -c_733246.num_args = 1; -c_733246.num_elements = 2; -c_733246.elements = (object *)alloca(sizeof(object) * 2); -c_733246.elements[0] = ((closureN)self_731038)->elements[1]; -c_733246.elements[1] = ((closureN)self_731038)->elements[2]; - - -make_pair(c_733254,r_73447, ((closureN)self_731038)->elements[0]); -return_closcall1(data,(closure)&c_733246, &c_733254);; -} - -static void __lambda_379(void *data, int argc, object self_731039, object r_73446) { - return_closcall2(data, cell_get(((closureN)self_731039)->elements[1]), ((closureN)self_731039)->elements[0], r_73446);; -} - -static void __lambda_378(void *data, int argc, object self_731040) { - return_closcall2(data, cell_get(((closureN)self_731040)->elements[1]), ((closureN)self_731040)->elements[2], ((closureN)self_731040)->elements[0]);; -} - -static void __lambda_377(void *data, int argc, object self_731041, object k_73449) { - if( (boolean_f != ((closureN)self_731041)->elements[2]) ){ - return_closcall1(data, k_73449, ((closureN)self_731041)->elements[2]); -} else { - -closureN_type c_733196; -c_733196.hdr.mark = gc_color_red; - c_733196.hdr.grayed = 0; -c_733196.tag = closureN_tag; - c_733196.fn = (function_type)__lambda_373; -c_733196.num_args = 0; -c_733196.num_elements = 2; -c_733196.elements = (object *)alloca(sizeof(object) * 2); -c_733196.elements[0] = ((closureN)self_731041)->elements[0]; -c_733196.elements[1] = ((closureN)self_731041)->elements[1]; - - -closureN_type c_733212; -c_733212.hdr.mark = gc_color_red; - c_733212.hdr.grayed = 0; -c_733212.tag = closureN_tag; - c_733212.fn = (function_type)__lambda_376; -c_733212.num_args = 1; -c_733212.num_elements = 3; -c_733212.elements = (object *)alloca(sizeof(object) * 3); -c_733212.elements[0] = ((closureN)self_731041)->elements[0]; -c_733212.elements[1] = ((closureN)self_731041)->elements[1]; -c_733212.elements[2] = k_73449; - -return_closcall1(data,(closure)&c_733196, &c_733212);} -; -} - -static void __lambda_376(void *data, int argc, object self_731042, object tmp_73193) { - if( (boolean_f != tmp_73193) ){ - return_closcall1(data, ((closureN)self_731042)->elements[2], tmp_73193); -} else { - -closureN_type c_733216; -c_733216.hdr.mark = gc_color_red; - c_733216.hdr.grayed = 0; -c_733216.tag = closureN_tag; - c_733216.fn = (function_type)__lambda_375; -c_733216.num_args = 1; -c_733216.num_elements = 2; -c_733216.elements = (object *)alloca(sizeof(object) * 2); -c_733216.elements[0] = ((closureN)self_731042)->elements[1]; -c_733216.elements[1] = ((closureN)self_731042)->elements[2]; - -return_closcall1(data,(closure)&c_733216, Cyc_length(data, ((closureN)self_731042)->elements[0]));} -; -} - -static void __lambda_375(void *data, int argc, object self_731043, object r_73452) { - -closureN_type c_733218; -c_733218.hdr.mark = gc_color_red; - c_733218.hdr.grayed = 0; -c_733218.tag = closureN_tag; - c_733218.fn = (function_type)__lambda_374; -c_733218.num_args = 1; -c_733218.num_elements = 2; -c_733218.elements = (object *)alloca(sizeof(object) * 2); -c_733218.elements[0] = ((closureN)self_731043)->elements[0]; -c_733218.elements[1] = ((closureN)self_731043)->elements[1]; - - -object c_733228 = Cyc_num_gt(data,(closure)&c_733218,2,r_73452, obj_int2obj(0)); -return_closcall1(data,(closure)&c_733218, c_733228);; -} - -static void __lambda_374(void *data, int argc, object self_731044, object r_73451) { - if( (boolean_f != r_73451) ){ - return_closcall1(data, ((closureN)self_731044)->elements[1], equalp(((closureN)self_731044)->elements[0], obj_char2obj(41))); -} else { - return_closcall1(data, ((closureN)self_731044)->elements[1], boolean_f);} -; -} - -static void __lambda_373(void *data, int argc, object self_731045, object k_73453) { - -closureN_type c_733198; -c_733198.hdr.mark = gc_color_red; - c_733198.hdr.grayed = 0; -c_733198.tag = closureN_tag; - c_733198.fn = (function_type)__lambda_372; -c_733198.num_args = 1; -c_733198.num_elements = 2; -c_733198.elements = (object *)alloca(sizeof(object) * 2); -c_733198.elements[0] = ((closureN)self_731045)->elements[0]; -c_733198.elements[1] = k_73453; - -return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_733198, ((closureN)self_731045)->elements[1]);; -} - -static void __lambda_372(void *data, int argc, object self_731046, object r_73454) { - if( (boolean_f != r_73454) ){ - -closureN_type c_733200; -c_733200.hdr.mark = gc_color_red; - c_733200.hdr.grayed = 0; -c_733200.tag = closureN_tag; - c_733200.fn = (function_type)__lambda_371; -c_733200.num_args = 1; -c_733200.num_elements = 1; -c_733200.elements = (object *)alloca(sizeof(object) * 1); -c_733200.elements[0] = ((closureN)self_731046)->elements[1]; - -return_closcall1(data,(closure)&c_733200, Cyc_length(data, ((closureN)self_731046)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_731046)->elements[1], boolean_f);} -; -} - -static void __lambda_371(void *data, int argc, object self_731047, object r_73455) { - -object c_733205 = Cyc_num_gt(data, ((closureN)self_731047)->elements[0],2,r_73455, obj_int2obj(0)); -return_closcall1(data, ((closureN)self_731047)->elements[0], c_733205);; -} - -static void __lambda_370(void *data, int argc, object self_731048, object r_73442) { - -closureN_type c_733174; -c_733174.hdr.mark = gc_color_red; - c_733174.hdr.grayed = 0; -c_733174.tag = closureN_tag; - c_733174.fn = (function_type)__lambda_369; -c_733174.num_args = 1; -c_733174.num_elements = 2; -c_733174.elements = (object *)alloca(sizeof(object) * 2); -c_733174.elements[0] = ((closureN)self_731048)->elements[0]; -c_733174.elements[1] = ((closureN)self_731048)->elements[1]; - -return_closcall1(data,(closure)&c_733174, Cyc_set_car(data, ((closureN)self_731048)->elements[1], r_73442));; -} - -static void __lambda_369(void *data, int argc, object self_731049, object r_73440) { - -closureN_type c_733176; -c_733176.hdr.mark = gc_color_red; - c_733176.hdr.grayed = 0; -c_733176.tag = closureN_tag; - c_733176.fn = (function_type)__lambda_368; -c_733176.num_args = 1; -c_733176.num_elements = 2; -c_733176.elements = (object *)alloca(sizeof(object) * 2); -c_733176.elements[0] = ((closureN)self_731049)->elements[0]; -c_733176.elements[1] = ((closureN)self_731049)->elements[1]; - -return_closcall1(data,(closure)&c_733176, NULL);; -} - -static void __lambda_368(void *data, int argc, object self_731050, object r_73441) { - return_closcall2(data, cell_get(((closureN)self_731050)->elements[1]), ((closureN)self_731050)->elements[0], r_73441);; -} - -static void __lambda_367(void *data, int argc, closure _,object k_73497, object fp_73202, object tok_73201, object toks_73200, object all_127_73199, object comment_127_73198, object parens_73197, object ptbl_73196) { - Cyc_st_add(data, "scheme/read.sld:parse"); - -closureN_type c_731684; -c_731684.hdr.mark = gc_color_red; - c_731684.hdr.grayed = 0; -c_731684.tag = closureN_tag; - c_731684.fn = (function_type)__lambda_366; -c_731684.num_args = 0; -c_731684.num_elements = 8; -c_731684.elements = (object *)alloca(sizeof(object) * 8); -c_731684.elements[0] = all_127_73199; -c_731684.elements[1] = comment_127_73198; -c_731684.elements[2] = fp_73202; -c_731684.elements[3] = k_73497; -c_731684.elements[4] = parens_73197; -c_731684.elements[5] = ptbl_73196; -c_731684.elements[6] = tok_73201; -c_731684.elements[7] = toks_73200; - -return_closcall0(data,(closure)&c_731684);; -} - -static void __lambda_366(void *data, int argc, object self_731051) { - -closureN_type c_731686; -c_731686.hdr.mark = gc_color_red; - c_731686.hdr.grayed = 0; -c_731686.tag = closureN_tag; - c_731686.fn = (function_type)__lambda_365; -c_731686.num_args = 1; -c_731686.num_elements = 8; -c_731686.elements = (object *)alloca(sizeof(object) * 8); -c_731686.elements[0] = ((closureN)self_731051)->elements[0]; -c_731686.elements[1] = ((closureN)self_731051)->elements[1]; -c_731686.elements[2] = ((closureN)self_731051)->elements[2]; -c_731686.elements[3] = ((closureN)self_731051)->elements[3]; -c_731686.elements[4] = ((closureN)self_731051)->elements[4]; -c_731686.elements[5] = ((closureN)self_731051)->elements[5]; -c_731686.elements[6] = ((closureN)self_731051)->elements[6]; -c_731686.elements[7] = ((closureN)self_731051)->elements[7]; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731686, ((closureN)self_731051)->elements[5]);; -} - -static void __lambda_365(void *data, int argc, object self_731052, object r_73736) { - -closureN_type c_731688; -c_731688.hdr.mark = gc_color_red; - c_731688.hdr.grayed = 0; -c_731688.tag = closureN_tag; - c_731688.fn = (function_type)__lambda_364; -c_731688.num_args = 1; -c_731688.num_elements = 8; -c_731688.elements = (object *)alloca(sizeof(object) * 8); -c_731688.elements[0] = ((closureN)self_731052)->elements[0]; -c_731688.elements[1] = ((closureN)self_731052)->elements[1]; -c_731688.elements[2] = ((closureN)self_731052)->elements[2]; -c_731688.elements[3] = ((closureN)self_731052)->elements[3]; -c_731688.elements[4] = ((closureN)self_731052)->elements[4]; -c_731688.elements[5] = ((closureN)self_731052)->elements[5]; -c_731688.elements[6] = ((closureN)self_731052)->elements[6]; -c_731688.elements[7] = ((closureN)self_731052)->elements[7]; - - -object c_733156 = Cyc_sum(data,(closure)&c_731688,2,obj_int2obj(1), r_73736); -return_closcall1(data,(closure)&c_731688, c_733156);; -} - -static void __lambda_364(void *data, int argc, object self_731053, object r_73735) { - -closureN_type c_731690; -c_731690.hdr.mark = gc_color_red; - c_731690.hdr.grayed = 0; -c_731690.tag = closureN_tag; - c_731690.fn = (function_type)__lambda_363; -c_731690.num_args = 1; -c_731690.num_elements = 8; -c_731690.elements = (object *)alloca(sizeof(object) * 8); -c_731690.elements[0] = ((closureN)self_731053)->elements[0]; -c_731690.elements[1] = ((closureN)self_731053)->elements[1]; -c_731690.elements[2] = ((closureN)self_731053)->elements[2]; -c_731690.elements[3] = ((closureN)self_731053)->elements[3]; -c_731690.elements[4] = ((closureN)self_731053)->elements[4]; -c_731690.elements[5] = ((closureN)self_731053)->elements[5]; -c_731690.elements[6] = ((closureN)self_731053)->elements[6]; -c_731690.elements[7] = ((closureN)self_731053)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731690, ((closureN)self_731053)->elements[5], r_73735);; -} - -static void __lambda_363(void *data, int argc, object self_731054, object r_73498) { - -closureN_type c_731692; -c_731692.hdr.mark = gc_color_red; - c_731692.hdr.grayed = 0; -c_731692.tag = closureN_tag; - c_731692.fn = (function_type)__lambda_61; -c_731692.num_args = 0; -c_731692.num_elements = 2; -c_731692.elements = (object *)alloca(sizeof(object) * 2); -c_731692.elements[0] = ((closureN)self_731054)->elements[2]; -c_731692.elements[1] = ((closureN)self_731054)->elements[5]; - - -closureN_type c_731705; -c_731705.hdr.mark = gc_color_red; - c_731705.hdr.grayed = 0; -c_731705.tag = closureN_tag; - c_731705.fn = (function_type)__lambda_362; -c_731705.num_args = 1; -c_731705.num_elements = 8; -c_731705.elements = (object *)alloca(sizeof(object) * 8); -c_731705.elements[0] = ((closureN)self_731054)->elements[0]; -c_731705.elements[1] = ((closureN)self_731054)->elements[1]; -c_731705.elements[2] = ((closureN)self_731054)->elements[2]; -c_731705.elements[3] = ((closureN)self_731054)->elements[3]; -c_731705.elements[4] = ((closureN)self_731054)->elements[4]; -c_731705.elements[5] = ((closureN)self_731054)->elements[5]; -c_731705.elements[6] = ((closureN)self_731054)->elements[6]; -c_731705.elements[7] = ((closureN)self_731054)->elements[7]; - -return_closcall1(data,(closure)&c_731692, &c_731705);; -} - -static void __lambda_362(void *data, int argc, object self_731055, object c_73204) { - -closureN_type c_731707; -c_731707.hdr.mark = gc_color_red; - c_731707.hdr.grayed = 0; -c_731707.tag = closureN_tag; - c_731707.fn = (function_type)__lambda_361; -c_731707.num_args = 1; -c_731707.num_elements = 9; -c_731707.elements = (object *)alloca(sizeof(object) * 9); -c_731707.elements[0] = ((closureN)self_731055)->elements[0]; -c_731707.elements[1] = c_73204; -c_731707.elements[2] = ((closureN)self_731055)->elements[1]; -c_731707.elements[3] = ((closureN)self_731055)->elements[2]; -c_731707.elements[4] = ((closureN)self_731055)->elements[3]; -c_731707.elements[5] = ((closureN)self_731055)->elements[4]; -c_731707.elements[6] = ((closureN)self_731055)->elements[5]; -c_731707.elements[7] = ((closureN)self_731055)->elements[6]; -c_731707.elements[8] = ((closureN)self_731055)->elements[7]; - -return_closcall1(data,(closure)&c_731707, Cyc_is_eof_object(c_73204));; -} - -static void __lambda_361(void *data, int argc, object self_731056, object r_73500) { - if( (boolean_f != r_73500) ){ - -closureN_type c_731709; -c_731709.hdr.mark = gc_color_red; - c_731709.hdr.grayed = 0; -c_731709.tag = closureN_tag; - c_731709.fn = (function_type)__lambda_71; -c_731709.num_args = 0; -c_731709.num_elements = 7; -c_731709.elements = (object *)alloca(sizeof(object) * 7); -c_731709.elements[0] = ((closureN)self_731056)->elements[0]; -c_731709.elements[1] = ((closureN)self_731056)->elements[1]; -c_731709.elements[2] = ((closureN)self_731056)->elements[4]; -c_731709.elements[3] = ((closureN)self_731056)->elements[5]; -c_731709.elements[4] = ((closureN)self_731056)->elements[6]; -c_731709.elements[5] = ((closureN)self_731056)->elements[7]; -c_731709.elements[6] = ((closureN)self_731056)->elements[8]; - -return_closcall0(data,(closure)&c_731709); -} else { - if( (boolean_f != ((closureN)self_731056)->elements[2]) ){ - -closureN_type c_731761; -c_731761.hdr.mark = gc_color_red; - c_731761.hdr.grayed = 0; -c_731761.tag = closureN_tag; - c_731761.fn = (function_type)__lambda_80; -c_731761.num_args = 0; -c_731761.num_elements = 7; -c_731761.elements = (object *)alloca(sizeof(object) * 7); -c_731761.elements[0] = ((closureN)self_731056)->elements[0]; -c_731761.elements[1] = ((closureN)self_731056)->elements[1]; -c_731761.elements[2] = ((closureN)self_731056)->elements[3]; -c_731761.elements[3] = ((closureN)self_731056)->elements[4]; -c_731761.elements[4] = ((closureN)self_731056)->elements[5]; -c_731761.elements[5] = ((closureN)self_731056)->elements[6]; -c_731761.elements[6] = ((closureN)self_731056)->elements[8]; - -return_closcall0(data,(closure)&c_731761); -} else { - -closureN_type c_731802; -c_731802.hdr.mark = gc_color_red; - c_731802.hdr.grayed = 0; -c_731802.tag = closureN_tag; - c_731802.fn = (function_type)__lambda_360; -c_731802.num_args = 1; -c_731802.num_elements = 8; -c_731802.elements = (object *)alloca(sizeof(object) * 8); -c_731802.elements[0] = ((closureN)self_731056)->elements[0]; -c_731802.elements[1] = ((closureN)self_731056)->elements[1]; -c_731802.elements[2] = ((closureN)self_731056)->elements[3]; -c_731802.elements[3] = ((closureN)self_731056)->elements[4]; -c_731802.elements[4] = ((closureN)self_731056)->elements[5]; -c_731802.elements[5] = ((closureN)self_731056)->elements[6]; -c_731802.elements[6] = ((closureN)self_731056)->elements[7]; -c_731802.elements[7] = ((closureN)self_731056)->elements[8]; - -return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_731802, ((closureN)self_731056)->elements[1]);} -} -; -} - -static void __lambda_360(void *data, int argc, object self_731057, object r_73517) { - if( (boolean_f != r_73517) ){ - -closureN_type c_731804; -c_731804.hdr.mark = gc_color_red; - c_731804.hdr.grayed = 0; -c_731804.tag = closureN_tag; - c_731804.fn = (function_type)__lambda_89; -c_731804.num_args = 0; -c_731804.num_elements = 8; -c_731804.elements = (object *)alloca(sizeof(object) * 8); -c_731804.elements[0] = ((closureN)self_731057)->elements[0]; -c_731804.elements[1] = ((closureN)self_731057)->elements[1]; -c_731804.elements[2] = ((closureN)self_731057)->elements[2]; -c_731804.elements[3] = ((closureN)self_731057)->elements[3]; -c_731804.elements[4] = ((closureN)self_731057)->elements[4]; -c_731804.elements[5] = ((closureN)self_731057)->elements[5]; -c_731804.elements[6] = ((closureN)self_731057)->elements[6]; -c_731804.elements[7] = ((closureN)self_731057)->elements[7]; - -return_closcall0(data,(closure)&c_731804); -} else { - -closureN_type c_731849; -c_731849.hdr.mark = gc_color_red; - c_731849.hdr.grayed = 0; -c_731849.tag = closureN_tag; - c_731849.fn = (function_type)__lambda_359; -c_731849.num_args = 1; -c_731849.num_elements = 8; -c_731849.elements = (object *)alloca(sizeof(object) * 8); -c_731849.elements[0] = ((closureN)self_731057)->elements[0]; -c_731849.elements[1] = ((closureN)self_731057)->elements[1]; -c_731849.elements[2] = ((closureN)self_731057)->elements[2]; -c_731849.elements[3] = ((closureN)self_731057)->elements[3]; -c_731849.elements[4] = ((closureN)self_731057)->elements[4]; -c_731849.elements[5] = ((closureN)self_731057)->elements[5]; -c_731849.elements[6] = ((closureN)self_731057)->elements[6]; -c_731849.elements[7] = ((closureN)self_731057)->elements[7]; - -return_closcall1(data,(closure)&c_731849, Cyc_eq(((closureN)self_731057)->elements[1], obj_char2obj(59)));} -; -} - -static void __lambda_359(void *data, int argc, object self_731058, object r_73526) { - if( (boolean_f != r_73526) ){ - -closureN_type c_731851; -c_731851.hdr.mark = gc_color_red; - c_731851.hdr.grayed = 0; -c_731851.tag = closureN_tag; - c_731851.fn = (function_type)__lambda_90; -c_731851.num_args = 0; -c_731851.num_elements = 8; -c_731851.elements = (object *)alloca(sizeof(object) * 8); -c_731851.elements[0] = ((closureN)self_731058)->elements[0]; -c_731851.elements[1] = ((closureN)self_731058)->elements[1]; -c_731851.elements[2] = ((closureN)self_731058)->elements[2]; -c_731851.elements[3] = ((closureN)self_731058)->elements[3]; -c_731851.elements[4] = ((closureN)self_731058)->elements[4]; -c_731851.elements[5] = ((closureN)self_731058)->elements[5]; -c_731851.elements[6] = ((closureN)self_731058)->elements[6]; -c_731851.elements[7] = ((closureN)self_731058)->elements[7]; - -return_closcall0(data,(closure)&c_731851); -} else { - -closureN_type c_731862; -c_731862.hdr.mark = gc_color_red; - c_731862.hdr.grayed = 0; -c_731862.tag = closureN_tag; - c_731862.fn = (function_type)__lambda_358; -c_731862.num_args = 1; -c_731862.num_elements = 8; -c_731862.elements = (object *)alloca(sizeof(object) * 8); -c_731862.elements[0] = ((closureN)self_731058)->elements[0]; -c_731862.elements[1] = ((closureN)self_731058)->elements[1]; -c_731862.elements[2] = ((closureN)self_731058)->elements[2]; -c_731862.elements[3] = ((closureN)self_731058)->elements[3]; -c_731862.elements[4] = ((closureN)self_731058)->elements[4]; -c_731862.elements[5] = ((closureN)self_731058)->elements[5]; -c_731862.elements[6] = ((closureN)self_731058)->elements[6]; -c_731862.elements[7] = ((closureN)self_731058)->elements[7]; - -return_closcall1(data,(closure)&c_731862, Cyc_eq(((closureN)self_731058)->elements[1], obj_char2obj(39)));} -; -} - -static void __lambda_358(void *data, int argc, object self_731059, object r_73527) { - if( (boolean_f != r_73527) ){ - -closureN_type c_731864; -c_731864.hdr.mark = gc_color_red; - c_731864.hdr.grayed = 0; -c_731864.tag = closureN_tag; - c_731864.fn = (function_type)__lambda_110; -c_731864.num_args = 0; -c_731864.num_elements = 8; -c_731864.elements = (object *)alloca(sizeof(object) * 8); -c_731864.elements[0] = ((closureN)self_731059)->elements[0]; -c_731864.elements[1] = ((closureN)self_731059)->elements[1]; -c_731864.elements[2] = ((closureN)self_731059)->elements[2]; -c_731864.elements[3] = ((closureN)self_731059)->elements[3]; -c_731864.elements[4] = ((closureN)self_731059)->elements[4]; -c_731864.elements[5] = ((closureN)self_731059)->elements[5]; -c_731864.elements[6] = ((closureN)self_731059)->elements[6]; -c_731864.elements[7] = ((closureN)self_731059)->elements[7]; - -return_closcall0(data,(closure)&c_731864); -} else { - -closureN_type c_731948; -c_731948.hdr.mark = gc_color_red; - c_731948.hdr.grayed = 0; -c_731948.tag = closureN_tag; - c_731948.fn = (function_type)__lambda_357; -c_731948.num_args = 1; -c_731948.num_elements = 8; -c_731948.elements = (object *)alloca(sizeof(object) * 8); -c_731948.elements[0] = ((closureN)self_731059)->elements[0]; -c_731948.elements[1] = ((closureN)self_731059)->elements[1]; -c_731948.elements[2] = ((closureN)self_731059)->elements[2]; -c_731948.elements[3] = ((closureN)self_731059)->elements[3]; -c_731948.elements[4] = ((closureN)self_731059)->elements[4]; -c_731948.elements[5] = ((closureN)self_731059)->elements[5]; -c_731948.elements[6] = ((closureN)self_731059)->elements[6]; -c_731948.elements[7] = ((closureN)self_731059)->elements[7]; - -return_closcall1(data,(closure)&c_731948, Cyc_eq(((closureN)self_731059)->elements[1], obj_char2obj(96)));} -; -} - -static void __lambda_357(void *data, int argc, object self_731060, object r_73543) { - if( (boolean_f != r_73543) ){ - -closureN_type c_731950; -c_731950.hdr.mark = gc_color_red; - c_731950.hdr.grayed = 0; -c_731950.tag = closureN_tag; - c_731950.fn = (function_type)__lambda_130; -c_731950.num_args = 0; -c_731950.num_elements = 8; -c_731950.elements = (object *)alloca(sizeof(object) * 8); -c_731950.elements[0] = ((closureN)self_731060)->elements[0]; -c_731950.elements[1] = ((closureN)self_731060)->elements[1]; -c_731950.elements[2] = ((closureN)self_731060)->elements[2]; -c_731950.elements[3] = ((closureN)self_731060)->elements[3]; -c_731950.elements[4] = ((closureN)self_731060)->elements[4]; -c_731950.elements[5] = ((closureN)self_731060)->elements[5]; -c_731950.elements[6] = ((closureN)self_731060)->elements[6]; -c_731950.elements[7] = ((closureN)self_731060)->elements[7]; - -return_closcall0(data,(closure)&c_731950); -} else { - -closureN_type c_732034; -c_732034.hdr.mark = gc_color_red; - c_732034.hdr.grayed = 0; -c_732034.tag = closureN_tag; - c_732034.fn = (function_type)__lambda_356; -c_732034.num_args = 1; -c_732034.num_elements = 8; -c_732034.elements = (object *)alloca(sizeof(object) * 8); -c_732034.elements[0] = ((closureN)self_731060)->elements[0]; -c_732034.elements[1] = ((closureN)self_731060)->elements[1]; -c_732034.elements[2] = ((closureN)self_731060)->elements[2]; -c_732034.elements[3] = ((closureN)self_731060)->elements[3]; -c_732034.elements[4] = ((closureN)self_731060)->elements[4]; -c_732034.elements[5] = ((closureN)self_731060)->elements[5]; -c_732034.elements[6] = ((closureN)self_731060)->elements[6]; -c_732034.elements[7] = ((closureN)self_731060)->elements[7]; - -return_closcall1(data,(closure)&c_732034, Cyc_eq(((closureN)self_731060)->elements[1], obj_char2obj(44)));} -; -} - -static void __lambda_356(void *data, int argc, object self_731061, object r_73559) { - if( (boolean_f != r_73559) ){ - -closureN_type c_732036; -c_732036.hdr.mark = gc_color_red; - c_732036.hdr.grayed = 0; -c_732036.tag = closureN_tag; - c_732036.fn = (function_type)__lambda_170; -c_732036.num_args = 0; -c_732036.num_elements = 8; -c_732036.elements = (object *)alloca(sizeof(object) * 8); -c_732036.elements[0] = ((closureN)self_731061)->elements[0]; -c_732036.elements[1] = ((closureN)self_731061)->elements[1]; -c_732036.elements[2] = ((closureN)self_731061)->elements[2]; -c_732036.elements[3] = ((closureN)self_731061)->elements[3]; -c_732036.elements[4] = ((closureN)self_731061)->elements[4]; -c_732036.elements[5] = ((closureN)self_731061)->elements[5]; -c_732036.elements[6] = ((closureN)self_731061)->elements[6]; -c_732036.elements[7] = ((closureN)self_731061)->elements[7]; - -return_closcall0(data,(closure)&c_732036); -} else { - -closureN_type c_732227; -c_732227.hdr.mark = gc_color_red; - c_732227.hdr.grayed = 0; -c_732227.tag = closureN_tag; - c_732227.fn = (function_type)__lambda_355; -c_732227.num_args = 1; -c_732227.num_elements = 8; -c_732227.elements = (object *)alloca(sizeof(object) * 8); -c_732227.elements[0] = ((closureN)self_731061)->elements[0]; -c_732227.elements[1] = ((closureN)self_731061)->elements[1]; -c_732227.elements[2] = ((closureN)self_731061)->elements[2]; -c_732227.elements[3] = ((closureN)self_731061)->elements[3]; -c_732227.elements[4] = ((closureN)self_731061)->elements[4]; -c_732227.elements[5] = ((closureN)self_731061)->elements[5]; -c_732227.elements[6] = ((closureN)self_731061)->elements[6]; -c_732227.elements[7] = ((closureN)self_731061)->elements[7]; - -return_closcall1(data,(closure)&c_732227, Cyc_eq(((closureN)self_731061)->elements[1], obj_char2obj(40)));} -; -} - -static void __lambda_355(void *data, int argc, object self_731062, object r_73589) { - if( (boolean_f != r_73589) ){ - -closureN_type c_732229; -c_732229.hdr.mark = gc_color_red; - c_732229.hdr.grayed = 0; -c_732229.tag = closureN_tag; - c_732229.fn = (function_type)__lambda_195; -c_732229.num_args = 0; -c_732229.num_elements = 8; -c_732229.elements = (object *)alloca(sizeof(object) * 8); -c_732229.elements[0] = ((closureN)self_731062)->elements[0]; -c_732229.elements[1] = ((closureN)self_731062)->elements[1]; -c_732229.elements[2] = ((closureN)self_731062)->elements[2]; -c_732229.elements[3] = ((closureN)self_731062)->elements[3]; -c_732229.elements[4] = ((closureN)self_731062)->elements[4]; -c_732229.elements[5] = ((closureN)self_731062)->elements[5]; -c_732229.elements[6] = ((closureN)self_731062)->elements[6]; -c_732229.elements[7] = ((closureN)self_731062)->elements[7]; - -return_closcall0(data,(closure)&c_732229); -} else { - -closureN_type c_732340; -c_732340.hdr.mark = gc_color_red; - c_732340.hdr.grayed = 0; -c_732340.tag = closureN_tag; - c_732340.fn = (function_type)__lambda_354; -c_732340.num_args = 1; -c_732340.num_elements = 8; -c_732340.elements = (object *)alloca(sizeof(object) * 8); -c_732340.elements[0] = ((closureN)self_731062)->elements[0]; -c_732340.elements[1] = ((closureN)self_731062)->elements[1]; -c_732340.elements[2] = ((closureN)self_731062)->elements[2]; -c_732340.elements[3] = ((closureN)self_731062)->elements[3]; -c_732340.elements[4] = ((closureN)self_731062)->elements[4]; -c_732340.elements[5] = ((closureN)self_731062)->elements[5]; -c_732340.elements[6] = ((closureN)self_731062)->elements[6]; -c_732340.elements[7] = ((closureN)self_731062)->elements[7]; - -return_closcall1(data,(closure)&c_732340, Cyc_eq(((closureN)self_731062)->elements[1], obj_char2obj(41)));} -; -} - -static void __lambda_354(void *data, int argc, object self_731063, object r_73609) { - if( (boolean_f != r_73609) ){ - -closureN_type c_732342; -c_732342.hdr.mark = gc_color_red; - c_732342.hdr.grayed = 0; -c_732342.tag = closureN_tag; - c_732342.fn = (function_type)__lambda_209; -c_732342.num_args = 0; -c_732342.num_elements = 7; -c_732342.elements = (object *)alloca(sizeof(object) * 7); -c_732342.elements[0] = ((closureN)self_731063)->elements[0]; -c_732342.elements[1] = ((closureN)self_731063)->elements[1]; -c_732342.elements[2] = ((closureN)self_731063)->elements[3]; -c_732342.elements[3] = ((closureN)self_731063)->elements[4]; -c_732342.elements[4] = ((closureN)self_731063)->elements[5]; -c_732342.elements[5] = ((closureN)self_731063)->elements[6]; -c_732342.elements[6] = ((closureN)self_731063)->elements[7]; - -return_closcall0(data,(closure)&c_732342); -} else { - -closureN_type c_732398; -c_732398.hdr.mark = gc_color_red; - c_732398.hdr.grayed = 0; -c_732398.tag = closureN_tag; - c_732398.fn = (function_type)__lambda_353; -c_732398.num_args = 1; -c_732398.num_elements = 8; -c_732398.elements = (object *)alloca(sizeof(object) * 8); -c_732398.elements[0] = ((closureN)self_731063)->elements[0]; -c_732398.elements[1] = ((closureN)self_731063)->elements[1]; -c_732398.elements[2] = ((closureN)self_731063)->elements[2]; -c_732398.elements[3] = ((closureN)self_731063)->elements[3]; -c_732398.elements[4] = ((closureN)self_731063)->elements[4]; -c_732398.elements[5] = ((closureN)self_731063)->elements[5]; -c_732398.elements[6] = ((closureN)self_731063)->elements[6]; -c_732398.elements[7] = ((closureN)self_731063)->elements[7]; - -return_closcall1(data,(closure)&c_732398, Cyc_eq(((closureN)self_731063)->elements[1], obj_char2obj(34)));} -; -} - -static void __lambda_353(void *data, int argc, object self_731064, object r_73620) { - if( (boolean_f != r_73620) ){ - -closureN_type c_732400; -c_732400.hdr.mark = gc_color_red; - c_732400.hdr.grayed = 0; -c_732400.tag = closureN_tag; - c_732400.fn = (function_type)__lambda_227; -c_732400.num_args = 0; -c_732400.num_elements = 8; -c_732400.elements = (object *)alloca(sizeof(object) * 8); -c_732400.elements[0] = ((closureN)self_731064)->elements[0]; -c_732400.elements[1] = ((closureN)self_731064)->elements[1]; -c_732400.elements[2] = ((closureN)self_731064)->elements[2]; -c_732400.elements[3] = ((closureN)self_731064)->elements[3]; -c_732400.elements[4] = ((closureN)self_731064)->elements[4]; -c_732400.elements[5] = ((closureN)self_731064)->elements[5]; -c_732400.elements[6] = ((closureN)self_731064)->elements[6]; -c_732400.elements[7] = ((closureN)self_731064)->elements[7]; - -return_closcall0(data,(closure)&c_732400); -} else { - -closureN_type c_732480; -c_732480.hdr.mark = gc_color_red; - c_732480.hdr.grayed = 0; -c_732480.tag = closureN_tag; - c_732480.fn = (function_type)__lambda_352; -c_732480.num_args = 1; -c_732480.num_elements = 8; -c_732480.elements = (object *)alloca(sizeof(object) * 8); -c_732480.elements[0] = ((closureN)self_731064)->elements[0]; -c_732480.elements[1] = ((closureN)self_731064)->elements[1]; -c_732480.elements[2] = ((closureN)self_731064)->elements[2]; -c_732480.elements[3] = ((closureN)self_731064)->elements[3]; -c_732480.elements[4] = ((closureN)self_731064)->elements[4]; -c_732480.elements[5] = ((closureN)self_731064)->elements[5]; -c_732480.elements[6] = ((closureN)self_731064)->elements[6]; -c_732480.elements[7] = ((closureN)self_731064)->elements[7]; - -return_closcall1(data,(closure)&c_732480, Cyc_eq(((closureN)self_731064)->elements[1], obj_char2obj(35)));} -; -} - -static void __lambda_352(void *data, int argc, object self_731065, object r_73633) { - if( (boolean_f != r_73633) ){ - -closureN_type c_732482; -c_732482.hdr.mark = gc_color_red; - c_732482.hdr.grayed = 0; -c_732482.tag = closureN_tag; - c_732482.fn = (function_type)__lambda_347; -c_732482.num_args = 0; -c_732482.num_elements = 8; -c_732482.elements = (object *)alloca(sizeof(object) * 8); -c_732482.elements[0] = ((closureN)self_731065)->elements[0]; -c_732482.elements[1] = ((closureN)self_731065)->elements[1]; -c_732482.elements[2] = ((closureN)self_731065)->elements[2]; -c_732482.elements[3] = ((closureN)self_731065)->elements[3]; -c_732482.elements[4] = ((closureN)self_731065)->elements[4]; -c_732482.elements[5] = ((closureN)self_731065)->elements[5]; -c_732482.elements[6] = ((closureN)self_731065)->elements[6]; -c_732482.elements[7] = ((closureN)self_731065)->elements[7]; - -return_closcall0(data,(closure)&c_732482); -} else { - -closureN_type c_733097; -c_733097.hdr.mark = gc_color_red; - c_733097.hdr.grayed = 0; -c_733097.tag = closureN_tag; - c_733097.fn = (function_type)__lambda_351; -c_733097.num_args = 1; -c_733097.num_elements = 8; -c_733097.elements = (object *)alloca(sizeof(object) * 8); -c_733097.elements[0] = ((closureN)self_731065)->elements[0]; -c_733097.elements[1] = ((closureN)self_731065)->elements[1]; -c_733097.elements[2] = ((closureN)self_731065)->elements[2]; -c_733097.elements[3] = ((closureN)self_731065)->elements[3]; -c_733097.elements[4] = ((closureN)self_731065)->elements[4]; -c_733097.elements[5] = ((closureN)self_731065)->elements[5]; -c_733097.elements[6] = ((closureN)self_731065)->elements[6]; -c_733097.elements[7] = ((closureN)self_731065)->elements[7]; - -return_closcall1(data,(closure)&c_733097, Cyc_eq(((closureN)self_731065)->elements[1], obj_char2obj(124)));} -; -} - -static void __lambda_351(void *data, int argc, object self_731066, object r_73731) { - if( (boolean_f != r_73731) ){ - -closureN_type c_733099; -c_733099.hdr.mark = gc_color_red; - c_733099.hdr.grayed = 0; -c_733099.tag = closureN_tag; - c_733099.fn = (function_type)__lambda_348; -c_733099.num_args = 0; -c_733099.num_elements = 6; -c_733099.elements = (object *)alloca(sizeof(object) * 6); -c_733099.elements[0] = ((closureN)self_731066)->elements[0]; -c_733099.elements[1] = ((closureN)self_731066)->elements[2]; -c_733099.elements[2] = ((closureN)self_731066)->elements[3]; -c_733099.elements[3] = ((closureN)self_731066)->elements[4]; -c_733099.elements[4] = ((closureN)self_731066)->elements[5]; -c_733099.elements[5] = ((closureN)self_731066)->elements[7]; - -return_closcall0(data,(closure)&c_733099); -} else { - -closureN_type c_733108; -c_733108.hdr.mark = gc_color_red; - c_733108.hdr.grayed = 0; -c_733108.tag = closureN_tag; - c_733108.fn = (function_type)__lambda_350; -c_733108.num_args = 0; -c_733108.num_elements = 8; -c_733108.elements = (object *)alloca(sizeof(object) * 8); -c_733108.elements[0] = ((closureN)self_731066)->elements[0]; -c_733108.elements[1] = ((closureN)self_731066)->elements[1]; -c_733108.elements[2] = ((closureN)self_731066)->elements[2]; -c_733108.elements[3] = ((closureN)self_731066)->elements[3]; -c_733108.elements[4] = ((closureN)self_731066)->elements[4]; -c_733108.elements[5] = ((closureN)self_731066)->elements[5]; -c_733108.elements[6] = ((closureN)self_731066)->elements[6]; -c_733108.elements[7] = ((closureN)self_731066)->elements[7]; - -return_closcall0(data,(closure)&c_733108);} -; -} - -static void __lambda_350(void *data, int argc, object self_731067) { - -closureN_type c_733110; -c_733110.hdr.mark = gc_color_red; - c_733110.hdr.grayed = 0; -c_733110.tag = closureN_tag; - c_733110.fn = (function_type)__lambda_349; -c_733110.num_args = 1; -c_733110.num_elements = 6; -c_733110.elements = (object *)alloca(sizeof(object) * 6); -c_733110.elements[0] = ((closureN)self_731067)->elements[0]; -c_733110.elements[1] = ((closureN)self_731067)->elements[2]; -c_733110.elements[2] = ((closureN)self_731067)->elements[3]; -c_733110.elements[3] = ((closureN)self_731067)->elements[4]; -c_733110.elements[4] = ((closureN)self_731067)->elements[5]; -c_733110.elements[5] = ((closureN)self_731067)->elements[7]; - - -make_pair(c_733120,((closureN)self_731067)->elements[1], ((closureN)self_731067)->elements[6]); -return_closcall1(data,(closure)&c_733110, &c_733120);; -} - -static void __lambda_349(void *data, int argc, object self_731068, object r_73732) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731068)->elements[2], ((closureN)self_731068)->elements[1], r_73732, ((closureN)self_731068)->elements[5], ((closureN)self_731068)->elements[0], boolean_f, ((closureN)self_731068)->elements[3], ((closureN)self_731068)->elements[4]);; -} - -static void __lambda_348(void *data, int argc, object self_731069) { - return_closcall6(data, __glo_parse_91literal_91identifier_scheme_read, ((closureN)self_731069)->elements[2], ((closureN)self_731069)->elements[1], ((closureN)self_731069)->elements[5], ((closureN)self_731069)->elements[0], ((closureN)self_731069)->elements[3], ((closureN)self_731069)->elements[4]);; -} - -static void __lambda_347(void *data, int argc, object self_731070) { - -closureN_type c_732484; -c_732484.hdr.mark = gc_color_red; - c_732484.hdr.grayed = 0; -c_732484.tag = closureN_tag; - c_732484.fn = (function_type)__lambda_346; -c_732484.num_args = 1; -c_732484.num_elements = 8; -c_732484.elements = (object *)alloca(sizeof(object) * 8); -c_732484.elements[0] = ((closureN)self_731070)->elements[0]; -c_732484.elements[1] = ((closureN)self_731070)->elements[1]; -c_732484.elements[2] = ((closureN)self_731070)->elements[2]; -c_732484.elements[3] = ((closureN)self_731070)->elements[3]; -c_732484.elements[4] = ((closureN)self_731070)->elements[4]; -c_732484.elements[5] = ((closureN)self_731070)->elements[5]; -c_732484.elements[6] = ((closureN)self_731070)->elements[6]; -c_732484.elements[7] = ((closureN)self_731070)->elements[7]; - -return_closcall1(data,(closure)&c_732484, Cyc_is_null(((closureN)self_731070)->elements[6]));; -} - -static void __lambda_346(void *data, int argc, object self_731071, object r_73634) { - if( (boolean_f != r_73634) ){ - -closureN_type c_732486; -c_732486.hdr.mark = gc_color_red; - c_732486.hdr.grayed = 0; -c_732486.tag = closureN_tag; - c_732486.fn = (function_type)__lambda_344; -c_732486.num_args = 1; -c_732486.num_elements = 8; -c_732486.elements = (object *)alloca(sizeof(object) * 8); -c_732486.elements[0] = ((closureN)self_731071)->elements[0]; -c_732486.elements[1] = ((closureN)self_731071)->elements[1]; -c_732486.elements[2] = ((closureN)self_731071)->elements[2]; -c_732486.elements[3] = ((closureN)self_731071)->elements[3]; -c_732486.elements[4] = ((closureN)self_731071)->elements[4]; -c_732486.elements[5] = ((closureN)self_731071)->elements[5]; -c_732486.elements[6] = ((closureN)self_731071)->elements[6]; -c_732486.elements[7] = ((closureN)self_731071)->elements[7]; - - -object c_733077 = Cyc_io_read_char(data,(closure)&c_732486,((closureN)self_731071)->elements[2]); -return_closcall1(data,(closure)&c_732486, c_733077); -} else { - -closureN_type c_733080; -c_733080.hdr.mark = gc_color_red; - c_733080.hdr.grayed = 0; -c_733080.tag = closureN_tag; - c_733080.fn = (function_type)__lambda_345; -c_733080.num_args = 1; -c_733080.num_elements = 6; -c_733080.elements = (object *)alloca(sizeof(object) * 6); -c_733080.elements[0] = ((closureN)self_731071)->elements[0]; -c_733080.elements[1] = ((closureN)self_731071)->elements[2]; -c_733080.elements[2] = ((closureN)self_731071)->elements[3]; -c_733080.elements[3] = ((closureN)self_731071)->elements[4]; -c_733080.elements[4] = ((closureN)self_731071)->elements[5]; -c_733080.elements[5] = ((closureN)self_731071)->elements[7]; - - -make_pair(c_733090,((closureN)self_731071)->elements[1], ((closureN)self_731071)->elements[6]); -return_closcall1(data,(closure)&c_733080, &c_733090);} -; -} - -static void __lambda_345(void *data, int argc, object self_731072, object r_73730) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731072)->elements[2], ((closureN)self_731072)->elements[1], r_73730, ((closureN)self_731072)->elements[5], ((closureN)self_731072)->elements[0], boolean_f, ((closureN)self_731072)->elements[3], ((closureN)self_731072)->elements[4]);; -} - -static void __lambda_344(void *data, int argc, object self_731073, object next_91c_73205) { - -closureN_type c_732488; -c_732488.hdr.mark = gc_color_red; - c_732488.hdr.grayed = 0; -c_732488.tag = closureN_tag; - c_732488.fn = (function_type)__lambda_343; -c_732488.num_args = 1; -c_732488.num_elements = 8; -c_732488.elements = (object *)alloca(sizeof(object) * 8); -c_732488.elements[0] = ((closureN)self_731073)->elements[0]; -c_732488.elements[1] = ((closureN)self_731073)->elements[1]; -c_732488.elements[2] = ((closureN)self_731073)->elements[2]; -c_732488.elements[3] = ((closureN)self_731073)->elements[3]; -c_732488.elements[4] = ((closureN)self_731073)->elements[4]; -c_732488.elements[5] = ((closureN)self_731073)->elements[5]; -c_732488.elements[6] = ((closureN)self_731073)->elements[6]; -c_732488.elements[7] = ((closureN)self_731073)->elements[7]; - - -make_cell(c_733074,next_91c_73205); -return_closcall1(data,(closure)&c_732488, &c_733074);; -} - -static void __lambda_343(void *data, int argc, object self_731074, object next_91c_73205) { - -closureN_type c_732490; -c_732490.hdr.mark = gc_color_red; - c_732490.hdr.grayed = 0; -c_732490.tag = closureN_tag; - c_732490.fn = (function_type)__lambda_342; -c_732490.num_args = 1; -c_732490.num_elements = 9; -c_732490.elements = (object *)alloca(sizeof(object) * 9); -c_732490.elements[0] = ((closureN)self_731074)->elements[0]; -c_732490.elements[1] = ((closureN)self_731074)->elements[1]; -c_732490.elements[2] = ((closureN)self_731074)->elements[2]; -c_732490.elements[3] = ((closureN)self_731074)->elements[3]; -c_732490.elements[4] = next_91c_73205; -c_732490.elements[5] = ((closureN)self_731074)->elements[4]; -c_732490.elements[6] = ((closureN)self_731074)->elements[5]; -c_732490.elements[7] = ((closureN)self_731074)->elements[6]; -c_732490.elements[8] = ((closureN)self_731074)->elements[7]; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732490, ((closureN)self_731074)->elements[5]);; -} - -static void __lambda_342(void *data, int argc, object self_731075, object r_73729) { - -closureN_type c_732492; -c_732492.hdr.mark = gc_color_red; - c_732492.hdr.grayed = 0; -c_732492.tag = closureN_tag; - c_732492.fn = (function_type)__lambda_341; -c_732492.num_args = 1; -c_732492.num_elements = 9; -c_732492.elements = (object *)alloca(sizeof(object) * 9); -c_732492.elements[0] = ((closureN)self_731075)->elements[0]; -c_732492.elements[1] = ((closureN)self_731075)->elements[1]; -c_732492.elements[2] = ((closureN)self_731075)->elements[2]; -c_732492.elements[3] = ((closureN)self_731075)->elements[3]; -c_732492.elements[4] = ((closureN)self_731075)->elements[4]; -c_732492.elements[5] = ((closureN)self_731075)->elements[5]; -c_732492.elements[6] = ((closureN)self_731075)->elements[6]; -c_732492.elements[7] = ((closureN)self_731075)->elements[7]; -c_732492.elements[8] = ((closureN)self_731075)->elements[8]; - - -object c_733070 = Cyc_sum(data,(closure)&c_732492,2,obj_int2obj(1), r_73729); -return_closcall1(data,(closure)&c_732492, c_733070);; -} - -static void __lambda_341(void *data, int argc, object self_731076, object r_73728) { - -closureN_type c_732494; -c_732494.hdr.mark = gc_color_red; - c_732494.hdr.grayed = 0; -c_732494.tag = closureN_tag; - c_732494.fn = (function_type)__lambda_340; -c_732494.num_args = 1; -c_732494.num_elements = 9; -c_732494.elements = (object *)alloca(sizeof(object) * 9); -c_732494.elements[0] = ((closureN)self_731076)->elements[0]; -c_732494.elements[1] = ((closureN)self_731076)->elements[1]; -c_732494.elements[2] = ((closureN)self_731076)->elements[2]; -c_732494.elements[3] = ((closureN)self_731076)->elements[3]; -c_732494.elements[4] = ((closureN)self_731076)->elements[4]; -c_732494.elements[5] = ((closureN)self_731076)->elements[5]; -c_732494.elements[6] = ((closureN)self_731076)->elements[6]; -c_732494.elements[7] = ((closureN)self_731076)->elements[7]; -c_732494.elements[8] = ((closureN)self_731076)->elements[8]; - -return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_732494, ((closureN)self_731076)->elements[6], r_73728);; -} - -static void __lambda_340(void *data, int argc, object self_731077, object r_73636) { - -closureN_type c_732496; -c_732496.hdr.mark = gc_color_red; - c_732496.hdr.grayed = 0; -c_732496.tag = closureN_tag; - c_732496.fn = (function_type)__lambda_339; -c_732496.num_args = 1; -c_732496.num_elements = 9; -c_732496.elements = (object *)alloca(sizeof(object) * 9); -c_732496.elements[0] = ((closureN)self_731077)->elements[0]; -c_732496.elements[1] = ((closureN)self_731077)->elements[1]; -c_732496.elements[2] = ((closureN)self_731077)->elements[2]; -c_732496.elements[3] = ((closureN)self_731077)->elements[3]; -c_732496.elements[4] = ((closureN)self_731077)->elements[4]; -c_732496.elements[5] = ((closureN)self_731077)->elements[5]; -c_732496.elements[6] = ((closureN)self_731077)->elements[6]; -c_732496.elements[7] = ((closureN)self_731077)->elements[7]; -c_732496.elements[8] = ((closureN)self_731077)->elements[8]; - -return_closcall1(data,(closure)&c_732496, Cyc_eq(obj_char2obj(124), cell_get(((closureN)self_731077)->elements[4])));; -} - -static void __lambda_339(void *data, int argc, object self_731078, object r_73637) { - if( (boolean_f != r_73637) ){ - -closureN_type c_732498; -c_732498.hdr.mark = gc_color_red; - c_732498.hdr.grayed = 0; -c_732498.tag = closureN_tag; - c_732498.fn = (function_type)__lambda_230; -c_732498.num_args = 0; -c_732498.num_elements = 6; -c_732498.elements = (object *)alloca(sizeof(object) * 6); -c_732498.elements[0] = ((closureN)self_731078)->elements[0]; -c_732498.elements[1] = ((closureN)self_731078)->elements[2]; -c_732498.elements[2] = ((closureN)self_731078)->elements[3]; -c_732498.elements[3] = ((closureN)self_731078)->elements[5]; -c_732498.elements[4] = ((closureN)self_731078)->elements[6]; -c_732498.elements[5] = ((closureN)self_731078)->elements[8]; - -return_closcall0(data,(closure)&c_732498); -} else { - -closureN_type c_732513; -c_732513.hdr.mark = gc_color_red; - c_732513.hdr.grayed = 0; -c_732513.tag = closureN_tag; - c_732513.fn = (function_type)__lambda_338; -c_732513.num_args = 1; -c_732513.num_elements = 9; -c_732513.elements = (object *)alloca(sizeof(object) * 9); -c_732513.elements[0] = ((closureN)self_731078)->elements[0]; -c_732513.elements[1] = ((closureN)self_731078)->elements[1]; -c_732513.elements[2] = ((closureN)self_731078)->elements[2]; -c_732513.elements[3] = ((closureN)self_731078)->elements[3]; -c_732513.elements[4] = ((closureN)self_731078)->elements[4]; -c_732513.elements[5] = ((closureN)self_731078)->elements[5]; -c_732513.elements[6] = ((closureN)self_731078)->elements[6]; -c_732513.elements[7] = ((closureN)self_731078)->elements[7]; -c_732513.elements[8] = ((closureN)self_731078)->elements[8]; - -return_closcall1(data,(closure)&c_732513, Cyc_eq(obj_char2obj(116), cell_get(((closureN)self_731078)->elements[4])));} -; -} - -static void __lambda_338(void *data, int argc, object self_731079, object r_73640) { - if( (boolean_f != r_73640) ){ - -closureN_type c_732515; -c_732515.hdr.mark = gc_color_red; - c_732515.hdr.grayed = 0; -c_732515.tag = closureN_tag; - c_732515.fn = (function_type)__lambda_233; -c_732515.num_args = 0; -c_732515.num_elements = 6; -c_732515.elements = (object *)alloca(sizeof(object) * 6); -c_732515.elements[0] = ((closureN)self_731079)->elements[0]; -c_732515.elements[1] = ((closureN)self_731079)->elements[2]; -c_732515.elements[2] = ((closureN)self_731079)->elements[3]; -c_732515.elements[3] = ((closureN)self_731079)->elements[5]; -c_732515.elements[4] = ((closureN)self_731079)->elements[6]; -c_732515.elements[5] = ((closureN)self_731079)->elements[8]; - -return_closcall0(data,(closure)&c_732515); -} else { - -closureN_type c_732535; -c_732535.hdr.mark = gc_color_red; - c_732535.hdr.grayed = 0; -c_732535.tag = closureN_tag; - c_732535.fn = (function_type)__lambda_337; -c_732535.num_args = 1; -c_732535.num_elements = 9; -c_732535.elements = (object *)alloca(sizeof(object) * 9); -c_732535.elements[0] = ((closureN)self_731079)->elements[0]; -c_732535.elements[1] = ((closureN)self_731079)->elements[1]; -c_732535.elements[2] = ((closureN)self_731079)->elements[2]; -c_732535.elements[3] = ((closureN)self_731079)->elements[3]; -c_732535.elements[4] = ((closureN)self_731079)->elements[4]; -c_732535.elements[5] = ((closureN)self_731079)->elements[5]; -c_732535.elements[6] = ((closureN)self_731079)->elements[6]; -c_732535.elements[7] = ((closureN)self_731079)->elements[7]; -c_732535.elements[8] = ((closureN)self_731079)->elements[8]; - -return_closcall1(data,(closure)&c_732535, Cyc_eq(obj_char2obj(102), cell_get(((closureN)self_731079)->elements[4])));} -; -} - -static void __lambda_337(void *data, int argc, object self_731080, object r_73643) { - if( (boolean_f != r_73643) ){ - -closureN_type c_732537; -c_732537.hdr.mark = gc_color_red; - c_732537.hdr.grayed = 0; -c_732537.tag = closureN_tag; - c_732537.fn = (function_type)__lambda_236; -c_732537.num_args = 0; -c_732537.num_elements = 6; -c_732537.elements = (object *)alloca(sizeof(object) * 6); -c_732537.elements[0] = ((closureN)self_731080)->elements[0]; -c_732537.elements[1] = ((closureN)self_731080)->elements[2]; -c_732537.elements[2] = ((closureN)self_731080)->elements[3]; -c_732537.elements[3] = ((closureN)self_731080)->elements[5]; -c_732537.elements[4] = ((closureN)self_731080)->elements[6]; -c_732537.elements[5] = ((closureN)self_731080)->elements[8]; - -return_closcall0(data,(closure)&c_732537); -} else { - -closureN_type c_732557; -c_732557.hdr.mark = gc_color_red; - c_732557.hdr.grayed = 0; -c_732557.tag = closureN_tag; - c_732557.fn = (function_type)__lambda_336; -c_732557.num_args = 1; -c_732557.num_elements = 9; -c_732557.elements = (object *)alloca(sizeof(object) * 9); -c_732557.elements[0] = ((closureN)self_731080)->elements[0]; -c_732557.elements[1] = ((closureN)self_731080)->elements[1]; -c_732557.elements[2] = ((closureN)self_731080)->elements[2]; -c_732557.elements[3] = ((closureN)self_731080)->elements[3]; -c_732557.elements[4] = ((closureN)self_731080)->elements[4]; -c_732557.elements[5] = ((closureN)self_731080)->elements[5]; -c_732557.elements[6] = ((closureN)self_731080)->elements[6]; -c_732557.elements[7] = ((closureN)self_731080)->elements[7]; -c_732557.elements[8] = ((closureN)self_731080)->elements[8]; - -return_closcall1(data,(closure)&c_732557, Cyc_eq(obj_char2obj(101), cell_get(((closureN)self_731080)->elements[4])));} -; -} - -static void __lambda_336(void *data, int argc, object self_731081, object r_73646) { - if( (boolean_f != r_73646) ){ - -closureN_type c_732559; -c_732559.hdr.mark = gc_color_red; - c_732559.hdr.grayed = 0; -c_732559.tag = closureN_tag; - c_732559.fn = (function_type)__lambda_240; -c_732559.num_args = 0; -c_732559.num_elements = 6; -c_732559.elements = (object *)alloca(sizeof(object) * 6); -c_732559.elements[0] = ((closureN)self_731081)->elements[0]; -c_732559.elements[1] = ((closureN)self_731081)->elements[2]; -c_732559.elements[2] = ((closureN)self_731081)->elements[3]; -c_732559.elements[3] = ((closureN)self_731081)->elements[5]; -c_732559.elements[4] = ((closureN)self_731081)->elements[6]; -c_732559.elements[5] = ((closureN)self_731081)->elements[8]; - -return_closcall0(data,(closure)&c_732559); -} else { - -closureN_type c_732575; -c_732575.hdr.mark = gc_color_red; - c_732575.hdr.grayed = 0; -c_732575.tag = closureN_tag; - c_732575.fn = (function_type)__lambda_335; -c_732575.num_args = 1; -c_732575.num_elements = 9; -c_732575.elements = (object *)alloca(sizeof(object) * 9); -c_732575.elements[0] = ((closureN)self_731081)->elements[0]; -c_732575.elements[1] = ((closureN)self_731081)->elements[1]; -c_732575.elements[2] = ((closureN)self_731081)->elements[2]; -c_732575.elements[3] = ((closureN)self_731081)->elements[3]; -c_732575.elements[4] = ((closureN)self_731081)->elements[4]; -c_732575.elements[5] = ((closureN)self_731081)->elements[5]; -c_732575.elements[6] = ((closureN)self_731081)->elements[6]; -c_732575.elements[7] = ((closureN)self_731081)->elements[7]; -c_732575.elements[8] = ((closureN)self_731081)->elements[8]; - -return_closcall1(data,(closure)&c_732575, Cyc_eq(obj_char2obj(105), cell_get(((closureN)self_731081)->elements[4])));} -; -} - -static void __lambda_335(void *data, int argc, object self_731082, object r_73650) { - if( (boolean_f != r_73650) ){ - -closureN_type c_732577; -c_732577.hdr.mark = gc_color_red; - c_732577.hdr.grayed = 0; -c_732577.tag = closureN_tag; - c_732577.fn = (function_type)__lambda_244; -c_732577.num_args = 0; -c_732577.num_elements = 6; -c_732577.elements = (object *)alloca(sizeof(object) * 6); -c_732577.elements[0] = ((closureN)self_731082)->elements[0]; -c_732577.elements[1] = ((closureN)self_731082)->elements[2]; -c_732577.elements[2] = ((closureN)self_731082)->elements[3]; -c_732577.elements[3] = ((closureN)self_731082)->elements[5]; -c_732577.elements[4] = ((closureN)self_731082)->elements[6]; -c_732577.elements[5] = ((closureN)self_731082)->elements[8]; - -return_closcall0(data,(closure)&c_732577); -} else { - -closureN_type c_732593; -c_732593.hdr.mark = gc_color_red; - c_732593.hdr.grayed = 0; -c_732593.tag = closureN_tag; - c_732593.fn = (function_type)__lambda_334; -c_732593.num_args = 1; -c_732593.num_elements = 9; -c_732593.elements = (object *)alloca(sizeof(object) * 9); -c_732593.elements[0] = ((closureN)self_731082)->elements[0]; -c_732593.elements[1] = ((closureN)self_731082)->elements[1]; -c_732593.elements[2] = ((closureN)self_731082)->elements[2]; -c_732593.elements[3] = ((closureN)self_731082)->elements[3]; -c_732593.elements[4] = ((closureN)self_731082)->elements[4]; -c_732593.elements[5] = ((closureN)self_731082)->elements[5]; -c_732593.elements[6] = ((closureN)self_731082)->elements[6]; -c_732593.elements[7] = ((closureN)self_731082)->elements[7]; -c_732593.elements[8] = ((closureN)self_731082)->elements[8]; - -return_closcall1(data,(closure)&c_732593, Cyc_eq(obj_char2obj(98), cell_get(((closureN)self_731082)->elements[4])));} -; -} - -static void __lambda_334(void *data, int argc, object self_731083, object r_73654) { - if( (boolean_f != r_73654) ){ - -closureN_type c_732595; -c_732595.hdr.mark = gc_color_red; - c_732595.hdr.grayed = 0; -c_732595.tag = closureN_tag; - c_732595.fn = (function_type)__lambda_248; -c_732595.num_args = 0; -c_732595.num_elements = 6; -c_732595.elements = (object *)alloca(sizeof(object) * 6); -c_732595.elements[0] = ((closureN)self_731083)->elements[0]; -c_732595.elements[1] = ((closureN)self_731083)->elements[2]; -c_732595.elements[2] = ((closureN)self_731083)->elements[3]; -c_732595.elements[3] = ((closureN)self_731083)->elements[5]; -c_732595.elements[4] = ((closureN)self_731083)->elements[6]; -c_732595.elements[5] = ((closureN)self_731083)->elements[8]; - -return_closcall0(data,(closure)&c_732595); -} else { - -closureN_type c_732617; -c_732617.hdr.mark = gc_color_red; - c_732617.hdr.grayed = 0; -c_732617.tag = closureN_tag; - c_732617.fn = (function_type)__lambda_333; -c_732617.num_args = 1; -c_732617.num_elements = 9; -c_732617.elements = (object *)alloca(sizeof(object) * 9); -c_732617.elements[0] = ((closureN)self_731083)->elements[0]; -c_732617.elements[1] = ((closureN)self_731083)->elements[1]; -c_732617.elements[2] = ((closureN)self_731083)->elements[2]; -c_732617.elements[3] = ((closureN)self_731083)->elements[3]; -c_732617.elements[4] = ((closureN)self_731083)->elements[4]; -c_732617.elements[5] = ((closureN)self_731083)->elements[5]; -c_732617.elements[6] = ((closureN)self_731083)->elements[6]; -c_732617.elements[7] = ((closureN)self_731083)->elements[7]; -c_732617.elements[8] = ((closureN)self_731083)->elements[8]; - -return_closcall1(data,(closure)&c_732617, Cyc_eq(obj_char2obj(111), cell_get(((closureN)self_731083)->elements[4])));} -; -} - -static void __lambda_333(void *data, int argc, object self_731084, object r_73658) { - if( (boolean_f != r_73658) ){ - -closureN_type c_732619; -c_732619.hdr.mark = gc_color_red; - c_732619.hdr.grayed = 0; -c_732619.tag = closureN_tag; - c_732619.fn = (function_type)__lambda_252; -c_732619.num_args = 0; -c_732619.num_elements = 6; -c_732619.elements = (object *)alloca(sizeof(object) * 6); -c_732619.elements[0] = ((closureN)self_731084)->elements[0]; -c_732619.elements[1] = ((closureN)self_731084)->elements[2]; -c_732619.elements[2] = ((closureN)self_731084)->elements[3]; -c_732619.elements[3] = ((closureN)self_731084)->elements[5]; -c_732619.elements[4] = ((closureN)self_731084)->elements[6]; -c_732619.elements[5] = ((closureN)self_731084)->elements[8]; - -return_closcall0(data,(closure)&c_732619); -} else { - -closureN_type c_732641; -c_732641.hdr.mark = gc_color_red; - c_732641.hdr.grayed = 0; -c_732641.tag = closureN_tag; - c_732641.fn = (function_type)__lambda_332; -c_732641.num_args = 1; -c_732641.num_elements = 9; -c_732641.elements = (object *)alloca(sizeof(object) * 9); -c_732641.elements[0] = ((closureN)self_731084)->elements[0]; -c_732641.elements[1] = ((closureN)self_731084)->elements[1]; -c_732641.elements[2] = ((closureN)self_731084)->elements[2]; -c_732641.elements[3] = ((closureN)self_731084)->elements[3]; -c_732641.elements[4] = ((closureN)self_731084)->elements[4]; -c_732641.elements[5] = ((closureN)self_731084)->elements[5]; -c_732641.elements[6] = ((closureN)self_731084)->elements[6]; -c_732641.elements[7] = ((closureN)self_731084)->elements[7]; -c_732641.elements[8] = ((closureN)self_731084)->elements[8]; - -return_closcall1(data,(closure)&c_732641, Cyc_eq(obj_char2obj(120), cell_get(((closureN)self_731084)->elements[4])));} -; -} - -static void __lambda_332(void *data, int argc, object self_731085, object r_73662) { - if( (boolean_f != r_73662) ){ - -closureN_type c_732643; -c_732643.hdr.mark = gc_color_red; - c_732643.hdr.grayed = 0; -c_732643.tag = closureN_tag; - c_732643.fn = (function_type)__lambda_256; -c_732643.num_args = 0; -c_732643.num_elements = 6; -c_732643.elements = (object *)alloca(sizeof(object) * 6); -c_732643.elements[0] = ((closureN)self_731085)->elements[0]; -c_732643.elements[1] = ((closureN)self_731085)->elements[2]; -c_732643.elements[2] = ((closureN)self_731085)->elements[3]; -c_732643.elements[3] = ((closureN)self_731085)->elements[5]; -c_732643.elements[4] = ((closureN)self_731085)->elements[6]; -c_732643.elements[5] = ((closureN)self_731085)->elements[8]; - -return_closcall0(data,(closure)&c_732643); -} else { - -closureN_type c_732665; -c_732665.hdr.mark = gc_color_red; - c_732665.hdr.grayed = 0; -c_732665.tag = closureN_tag; - c_732665.fn = (function_type)__lambda_331; -c_732665.num_args = 1; -c_732665.num_elements = 9; -c_732665.elements = (object *)alloca(sizeof(object) * 9); -c_732665.elements[0] = ((closureN)self_731085)->elements[0]; -c_732665.elements[1] = ((closureN)self_731085)->elements[1]; -c_732665.elements[2] = ((closureN)self_731085)->elements[2]; -c_732665.elements[3] = ((closureN)self_731085)->elements[3]; -c_732665.elements[4] = ((closureN)self_731085)->elements[4]; -c_732665.elements[5] = ((closureN)self_731085)->elements[5]; -c_732665.elements[6] = ((closureN)self_731085)->elements[6]; -c_732665.elements[7] = ((closureN)self_731085)->elements[7]; -c_732665.elements[8] = ((closureN)self_731085)->elements[8]; - -return_closcall1(data,(closure)&c_732665, Cyc_eq(obj_char2obj(117), cell_get(((closureN)self_731085)->elements[4])));} -; -} - -static void __lambda_331(void *data, int argc, object self_731086, object r_73666) { - if( (boolean_f != r_73666) ){ - -closureN_type c_732667; -c_732667.hdr.mark = gc_color_red; - c_732667.hdr.grayed = 0; -c_732667.tag = closureN_tag; - c_732667.fn = (function_type)__lambda_289; -c_732667.num_args = 0; -c_732667.num_elements = 8; -c_732667.elements = (object *)alloca(sizeof(object) * 8); -c_732667.elements[0] = ((closureN)self_731086)->elements[0]; -c_732667.elements[1] = ((closureN)self_731086)->elements[2]; -c_732667.elements[2] = ((closureN)self_731086)->elements[3]; -c_732667.elements[3] = ((closureN)self_731086)->elements[4]; -c_732667.elements[4] = ((closureN)self_731086)->elements[5]; -c_732667.elements[5] = ((closureN)self_731086)->elements[6]; -c_732667.elements[6] = ((closureN)self_731086)->elements[7]; -c_732667.elements[7] = ((closureN)self_731086)->elements[8]; - -return_closcall0(data,(closure)&c_732667); -} else { - -closureN_type c_732824; -c_732824.hdr.mark = gc_color_red; - c_732824.hdr.grayed = 0; -c_732824.tag = closureN_tag; - c_732824.fn = (function_type)__lambda_330; -c_732824.num_args = 1; -c_732824.num_elements = 9; -c_732824.elements = (object *)alloca(sizeof(object) * 9); -c_732824.elements[0] = ((closureN)self_731086)->elements[0]; -c_732824.elements[1] = ((closureN)self_731086)->elements[1]; -c_732824.elements[2] = ((closureN)self_731086)->elements[2]; -c_732824.elements[3] = ((closureN)self_731086)->elements[3]; -c_732824.elements[4] = ((closureN)self_731086)->elements[4]; -c_732824.elements[5] = ((closureN)self_731086)->elements[5]; -c_732824.elements[6] = ((closureN)self_731086)->elements[6]; -c_732824.elements[7] = ((closureN)self_731086)->elements[7]; -c_732824.elements[8] = ((closureN)self_731086)->elements[8]; - -return_closcall1(data,(closure)&c_732824, Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731086)->elements[4])));} -; -} - -static void __lambda_330(void *data, int argc, object self_731087, object r_73696) { - if( (boolean_f != r_73696) ){ - -closureN_type c_732826; -c_732826.hdr.mark = gc_color_red; - c_732826.hdr.grayed = 0; -c_732826.tag = closureN_tag; - c_732826.fn = (function_type)__lambda_308; -c_732826.num_args = 0; -c_732826.num_elements = 7; -c_732826.elements = (object *)alloca(sizeof(object) * 7); -c_732826.elements[0] = ((closureN)self_731087)->elements[0]; -c_732826.elements[1] = ((closureN)self_731087)->elements[2]; -c_732826.elements[2] = ((closureN)self_731087)->elements[3]; -c_732826.elements[3] = ((closureN)self_731087)->elements[5]; -c_732826.elements[4] = ((closureN)self_731087)->elements[6]; -c_732826.elements[5] = ((closureN)self_731087)->elements[7]; -c_732826.elements[6] = ((closureN)self_731087)->elements[8]; - -return_closcall0(data,(closure)&c_732826); -} else { - -closureN_type c_732917; -c_732917.hdr.mark = gc_color_red; - c_732917.hdr.grayed = 0; -c_732917.tag = closureN_tag; - c_732917.fn = (function_type)__lambda_329; -c_732917.num_args = 1; -c_732917.num_elements = 9; -c_732917.elements = (object *)alloca(sizeof(object) * 9); -c_732917.elements[0] = ((closureN)self_731087)->elements[0]; -c_732917.elements[1] = ((closureN)self_731087)->elements[1]; -c_732917.elements[2] = ((closureN)self_731087)->elements[2]; -c_732917.elements[3] = ((closureN)self_731087)->elements[3]; -c_732917.elements[4] = ((closureN)self_731087)->elements[4]; -c_732917.elements[5] = ((closureN)self_731087)->elements[5]; -c_732917.elements[6] = ((closureN)self_731087)->elements[6]; -c_732917.elements[7] = ((closureN)self_731087)->elements[7]; -c_732917.elements[8] = ((closureN)self_731087)->elements[8]; - -return_closcall1(data,(closure)&c_732917, Cyc_eq(obj_char2obj(92), cell_get(((closureN)self_731087)->elements[4])));} -; -} - -static void __lambda_329(void *data, int argc, object self_731088, object r_73712) { - if( (boolean_f != r_73712) ){ - -closureN_type c_732919; -c_732919.hdr.mark = gc_color_red; - c_732919.hdr.grayed = 0; -c_732919.tag = closureN_tag; - c_732919.fn = (function_type)__lambda_312; -c_732919.num_args = 0; -c_732919.num_elements = 6; -c_732919.elements = (object *)alloca(sizeof(object) * 6); -c_732919.elements[0] = ((closureN)self_731088)->elements[0]; -c_732919.elements[1] = ((closureN)self_731088)->elements[2]; -c_732919.elements[2] = ((closureN)self_731088)->elements[3]; -c_732919.elements[3] = ((closureN)self_731088)->elements[5]; -c_732919.elements[4] = ((closureN)self_731088)->elements[6]; -c_732919.elements[5] = ((closureN)self_731088)->elements[8]; - -return_closcall0(data,(closure)&c_732919); -} else { - -closureN_type c_732945; -c_732945.hdr.mark = gc_color_red; - c_732945.hdr.grayed = 0; -c_732945.tag = closureN_tag; - c_732945.fn = (function_type)__lambda_328; -c_732945.num_args = 1; -c_732945.num_elements = 8; -c_732945.elements = (object *)alloca(sizeof(object) * 8); -c_732945.elements[0] = ((closureN)self_731088)->elements[0]; -c_732945.elements[1] = ((closureN)self_731088)->elements[1]; -c_732945.elements[2] = ((closureN)self_731088)->elements[2]; -c_732945.elements[3] = ((closureN)self_731088)->elements[3]; -c_732945.elements[4] = ((closureN)self_731088)->elements[5]; -c_732945.elements[5] = ((closureN)self_731088)->elements[6]; -c_732945.elements[6] = ((closureN)self_731088)->elements[7]; -c_732945.elements[7] = ((closureN)self_731088)->elements[8]; - -return_closcall1(data,(closure)&c_732945, Cyc_eq(obj_char2obj(59), cell_get(((closureN)self_731088)->elements[4])));} -; -} - -static void __lambda_328(void *data, int argc, object self_731089, object r_73716) { - if( (boolean_f != r_73716) ){ - -closureN_type c_732947; -c_732947.hdr.mark = gc_color_red; - c_732947.hdr.grayed = 0; -c_732947.tag = closureN_tag; - c_732947.fn = (function_type)__lambda_324; -c_732947.num_args = 0; -c_732947.num_elements = 8; -c_732947.elements = (object *)alloca(sizeof(object) * 8); -c_732947.elements[0] = ((closureN)self_731089)->elements[0]; -c_732947.elements[1] = ((closureN)self_731089)->elements[1]; -c_732947.elements[2] = ((closureN)self_731089)->elements[2]; -c_732947.elements[3] = ((closureN)self_731089)->elements[3]; -c_732947.elements[4] = ((closureN)self_731089)->elements[4]; -c_732947.elements[5] = ((closureN)self_731089)->elements[5]; -c_732947.elements[6] = ((closureN)self_731089)->elements[6]; -c_732947.elements[7] = ((closureN)self_731089)->elements[7]; - -return_closcall0(data,(closure)&c_732947); -} else { - -closureN_type c_732996; -c_732996.hdr.mark = gc_color_red; - c_732996.hdr.grayed = 0; -c_732996.tag = closureN_tag; - c_732996.fn = (function_type)__lambda_327; -c_732996.num_args = 0; -c_732996.num_elements = 2; -c_732996.elements = (object *)alloca(sizeof(object) * 2); -c_732996.elements[0] = ((closureN)self_731089)->elements[3]; -c_732996.elements[1] = ((closureN)self_731089)->elements[5]; - -return_closcall0(data,(closure)&c_732996);} -; -} - -static void __lambda_327(void *data, int argc, object self_731090) { - -closureN_type c_732998; -c_732998.hdr.mark = gc_color_red; - c_732998.hdr.grayed = 0; -c_732998.tag = closureN_tag; - c_732998.fn = (function_type)__lambda_326; -c_732998.num_args = 1; -c_732998.num_elements = 2; -c_732998.elements = (object *)alloca(sizeof(object) * 2); -c_732998.elements[0] = ((closureN)self_731090)->elements[0]; -c_732998.elements[1] = ((closureN)self_731090)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732998, ((closureN)self_731090)->elements[1]);; -} - -static void __lambda_326(void *data, int argc, object self_731091, object r_73726) { - -closureN_type c_733000; -c_733000.hdr.mark = gc_color_red; - c_733000.hdr.grayed = 0; -c_733000.tag = closureN_tag; - c_733000.fn = (function_type)__lambda_325; -c_733000.num_args = 1; -c_733000.num_elements = 2; -c_733000.elements = (object *)alloca(sizeof(object) * 2); -c_733000.elements[0] = ((closureN)self_731091)->elements[0]; -c_733000.elements[1] = r_73726; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733000, ((closureN)self_731091)->elements[1]);; -} - -static void __lambda_325(void *data, int argc, object self_731092, object r_73727) { - -make_string(c_733003, "Unhandled input sequence"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731092)->elements[0], &c_733003, ((closureN)self_731092)->elements[1], r_73727);; -} - -static void __lambda_324(void *data, int argc, object self_731093) { - -closureN_type c_732949; -c_732949.hdr.mark = gc_color_red; - c_732949.hdr.grayed = 0; -c_732949.tag = closureN_tag; - c_732949.fn = (function_type)__lambda_323; -c_732949.num_args = 1; -c_732949.num_elements = 8; -c_732949.elements = (object *)alloca(sizeof(object) * 8); -c_732949.elements[0] = ((closureN)self_731093)->elements[0]; -c_732949.elements[1] = ((closureN)self_731093)->elements[1]; -c_732949.elements[2] = ((closureN)self_731093)->elements[2]; -c_732949.elements[3] = ((closureN)self_731093)->elements[3]; -c_732949.elements[4] = ((closureN)self_731093)->elements[4]; -c_732949.elements[5] = ((closureN)self_731093)->elements[5]; -c_732949.elements[6] = ((closureN)self_731093)->elements[6]; -c_732949.elements[7] = ((closureN)self_731093)->elements[7]; - -return_closcall1(data,(closure)&c_732949, NULL);; -} - -static void __lambda_323(void *data, int argc, object self_731094, object r_73724) { - -closureN_type c_732951; -c_732951.hdr.mark = gc_color_red; - c_732951.hdr.grayed = 0; -c_732951.tag = closureN_tag; - c_732951.fn = (function_type)__lambda_322; -c_732951.num_args = 1; -c_732951.num_elements = 9; -c_732951.elements = (object *)alloca(sizeof(object) * 9); -c_732951.elements[0] = ((closureN)self_731094)->elements[0]; -c_732951.elements[1] = ((closureN)self_731094)->elements[1]; -c_732951.elements[2] = ((closureN)self_731094)->elements[2]; -c_732951.elements[3] = ((closureN)self_731094)->elements[3]; -c_732951.elements[4] = ((closureN)self_731094)->elements[4]; -c_732951.elements[5] = ((closureN)self_731094)->elements[5]; -c_732951.elements[6] = r_73724; -c_732951.elements[7] = ((closureN)self_731094)->elements[6]; -c_732951.elements[8] = ((closureN)self_731094)->elements[7]; - -return_closcall1(data,(closure)&c_732951, NULL);; -} - -static void __lambda_322(void *data, int argc, object self_731095, object r_73725) { - -closureN_type c_732953; -c_732953.hdr.mark = gc_color_red; - c_732953.hdr.grayed = 0; -c_732953.tag = closureN_tag; - c_732953.fn = (function_type)__lambda_321; -c_732953.num_args = 1; -c_732953.num_elements = 8; -c_732953.elements = (object *)alloca(sizeof(object) * 8); -c_732953.elements[0] = ((closureN)self_731095)->elements[0]; -c_732953.elements[1] = ((closureN)self_731095)->elements[1]; -c_732953.elements[2] = ((closureN)self_731095)->elements[2]; -c_732953.elements[3] = ((closureN)self_731095)->elements[3]; -c_732953.elements[4] = ((closureN)self_731095)->elements[4]; -c_732953.elements[5] = ((closureN)self_731095)->elements[5]; -c_732953.elements[6] = ((closureN)self_731095)->elements[7]; -c_732953.elements[7] = ((closureN)self_731095)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732953, ((closureN)self_731095)->elements[2], ((closureN)self_731095)->elements[6], r_73725, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731095)->elements[5]);; -} - -static void __lambda_321(void *data, int argc, object self_731096, object r_73717) { - -closureN_type c_732955; -c_732955.hdr.mark = gc_color_red; - c_732955.hdr.grayed = 0; -c_732955.tag = closureN_tag; - c_732955.fn = (function_type)__lambda_314; -c_732955.num_args = 0; -c_732955.num_elements = 2; -c_732955.elements = (object *)alloca(sizeof(object) * 2); -c_732955.elements[0] = ((closureN)self_731096)->elements[0]; -c_732955.elements[1] = ((closureN)self_731096)->elements[6]; - - -closureN_type c_732965; -c_732965.hdr.mark = gc_color_red; - c_732965.hdr.grayed = 0; -c_732965.tag = closureN_tag; - c_732965.fn = (function_type)__lambda_320; -c_732965.num_args = 1; -c_732965.num_elements = 8; -c_732965.elements = (object *)alloca(sizeof(object) * 8); -c_732965.elements[0] = ((closureN)self_731096)->elements[0]; -c_732965.elements[1] = ((closureN)self_731096)->elements[1]; -c_732965.elements[2] = ((closureN)self_731096)->elements[2]; -c_732965.elements[3] = ((closureN)self_731096)->elements[3]; -c_732965.elements[4] = ((closureN)self_731096)->elements[4]; -c_732965.elements[5] = ((closureN)self_731096)->elements[5]; -c_732965.elements[6] = ((closureN)self_731096)->elements[6]; -c_732965.elements[7] = ((closureN)self_731096)->elements[7]; - -return_closcall1(data,(closure)&c_732955, &c_732965);; -} - -static void __lambda_320(void *data, int argc, object self_731097, object r_73718) { - if( (boolean_f != r_73718) ){ - -closureN_type c_732967; -c_732967.hdr.mark = gc_color_red; - c_732967.hdr.grayed = 0; -c_732967.tag = closureN_tag; - c_732967.fn = (function_type)__lambda_318; -c_732967.num_args = 0; -c_732967.num_elements = 5; -c_732967.elements = (object *)alloca(sizeof(object) * 5); -c_732967.elements[0] = ((closureN)self_731097)->elements[1]; -c_732967.elements[1] = ((closureN)self_731097)->elements[3]; -c_732967.elements[2] = ((closureN)self_731097)->elements[5]; -c_732967.elements[3] = ((closureN)self_731097)->elements[6]; -c_732967.elements[4] = ((closureN)self_731097)->elements[7]; - -return_closcall0(data,(closure)&c_732967); -} else { - -closureN_type c_732983; -c_732983.hdr.mark = gc_color_red; - c_732983.hdr.grayed = 0; -c_732983.tag = closureN_tag; - c_732983.fn = (function_type)__lambda_319; -c_732983.num_args = 0; -c_732983.num_elements = 7; -c_732983.elements = (object *)alloca(sizeof(object) * 7); -c_732983.elements[0] = ((closureN)self_731097)->elements[0]; -c_732983.elements[1] = ((closureN)self_731097)->elements[2]; -c_732983.elements[2] = ((closureN)self_731097)->elements[3]; -c_732983.elements[3] = ((closureN)self_731097)->elements[4]; -c_732983.elements[4] = ((closureN)self_731097)->elements[5]; -c_732983.elements[5] = ((closureN)self_731097)->elements[6]; -c_732983.elements[6] = ((closureN)self_731097)->elements[7]; - -return_closcall0(data,(closure)&c_732983);} -; -} - -static void __lambda_319(void *data, int argc, object self_731098) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731098)->elements[2], ((closureN)self_731098)->elements[1], ((closureN)self_731098)->elements[5], ((closureN)self_731098)->elements[6], ((closureN)self_731098)->elements[0], boolean_f, ((closureN)self_731098)->elements[3], ((closureN)self_731098)->elements[4]);; -} - -static void __lambda_318(void *data, int argc, object self_731099) { - -closureN_type c_732969; -c_732969.hdr.mark = gc_color_red; - c_732969.hdr.grayed = 0; -c_732969.tag = closureN_tag; - c_732969.fn = (function_type)__lambda_317; -c_732969.num_args = 1; -c_732969.num_elements = 3; -c_732969.elements = (object *)alloca(sizeof(object) * 3); -c_732969.elements[0] = ((closureN)self_731099)->elements[1]; -c_732969.elements[1] = ((closureN)self_731099)->elements[3]; -c_732969.elements[2] = ((closureN)self_731099)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732969, ((closureN)self_731099)->elements[2], ((closureN)self_731099)->elements[0]);; -} - -static void __lambda_317(void *data, int argc, object self_731100, object r_73719) { - -closureN_type c_732971; -c_732971.hdr.mark = gc_color_red; - c_732971.hdr.grayed = 0; -c_732971.tag = closureN_tag; - c_732971.fn = (function_type)__lambda_316; -c_732971.num_args = 1; -c_732971.num_elements = 2; -c_732971.elements = (object *)alloca(sizeof(object) * 2); -c_732971.elements[0] = ((closureN)self_731100)->elements[0]; -c_732971.elements[1] = ((closureN)self_731100)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732971, ((closureN)self_731100)->elements[1]);; -} - -static void __lambda_316(void *data, int argc, object self_731101, object r_73721) { - -closureN_type c_732973; -c_732973.hdr.mark = gc_color_red; - c_732973.hdr.grayed = 0; -c_732973.tag = closureN_tag; - c_732973.fn = (function_type)__lambda_315; -c_732973.num_args = 1; -c_732973.num_elements = 1; -c_732973.elements = (object *)alloca(sizeof(object) * 1); -c_732973.elements[0] = ((closureN)self_731101)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732973, r_73721, ((closureN)self_731101)->elements[1]);; -} - -static void __lambda_315(void *data, int argc, object self_731102, object r_73720) { - return_closcall1(data, ((closureN)self_731102)->elements[0], car(r_73720));; -} - -static void __lambda_314(void *data, int argc, object self_731103, object k_73722) { - if( (boolean_f != ((closureN)self_731103)->elements[0]) ){ - return_closcall1(data, k_73722, boolean_f); -} else { - -closureN_type c_732959; -c_732959.hdr.mark = gc_color_red; - c_732959.hdr.grayed = 0; -c_732959.tag = closureN_tag; - c_732959.fn = (function_type)__lambda_313; -c_732959.num_args = 1; -c_732959.num_elements = 1; -c_732959.elements = (object *)alloca(sizeof(object) * 1); -c_732959.elements[0] = k_73722; - -return_closcall1(data,(closure)&c_732959, Cyc_is_null(((closureN)self_731103)->elements[1]));} -; -} - -static void __lambda_313(void *data, int argc, object self_731104, object r_73723) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731104)->elements[0], r_73723);; -} - -static void __lambda_312(void *data, int argc, object self_731105) { - -closureN_type c_732921; -c_732921.hdr.mark = gc_color_red; - c_732921.hdr.grayed = 0; -c_732921.tag = closureN_tag; - c_732921.fn = (function_type)__lambda_311; -c_732921.num_args = 1; -c_732921.num_elements = 6; -c_732921.elements = (object *)alloca(sizeof(object) * 6); -c_732921.elements[0] = ((closureN)self_731105)->elements[0]; -c_732921.elements[1] = ((closureN)self_731105)->elements[1]; -c_732921.elements[2] = ((closureN)self_731105)->elements[2]; -c_732921.elements[3] = ((closureN)self_731105)->elements[3]; -c_732921.elements[4] = ((closureN)self_731105)->elements[4]; -c_732921.elements[5] = ((closureN)self_731105)->elements[5]; - -return_closcall3(data, __glo_read_91pound_scheme_read, &c_732921, ((closureN)self_731105)->elements[1], ((closureN)self_731105)->elements[4]);; -} - -static void __lambda_311(void *data, int argc, object self_731106, object r_73715) { - -closureN_type c_732923; -c_732923.hdr.mark = gc_color_red; - c_732923.hdr.grayed = 0; -c_732923.tag = closureN_tag; - c_732923.fn = (function_type)__lambda_310; -c_732923.num_args = 1; -c_732923.num_elements = 5; -c_732923.elements = (object *)alloca(sizeof(object) * 5); -c_732923.elements[0] = ((closureN)self_731106)->elements[0]; -c_732923.elements[1] = ((closureN)self_731106)->elements[1]; -c_732923.elements[2] = ((closureN)self_731106)->elements[2]; -c_732923.elements[3] = ((closureN)self_731106)->elements[3]; -c_732923.elements[4] = ((closureN)self_731106)->elements[4]; - - -make_pair(c_732940,r_73715, ((closureN)self_731106)->elements[5]); -return_closcall1(data,(closure)&c_732923, &c_732940);; -} - -static void __lambda_310(void *data, int argc, object self_731107, object new_91toks_73206) { - if( (boolean_f != ((closureN)self_731107)->elements[0]) ){ - -closureN_type c_732926; -c_732926.hdr.mark = gc_color_red; - c_732926.hdr.grayed = 0; -c_732926.tag = closureN_tag; - c_732926.fn = (function_type)__lambda_309; -c_732926.num_args = 1; -c_732926.num_elements = 6; -c_732926.elements = (object *)alloca(sizeof(object) * 6); -c_732926.elements[0] = ((closureN)self_731107)->elements[0]; -c_732926.elements[1] = ((closureN)self_731107)->elements[1]; -c_732926.elements[2] = ((closureN)self_731107)->elements[2]; -c_732926.elements[3] = new_91toks_73206; -c_732926.elements[4] = ((closureN)self_731107)->elements[3]; -c_732926.elements[5] = ((closureN)self_731107)->elements[4]; - -return_closcall1(data,(closure)&c_732926, NULL); -} else { - return_closcall1(data, ((closureN)self_731107)->elements[2], car(new_91toks_73206));} -; -} - -static void __lambda_309(void *data, int argc, object self_731108, object r_73714) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731108)->elements[2], ((closureN)self_731108)->elements[1], r_73714, ((closureN)self_731108)->elements[3], ((closureN)self_731108)->elements[0], boolean_f, ((closureN)self_731108)->elements[4], ((closureN)self_731108)->elements[5]);; -} - -static void __lambda_308(void *data, int argc, object self_731109) { - -closureN_type c_732828; -c_732828.hdr.mark = gc_color_red; - c_732828.hdr.grayed = 0; -c_732828.tag = closureN_tag; - c_732828.fn = (function_type)__lambda_307; -c_732828.num_args = 1; -c_732828.num_elements = 7; -c_732828.elements = (object *)alloca(sizeof(object) * 7); -c_732828.elements[0] = ((closureN)self_731109)->elements[0]; -c_732828.elements[1] = ((closureN)self_731109)->elements[1]; -c_732828.elements[2] = ((closureN)self_731109)->elements[2]; -c_732828.elements[3] = ((closureN)self_731109)->elements[3]; -c_732828.elements[4] = ((closureN)self_731109)->elements[4]; -c_732828.elements[5] = ((closureN)self_731109)->elements[5]; -c_732828.elements[6] = ((closureN)self_731109)->elements[6]; - -return_closcall1(data,(closure)&c_732828, NULL);; -} - -static void __lambda_307(void *data, int argc, object self_731110, object r_73709) { - -closureN_type c_732830; -c_732830.hdr.mark = gc_color_red; - c_732830.hdr.grayed = 0; -c_732830.tag = closureN_tag; - c_732830.fn = (function_type)__lambda_306; -c_732830.num_args = 1; -c_732830.num_elements = 8; -c_732830.elements = (object *)alloca(sizeof(object) * 8); -c_732830.elements[0] = ((closureN)self_731110)->elements[0]; -c_732830.elements[1] = ((closureN)self_731110)->elements[1]; -c_732830.elements[2] = ((closureN)self_731110)->elements[2]; -c_732830.elements[3] = ((closureN)self_731110)->elements[3]; -c_732830.elements[4] = ((closureN)self_731110)->elements[4]; -c_732830.elements[5] = r_73709; -c_732830.elements[6] = ((closureN)self_731110)->elements[5]; -c_732830.elements[7] = ((closureN)self_731110)->elements[6]; - -return_closcall1(data,(closure)&c_732830, NULL);; -} - -static void __lambda_306(void *data, int argc, object self_731111, object r_73710) { - -closureN_type c_732832; -c_732832.hdr.mark = gc_color_red; - c_732832.hdr.grayed = 0; -c_732832.tag = closureN_tag; - c_732832.fn = (function_type)__lambda_305; -c_732832.num_args = 1; -c_732832.num_elements = 9; -c_732832.elements = (object *)alloca(sizeof(object) * 9); -c_732832.elements[0] = ((closureN)self_731111)->elements[0]; -c_732832.elements[1] = ((closureN)self_731111)->elements[1]; -c_732832.elements[2] = ((closureN)self_731111)->elements[2]; -c_732832.elements[3] = ((closureN)self_731111)->elements[3]; -c_732832.elements[4] = ((closureN)self_731111)->elements[4]; -c_732832.elements[5] = ((closureN)self_731111)->elements[5]; -c_732832.elements[6] = r_73710; -c_732832.elements[7] = ((closureN)self_731111)->elements[6]; -c_732832.elements[8] = ((closureN)self_731111)->elements[7]; - - -object c_732914 = Cyc_sum(data,(closure)&c_732832,2,((closureN)self_731111)->elements[3], obj_int2obj(1)); -return_closcall1(data,(closure)&c_732832, c_732914);; -} - -static void __lambda_305(void *data, int argc, object self_731112, object r_73711) { - -closureN_type c_732834; -c_732834.hdr.mark = gc_color_red; - c_732834.hdr.grayed = 0; -c_732834.tag = closureN_tag; - c_732834.fn = (function_type)__lambda_304; -c_732834.num_args = 1; -c_732834.num_elements = 7; -c_732834.elements = (object *)alloca(sizeof(object) * 7); -c_732834.elements[0] = ((closureN)self_731112)->elements[0]; -c_732834.elements[1] = ((closureN)self_731112)->elements[1]; -c_732834.elements[2] = ((closureN)self_731112)->elements[2]; -c_732834.elements[3] = ((closureN)self_731112)->elements[3]; -c_732834.elements[4] = ((closureN)self_731112)->elements[4]; -c_732834.elements[5] = ((closureN)self_731112)->elements[7]; -c_732834.elements[6] = ((closureN)self_731112)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732834, ((closureN)self_731112)->elements[1], ((closureN)self_731112)->elements[5], ((closureN)self_731112)->elements[6], boolean_t, boolean_f, r_73711, ((closureN)self_731112)->elements[4]);; -} - -static void __lambda_304(void *data, int argc, object self_731113, object r_73697) { - -closureN_type c_732836; -c_732836.hdr.mark = gc_color_red; - c_732836.hdr.grayed = 0; -c_732836.tag = closureN_tag; - c_732836.fn = (function_type)__lambda_303; -c_732836.num_args = 1; -c_732836.num_elements = 6; -c_732836.elements = (object *)alloca(sizeof(object) * 6); -c_732836.elements[0] = ((closureN)self_731113)->elements[0]; -c_732836.elements[1] = ((closureN)self_731113)->elements[1]; -c_732836.elements[2] = ((closureN)self_731113)->elements[2]; -c_732836.elements[3] = ((closureN)self_731113)->elements[3]; -c_732836.elements[4] = ((closureN)self_731113)->elements[4]; -c_732836.elements[5] = r_73697; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732836, ((closureN)self_731113)->elements[5], ((closureN)self_731113)->elements[6]);; -} - -static void __lambda_303(void *data, int argc, object self_731114, object r_73698) { - -closureN_type c_732838; -c_732838.hdr.mark = gc_color_red; - c_732838.hdr.grayed = 0; -c_732838.tag = closureN_tag; - c_732838.fn = (function_type)__lambda_302; -c_732838.num_args = 2; -c_732838.num_elements = 5; -c_732838.elements = (object *)alloca(sizeof(object) * 5); -c_732838.elements[0] = ((closureN)self_731114)->elements[0]; -c_732838.elements[1] = ((closureN)self_731114)->elements[1]; -c_732838.elements[2] = ((closureN)self_731114)->elements[2]; -c_732838.elements[3] = ((closureN)self_731114)->elements[3]; -c_732838.elements[4] = ((closureN)self_731114)->elements[4]; - -return_closcall2(data,(closure)&c_732838, ((closureN)self_731114)->elements[5], r_73698);; -} - -static void __lambda_302(void *data, int argc, object self_731115, object sub_73208, object toks_85_73207) { - -closureN_type c_732840; -c_732840.hdr.mark = gc_color_red; - c_732840.hdr.grayed = 0; -c_732840.tag = closureN_tag; - c_732840.fn = (function_type)__lambda_301; -c_732840.num_args = 1; -c_732840.num_elements = 7; -c_732840.elements = (object *)alloca(sizeof(object) * 7); -c_732840.elements[0] = ((closureN)self_731115)->elements[0]; -c_732840.elements[1] = ((closureN)self_731115)->elements[1]; -c_732840.elements[2] = ((closureN)self_731115)->elements[2]; -c_732840.elements[3] = ((closureN)self_731115)->elements[3]; -c_732840.elements[4] = ((closureN)self_731115)->elements[4]; -c_732840.elements[5] = sub_73208; -c_732840.elements[6] = toks_85_73207; - -return_closcall1(data,(closure)&c_732840, boolean_f);; -} - -static void __lambda_301(void *data, int argc, object self_731116, object new_91toks_73209) { - -closureN_type c_732842; -c_732842.hdr.mark = gc_color_red; - c_732842.hdr.grayed = 0; -c_732842.tag = closureN_tag; - c_732842.fn = (function_type)__lambda_300; -c_732842.num_args = 1; -c_732842.num_elements = 7; -c_732842.elements = (object *)alloca(sizeof(object) * 7); -c_732842.elements[0] = ((closureN)self_731116)->elements[0]; -c_732842.elements[1] = ((closureN)self_731116)->elements[1]; -c_732842.elements[2] = ((closureN)self_731116)->elements[2]; -c_732842.elements[3] = ((closureN)self_731116)->elements[3]; -c_732842.elements[4] = ((closureN)self_731116)->elements[4]; -c_732842.elements[5] = ((closureN)self_731116)->elements[5]; -c_732842.elements[6] = ((closureN)self_731116)->elements[6]; - - -make_cell(c_732904,new_91toks_73209); -return_closcall1(data,(closure)&c_732842, &c_732904);; -} - -static void __lambda_300(void *data, int argc, object self_731117, object new_91toks_73209) { - -closureN_type c_732844; -c_732844.hdr.mark = gc_color_red; - c_732844.hdr.grayed = 0; -c_732844.tag = closureN_tag; - c_732844.fn = (function_type)__lambda_295; -c_732844.num_args = 0; -c_732844.num_elements = 2; -c_732844.elements = (object *)alloca(sizeof(object) * 2); -c_732844.elements[0] = ((closureN)self_731117)->elements[4]; -c_732844.elements[1] = ((closureN)self_731117)->elements[5]; - - -closureN_type c_732874; -c_732874.hdr.mark = gc_color_red; - c_732874.hdr.grayed = 0; -c_732874.tag = closureN_tag; - c_732874.fn = (function_type)__lambda_299; -c_732874.num_args = 1; -c_732874.num_elements = 7; -c_732874.elements = (object *)alloca(sizeof(object) * 7); -c_732874.elements[0] = ((closureN)self_731117)->elements[0]; -c_732874.elements[1] = ((closureN)self_731117)->elements[1]; -c_732874.elements[2] = ((closureN)self_731117)->elements[2]; -c_732874.elements[3] = new_91toks_73209; -c_732874.elements[4] = ((closureN)self_731117)->elements[3]; -c_732874.elements[5] = ((closureN)self_731117)->elements[4]; -c_732874.elements[6] = ((closureN)self_731117)->elements[6]; - -return_closcall1(data,(closure)&c_732844, &c_732874);; -} - -static void __lambda_299(void *data, int argc, object self_731118, object r_73702) { - -closureN_type c_732876; -c_732876.hdr.mark = gc_color_red; - c_732876.hdr.grayed = 0; -c_732876.tag = closureN_tag; - c_732876.fn = (function_type)__lambda_298; -c_732876.num_args = 1; -c_732876.num_elements = 6; -c_732876.elements = (object *)alloca(sizeof(object) * 6); -c_732876.elements[0] = ((closureN)self_731118)->elements[0]; -c_732876.elements[1] = ((closureN)self_731118)->elements[1]; -c_732876.elements[2] = ((closureN)self_731118)->elements[2]; -c_732876.elements[3] = ((closureN)self_731118)->elements[3]; -c_732876.elements[4] = ((closureN)self_731118)->elements[4]; -c_732876.elements[5] = ((closureN)self_731118)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732876, r_73702, ((closureN)self_731118)->elements[6]);; -} - -static void __lambda_298(void *data, int argc, object self_731119, object r_73701) { - -closureN_type c_732878; -c_732878.hdr.mark = gc_color_red; - c_732878.hdr.grayed = 0; -c_732878.tag = closureN_tag; - c_732878.fn = (function_type)__lambda_297; -c_732878.num_args = 1; -c_732878.num_elements = 6; -c_732878.elements = (object *)alloca(sizeof(object) * 6); -c_732878.elements[0] = ((closureN)self_731119)->elements[0]; -c_732878.elements[1] = ((closureN)self_731119)->elements[1]; -c_732878.elements[2] = ((closureN)self_731119)->elements[2]; -c_732878.elements[3] = ((closureN)self_731119)->elements[3]; -c_732878.elements[4] = ((closureN)self_731119)->elements[4]; -c_732878.elements[5] = ((closureN)self_731119)->elements[5]; - -return_closcall1(data,(closure)&c_732878, Cyc_set_car(data, ((closureN)self_731119)->elements[3], r_73701));; -} - -static void __lambda_297(void *data, int argc, object self_731120, object r_73699) { - if( (boolean_f != ((closureN)self_731120)->elements[0]) ){ - -closureN_type c_732881; -c_732881.hdr.mark = gc_color_red; - c_732881.hdr.grayed = 0; -c_732881.tag = closureN_tag; - c_732881.fn = (function_type)__lambda_296; -c_732881.num_args = 1; -c_732881.num_elements = 6; -c_732881.elements = (object *)alloca(sizeof(object) * 6); -c_732881.elements[0] = ((closureN)self_731120)->elements[0]; -c_732881.elements[1] = ((closureN)self_731120)->elements[1]; -c_732881.elements[2] = ((closureN)self_731120)->elements[2]; -c_732881.elements[3] = ((closureN)self_731120)->elements[3]; -c_732881.elements[4] = ((closureN)self_731120)->elements[4]; -c_732881.elements[5] = ((closureN)self_731120)->elements[5]; - -return_closcall1(data,(closure)&c_732881, NULL); -} else { - return_closcall1(data, ((closureN)self_731120)->elements[2], car(cell_get(((closureN)self_731120)->elements[3])));} -; -} - -static void __lambda_296(void *data, int argc, object self_731121, object r_73700) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731121)->elements[2], ((closureN)self_731121)->elements[1], r_73700, cell_get(((closureN)self_731121)->elements[3]), ((closureN)self_731121)->elements[0], boolean_f, ((closureN)self_731121)->elements[4], ((closureN)self_731121)->elements[5]);; -} - -static void __lambda_295(void *data, int argc, object self_731122, object k_73703) { - -closureN_type c_732846; -c_732846.hdr.mark = gc_color_red; - c_732846.hdr.grayed = 0; -c_732846.tag = closureN_tag; - c_732846.fn = (function_type)__lambda_291; -c_732846.num_args = 0; -c_732846.num_elements = 1; -c_732846.elements = (object *)alloca(sizeof(object) * 1); -c_732846.elements[0] = ((closureN)self_731122)->elements[1]; - - -closureN_type c_732857; -c_732857.hdr.mark = gc_color_red; - c_732857.hdr.grayed = 0; -c_732857.tag = closureN_tag; - c_732857.fn = (function_type)__lambda_294; -c_732857.num_args = 1; -c_732857.num_elements = 3; -c_732857.elements = (object *)alloca(sizeof(object) * 3); -c_732857.elements[0] = k_73703; -c_732857.elements[1] = ((closureN)self_731122)->elements[0]; -c_732857.elements[2] = ((closureN)self_731122)->elements[1]; - -return_closcall1(data,(closure)&c_732846, &c_732857);; -} - -static void __lambda_294(void *data, int argc, object self_731123, object r_73704) { - if( (boolean_f != r_73704) ){ - -closureN_type c_732859; -c_732859.hdr.mark = gc_color_red; - c_732859.hdr.grayed = 0; -c_732859.tag = closureN_tag; - c_732859.fn = (function_type)__lambda_293; -c_732859.num_args = 1; -c_732859.num_elements = 2; -c_732859.elements = (object *)alloca(sizeof(object) * 2); -c_732859.elements[0] = ((closureN)self_731123)->elements[0]; -c_732859.elements[1] = ((closureN)self_731123)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732859, ((closureN)self_731123)->elements[1]); -} else { - -object c_732872 = Cyc_list2vector(data, ((closureN)self_731123)->elements[0],((closureN)self_731123)->elements[2]); -return_closcall1(data, ((closureN)self_731123)->elements[0], c_732872);} -; -} - -static void __lambda_293(void *data, int argc, object self_731124, object r_73705) { - -closureN_type c_732861; -c_732861.hdr.mark = gc_color_red; - c_732861.hdr.grayed = 0; -c_732861.tag = closureN_tag; - c_732861.fn = (function_type)__lambda_292; -c_732861.num_args = 1; -c_732861.num_elements = 2; -c_732861.elements = (object *)alloca(sizeof(object) * 2); -c_732861.elements[0] = ((closureN)self_731124)->elements[0]; -c_732861.elements[1] = r_73705; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732861, ((closureN)self_731124)->elements[1]);; -} - -static void __lambda_292(void *data, int argc, object self_731125, object r_73706) { - -make_string(c_732864, "Invalid vector syntax"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731125)->elements[0], &c_732864, ((closureN)self_731125)->elements[1], r_73706);; -} - -static void __lambda_291(void *data, int argc, object self_731126, object k_73707) { - -closureN_type c_732848; -c_732848.hdr.mark = gc_color_red; - c_732848.hdr.grayed = 0; -c_732848.tag = closureN_tag; - c_732848.fn = (function_type)__lambda_290; -c_732848.num_args = 1; -c_732848.num_elements = 2; -c_732848.elements = (object *)alloca(sizeof(object) * 2); -c_732848.elements[0] = k_73707; -c_732848.elements[1] = ((closureN)self_731126)->elements[0]; - -return_closcall1(data,(closure)&c_732848, Cyc_is_pair(((closureN)self_731126)->elements[0]));; -} - -static void __lambda_290(void *data, int argc, object self_731127, object r_73708) { - if( (boolean_f != r_73708) ){ - return_closcall2(data, __glo_dotted_127_scheme_read, ((closureN)self_731127)->elements[0], ((closureN)self_731127)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731127)->elements[0], boolean_f);} -; -} - -static void __lambda_289(void *data, int argc, object self_731128) { - -closureN_type c_732669; -c_732669.hdr.mark = gc_color_red; - c_732669.hdr.grayed = 0; -c_732669.tag = closureN_tag; - c_732669.fn = (function_type)__lambda_288; -c_732669.num_args = 1; -c_732669.num_elements = 8; -c_732669.elements = (object *)alloca(sizeof(object) * 8); -c_732669.elements[0] = ((closureN)self_731128)->elements[0]; -c_732669.elements[1] = ((closureN)self_731128)->elements[1]; -c_732669.elements[2] = ((closureN)self_731128)->elements[2]; -c_732669.elements[3] = ((closureN)self_731128)->elements[3]; -c_732669.elements[4] = ((closureN)self_731128)->elements[4]; -c_732669.elements[5] = ((closureN)self_731128)->elements[5]; -c_732669.elements[6] = ((closureN)self_731128)->elements[6]; -c_732669.elements[7] = ((closureN)self_731128)->elements[7]; - - -object c_732821 = Cyc_io_read_char(data,(closure)&c_732669,((closureN)self_731128)->elements[1]); -return_closcall1(data,(closure)&c_732669, c_732821);; -} - -static void __lambda_288(void *data, int argc, object self_731129, object r_73695) { - -closureN_type c_732671; -c_732671.hdr.mark = gc_color_red; - c_732671.hdr.grayed = 0; -c_732671.tag = closureN_tag; - c_732671.fn = (function_type)__lambda_287; -c_732671.num_args = 1; -c_732671.num_elements = 8; -c_732671.elements = (object *)alloca(sizeof(object) * 8); -c_732671.elements[0] = ((closureN)self_731129)->elements[0]; -c_732671.elements[1] = ((closureN)self_731129)->elements[1]; -c_732671.elements[2] = ((closureN)self_731129)->elements[2]; -c_732671.elements[3] = ((closureN)self_731129)->elements[3]; -c_732671.elements[4] = ((closureN)self_731129)->elements[4]; -c_732671.elements[5] = ((closureN)self_731129)->elements[5]; -c_732671.elements[6] = ((closureN)self_731129)->elements[6]; -c_732671.elements[7] = ((closureN)self_731129)->elements[7]; - -return_closcall1(data,(closure)&c_732671, Cyc_set_car(data, ((closureN)self_731129)->elements[3], r_73695));; -} - -static void __lambda_287(void *data, int argc, object self_731130, object r_73667) { - -closureN_type c_732673; -c_732673.hdr.mark = gc_color_red; - c_732673.hdr.grayed = 0; -c_732673.tag = closureN_tag; - c_732673.fn = (function_type)__lambda_260; -c_732673.num_args = 0; -c_732673.num_elements = 2; -c_732673.elements = (object *)alloca(sizeof(object) * 2); -c_732673.elements[0] = ((closureN)self_731130)->elements[3]; -c_732673.elements[1] = ((closureN)self_731130)->elements[5]; - - -closureN_type c_732693; -c_732693.hdr.mark = gc_color_red; - c_732693.hdr.grayed = 0; -c_732693.tag = closureN_tag; - c_732693.fn = (function_type)__lambda_286; -c_732693.num_args = 1; -c_732693.num_elements = 8; -c_732693.elements = (object *)alloca(sizeof(object) * 8); -c_732693.elements[0] = ((closureN)self_731130)->elements[0]; -c_732693.elements[1] = ((closureN)self_731130)->elements[1]; -c_732693.elements[2] = ((closureN)self_731130)->elements[2]; -c_732693.elements[3] = ((closureN)self_731130)->elements[3]; -c_732693.elements[4] = ((closureN)self_731130)->elements[4]; -c_732693.elements[5] = ((closureN)self_731130)->elements[5]; -c_732693.elements[6] = ((closureN)self_731130)->elements[6]; -c_732693.elements[7] = ((closureN)self_731130)->elements[7]; - -return_closcall1(data,(closure)&c_732673, &c_732693);; -} - -static void __lambda_286(void *data, int argc, object self_731131, object r_73668) { - -closureN_type c_732695; -c_732695.hdr.mark = gc_color_red; - c_732695.hdr.grayed = 0; -c_732695.tag = closureN_tag; - c_732695.fn = (function_type)__lambda_285; -c_732695.num_args = 1; -c_732695.num_elements = 8; -c_732695.elements = (object *)alloca(sizeof(object) * 8); -c_732695.elements[0] = ((closureN)self_731131)->elements[0]; -c_732695.elements[1] = ((closureN)self_731131)->elements[1]; -c_732695.elements[2] = ((closureN)self_731131)->elements[2]; -c_732695.elements[3] = ((closureN)self_731131)->elements[3]; -c_732695.elements[4] = ((closureN)self_731131)->elements[4]; -c_732695.elements[5] = ((closureN)self_731131)->elements[5]; -c_732695.elements[6] = ((closureN)self_731131)->elements[6]; -c_732695.elements[7] = ((closureN)self_731131)->elements[7]; - - -object c_732814 = Cyc_io_read_char(data,(closure)&c_732695,((closureN)self_731131)->elements[1]); -return_closcall1(data,(closure)&c_732695, c_732814);; -} - -static void __lambda_285(void *data, int argc, object self_731132, object r_73690) { - -closureN_type c_732697; -c_732697.hdr.mark = gc_color_red; - c_732697.hdr.grayed = 0; -c_732697.tag = closureN_tag; - c_732697.fn = (function_type)__lambda_284; -c_732697.num_args = 1; -c_732697.num_elements = 8; -c_732697.elements = (object *)alloca(sizeof(object) * 8); -c_732697.elements[0] = ((closureN)self_731132)->elements[0]; -c_732697.elements[1] = ((closureN)self_731132)->elements[1]; -c_732697.elements[2] = ((closureN)self_731132)->elements[2]; -c_732697.elements[3] = ((closureN)self_731132)->elements[3]; -c_732697.elements[4] = ((closureN)self_731132)->elements[4]; -c_732697.elements[5] = ((closureN)self_731132)->elements[5]; -c_732697.elements[6] = ((closureN)self_731132)->elements[6]; -c_732697.elements[7] = ((closureN)self_731132)->elements[7]; - -return_closcall1(data,(closure)&c_732697, Cyc_set_car(data, ((closureN)self_731132)->elements[3], r_73690));; -} - -static void __lambda_284(void *data, int argc, object self_731133, object r_73669) { - -closureN_type c_732699; -c_732699.hdr.mark = gc_color_red; - c_732699.hdr.grayed = 0; -c_732699.tag = closureN_tag; - c_732699.fn = (function_type)__lambda_264; -c_732699.num_args = 0; -c_732699.num_elements = 2; -c_732699.elements = (object *)alloca(sizeof(object) * 2); -c_732699.elements[0] = ((closureN)self_731133)->elements[3]; -c_732699.elements[1] = ((closureN)self_731133)->elements[5]; - - -closureN_type c_732719; -c_732719.hdr.mark = gc_color_red; - c_732719.hdr.grayed = 0; -c_732719.tag = closureN_tag; - c_732719.fn = (function_type)__lambda_283; -c_732719.num_args = 1; -c_732719.num_elements = 7; -c_732719.elements = (object *)alloca(sizeof(object) * 7); -c_732719.elements[0] = ((closureN)self_731133)->elements[0]; -c_732719.elements[1] = ((closureN)self_731133)->elements[1]; -c_732719.elements[2] = ((closureN)self_731133)->elements[2]; -c_732719.elements[3] = ((closureN)self_731133)->elements[4]; -c_732719.elements[4] = ((closureN)self_731133)->elements[5]; -c_732719.elements[5] = ((closureN)self_731133)->elements[6]; -c_732719.elements[6] = ((closureN)self_731133)->elements[7]; - -return_closcall1(data,(closure)&c_732699, &c_732719);; -} - -static void __lambda_283(void *data, int argc, object self_731134, object r_73670) { - -closureN_type c_732721; -c_732721.hdr.mark = gc_color_red; - c_732721.hdr.grayed = 0; -c_732721.tag = closureN_tag; - c_732721.fn = (function_type)__lambda_282; -c_732721.num_args = 1; -c_732721.num_elements = 7; -c_732721.elements = (object *)alloca(sizeof(object) * 7); -c_732721.elements[0] = ((closureN)self_731134)->elements[0]; -c_732721.elements[1] = ((closureN)self_731134)->elements[1]; -c_732721.elements[2] = ((closureN)self_731134)->elements[2]; -c_732721.elements[3] = ((closureN)self_731134)->elements[3]; -c_732721.elements[4] = ((closureN)self_731134)->elements[4]; -c_732721.elements[5] = ((closureN)self_731134)->elements[5]; -c_732721.elements[6] = ((closureN)self_731134)->elements[6]; - -return_closcall1(data,(closure)&c_732721, NULL);; -} - -static void __lambda_282(void *data, int argc, object self_731135, object r_73683) { - -closureN_type c_732723; -c_732723.hdr.mark = gc_color_red; - c_732723.hdr.grayed = 0; -c_732723.tag = closureN_tag; - c_732723.fn = (function_type)__lambda_281; -c_732723.num_args = 1; -c_732723.num_elements = 8; -c_732723.elements = (object *)alloca(sizeof(object) * 8); -c_732723.elements[0] = ((closureN)self_731135)->elements[0]; -c_732723.elements[1] = ((closureN)self_731135)->elements[1]; -c_732723.elements[2] = ((closureN)self_731135)->elements[2]; -c_732723.elements[3] = ((closureN)self_731135)->elements[3]; -c_732723.elements[4] = ((closureN)self_731135)->elements[4]; -c_732723.elements[5] = r_73683; -c_732723.elements[6] = ((closureN)self_731135)->elements[5]; -c_732723.elements[7] = ((closureN)self_731135)->elements[6]; - -return_closcall1(data,(closure)&c_732723, NULL);; -} - -static void __lambda_281(void *data, int argc, object self_731136, object r_73684) { - -closureN_type c_732725; -c_732725.hdr.mark = gc_color_red; - c_732725.hdr.grayed = 0; -c_732725.tag = closureN_tag; - c_732725.fn = (function_type)__lambda_280; -c_732725.num_args = 1; -c_732725.num_elements = 9; -c_732725.elements = (object *)alloca(sizeof(object) * 9); -c_732725.elements[0] = ((closureN)self_731136)->elements[0]; -c_732725.elements[1] = ((closureN)self_731136)->elements[1]; -c_732725.elements[2] = ((closureN)self_731136)->elements[2]; -c_732725.elements[3] = ((closureN)self_731136)->elements[3]; -c_732725.elements[4] = ((closureN)self_731136)->elements[4]; -c_732725.elements[5] = ((closureN)self_731136)->elements[5]; -c_732725.elements[6] = r_73684; -c_732725.elements[7] = ((closureN)self_731136)->elements[6]; -c_732725.elements[8] = ((closureN)self_731136)->elements[7]; - - -object c_732807 = Cyc_sum(data,(closure)&c_732725,2,((closureN)self_731136)->elements[3], obj_int2obj(1)); -return_closcall1(data,(closure)&c_732725, c_732807);; -} - -static void __lambda_280(void *data, int argc, object self_731137, object r_73685) { - -closureN_type c_732727; -c_732727.hdr.mark = gc_color_red; - c_732727.hdr.grayed = 0; -c_732727.tag = closureN_tag; - c_732727.fn = (function_type)__lambda_279; -c_732727.num_args = 1; -c_732727.num_elements = 7; -c_732727.elements = (object *)alloca(sizeof(object) * 7); -c_732727.elements[0] = ((closureN)self_731137)->elements[0]; -c_732727.elements[1] = ((closureN)self_731137)->elements[1]; -c_732727.elements[2] = ((closureN)self_731137)->elements[2]; -c_732727.elements[3] = ((closureN)self_731137)->elements[3]; -c_732727.elements[4] = ((closureN)self_731137)->elements[4]; -c_732727.elements[5] = ((closureN)self_731137)->elements[7]; -c_732727.elements[6] = ((closureN)self_731137)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732727, ((closureN)self_731137)->elements[1], ((closureN)self_731137)->elements[5], ((closureN)self_731137)->elements[6], boolean_t, boolean_f, r_73685, ((closureN)self_731137)->elements[4]);; -} - -static void __lambda_279(void *data, int argc, object self_731138, object r_73671) { - -closureN_type c_732729; -c_732729.hdr.mark = gc_color_red; - c_732729.hdr.grayed = 0; -c_732729.tag = closureN_tag; - c_732729.fn = (function_type)__lambda_278; -c_732729.num_args = 1; -c_732729.num_elements = 6; -c_732729.elements = (object *)alloca(sizeof(object) * 6); -c_732729.elements[0] = ((closureN)self_731138)->elements[0]; -c_732729.elements[1] = ((closureN)self_731138)->elements[1]; -c_732729.elements[2] = ((closureN)self_731138)->elements[2]; -c_732729.elements[3] = ((closureN)self_731138)->elements[3]; -c_732729.elements[4] = ((closureN)self_731138)->elements[4]; -c_732729.elements[5] = r_73671; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732729, ((closureN)self_731138)->elements[5], ((closureN)self_731138)->elements[6]);; -} - -static void __lambda_278(void *data, int argc, object self_731139, object r_73672) { - -closureN_type c_732731; -c_732731.hdr.mark = gc_color_red; - c_732731.hdr.grayed = 0; -c_732731.tag = closureN_tag; - c_732731.fn = (function_type)__lambda_277; -c_732731.num_args = 2; -c_732731.num_elements = 5; -c_732731.elements = (object *)alloca(sizeof(object) * 5); -c_732731.elements[0] = ((closureN)self_731139)->elements[0]; -c_732731.elements[1] = ((closureN)self_731139)->elements[1]; -c_732731.elements[2] = ((closureN)self_731139)->elements[2]; -c_732731.elements[3] = ((closureN)self_731139)->elements[3]; -c_732731.elements[4] = ((closureN)self_731139)->elements[4]; - -return_closcall2(data,(closure)&c_732731, ((closureN)self_731139)->elements[5], r_73672);; -} - -static void __lambda_277(void *data, int argc, object self_731140, object sub_73211, object toks_85_73210) { - -closureN_type c_732733; -c_732733.hdr.mark = gc_color_red; - c_732733.hdr.grayed = 0; -c_732733.tag = closureN_tag; - c_732733.fn = (function_type)__lambda_276; -c_732733.num_args = 1; -c_732733.num_elements = 7; -c_732733.elements = (object *)alloca(sizeof(object) * 7); -c_732733.elements[0] = ((closureN)self_731140)->elements[0]; -c_732733.elements[1] = ((closureN)self_731140)->elements[1]; -c_732733.elements[2] = ((closureN)self_731140)->elements[2]; -c_732733.elements[3] = ((closureN)self_731140)->elements[3]; -c_732733.elements[4] = ((closureN)self_731140)->elements[4]; -c_732733.elements[5] = sub_73211; -c_732733.elements[6] = toks_85_73210; - -return_closcall1(data,(closure)&c_732733, boolean_f);; -} - -static void __lambda_276(void *data, int argc, object self_731141, object new_91toks_73212) { - -closureN_type c_732735; -c_732735.hdr.mark = gc_color_red; - c_732735.hdr.grayed = 0; -c_732735.tag = closureN_tag; - c_732735.fn = (function_type)__lambda_275; -c_732735.num_args = 1; -c_732735.num_elements = 7; -c_732735.elements = (object *)alloca(sizeof(object) * 7); -c_732735.elements[0] = ((closureN)self_731141)->elements[0]; -c_732735.elements[1] = ((closureN)self_731141)->elements[1]; -c_732735.elements[2] = ((closureN)self_731141)->elements[2]; -c_732735.elements[3] = ((closureN)self_731141)->elements[3]; -c_732735.elements[4] = ((closureN)self_731141)->elements[4]; -c_732735.elements[5] = ((closureN)self_731141)->elements[5]; -c_732735.elements[6] = ((closureN)self_731141)->elements[6]; - - -make_cell(c_732797,new_91toks_73212); -return_closcall1(data,(closure)&c_732735, &c_732797);; -} - -static void __lambda_275(void *data, int argc, object self_731142, object new_91toks_73212) { - -closureN_type c_732737; -c_732737.hdr.mark = gc_color_red; - c_732737.hdr.grayed = 0; -c_732737.tag = closureN_tag; - c_732737.fn = (function_type)__lambda_270; -c_732737.num_args = 0; -c_732737.num_elements = 2; -c_732737.elements = (object *)alloca(sizeof(object) * 2); -c_732737.elements[0] = ((closureN)self_731142)->elements[4]; -c_732737.elements[1] = ((closureN)self_731142)->elements[5]; - - -closureN_type c_732767; -c_732767.hdr.mark = gc_color_red; - c_732767.hdr.grayed = 0; -c_732767.tag = closureN_tag; - c_732767.fn = (function_type)__lambda_274; -c_732767.num_args = 1; -c_732767.num_elements = 7; -c_732767.elements = (object *)alloca(sizeof(object) * 7); -c_732767.elements[0] = ((closureN)self_731142)->elements[0]; -c_732767.elements[1] = ((closureN)self_731142)->elements[1]; -c_732767.elements[2] = ((closureN)self_731142)->elements[2]; -c_732767.elements[3] = new_91toks_73212; -c_732767.elements[4] = ((closureN)self_731142)->elements[3]; -c_732767.elements[5] = ((closureN)self_731142)->elements[4]; -c_732767.elements[6] = ((closureN)self_731142)->elements[6]; - -return_closcall1(data,(closure)&c_732737, &c_732767);; -} - -static void __lambda_274(void *data, int argc, object self_731143, object r_73676) { - -closureN_type c_732769; -c_732769.hdr.mark = gc_color_red; - c_732769.hdr.grayed = 0; -c_732769.tag = closureN_tag; - c_732769.fn = (function_type)__lambda_273; -c_732769.num_args = 1; -c_732769.num_elements = 6; -c_732769.elements = (object *)alloca(sizeof(object) * 6); -c_732769.elements[0] = ((closureN)self_731143)->elements[0]; -c_732769.elements[1] = ((closureN)self_731143)->elements[1]; -c_732769.elements[2] = ((closureN)self_731143)->elements[2]; -c_732769.elements[3] = ((closureN)self_731143)->elements[3]; -c_732769.elements[4] = ((closureN)self_731143)->elements[4]; -c_732769.elements[5] = ((closureN)self_731143)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732769, r_73676, ((closureN)self_731143)->elements[6]);; -} - -static void __lambda_273(void *data, int argc, object self_731144, object r_73675) { - -closureN_type c_732771; -c_732771.hdr.mark = gc_color_red; - c_732771.hdr.grayed = 0; -c_732771.tag = closureN_tag; - c_732771.fn = (function_type)__lambda_272; -c_732771.num_args = 1; -c_732771.num_elements = 6; -c_732771.elements = (object *)alloca(sizeof(object) * 6); -c_732771.elements[0] = ((closureN)self_731144)->elements[0]; -c_732771.elements[1] = ((closureN)self_731144)->elements[1]; -c_732771.elements[2] = ((closureN)self_731144)->elements[2]; -c_732771.elements[3] = ((closureN)self_731144)->elements[3]; -c_732771.elements[4] = ((closureN)self_731144)->elements[4]; -c_732771.elements[5] = ((closureN)self_731144)->elements[5]; - -return_closcall1(data,(closure)&c_732771, Cyc_set_car(data, ((closureN)self_731144)->elements[3], r_73675));; -} - -static void __lambda_272(void *data, int argc, object self_731145, object r_73673) { - if( (boolean_f != ((closureN)self_731145)->elements[0]) ){ - -closureN_type c_732774; -c_732774.hdr.mark = gc_color_red; - c_732774.hdr.grayed = 0; -c_732774.tag = closureN_tag; - c_732774.fn = (function_type)__lambda_271; -c_732774.num_args = 1; -c_732774.num_elements = 6; -c_732774.elements = (object *)alloca(sizeof(object) * 6); -c_732774.elements[0] = ((closureN)self_731145)->elements[0]; -c_732774.elements[1] = ((closureN)self_731145)->elements[1]; -c_732774.elements[2] = ((closureN)self_731145)->elements[2]; -c_732774.elements[3] = ((closureN)self_731145)->elements[3]; -c_732774.elements[4] = ((closureN)self_731145)->elements[4]; -c_732774.elements[5] = ((closureN)self_731145)->elements[5]; - -return_closcall1(data,(closure)&c_732774, NULL); -} else { - return_closcall1(data, ((closureN)self_731145)->elements[2], car(cell_get(((closureN)self_731145)->elements[3])));} -; -} - -static void __lambda_271(void *data, int argc, object self_731146, object r_73674) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731146)->elements[2], ((closureN)self_731146)->elements[1], r_73674, cell_get(((closureN)self_731146)->elements[3]), ((closureN)self_731146)->elements[0], boolean_f, ((closureN)self_731146)->elements[4], ((closureN)self_731146)->elements[5]);; -} - -static void __lambda_270(void *data, int argc, object self_731147, object k_73677) { - -closureN_type c_732739; -c_732739.hdr.mark = gc_color_red; - c_732739.hdr.grayed = 0; -c_732739.tag = closureN_tag; - c_732739.fn = (function_type)__lambda_266; -c_732739.num_args = 0; -c_732739.num_elements = 1; -c_732739.elements = (object *)alloca(sizeof(object) * 1); -c_732739.elements[0] = ((closureN)self_731147)->elements[1]; - - -closureN_type c_732750; -c_732750.hdr.mark = gc_color_red; - c_732750.hdr.grayed = 0; -c_732750.tag = closureN_tag; - c_732750.fn = (function_type)__lambda_269; -c_732750.num_args = 1; -c_732750.num_elements = 3; -c_732750.elements = (object *)alloca(sizeof(object) * 3); -c_732750.elements[0] = k_73677; -c_732750.elements[1] = ((closureN)self_731147)->elements[0]; -c_732750.elements[2] = ((closureN)self_731147)->elements[1]; - -return_closcall1(data,(closure)&c_732739, &c_732750);; -} - -static void __lambda_269(void *data, int argc, object self_731148, object r_73678) { - if( (boolean_f != r_73678) ){ - -closureN_type c_732752; -c_732752.hdr.mark = gc_color_red; - c_732752.hdr.grayed = 0; -c_732752.tag = closureN_tag; - c_732752.fn = (function_type)__lambda_268; -c_732752.num_args = 1; -c_732752.num_elements = 2; -c_732752.elements = (object *)alloca(sizeof(object) * 2); -c_732752.elements[0] = ((closureN)self_731148)->elements[0]; -c_732752.elements[1] = ((closureN)self_731148)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732752, ((closureN)self_731148)->elements[1]); -} else { - -object c_732765 = apply(data, ((closureN)self_731148)->elements[0],primitive_bytevector, ((closureN)self_731148)->elements[2]); -return_closcall1(data, ((closureN)self_731148)->elements[0], c_732765);} -; -} - -static void __lambda_268(void *data, int argc, object self_731149, object r_73679) { - -closureN_type c_732754; -c_732754.hdr.mark = gc_color_red; - c_732754.hdr.grayed = 0; -c_732754.tag = closureN_tag; - c_732754.fn = (function_type)__lambda_267; -c_732754.num_args = 1; -c_732754.num_elements = 2; -c_732754.elements = (object *)alloca(sizeof(object) * 2); -c_732754.elements[0] = ((closureN)self_731149)->elements[0]; -c_732754.elements[1] = r_73679; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732754, ((closureN)self_731149)->elements[1]);; -} - -static void __lambda_267(void *data, int argc, object self_731150, object r_73680) { - -make_string(c_732757, "Invalid vector syntax"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731150)->elements[0], &c_732757, ((closureN)self_731150)->elements[1], r_73680);; -} - -static void __lambda_266(void *data, int argc, object self_731151, object k_73681) { - -closureN_type c_732741; -c_732741.hdr.mark = gc_color_red; - c_732741.hdr.grayed = 0; -c_732741.tag = closureN_tag; - c_732741.fn = (function_type)__lambda_265; -c_732741.num_args = 1; -c_732741.num_elements = 2; -c_732741.elements = (object *)alloca(sizeof(object) * 2); -c_732741.elements[0] = k_73681; -c_732741.elements[1] = ((closureN)self_731151)->elements[0]; - -return_closcall1(data,(closure)&c_732741, Cyc_is_pair(((closureN)self_731151)->elements[0]));; -} - -static void __lambda_265(void *data, int argc, object self_731152, object r_73682) { - if( (boolean_f != r_73682) ){ - return_closcall2(data, __glo_dotted_127_scheme_read, ((closureN)self_731152)->elements[0], ((closureN)self_731152)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731152)->elements[0], boolean_f);} -; -} - -static void __lambda_264(void *data, int argc, object self_731153, object k_73686) { - -closureN_type c_732701; -c_732701.hdr.mark = gc_color_red; - c_732701.hdr.grayed = 0; -c_732701.tag = closureN_tag; - c_732701.fn = (function_type)__lambda_263; -c_732701.num_args = 1; -c_732701.num_elements = 2; -c_732701.elements = (object *)alloca(sizeof(object) * 2); -c_732701.elements[0] = k_73686; -c_732701.elements[1] = ((closureN)self_731153)->elements[1]; - -return_closcall1(data,(closure)&c_732701, Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731153)->elements[0])));; -} - -static void __lambda_263(void *data, int argc, object self_731154, object r_73687) { - if( (boolean_f != r_73687) ){ - return_closcall1(data, ((closureN)self_731154)->elements[0], boolean_f); -} else { - -closureN_type c_732705; -c_732705.hdr.mark = gc_color_red; - c_732705.hdr.grayed = 0; -c_732705.tag = closureN_tag; - c_732705.fn = (function_type)__lambda_262; -c_732705.num_args = 1; -c_732705.num_elements = 2; -c_732705.elements = (object *)alloca(sizeof(object) * 2); -c_732705.elements[0] = ((closureN)self_731154)->elements[0]; -c_732705.elements[1] = ((closureN)self_731154)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732705, ((closureN)self_731154)->elements[1]);} -; -} - -static void __lambda_262(void *data, int argc, object self_731155, object r_73688) { - -closureN_type c_732707; -c_732707.hdr.mark = gc_color_red; - c_732707.hdr.grayed = 0; -c_732707.tag = closureN_tag; - c_732707.fn = (function_type)__lambda_261; -c_732707.num_args = 1; -c_732707.num_elements = 2; -c_732707.elements = (object *)alloca(sizeof(object) * 2); -c_732707.elements[0] = ((closureN)self_731155)->elements[0]; -c_732707.elements[1] = r_73688; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732707, ((closureN)self_731155)->elements[1]);; -} - -static void __lambda_261(void *data, int argc, object self_731156, object r_73689) { - -make_string(c_732710, "Unhandled input sequence"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731156)->elements[0], &c_732710, ((closureN)self_731156)->elements[1], r_73689);; -} - -static void __lambda_260(void *data, int argc, object self_731157, object k_73691) { - -closureN_type c_732675; -c_732675.hdr.mark = gc_color_red; - c_732675.hdr.grayed = 0; -c_732675.tag = closureN_tag; - c_732675.fn = (function_type)__lambda_259; -c_732675.num_args = 1; -c_732675.num_elements = 2; -c_732675.elements = (object *)alloca(sizeof(object) * 2); -c_732675.elements[0] = k_73691; -c_732675.elements[1] = ((closureN)self_731157)->elements[1]; - -return_closcall1(data,(closure)&c_732675, Cyc_eq(obj_char2obj(56), cell_get(((closureN)self_731157)->elements[0])));; -} - -static void __lambda_259(void *data, int argc, object self_731158, object r_73692) { - if( (boolean_f != r_73692) ){ - return_closcall1(data, ((closureN)self_731158)->elements[0], boolean_f); -} else { - -closureN_type c_732679; -c_732679.hdr.mark = gc_color_red; - c_732679.hdr.grayed = 0; -c_732679.tag = closureN_tag; - c_732679.fn = (function_type)__lambda_258; -c_732679.num_args = 1; -c_732679.num_elements = 2; -c_732679.elements = (object *)alloca(sizeof(object) * 2); -c_732679.elements[0] = ((closureN)self_731158)->elements[0]; -c_732679.elements[1] = ((closureN)self_731158)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732679, ((closureN)self_731158)->elements[1]);} -; -} - -static void __lambda_258(void *data, int argc, object self_731159, object r_73693) { - -closureN_type c_732681; -c_732681.hdr.mark = gc_color_red; - c_732681.hdr.grayed = 0; -c_732681.tag = closureN_tag; - c_732681.fn = (function_type)__lambda_257; -c_732681.num_args = 1; -c_732681.num_elements = 2; -c_732681.elements = (object *)alloca(sizeof(object) * 2); -c_732681.elements[0] = ((closureN)self_731159)->elements[0]; -c_732681.elements[1] = r_73693; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732681, ((closureN)self_731159)->elements[1]);; -} - -static void __lambda_257(void *data, int argc, object self_731160, object r_73694) { - -make_string(c_732684, "Unhandled input sequence"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731160)->elements[0], &c_732684, ((closureN)self_731160)->elements[1], r_73694);; -} - -static void __lambda_256(void *data, int argc, object self_731161) { - -closureN_type c_732645; -c_732645.hdr.mark = gc_color_red; - c_732645.hdr.grayed = 0; -c_732645.tag = closureN_tag; - c_732645.fn = (function_type)__lambda_253; -c_732645.num_args = 1; -c_732645.num_elements = 6; -c_732645.elements = (object *)alloca(sizeof(object) * 6); -c_732645.elements[0] = ((closureN)self_731161)->elements[0]; -c_732645.elements[1] = ((closureN)self_731161)->elements[1]; -c_732645.elements[2] = ((closureN)self_731161)->elements[2]; -c_732645.elements[3] = ((closureN)self_731161)->elements[3]; -c_732645.elements[4] = ((closureN)self_731161)->elements[4]; -c_732645.elements[5] = ((closureN)self_731161)->elements[5]; - - -mclosure0(c_732653, (function_type)__lambda_255);c_732653.num_args = 1; -return_closcall1(data,(closure)&c_732645, &c_732653);; -} - -static void __lambda_255(void *data, int argc, object self_731162, object k_73664, object num_73213) { - -closureN_type c_732655; -c_732655.hdr.mark = gc_color_red; - c_732655.hdr.grayed = 0; -c_732655.tag = closureN_tag; - c_732655.fn = (function_type)__lambda_254; -c_732655.num_args = 1; -c_732655.num_elements = 1; -c_732655.elements = (object *)alloca(sizeof(object) * 1); -c_732655.elements[0] = k_73664; - - -object c_732663 = Cyc_list2string(data,(closure)&c_732655,num_73213); -return_closcall1(data,(closure)&c_732655, c_732663);; -} - -static void __lambda_254(void *data, int argc, object self_731163, object r_73665) { - -object c_732660 = Cyc_string2number2_(data, ((closureN)self_731163)->elements[0],2,r_73665, obj_int2obj(16)); -return_closcall1(data, ((closureN)self_731163)->elements[0], c_732660);; -} - -static void __lambda_253(void *data, int argc, object self_731164, object r_73663) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731164)->elements[2], ((closureN)self_731164)->elements[1], ((closureN)self_731164)->elements[5], ((closureN)self_731164)->elements[0], ((closureN)self_731164)->elements[3], ((closureN)self_731164)->elements[4], obj_int2obj(16), r_73663);; -} - -static void __lambda_252(void *data, int argc, object self_731165) { - -closureN_type c_732621; -c_732621.hdr.mark = gc_color_red; - c_732621.hdr.grayed = 0; -c_732621.tag = closureN_tag; - c_732621.fn = (function_type)__lambda_249; -c_732621.num_args = 1; -c_732621.num_elements = 6; -c_732621.elements = (object *)alloca(sizeof(object) * 6); -c_732621.elements[0] = ((closureN)self_731165)->elements[0]; -c_732621.elements[1] = ((closureN)self_731165)->elements[1]; -c_732621.elements[2] = ((closureN)self_731165)->elements[2]; -c_732621.elements[3] = ((closureN)self_731165)->elements[3]; -c_732621.elements[4] = ((closureN)self_731165)->elements[4]; -c_732621.elements[5] = ((closureN)self_731165)->elements[5]; - - -mclosure0(c_732629, (function_type)__lambda_251);c_732629.num_args = 1; -return_closcall1(data,(closure)&c_732621, &c_732629);; -} - -static void __lambda_251(void *data, int argc, object self_731166, object k_73660, object num_73214) { - -closureN_type c_732631; -c_732631.hdr.mark = gc_color_red; - c_732631.hdr.grayed = 0; -c_732631.tag = closureN_tag; - c_732631.fn = (function_type)__lambda_250; -c_732631.num_args = 1; -c_732631.num_elements = 1; -c_732631.elements = (object *)alloca(sizeof(object) * 1); -c_732631.elements[0] = k_73660; - - -object c_732639 = Cyc_list2string(data,(closure)&c_732631,num_73214); -return_closcall1(data,(closure)&c_732631, c_732639);; -} - -static void __lambda_250(void *data, int argc, object self_731167, object r_73661) { - -object c_732636 = Cyc_string2number2_(data, ((closureN)self_731167)->elements[0],2,r_73661, obj_int2obj(8)); -return_closcall1(data, ((closureN)self_731167)->elements[0], c_732636);; -} - -static void __lambda_249(void *data, int argc, object self_731168, object r_73659) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731168)->elements[2], ((closureN)self_731168)->elements[1], ((closureN)self_731168)->elements[5], ((closureN)self_731168)->elements[0], ((closureN)self_731168)->elements[3], ((closureN)self_731168)->elements[4], obj_int2obj(8), r_73659);; -} - -static void __lambda_248(void *data, int argc, object self_731169) { - -closureN_type c_732597; -c_732597.hdr.mark = gc_color_red; - c_732597.hdr.grayed = 0; -c_732597.tag = closureN_tag; - c_732597.fn = (function_type)__lambda_245; -c_732597.num_args = 1; -c_732597.num_elements = 6; -c_732597.elements = (object *)alloca(sizeof(object) * 6); -c_732597.elements[0] = ((closureN)self_731169)->elements[0]; -c_732597.elements[1] = ((closureN)self_731169)->elements[1]; -c_732597.elements[2] = ((closureN)self_731169)->elements[2]; -c_732597.elements[3] = ((closureN)self_731169)->elements[3]; -c_732597.elements[4] = ((closureN)self_731169)->elements[4]; -c_732597.elements[5] = ((closureN)self_731169)->elements[5]; - - -mclosure0(c_732605, (function_type)__lambda_247);c_732605.num_args = 1; -return_closcall1(data,(closure)&c_732597, &c_732605);; -} - -static void __lambda_247(void *data, int argc, object self_731170, object k_73656, object num_73215) { - -closureN_type c_732607; -c_732607.hdr.mark = gc_color_red; - c_732607.hdr.grayed = 0; -c_732607.tag = closureN_tag; - c_732607.fn = (function_type)__lambda_246; -c_732607.num_args = 1; -c_732607.num_elements = 1; -c_732607.elements = (object *)alloca(sizeof(object) * 1); -c_732607.elements[0] = k_73656; - - -object c_732615 = Cyc_list2string(data,(closure)&c_732607,num_73215); -return_closcall1(data,(closure)&c_732607, c_732615);; -} - -static void __lambda_246(void *data, int argc, object self_731171, object r_73657) { - -object c_732612 = Cyc_string2number2_(data, ((closureN)self_731171)->elements[0],2,r_73657, obj_int2obj(2)); -return_closcall1(data, ((closureN)self_731171)->elements[0], c_732612);; -} - -static void __lambda_245(void *data, int argc, object self_731172, object r_73655) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731172)->elements[2], ((closureN)self_731172)->elements[1], ((closureN)self_731172)->elements[5], ((closureN)self_731172)->elements[0], ((closureN)self_731172)->elements[3], ((closureN)self_731172)->elements[4], obj_int2obj(2), r_73655);; -} - -static void __lambda_244(void *data, int argc, object self_731173) { - -closureN_type c_732579; -c_732579.hdr.mark = gc_color_red; - c_732579.hdr.grayed = 0; -c_732579.tag = closureN_tag; - c_732579.fn = (function_type)__lambda_241; -c_732579.num_args = 1; -c_732579.num_elements = 6; -c_732579.elements = (object *)alloca(sizeof(object) * 6); -c_732579.elements[0] = ((closureN)self_731173)->elements[0]; -c_732579.elements[1] = ((closureN)self_731173)->elements[1]; -c_732579.elements[2] = ((closureN)self_731173)->elements[2]; -c_732579.elements[3] = ((closureN)self_731173)->elements[3]; -c_732579.elements[4] = ((closureN)self_731173)->elements[4]; -c_732579.elements[5] = ((closureN)self_731173)->elements[5]; - - -mclosure0(c_732587, (function_type)__lambda_243);c_732587.num_args = 1; -return_closcall1(data,(closure)&c_732579, &c_732587);; -} - -static void __lambda_243(void *data, int argc, object self_731174, object k_73652, object num_73216) { - -closureN_type c_732589; -c_732589.hdr.mark = gc_color_red; - c_732589.hdr.grayed = 0; -c_732589.tag = closureN_tag; - c_732589.fn = (function_type)__lambda_242; -c_732589.num_args = 1; -c_732589.num_elements = 1; -c_732589.elements = (object *)alloca(sizeof(object) * 1); -c_732589.elements[0] = k_73652; - -return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732589, num_73216);; -} - -static void __lambda_242(void *data, int argc, object self_731175, object r_73653) { - return_closcall2(data, __glo_inexact_scheme_base, ((closureN)self_731175)->elements[0], r_73653);; -} - -static void __lambda_241(void *data, int argc, object self_731176, object r_73651) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731176)->elements[2], ((closureN)self_731176)->elements[1], ((closureN)self_731176)->elements[5], ((closureN)self_731176)->elements[0], ((closureN)self_731176)->elements[3], ((closureN)self_731176)->elements[4], obj_int2obj(10), r_73651);; -} - -static void __lambda_240(void *data, int argc, object self_731177) { - -closureN_type c_732561; -c_732561.hdr.mark = gc_color_red; - c_732561.hdr.grayed = 0; -c_732561.tag = closureN_tag; - c_732561.fn = (function_type)__lambda_237; -c_732561.num_args = 1; -c_732561.num_elements = 6; -c_732561.elements = (object *)alloca(sizeof(object) * 6); -c_732561.elements[0] = ((closureN)self_731177)->elements[0]; -c_732561.elements[1] = ((closureN)self_731177)->elements[1]; -c_732561.elements[2] = ((closureN)self_731177)->elements[2]; -c_732561.elements[3] = ((closureN)self_731177)->elements[3]; -c_732561.elements[4] = ((closureN)self_731177)->elements[4]; -c_732561.elements[5] = ((closureN)self_731177)->elements[5]; - - -mclosure0(c_732569, (function_type)__lambda_239);c_732569.num_args = 1; -return_closcall1(data,(closure)&c_732561, &c_732569);; -} - -static void __lambda_239(void *data, int argc, object self_731178, object k_73648, object num_73217) { - -closureN_type c_732571; -c_732571.hdr.mark = gc_color_red; - c_732571.hdr.grayed = 0; -c_732571.tag = closureN_tag; - c_732571.fn = (function_type)__lambda_238; -c_732571.num_args = 1; -c_732571.num_elements = 1; -c_732571.elements = (object *)alloca(sizeof(object) * 1); -c_732571.elements[0] = k_73648; - -return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732571, num_73217);; -} - -static void __lambda_238(void *data, int argc, object self_731179, object r_73649) { - return_closcall2(data, __glo_exact_scheme_base, ((closureN)self_731179)->elements[0], r_73649);; -} - -static void __lambda_237(void *data, int argc, object self_731180, object r_73647) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731180)->elements[2], ((closureN)self_731180)->elements[1], ((closureN)self_731180)->elements[5], ((closureN)self_731180)->elements[0], ((closureN)self_731180)->elements[3], ((closureN)self_731180)->elements[4], obj_int2obj(10), r_73647);; -} - -static void __lambda_236(void *data, int argc, object self_731181) { - if( (boolean_f != ((closureN)self_731181)->elements[0]) ){ - -closureN_type c_732540; -c_732540.hdr.mark = gc_color_red; - c_732540.hdr.grayed = 0; -c_732540.tag = closureN_tag; - c_732540.fn = (function_type)__lambda_235; -c_732540.num_args = 1; -c_732540.num_elements = 6; -c_732540.elements = (object *)alloca(sizeof(object) * 6); -c_732540.elements[0] = ((closureN)self_731181)->elements[0]; -c_732540.elements[1] = ((closureN)self_731181)->elements[1]; -c_732540.elements[2] = ((closureN)self_731181)->elements[2]; -c_732540.elements[3] = ((closureN)self_731181)->elements[3]; -c_732540.elements[4] = ((closureN)self_731181)->elements[4]; -c_732540.elements[5] = ((closureN)self_731181)->elements[5]; - -return_closcall1(data,(closure)&c_732540, NULL); -} else { - return_closcall1(data, ((closureN)self_731181)->elements[2], boolean_f);} -; -} - -static void __lambda_235(void *data, int argc, object self_731182, object r_73644) { - -closureN_type c_732542; -c_732542.hdr.mark = gc_color_red; - c_732542.hdr.grayed = 0; -c_732542.tag = closureN_tag; - c_732542.fn = (function_type)__lambda_234; -c_732542.num_args = 1; -c_732542.num_elements = 6; -c_732542.elements = (object *)alloca(sizeof(object) * 6); -c_732542.elements[0] = ((closureN)self_731182)->elements[0]; -c_732542.elements[1] = ((closureN)self_731182)->elements[1]; -c_732542.elements[2] = ((closureN)self_731182)->elements[2]; -c_732542.elements[3] = ((closureN)self_731182)->elements[3]; -c_732542.elements[4] = ((closureN)self_731182)->elements[4]; -c_732542.elements[5] = r_73644; - - -make_pair(c_732552,boolean_f, ((closureN)self_731182)->elements[5]); -return_closcall1(data,(closure)&c_732542, &c_732552);; -} - -static void __lambda_234(void *data, int argc, object self_731183, object r_73645) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731183)->elements[2], ((closureN)self_731183)->elements[1], ((closureN)self_731183)->elements[5], r_73645, ((closureN)self_731183)->elements[0], boolean_f, ((closureN)self_731183)->elements[3], ((closureN)self_731183)->elements[4]);; -} - -static void __lambda_233(void *data, int argc, object self_731184) { - if( (boolean_f != ((closureN)self_731184)->elements[0]) ){ - -closureN_type c_732518; -c_732518.hdr.mark = gc_color_red; - c_732518.hdr.grayed = 0; -c_732518.tag = closureN_tag; - c_732518.fn = (function_type)__lambda_232; -c_732518.num_args = 1; -c_732518.num_elements = 6; -c_732518.elements = (object *)alloca(sizeof(object) * 6); -c_732518.elements[0] = ((closureN)self_731184)->elements[0]; -c_732518.elements[1] = ((closureN)self_731184)->elements[1]; -c_732518.elements[2] = ((closureN)self_731184)->elements[2]; -c_732518.elements[3] = ((closureN)self_731184)->elements[3]; -c_732518.elements[4] = ((closureN)self_731184)->elements[4]; -c_732518.elements[5] = ((closureN)self_731184)->elements[5]; - -return_closcall1(data,(closure)&c_732518, NULL); -} else { - return_closcall1(data, ((closureN)self_731184)->elements[2], boolean_t);} -; -} - -static void __lambda_232(void *data, int argc, object self_731185, object r_73641) { - -closureN_type c_732520; -c_732520.hdr.mark = gc_color_red; - c_732520.hdr.grayed = 0; -c_732520.tag = closureN_tag; - c_732520.fn = (function_type)__lambda_231; -c_732520.num_args = 1; -c_732520.num_elements = 6; -c_732520.elements = (object *)alloca(sizeof(object) * 6); -c_732520.elements[0] = ((closureN)self_731185)->elements[0]; -c_732520.elements[1] = ((closureN)self_731185)->elements[1]; -c_732520.elements[2] = ((closureN)self_731185)->elements[2]; -c_732520.elements[3] = ((closureN)self_731185)->elements[3]; -c_732520.elements[4] = ((closureN)self_731185)->elements[4]; -c_732520.elements[5] = r_73641; - - -make_pair(c_732530,boolean_t, ((closureN)self_731185)->elements[5]); -return_closcall1(data,(closure)&c_732520, &c_732530);; -} - -static void __lambda_231(void *data, int argc, object self_731186, object r_73642) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731186)->elements[2], ((closureN)self_731186)->elements[1], ((closureN)self_731186)->elements[5], r_73642, ((closureN)self_731186)->elements[0], boolean_f, ((closureN)self_731186)->elements[3], ((closureN)self_731186)->elements[4]);; -} - -static void __lambda_230(void *data, int argc, object self_731187) { - -closureN_type c_732500; -c_732500.hdr.mark = gc_color_red; - c_732500.hdr.grayed = 0; -c_732500.tag = closureN_tag; - c_732500.fn = (function_type)__lambda_229; -c_732500.num_args = 1; -c_732500.num_elements = 6; -c_732500.elements = (object *)alloca(sizeof(object) * 6); -c_732500.elements[0] = ((closureN)self_731187)->elements[0]; -c_732500.elements[1] = ((closureN)self_731187)->elements[1]; -c_732500.elements[2] = ((closureN)self_731187)->elements[2]; -c_732500.elements[3] = ((closureN)self_731187)->elements[3]; -c_732500.elements[4] = ((closureN)self_731187)->elements[4]; -c_732500.elements[5] = ((closureN)self_731187)->elements[5]; - -return_closcall3(data, __glo_read_91block_91comment_scheme_read, &c_732500, ((closureN)self_731187)->elements[1], ((closureN)self_731187)->elements[4]);; -} - -static void __lambda_229(void *data, int argc, object self_731188, object r_73638) { - -closureN_type c_732502; -c_732502.hdr.mark = gc_color_red; - c_732502.hdr.grayed = 0; -c_732502.tag = closureN_tag; - c_732502.fn = (function_type)__lambda_228; -c_732502.num_args = 1; -c_732502.num_elements = 6; -c_732502.elements = (object *)alloca(sizeof(object) * 6); -c_732502.elements[0] = ((closureN)self_731188)->elements[0]; -c_732502.elements[1] = ((closureN)self_731188)->elements[1]; -c_732502.elements[2] = ((closureN)self_731188)->elements[2]; -c_732502.elements[3] = ((closureN)self_731188)->elements[3]; -c_732502.elements[4] = ((closureN)self_731188)->elements[4]; -c_732502.elements[5] = ((closureN)self_731188)->elements[5]; - -return_closcall1(data,(closure)&c_732502, NULL);; -} - -static void __lambda_228(void *data, int argc, object self_731189, object r_73639) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731189)->elements[2], ((closureN)self_731189)->elements[1], r_73639, ((closureN)self_731189)->elements[5], ((closureN)self_731189)->elements[0], boolean_f, ((closureN)self_731189)->elements[3], ((closureN)self_731189)->elements[4]);; -} - -static void __lambda_227(void *data, int argc, object self_731190) { - -closureN_type c_732402; -c_732402.hdr.mark = gc_color_red; - c_732402.hdr.grayed = 0; -c_732402.tag = closureN_tag; - c_732402.fn = (function_type)__lambda_211; -c_732402.num_args = 0; -c_732402.num_elements = 2; -c_732402.elements = (object *)alloca(sizeof(object) * 2); -c_732402.elements[0] = ((closureN)self_731190)->elements[0]; -c_732402.elements[1] = ((closureN)self_731190)->elements[6]; - - -closureN_type c_732412; -c_732412.hdr.mark = gc_color_red; - c_732412.hdr.grayed = 0; -c_732412.tag = closureN_tag; - c_732412.fn = (function_type)__lambda_226; -c_732412.num_args = 1; -c_732412.num_elements = 8; -c_732412.elements = (object *)alloca(sizeof(object) * 8); -c_732412.elements[0] = ((closureN)self_731190)->elements[0]; -c_732412.elements[1] = ((closureN)self_731190)->elements[1]; -c_732412.elements[2] = ((closureN)self_731190)->elements[2]; -c_732412.elements[3] = ((closureN)self_731190)->elements[3]; -c_732412.elements[4] = ((closureN)self_731190)->elements[4]; -c_732412.elements[5] = ((closureN)self_731190)->elements[5]; -c_732412.elements[6] = ((closureN)self_731190)->elements[6]; -c_732412.elements[7] = ((closureN)self_731190)->elements[7]; - -return_closcall1(data,(closure)&c_732402, &c_732412);; -} - -static void __lambda_226(void *data, int argc, object self_731191, object r_73621) { - if( (boolean_f != r_73621) ){ - -closureN_type c_732414; -c_732414.hdr.mark = gc_color_red; - c_732414.hdr.grayed = 0; -c_732414.tag = closureN_tag; - c_732414.fn = (function_type)__lambda_215; -c_732414.num_args = 0; -c_732414.num_elements = 5; -c_732414.elements = (object *)alloca(sizeof(object) * 5); -c_732414.elements[0] = ((closureN)self_731191)->elements[1]; -c_732414.elements[1] = ((closureN)self_731191)->elements[3]; -c_732414.elements[2] = ((closureN)self_731191)->elements[5]; -c_732414.elements[3] = ((closureN)self_731191)->elements[6]; -c_732414.elements[4] = ((closureN)self_731191)->elements[7]; - -return_closcall0(data,(closure)&c_732414); -} else { - -closureN_type c_732430; -c_732430.hdr.mark = gc_color_red; - c_732430.hdr.grayed = 0; -c_732430.tag = closureN_tag; - c_732430.fn = (function_type)__lambda_225; -c_732430.num_args = 0; -c_732430.num_elements = 7; -c_732430.elements = (object *)alloca(sizeof(object) * 7); -c_732430.elements[0] = ((closureN)self_731191)->elements[0]; -c_732430.elements[1] = ((closureN)self_731191)->elements[2]; -c_732430.elements[2] = ((closureN)self_731191)->elements[3]; -c_732430.elements[3] = ((closureN)self_731191)->elements[4]; -c_732430.elements[4] = ((closureN)self_731191)->elements[5]; -c_732430.elements[5] = ((closureN)self_731191)->elements[6]; -c_732430.elements[6] = ((closureN)self_731191)->elements[7]; - -return_closcall0(data,(closure)&c_732430);} -; -} - -static void __lambda_225(void *data, int argc, object self_731192) { - -closureN_type c_732432; -c_732432.hdr.mark = gc_color_red; - c_732432.hdr.grayed = 0; -c_732432.tag = closureN_tag; - c_732432.fn = (function_type)__lambda_224; -c_732432.num_args = 1; -c_732432.num_elements = 7; -c_732432.elements = (object *)alloca(sizeof(object) * 7); -c_732432.elements[0] = ((closureN)self_731192)->elements[0]; -c_732432.elements[1] = ((closureN)self_731192)->elements[1]; -c_732432.elements[2] = ((closureN)self_731192)->elements[2]; -c_732432.elements[3] = ((closureN)self_731192)->elements[3]; -c_732432.elements[4] = ((closureN)self_731192)->elements[4]; -c_732432.elements[5] = ((closureN)self_731192)->elements[5]; -c_732432.elements[6] = ((closureN)self_731192)->elements[6]; - -return_closcall1(data,(closure)&c_732432, NULL);; -} - -static void __lambda_224(void *data, int argc, object self_731193, object r_73630) { - -closureN_type c_732434; -c_732434.hdr.mark = gc_color_red; - c_732434.hdr.grayed = 0; -c_732434.tag = closureN_tag; - c_732434.fn = (function_type)__lambda_223; -c_732434.num_args = 1; -c_732434.num_elements = 7; -c_732434.elements = (object *)alloca(sizeof(object) * 7); -c_732434.elements[0] = ((closureN)self_731193)->elements[0]; -c_732434.elements[1] = ((closureN)self_731193)->elements[1]; -c_732434.elements[2] = ((closureN)self_731193)->elements[2]; -c_732434.elements[3] = ((closureN)self_731193)->elements[3]; -c_732434.elements[4] = ((closureN)self_731193)->elements[4]; -c_732434.elements[5] = ((closureN)self_731193)->elements[5]; -c_732434.elements[6] = ((closureN)self_731193)->elements[6]; - -return_closcall4(data, __glo_read_91str_scheme_read, &c_732434, ((closureN)self_731193)->elements[1], r_73630, ((closureN)self_731193)->elements[4]);; -} - -static void __lambda_223(void *data, int argc, object self_731194, object r_73625) { - -closureN_type c_732436; -c_732436.hdr.mark = gc_color_red; - c_732436.hdr.grayed = 0; -c_732436.tag = closureN_tag; - c_732436.fn = (function_type)__lambda_222; -c_732436.num_args = 1; -c_732436.num_elements = 6; -c_732436.elements = (object *)alloca(sizeof(object) * 6); -c_732436.elements[0] = ((closureN)self_731194)->elements[0]; -c_732436.elements[1] = ((closureN)self_731194)->elements[1]; -c_732436.elements[2] = ((closureN)self_731194)->elements[2]; -c_732436.elements[3] = ((closureN)self_731194)->elements[3]; -c_732436.elements[4] = ((closureN)self_731194)->elements[4]; -c_732436.elements[5] = r_73625; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732436, ((closureN)self_731194)->elements[5], ((closureN)self_731194)->elements[6]);; -} - -static void __lambda_222(void *data, int argc, object self_731195, object r_73626) { - -closureN_type c_732438; -c_732438.hdr.mark = gc_color_red; - c_732438.hdr.grayed = 0; -c_732438.tag = closureN_tag; - c_732438.fn = (function_type)__lambda_221; -c_732438.num_args = 2; -c_732438.num_elements = 5; -c_732438.elements = (object *)alloca(sizeof(object) * 5); -c_732438.elements[0] = ((closureN)self_731195)->elements[0]; -c_732438.elements[1] = ((closureN)self_731195)->elements[1]; -c_732438.elements[2] = ((closureN)self_731195)->elements[2]; -c_732438.elements[3] = ((closureN)self_731195)->elements[3]; -c_732438.elements[4] = ((closureN)self_731195)->elements[4]; - -return_closcall2(data,(closure)&c_732438, ((closureN)self_731195)->elements[5], r_73626);; -} - -static void __lambda_221(void *data, int argc, object self_731196, object str_73219, object toks_85_73218) { - -closureN_type c_732440; -c_732440.hdr.mark = gc_color_red; - c_732440.hdr.grayed = 0; -c_732440.tag = closureN_tag; - c_732440.fn = (function_type)__lambda_220; -c_732440.num_args = 1; -c_732440.num_elements = 7; -c_732440.elements = (object *)alloca(sizeof(object) * 7); -c_732440.elements[0] = ((closureN)self_731196)->elements[0]; -c_732440.elements[1] = ((closureN)self_731196)->elements[1]; -c_732440.elements[2] = ((closureN)self_731196)->elements[2]; -c_732440.elements[3] = ((closureN)self_731196)->elements[3]; -c_732440.elements[4] = ((closureN)self_731196)->elements[4]; -c_732440.elements[5] = str_73219; -c_732440.elements[6] = toks_85_73218; - -return_closcall1(data,(closure)&c_732440, boolean_f);; -} - -static void __lambda_220(void *data, int argc, object self_731197, object new_91toks_73220) { - -closureN_type c_732442; -c_732442.hdr.mark = gc_color_red; - c_732442.hdr.grayed = 0; -c_732442.tag = closureN_tag; - c_732442.fn = (function_type)__lambda_219; -c_732442.num_args = 1; -c_732442.num_elements = 7; -c_732442.elements = (object *)alloca(sizeof(object) * 7); -c_732442.elements[0] = ((closureN)self_731197)->elements[0]; -c_732442.elements[1] = ((closureN)self_731197)->elements[1]; -c_732442.elements[2] = ((closureN)self_731197)->elements[2]; -c_732442.elements[3] = ((closureN)self_731197)->elements[3]; -c_732442.elements[4] = ((closureN)self_731197)->elements[4]; -c_732442.elements[5] = ((closureN)self_731197)->elements[5]; -c_732442.elements[6] = ((closureN)self_731197)->elements[6]; - - -make_cell(c_732473,new_91toks_73220); -return_closcall1(data,(closure)&c_732442, &c_732473);; -} - -static void __lambda_219(void *data, int argc, object self_731198, object new_91toks_73220) { - -closureN_type c_732444; -c_732444.hdr.mark = gc_color_red; - c_732444.hdr.grayed = 0; -c_732444.tag = closureN_tag; - c_732444.fn = (function_type)__lambda_218; -c_732444.num_args = 1; -c_732444.num_elements = 6; -c_732444.elements = (object *)alloca(sizeof(object) * 6); -c_732444.elements[0] = ((closureN)self_731198)->elements[0]; -c_732444.elements[1] = ((closureN)self_731198)->elements[1]; -c_732444.elements[2] = ((closureN)self_731198)->elements[2]; -c_732444.elements[3] = new_91toks_73220; -c_732444.elements[4] = ((closureN)self_731198)->elements[3]; -c_732444.elements[5] = ((closureN)self_731198)->elements[4]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732444, ((closureN)self_731198)->elements[5], ((closureN)self_731198)->elements[6]);; -} - -static void __lambda_218(void *data, int argc, object self_731199, object r_73629) { - -closureN_type c_732446; -c_732446.hdr.mark = gc_color_red; - c_732446.hdr.grayed = 0; -c_732446.tag = closureN_tag; - c_732446.fn = (function_type)__lambda_217; -c_732446.num_args = 1; -c_732446.num_elements = 6; -c_732446.elements = (object *)alloca(sizeof(object) * 6); -c_732446.elements[0] = ((closureN)self_731199)->elements[0]; -c_732446.elements[1] = ((closureN)self_731199)->elements[1]; -c_732446.elements[2] = ((closureN)self_731199)->elements[2]; -c_732446.elements[3] = ((closureN)self_731199)->elements[3]; -c_732446.elements[4] = ((closureN)self_731199)->elements[4]; -c_732446.elements[5] = ((closureN)self_731199)->elements[5]; - -return_closcall1(data,(closure)&c_732446, Cyc_set_car(data, ((closureN)self_731199)->elements[3], r_73629));; -} - -static void __lambda_217(void *data, int argc, object self_731200, object r_73627) { - if( (boolean_f != ((closureN)self_731200)->elements[0]) ){ - -closureN_type c_732449; -c_732449.hdr.mark = gc_color_red; - c_732449.hdr.grayed = 0; -c_732449.tag = closureN_tag; - c_732449.fn = (function_type)__lambda_216; -c_732449.num_args = 1; -c_732449.num_elements = 6; -c_732449.elements = (object *)alloca(sizeof(object) * 6); -c_732449.elements[0] = ((closureN)self_731200)->elements[0]; -c_732449.elements[1] = ((closureN)self_731200)->elements[1]; -c_732449.elements[2] = ((closureN)self_731200)->elements[2]; -c_732449.elements[3] = ((closureN)self_731200)->elements[3]; -c_732449.elements[4] = ((closureN)self_731200)->elements[4]; -c_732449.elements[5] = ((closureN)self_731200)->elements[5]; - -return_closcall1(data,(closure)&c_732449, NULL); -} else { - return_closcall1(data, ((closureN)self_731200)->elements[2], car(cell_get(((closureN)self_731200)->elements[3])));} -; -} - -static void __lambda_216(void *data, int argc, object self_731201, object r_73628) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731201)->elements[2], ((closureN)self_731201)->elements[1], r_73628, cell_get(((closureN)self_731201)->elements[3]), ((closureN)self_731201)->elements[0], boolean_f, ((closureN)self_731201)->elements[4], ((closureN)self_731201)->elements[5]);; -} - -static void __lambda_215(void *data, int argc, object self_731202) { - -closureN_type c_732416; -c_732416.hdr.mark = gc_color_red; - c_732416.hdr.grayed = 0; -c_732416.tag = closureN_tag; - c_732416.fn = (function_type)__lambda_214; -c_732416.num_args = 1; -c_732416.num_elements = 3; -c_732416.elements = (object *)alloca(sizeof(object) * 3); -c_732416.elements[0] = ((closureN)self_731202)->elements[1]; -c_732416.elements[1] = ((closureN)self_731202)->elements[3]; -c_732416.elements[2] = ((closureN)self_731202)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732416, ((closureN)self_731202)->elements[2], ((closureN)self_731202)->elements[0]);; -} - -static void __lambda_214(void *data, int argc, object self_731203, object r_73622) { - -closureN_type c_732418; -c_732418.hdr.mark = gc_color_red; - c_732418.hdr.grayed = 0; -c_732418.tag = closureN_tag; - c_732418.fn = (function_type)__lambda_213; -c_732418.num_args = 1; -c_732418.num_elements = 2; -c_732418.elements = (object *)alloca(sizeof(object) * 2); -c_732418.elements[0] = ((closureN)self_731203)->elements[0]; -c_732418.elements[1] = ((closureN)self_731203)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732418, ((closureN)self_731203)->elements[1]);; -} - -static void __lambda_213(void *data, int argc, object self_731204, object r_73624) { - -closureN_type c_732420; -c_732420.hdr.mark = gc_color_red; - c_732420.hdr.grayed = 0; -c_732420.tag = closureN_tag; - c_732420.fn = (function_type)__lambda_212; -c_732420.num_args = 1; -c_732420.num_elements = 1; -c_732420.elements = (object *)alloca(sizeof(object) * 1); -c_732420.elements[0] = ((closureN)self_731204)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732420, r_73624, ((closureN)self_731204)->elements[1]);; -} - -static void __lambda_212(void *data, int argc, object self_731205, object r_73623) { - return_closcall1(data, ((closureN)self_731205)->elements[0], car(r_73623));; -} - -static void __lambda_211(void *data, int argc, object self_731206, object k_73631) { - if( (boolean_f != ((closureN)self_731206)->elements[0]) ){ - return_closcall1(data, k_73631, boolean_f); -} else { - -closureN_type c_732406; -c_732406.hdr.mark = gc_color_red; - c_732406.hdr.grayed = 0; -c_732406.tag = closureN_tag; - c_732406.fn = (function_type)__lambda_210; -c_732406.num_args = 1; -c_732406.num_elements = 1; -c_732406.elements = (object *)alloca(sizeof(object) * 1); -c_732406.elements[0] = k_73631; - -return_closcall1(data,(closure)&c_732406, Cyc_is_null(((closureN)self_731206)->elements[1]));} -; -} - -static void __lambda_210(void *data, int argc, object self_731207, object r_73632) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731207)->elements[0], r_73632);; -} - -static void __lambda_209(void *data, int argc, object self_731208) { - -closureN_type c_732344; -c_732344.hdr.mark = gc_color_red; - c_732344.hdr.grayed = 0; -c_732344.tag = closureN_tag; - c_732344.fn = (function_type)__lambda_197; -c_732344.num_args = 0; -c_732344.num_elements = 2; -c_732344.elements = (object *)alloca(sizeof(object) * 2); -c_732344.elements[0] = ((closureN)self_731208)->elements[0]; -c_732344.elements[1] = ((closureN)self_731208)->elements[5]; - - -closureN_type c_732354; -c_732354.hdr.mark = gc_color_red; - c_732354.hdr.grayed = 0; -c_732354.tag = closureN_tag; - c_732354.fn = (function_type)__lambda_208; -c_732354.num_args = 1; -c_732354.num_elements = 6; -c_732354.elements = (object *)alloca(sizeof(object) * 6); -c_732354.elements[0] = ((closureN)self_731208)->elements[1]; -c_732354.elements[1] = ((closureN)self_731208)->elements[2]; -c_732354.elements[2] = ((closureN)self_731208)->elements[3]; -c_732354.elements[3] = ((closureN)self_731208)->elements[4]; -c_732354.elements[4] = ((closureN)self_731208)->elements[5]; -c_732354.elements[5] = ((closureN)self_731208)->elements[6]; - -return_closcall1(data,(closure)&c_732344, &c_732354);; -} - -static void __lambda_208(void *data, int argc, object self_731209, object r_73610) { - if( (boolean_f != r_73610) ){ - -closureN_type c_732356; -c_732356.hdr.mark = gc_color_red; - c_732356.hdr.grayed = 0; -c_732356.tag = closureN_tag; - c_732356.fn = (function_type)__lambda_201; -c_732356.num_args = 0; -c_732356.num_elements = 5; -c_732356.elements = (object *)alloca(sizeof(object) * 5); -c_732356.elements[0] = ((closureN)self_731209)->elements[0]; -c_732356.elements[1] = ((closureN)self_731209)->elements[1]; -c_732356.elements[2] = ((closureN)self_731209)->elements[3]; -c_732356.elements[3] = ((closureN)self_731209)->elements[4]; -c_732356.elements[4] = ((closureN)self_731209)->elements[5]; - -return_closcall0(data,(closure)&c_732356); -} else { - -closureN_type c_732372; -c_732372.hdr.mark = gc_color_red; - c_732372.hdr.grayed = 0; -c_732372.tag = closureN_tag; - c_732372.fn = (function_type)__lambda_207; -c_732372.num_args = 1; -c_732372.num_elements = 4; -c_732372.elements = (object *)alloca(sizeof(object) * 4); -c_732372.elements[0] = ((closureN)self_731209)->elements[1]; -c_732372.elements[1] = ((closureN)self_731209)->elements[3]; -c_732372.elements[2] = ((closureN)self_731209)->elements[4]; -c_732372.elements[3] = ((closureN)self_731209)->elements[5]; - - -object c_732395 = Cyc_num_eq(data,(closure)&c_732372,2,((closureN)self_731209)->elements[2], obj_int2obj(0)); -return_closcall1(data,(closure)&c_732372, c_732395);} -; -} - -static void __lambda_207(void *data, int argc, object self_731210, object r_73614) { - if( (boolean_f != r_73614) ){ - -closureN_type c_732374; -c_732374.hdr.mark = gc_color_red; - c_732374.hdr.grayed = 0; -c_732374.tag = closureN_tag; - c_732374.fn = (function_type)__lambda_204; -c_732374.num_args = 0; -c_732374.num_elements = 2; -c_732374.elements = (object *)alloca(sizeof(object) * 2); -c_732374.elements[0] = ((closureN)self_731210)->elements[0]; -c_732374.elements[1] = ((closureN)self_731210)->elements[1]; - -return_closcall0(data,(closure)&c_732374); -} else { - -closureN_type c_732386; -c_732386.hdr.mark = gc_color_red; - c_732386.hdr.grayed = 0; -c_732386.tag = closureN_tag; - c_732386.fn = (function_type)__lambda_206; -c_732386.num_args = 0; -c_732386.num_elements = 3; -c_732386.elements = (object *)alloca(sizeof(object) * 3); -c_732386.elements[0] = ((closureN)self_731210)->elements[0]; -c_732386.elements[1] = ((closureN)self_731210)->elements[2]; -c_732386.elements[2] = ((closureN)self_731210)->elements[3]; - -return_closcall0(data,(closure)&c_732386);} -; -} - -static void __lambda_206(void *data, int argc, object self_731211) { - -closureN_type c_732388; -c_732388.hdr.mark = gc_color_red; - c_732388.hdr.grayed = 0; -c_732388.tag = closureN_tag; - c_732388.fn = (function_type)__lambda_205; -c_732388.num_args = 1; -c_732388.num_elements = 1; -c_732388.elements = (object *)alloca(sizeof(object) * 1); -c_732388.elements[0] = ((closureN)self_731211)->elements[0]; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732388, ((closureN)self_731211)->elements[1], ((closureN)self_731211)->elements[2]);; -} - -static void __lambda_205(void *data, int argc, object self_731212, object r_73617) { - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731212)->elements[0], r_73617);; -} - -static void __lambda_204(void *data, int argc, object self_731213) { - -closureN_type c_732376; -c_732376.hdr.mark = gc_color_red; - c_732376.hdr.grayed = 0; -c_732376.tag = closureN_tag; - c_732376.fn = (function_type)__lambda_203; -c_732376.num_args = 1; -c_732376.num_elements = 2; -c_732376.elements = (object *)alloca(sizeof(object) * 2); -c_732376.elements[0] = ((closureN)self_731213)->elements[0]; -c_732376.elements[1] = ((closureN)self_731213)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732376, ((closureN)self_731213)->elements[1]);; -} - -static void __lambda_203(void *data, int argc, object self_731214, object r_73615) { - -closureN_type c_732378; -c_732378.hdr.mark = gc_color_red; - c_732378.hdr.grayed = 0; -c_732378.tag = closureN_tag; - c_732378.fn = (function_type)__lambda_202; -c_732378.num_args = 1; -c_732378.num_elements = 2; -c_732378.elements = (object *)alloca(sizeof(object) * 2); -c_732378.elements[0] = ((closureN)self_731214)->elements[0]; -c_732378.elements[1] = r_73615; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732378, ((closureN)self_731214)->elements[1]);; -} - -static void __lambda_202(void *data, int argc, object self_731215, object r_73616) { - -make_string(c_732381, "unexpected closing parenthesis"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731215)->elements[0], &c_732381, ((closureN)self_731215)->elements[1], r_73616);; -} - -static void __lambda_201(void *data, int argc, object self_731216) { - -closureN_type c_732358; -c_732358.hdr.mark = gc_color_red; - c_732358.hdr.grayed = 0; -c_732358.tag = closureN_tag; - c_732358.fn = (function_type)__lambda_200; -c_732358.num_args = 1; -c_732358.num_elements = 3; -c_732358.elements = (object *)alloca(sizeof(object) * 3); -c_732358.elements[0] = ((closureN)self_731216)->elements[1]; -c_732358.elements[1] = ((closureN)self_731216)->elements[3]; -c_732358.elements[2] = ((closureN)self_731216)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732358, ((closureN)self_731216)->elements[2], ((closureN)self_731216)->elements[0]);; -} - -static void __lambda_200(void *data, int argc, object self_731217, object r_73611) { - -closureN_type c_732360; -c_732360.hdr.mark = gc_color_red; - c_732360.hdr.grayed = 0; -c_732360.tag = closureN_tag; - c_732360.fn = (function_type)__lambda_199; -c_732360.num_args = 1; -c_732360.num_elements = 2; -c_732360.elements = (object *)alloca(sizeof(object) * 2); -c_732360.elements[0] = ((closureN)self_731217)->elements[0]; -c_732360.elements[1] = ((closureN)self_731217)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732360, ((closureN)self_731217)->elements[1]);; -} - -static void __lambda_199(void *data, int argc, object self_731218, object r_73613) { - -closureN_type c_732362; -c_732362.hdr.mark = gc_color_red; - c_732362.hdr.grayed = 0; -c_732362.tag = closureN_tag; - c_732362.fn = (function_type)__lambda_198; -c_732362.num_args = 1; -c_732362.num_elements = 1; -c_732362.elements = (object *)alloca(sizeof(object) * 1); -c_732362.elements[0] = ((closureN)self_731218)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732362, r_73613, ((closureN)self_731218)->elements[1]);; -} - -static void __lambda_198(void *data, int argc, object self_731219, object r_73612) { - return_closcall1(data, ((closureN)self_731219)->elements[0], car(r_73612));; -} - -static void __lambda_197(void *data, int argc, object self_731220, object k_73618) { - if( (boolean_f != ((closureN)self_731220)->elements[0]) ){ - return_closcall1(data, k_73618, boolean_f); -} else { - -closureN_type c_732348; -c_732348.hdr.mark = gc_color_red; - c_732348.hdr.grayed = 0; -c_732348.tag = closureN_tag; - c_732348.fn = (function_type)__lambda_196; -c_732348.num_args = 1; -c_732348.num_elements = 1; -c_732348.elements = (object *)alloca(sizeof(object) * 1); -c_732348.elements[0] = k_73618; - -return_closcall1(data,(closure)&c_732348, Cyc_is_null(((closureN)self_731220)->elements[1]));} -; -} - -static void __lambda_196(void *data, int argc, object self_731221, object r_73619) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731221)->elements[0], r_73619);; -} - -static void __lambda_195(void *data, int argc, object self_731222) { - -closureN_type c_732231; -c_732231.hdr.mark = gc_color_red; - c_732231.hdr.grayed = 0; -c_732231.tag = closureN_tag; - c_732231.fn = (function_type)__lambda_172; -c_732231.num_args = 0; -c_732231.num_elements = 2; -c_732231.elements = (object *)alloca(sizeof(object) * 2); -c_732231.elements[0] = ((closureN)self_731222)->elements[0]; -c_732231.elements[1] = ((closureN)self_731222)->elements[6]; - - -closureN_type c_732241; -c_732241.hdr.mark = gc_color_red; - c_732241.hdr.grayed = 0; -c_732241.tag = closureN_tag; - c_732241.fn = (function_type)__lambda_194; -c_732241.num_args = 1; -c_732241.num_elements = 8; -c_732241.elements = (object *)alloca(sizeof(object) * 8); -c_732241.elements[0] = ((closureN)self_731222)->elements[0]; -c_732241.elements[1] = ((closureN)self_731222)->elements[1]; -c_732241.elements[2] = ((closureN)self_731222)->elements[2]; -c_732241.elements[3] = ((closureN)self_731222)->elements[3]; -c_732241.elements[4] = ((closureN)self_731222)->elements[4]; -c_732241.elements[5] = ((closureN)self_731222)->elements[5]; -c_732241.elements[6] = ((closureN)self_731222)->elements[6]; -c_732241.elements[7] = ((closureN)self_731222)->elements[7]; - -return_closcall1(data,(closure)&c_732231, &c_732241);; -} - -static void __lambda_194(void *data, int argc, object self_731223, object r_73590) { - if( (boolean_f != r_73590) ){ - -closureN_type c_732243; -c_732243.hdr.mark = gc_color_red; - c_732243.hdr.grayed = 0; -c_732243.tag = closureN_tag; - c_732243.fn = (function_type)__lambda_176; -c_732243.num_args = 0; -c_732243.num_elements = 5; -c_732243.elements = (object *)alloca(sizeof(object) * 5); -c_732243.elements[0] = ((closureN)self_731223)->elements[1]; -c_732243.elements[1] = ((closureN)self_731223)->elements[3]; -c_732243.elements[2] = ((closureN)self_731223)->elements[5]; -c_732243.elements[3] = ((closureN)self_731223)->elements[6]; -c_732243.elements[4] = ((closureN)self_731223)->elements[7]; - -return_closcall0(data,(closure)&c_732243); -} else { - -closureN_type c_732259; -c_732259.hdr.mark = gc_color_red; - c_732259.hdr.grayed = 0; -c_732259.tag = closureN_tag; - c_732259.fn = (function_type)__lambda_193; -c_732259.num_args = 0; -c_732259.num_elements = 7; -c_732259.elements = (object *)alloca(sizeof(object) * 7); -c_732259.elements[0] = ((closureN)self_731223)->elements[0]; -c_732259.elements[1] = ((closureN)self_731223)->elements[2]; -c_732259.elements[2] = ((closureN)self_731223)->elements[3]; -c_732259.elements[3] = ((closureN)self_731223)->elements[4]; -c_732259.elements[4] = ((closureN)self_731223)->elements[5]; -c_732259.elements[5] = ((closureN)self_731223)->elements[6]; -c_732259.elements[6] = ((closureN)self_731223)->elements[7]; - -return_closcall0(data,(closure)&c_732259);} -; -} - -static void __lambda_193(void *data, int argc, object self_731224) { - -closureN_type c_732261; -c_732261.hdr.mark = gc_color_red; - c_732261.hdr.grayed = 0; -c_732261.tag = closureN_tag; - c_732261.fn = (function_type)__lambda_192; -c_732261.num_args = 1; -c_732261.num_elements = 7; -c_732261.elements = (object *)alloca(sizeof(object) * 7); -c_732261.elements[0] = ((closureN)self_731224)->elements[0]; -c_732261.elements[1] = ((closureN)self_731224)->elements[1]; -c_732261.elements[2] = ((closureN)self_731224)->elements[2]; -c_732261.elements[3] = ((closureN)self_731224)->elements[3]; -c_732261.elements[4] = ((closureN)self_731224)->elements[4]; -c_732261.elements[5] = ((closureN)self_731224)->elements[5]; -c_732261.elements[6] = ((closureN)self_731224)->elements[6]; - -return_closcall1(data,(closure)&c_732261, NULL);; -} - -static void __lambda_192(void *data, int argc, object self_731225, object r_73604) { - -closureN_type c_732263; -c_732263.hdr.mark = gc_color_red; - c_732263.hdr.grayed = 0; -c_732263.tag = closureN_tag; - c_732263.fn = (function_type)__lambda_191; -c_732263.num_args = 1; -c_732263.num_elements = 8; -c_732263.elements = (object *)alloca(sizeof(object) * 8); -c_732263.elements[0] = ((closureN)self_731225)->elements[0]; -c_732263.elements[1] = ((closureN)self_731225)->elements[1]; -c_732263.elements[2] = ((closureN)self_731225)->elements[2]; -c_732263.elements[3] = ((closureN)self_731225)->elements[3]; -c_732263.elements[4] = ((closureN)self_731225)->elements[4]; -c_732263.elements[5] = r_73604; -c_732263.elements[6] = ((closureN)self_731225)->elements[5]; -c_732263.elements[7] = ((closureN)self_731225)->elements[6]; - -return_closcall1(data,(closure)&c_732263, NULL);; -} - -static void __lambda_191(void *data, int argc, object self_731226, object r_73605) { - -closureN_type c_732265; -c_732265.hdr.mark = gc_color_red; - c_732265.hdr.grayed = 0; -c_732265.tag = closureN_tag; - c_732265.fn = (function_type)__lambda_190; -c_732265.num_args = 1; -c_732265.num_elements = 9; -c_732265.elements = (object *)alloca(sizeof(object) * 9); -c_732265.elements[0] = ((closureN)self_731226)->elements[0]; -c_732265.elements[1] = ((closureN)self_731226)->elements[1]; -c_732265.elements[2] = ((closureN)self_731226)->elements[2]; -c_732265.elements[3] = ((closureN)self_731226)->elements[3]; -c_732265.elements[4] = ((closureN)self_731226)->elements[4]; -c_732265.elements[5] = ((closureN)self_731226)->elements[5]; -c_732265.elements[6] = r_73605; -c_732265.elements[7] = ((closureN)self_731226)->elements[6]; -c_732265.elements[8] = ((closureN)self_731226)->elements[7]; - - -object c_732337 = Cyc_sum(data,(closure)&c_732265,2,((closureN)self_731226)->elements[3], obj_int2obj(1)); -return_closcall1(data,(closure)&c_732265, c_732337);; -} - -static void __lambda_190(void *data, int argc, object self_731227, object r_73606) { - -closureN_type c_732267; -c_732267.hdr.mark = gc_color_red; - c_732267.hdr.grayed = 0; -c_732267.tag = closureN_tag; - c_732267.fn = (function_type)__lambda_189; -c_732267.num_args = 1; -c_732267.num_elements = 7; -c_732267.elements = (object *)alloca(sizeof(object) * 7); -c_732267.elements[0] = ((closureN)self_731227)->elements[0]; -c_732267.elements[1] = ((closureN)self_731227)->elements[1]; -c_732267.elements[2] = ((closureN)self_731227)->elements[2]; -c_732267.elements[3] = ((closureN)self_731227)->elements[3]; -c_732267.elements[4] = ((closureN)self_731227)->elements[4]; -c_732267.elements[5] = ((closureN)self_731227)->elements[7]; -c_732267.elements[6] = ((closureN)self_731227)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732267, ((closureN)self_731227)->elements[1], ((closureN)self_731227)->elements[5], ((closureN)self_731227)->elements[6], boolean_t, boolean_f, r_73606, ((closureN)self_731227)->elements[4]);; -} - -static void __lambda_189(void *data, int argc, object self_731228, object r_73594) { - -closureN_type c_732269; -c_732269.hdr.mark = gc_color_red; - c_732269.hdr.grayed = 0; -c_732269.tag = closureN_tag; - c_732269.fn = (function_type)__lambda_188; -c_732269.num_args = 1; -c_732269.num_elements = 6; -c_732269.elements = (object *)alloca(sizeof(object) * 6); -c_732269.elements[0] = ((closureN)self_731228)->elements[0]; -c_732269.elements[1] = ((closureN)self_731228)->elements[1]; -c_732269.elements[2] = ((closureN)self_731228)->elements[2]; -c_732269.elements[3] = ((closureN)self_731228)->elements[3]; -c_732269.elements[4] = ((closureN)self_731228)->elements[4]; -c_732269.elements[5] = r_73594; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732269, ((closureN)self_731228)->elements[5], ((closureN)self_731228)->elements[6]);; -} - -static void __lambda_188(void *data, int argc, object self_731229, object r_73595) { - -closureN_type c_732271; -c_732271.hdr.mark = gc_color_red; - c_732271.hdr.grayed = 0; -c_732271.tag = closureN_tag; - c_732271.fn = (function_type)__lambda_187; -c_732271.num_args = 2; -c_732271.num_elements = 5; -c_732271.elements = (object *)alloca(sizeof(object) * 5); -c_732271.elements[0] = ((closureN)self_731229)->elements[0]; -c_732271.elements[1] = ((closureN)self_731229)->elements[1]; -c_732271.elements[2] = ((closureN)self_731229)->elements[2]; -c_732271.elements[3] = ((closureN)self_731229)->elements[3]; -c_732271.elements[4] = ((closureN)self_731229)->elements[4]; - -return_closcall2(data,(closure)&c_732271, ((closureN)self_731229)->elements[5], r_73595);; -} - -static void __lambda_187(void *data, int argc, object self_731230, object sub_73222, object toks_85_73221) { - -closureN_type c_732273; -c_732273.hdr.mark = gc_color_red; - c_732273.hdr.grayed = 0; -c_732273.tag = closureN_tag; - c_732273.fn = (function_type)__lambda_186; -c_732273.num_args = 1; -c_732273.num_elements = 7; -c_732273.elements = (object *)alloca(sizeof(object) * 7); -c_732273.elements[0] = ((closureN)self_731230)->elements[0]; -c_732273.elements[1] = ((closureN)self_731230)->elements[1]; -c_732273.elements[2] = ((closureN)self_731230)->elements[2]; -c_732273.elements[3] = ((closureN)self_731230)->elements[3]; -c_732273.elements[4] = ((closureN)self_731230)->elements[4]; -c_732273.elements[5] = sub_73222; -c_732273.elements[6] = toks_85_73221; - -return_closcall1(data,(closure)&c_732273, boolean_f);; -} - -static void __lambda_186(void *data, int argc, object self_731231, object new_91toks_73223) { - -closureN_type c_732275; -c_732275.hdr.mark = gc_color_red; - c_732275.hdr.grayed = 0; -c_732275.tag = closureN_tag; - c_732275.fn = (function_type)__lambda_185; -c_732275.num_args = 1; -c_732275.num_elements = 7; -c_732275.elements = (object *)alloca(sizeof(object) * 7); -c_732275.elements[0] = ((closureN)self_731231)->elements[0]; -c_732275.elements[1] = ((closureN)self_731231)->elements[1]; -c_732275.elements[2] = ((closureN)self_731231)->elements[2]; -c_732275.elements[3] = ((closureN)self_731231)->elements[3]; -c_732275.elements[4] = ((closureN)self_731231)->elements[4]; -c_732275.elements[5] = ((closureN)self_731231)->elements[5]; -c_732275.elements[6] = ((closureN)self_731231)->elements[6]; - - -make_cell(c_732327,new_91toks_73223); -return_closcall1(data,(closure)&c_732275, &c_732327);; -} - -static void __lambda_185(void *data, int argc, object self_731232, object new_91toks_73223) { - -closureN_type c_732277; -c_732277.hdr.mark = gc_color_red; - c_732277.hdr.grayed = 0; -c_732277.tag = closureN_tag; - c_732277.fn = (function_type)__lambda_180; -c_732277.num_args = 0; -c_732277.num_elements = 1; -c_732277.elements = (object *)alloca(sizeof(object) * 1); -c_732277.elements[0] = ((closureN)self_731232)->elements[5]; - - -closureN_type c_732297; -c_732297.hdr.mark = gc_color_red; - c_732297.hdr.grayed = 0; -c_732297.tag = closureN_tag; - c_732297.fn = (function_type)__lambda_184; -c_732297.num_args = 1; -c_732297.num_elements = 7; -c_732297.elements = (object *)alloca(sizeof(object) * 7); -c_732297.elements[0] = ((closureN)self_731232)->elements[0]; -c_732297.elements[1] = ((closureN)self_731232)->elements[1]; -c_732297.elements[2] = ((closureN)self_731232)->elements[2]; -c_732297.elements[3] = new_91toks_73223; -c_732297.elements[4] = ((closureN)self_731232)->elements[3]; -c_732297.elements[5] = ((closureN)self_731232)->elements[4]; -c_732297.elements[6] = ((closureN)self_731232)->elements[6]; - -return_closcall1(data,(closure)&c_732277, &c_732297);; -} - -static void __lambda_184(void *data, int argc, object self_731233, object r_73599) { - -closureN_type c_732299; -c_732299.hdr.mark = gc_color_red; - c_732299.hdr.grayed = 0; -c_732299.tag = closureN_tag; - c_732299.fn = (function_type)__lambda_183; -c_732299.num_args = 1; -c_732299.num_elements = 6; -c_732299.elements = (object *)alloca(sizeof(object) * 6); -c_732299.elements[0] = ((closureN)self_731233)->elements[0]; -c_732299.elements[1] = ((closureN)self_731233)->elements[1]; -c_732299.elements[2] = ((closureN)self_731233)->elements[2]; -c_732299.elements[3] = ((closureN)self_731233)->elements[3]; -c_732299.elements[4] = ((closureN)self_731233)->elements[4]; -c_732299.elements[5] = ((closureN)self_731233)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732299, r_73599, ((closureN)self_731233)->elements[6]);; -} - -static void __lambda_183(void *data, int argc, object self_731234, object r_73598) { - -closureN_type c_732301; -c_732301.hdr.mark = gc_color_red; - c_732301.hdr.grayed = 0; -c_732301.tag = closureN_tag; - c_732301.fn = (function_type)__lambda_182; -c_732301.num_args = 1; -c_732301.num_elements = 6; -c_732301.elements = (object *)alloca(sizeof(object) * 6); -c_732301.elements[0] = ((closureN)self_731234)->elements[0]; -c_732301.elements[1] = ((closureN)self_731234)->elements[1]; -c_732301.elements[2] = ((closureN)self_731234)->elements[2]; -c_732301.elements[3] = ((closureN)self_731234)->elements[3]; -c_732301.elements[4] = ((closureN)self_731234)->elements[4]; -c_732301.elements[5] = ((closureN)self_731234)->elements[5]; - -return_closcall1(data,(closure)&c_732301, Cyc_set_car(data, ((closureN)self_731234)->elements[3], r_73598));; -} - -static void __lambda_182(void *data, int argc, object self_731235, object r_73596) { - if( (boolean_f != ((closureN)self_731235)->elements[0]) ){ - -closureN_type c_732304; -c_732304.hdr.mark = gc_color_red; - c_732304.hdr.grayed = 0; -c_732304.tag = closureN_tag; - c_732304.fn = (function_type)__lambda_181; -c_732304.num_args = 1; -c_732304.num_elements = 6; -c_732304.elements = (object *)alloca(sizeof(object) * 6); -c_732304.elements[0] = ((closureN)self_731235)->elements[0]; -c_732304.elements[1] = ((closureN)self_731235)->elements[1]; -c_732304.elements[2] = ((closureN)self_731235)->elements[2]; -c_732304.elements[3] = ((closureN)self_731235)->elements[3]; -c_732304.elements[4] = ((closureN)self_731235)->elements[4]; -c_732304.elements[5] = ((closureN)self_731235)->elements[5]; - -return_closcall1(data,(closure)&c_732304, NULL); -} else { - return_closcall1(data, ((closureN)self_731235)->elements[2], car(cell_get(((closureN)self_731235)->elements[3])));} -; -} - -static void __lambda_181(void *data, int argc, object self_731236, object r_73597) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731236)->elements[2], ((closureN)self_731236)->elements[1], r_73597, cell_get(((closureN)self_731236)->elements[3]), ((closureN)self_731236)->elements[0], boolean_f, ((closureN)self_731236)->elements[4], ((closureN)self_731236)->elements[5]);; -} - -static void __lambda_180(void *data, int argc, object self_731237, object k_73600) { - -closureN_type c_732279; -c_732279.hdr.mark = gc_color_red; - c_732279.hdr.grayed = 0; -c_732279.tag = closureN_tag; - c_732279.fn = (function_type)__lambda_178; -c_732279.num_args = 0; -c_732279.num_elements = 1; -c_732279.elements = (object *)alloca(sizeof(object) * 1); -c_732279.elements[0] = ((closureN)self_731237)->elements[0]; - - -closureN_type c_732290; -c_732290.hdr.mark = gc_color_red; - c_732290.hdr.grayed = 0; -c_732290.tag = closureN_tag; - c_732290.fn = (function_type)__lambda_179; -c_732290.num_args = 1; -c_732290.num_elements = 2; -c_732290.elements = (object *)alloca(sizeof(object) * 2); -c_732290.elements[0] = k_73600; -c_732290.elements[1] = ((closureN)self_731237)->elements[0]; - -return_closcall1(data,(closure)&c_732279, &c_732290);; -} - -static void __lambda_179(void *data, int argc, object self_731238, object r_73601) { - if( (boolean_f != r_73601) ){ - return_closcall2(data, __glo__91_125dotted_91list_scheme_read, ((closureN)self_731238)->elements[0], ((closureN)self_731238)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731238)->elements[0], ((closureN)self_731238)->elements[1]);} -; -} - -static void __lambda_178(void *data, int argc, object self_731239, object k_73602) { - -closureN_type c_732281; -c_732281.hdr.mark = gc_color_red; - c_732281.hdr.grayed = 0; -c_732281.tag = closureN_tag; - c_732281.fn = (function_type)__lambda_177; -c_732281.num_args = 1; -c_732281.num_elements = 2; -c_732281.elements = (object *)alloca(sizeof(object) * 2); -c_732281.elements[0] = k_73602; -c_732281.elements[1] = ((closureN)self_731239)->elements[0]; - -return_closcall1(data,(closure)&c_732281, Cyc_is_pair(((closureN)self_731239)->elements[0]));; -} - -static void __lambda_177(void *data, int argc, object self_731240, object r_73603) { - if( (boolean_f != r_73603) ){ - return_closcall2(data, __glo_dotted_127_scheme_read, ((closureN)self_731240)->elements[0], ((closureN)self_731240)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731240)->elements[0], boolean_f);} -; -} - -static void __lambda_176(void *data, int argc, object self_731241) { - -closureN_type c_732245; -c_732245.hdr.mark = gc_color_red; - c_732245.hdr.grayed = 0; -c_732245.tag = closureN_tag; - c_732245.fn = (function_type)__lambda_175; -c_732245.num_args = 1; -c_732245.num_elements = 3; -c_732245.elements = (object *)alloca(sizeof(object) * 3); -c_732245.elements[0] = ((closureN)self_731241)->elements[1]; -c_732245.elements[1] = ((closureN)self_731241)->elements[3]; -c_732245.elements[2] = ((closureN)self_731241)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732245, ((closureN)self_731241)->elements[2], ((closureN)self_731241)->elements[0]);; -} - -static void __lambda_175(void *data, int argc, object self_731242, object r_73591) { - -closureN_type c_732247; -c_732247.hdr.mark = gc_color_red; - c_732247.hdr.grayed = 0; -c_732247.tag = closureN_tag; - c_732247.fn = (function_type)__lambda_174; -c_732247.num_args = 1; -c_732247.num_elements = 2; -c_732247.elements = (object *)alloca(sizeof(object) * 2); -c_732247.elements[0] = ((closureN)self_731242)->elements[0]; -c_732247.elements[1] = ((closureN)self_731242)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732247, ((closureN)self_731242)->elements[1]);; -} - -static void __lambda_174(void *data, int argc, object self_731243, object r_73593) { - -closureN_type c_732249; -c_732249.hdr.mark = gc_color_red; - c_732249.hdr.grayed = 0; -c_732249.tag = closureN_tag; - c_732249.fn = (function_type)__lambda_173; -c_732249.num_args = 1; -c_732249.num_elements = 1; -c_732249.elements = (object *)alloca(sizeof(object) * 1); -c_732249.elements[0] = ((closureN)self_731243)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732249, r_73593, ((closureN)self_731243)->elements[1]);; -} - -static void __lambda_173(void *data, int argc, object self_731244, object r_73592) { - return_closcall1(data, ((closureN)self_731244)->elements[0], car(r_73592));; -} - -static void __lambda_172(void *data, int argc, object self_731245, object k_73607) { - if( (boolean_f != ((closureN)self_731245)->elements[0]) ){ - return_closcall1(data, k_73607, boolean_f); -} else { - -closureN_type c_732235; -c_732235.hdr.mark = gc_color_red; - c_732235.hdr.grayed = 0; -c_732235.tag = closureN_tag; - c_732235.fn = (function_type)__lambda_171; -c_732235.num_args = 1; -c_732235.num_elements = 1; -c_732235.elements = (object *)alloca(sizeof(object) * 1); -c_732235.elements[0] = k_73607; - -return_closcall1(data,(closure)&c_732235, Cyc_is_null(((closureN)self_731245)->elements[1]));} -; -} - -static void __lambda_171(void *data, int argc, object self_731246, object r_73608) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731246)->elements[0], r_73608);; -} - -static void __lambda_170(void *data, int argc, object self_731247) { - -closureN_type c_732038; -c_732038.hdr.mark = gc_color_red; - c_732038.hdr.grayed = 0; -c_732038.tag = closureN_tag; - c_732038.fn = (function_type)__lambda_132; -c_732038.num_args = 0; -c_732038.num_elements = 2; -c_732038.elements = (object *)alloca(sizeof(object) * 2); -c_732038.elements[0] = ((closureN)self_731247)->elements[0]; -c_732038.elements[1] = ((closureN)self_731247)->elements[6]; - - -closureN_type c_732048; -c_732048.hdr.mark = gc_color_red; - c_732048.hdr.grayed = 0; -c_732048.tag = closureN_tag; - c_732048.fn = (function_type)__lambda_169; -c_732048.num_args = 1; -c_732048.num_elements = 8; -c_732048.elements = (object *)alloca(sizeof(object) * 8); -c_732048.elements[0] = ((closureN)self_731247)->elements[0]; -c_732048.elements[1] = ((closureN)self_731247)->elements[1]; -c_732048.elements[2] = ((closureN)self_731247)->elements[2]; -c_732048.elements[3] = ((closureN)self_731247)->elements[3]; -c_732048.elements[4] = ((closureN)self_731247)->elements[4]; -c_732048.elements[5] = ((closureN)self_731247)->elements[5]; -c_732048.elements[6] = ((closureN)self_731247)->elements[6]; -c_732048.elements[7] = ((closureN)self_731247)->elements[7]; - -return_closcall1(data,(closure)&c_732038, &c_732048);; -} - -static void __lambda_169(void *data, int argc, object self_731248, object r_73560) { - if( (boolean_f != r_73560) ){ - -closureN_type c_732050; -c_732050.hdr.mark = gc_color_red; - c_732050.hdr.grayed = 0; -c_732050.tag = closureN_tag; - c_732050.fn = (function_type)__lambda_136; -c_732050.num_args = 0; -c_732050.num_elements = 5; -c_732050.elements = (object *)alloca(sizeof(object) * 5); -c_732050.elements[0] = ((closureN)self_731248)->elements[1]; -c_732050.elements[1] = ((closureN)self_731248)->elements[3]; -c_732050.elements[2] = ((closureN)self_731248)->elements[5]; -c_732050.elements[3] = ((closureN)self_731248)->elements[6]; -c_732050.elements[4] = ((closureN)self_731248)->elements[7]; - -return_closcall0(data,(closure)&c_732050); -} else { - -closureN_type c_732066; -c_732066.hdr.mark = gc_color_red; - c_732066.hdr.grayed = 0; -c_732066.tag = closureN_tag; - c_732066.fn = (function_type)__lambda_168; -c_732066.num_args = 0; -c_732066.num_elements = 7; -c_732066.elements = (object *)alloca(sizeof(object) * 7); -c_732066.elements[0] = ((closureN)self_731248)->elements[0]; -c_732066.elements[1] = ((closureN)self_731248)->elements[2]; -c_732066.elements[2] = ((closureN)self_731248)->elements[3]; -c_732066.elements[3] = ((closureN)self_731248)->elements[4]; -c_732066.elements[4] = ((closureN)self_731248)->elements[5]; -c_732066.elements[5] = ((closureN)self_731248)->elements[6]; -c_732066.elements[6] = ((closureN)self_731248)->elements[7]; - -return_closcall0(data,(closure)&c_732066);} -; -} - -static void __lambda_168(void *data, int argc, object self_731249) { - -closureN_type c_732068; -c_732068.hdr.mark = gc_color_red; - c_732068.hdr.grayed = 0; -c_732068.tag = closureN_tag; - c_732068.fn = (function_type)__lambda_167; -c_732068.num_args = 4; -c_732068.num_elements = 7; -c_732068.elements = (object *)alloca(sizeof(object) * 7); -c_732068.elements[0] = ((closureN)self_731249)->elements[0]; -c_732068.elements[1] = ((closureN)self_731249)->elements[1]; -c_732068.elements[2] = ((closureN)self_731249)->elements[2]; -c_732068.elements[3] = ((closureN)self_731249)->elements[3]; -c_732068.elements[4] = ((closureN)self_731249)->elements[4]; -c_732068.elements[5] = ((closureN)self_731249)->elements[5]; -c_732068.elements[6] = ((closureN)self_731249)->elements[6]; - -return_closcall4(data,(closure)&c_732068, boolean_f, boolean_f, boolean_f, boolean_f);; -} - -static void __lambda_167(void *data, int argc, object self_731250, object sub_73227, object next_91c_73226, object unquote_91sym_73225, object new_91toks_73224) { - -closureN_type c_732070; -c_732070.hdr.mark = gc_color_red; - c_732070.hdr.grayed = 0; -c_732070.tag = closureN_tag; - c_732070.fn = (function_type)__lambda_166; -c_732070.num_args = 1; -c_732070.num_elements = 10; -c_732070.elements = (object *)alloca(sizeof(object) * 10); -c_732070.elements[0] = ((closureN)self_731250)->elements[0]; -c_732070.elements[1] = ((closureN)self_731250)->elements[1]; -c_732070.elements[2] = ((closureN)self_731250)->elements[2]; -c_732070.elements[3] = new_91toks_73224; -c_732070.elements[4] = next_91c_73226; -c_732070.elements[5] = ((closureN)self_731250)->elements[3]; -c_732070.elements[6] = ((closureN)self_731250)->elements[4]; -c_732070.elements[7] = ((closureN)self_731250)->elements[5]; -c_732070.elements[8] = ((closureN)self_731250)->elements[6]; -c_732070.elements[9] = unquote_91sym_73225; - - -make_cell(c_732225,sub_73227); -return_closcall1(data,(closure)&c_732070, &c_732225);; -} - -static void __lambda_166(void *data, int argc, object self_731251, object sub_73227) { - -closureN_type c_732072; -c_732072.hdr.mark = gc_color_red; - c_732072.hdr.grayed = 0; -c_732072.tag = closureN_tag; - c_732072.fn = (function_type)__lambda_165; -c_732072.num_args = 1; -c_732072.num_elements = 10; -c_732072.elements = (object *)alloca(sizeof(object) * 10); -c_732072.elements[0] = ((closureN)self_731251)->elements[0]; -c_732072.elements[1] = ((closureN)self_731251)->elements[1]; -c_732072.elements[2] = ((closureN)self_731251)->elements[2]; -c_732072.elements[3] = ((closureN)self_731251)->elements[3]; -c_732072.elements[4] = ((closureN)self_731251)->elements[5]; -c_732072.elements[5] = ((closureN)self_731251)->elements[6]; -c_732072.elements[6] = sub_73227; -c_732072.elements[7] = ((closureN)self_731251)->elements[7]; -c_732072.elements[8] = ((closureN)self_731251)->elements[8]; -c_732072.elements[9] = ((closureN)self_731251)->elements[9]; - - -make_cell(c_732221,((closureN)self_731251)->elements[4]); -return_closcall1(data,(closure)&c_732072, &c_732221);; -} - -static void __lambda_165(void *data, int argc, object self_731252, object next_91c_73226) { - -closureN_type c_732074; -c_732074.hdr.mark = gc_color_red; - c_732074.hdr.grayed = 0; -c_732074.tag = closureN_tag; - c_732074.fn = (function_type)__lambda_164; -c_732074.num_args = 1; -c_732074.num_elements = 10; -c_732074.elements = (object *)alloca(sizeof(object) * 10); -c_732074.elements[0] = ((closureN)self_731252)->elements[0]; -c_732074.elements[1] = ((closureN)self_731252)->elements[1]; -c_732074.elements[2] = ((closureN)self_731252)->elements[2]; -c_732074.elements[3] = ((closureN)self_731252)->elements[3]; -c_732074.elements[4] = next_91c_73226; -c_732074.elements[5] = ((closureN)self_731252)->elements[4]; -c_732074.elements[6] = ((closureN)self_731252)->elements[5]; -c_732074.elements[7] = ((closureN)self_731252)->elements[6]; -c_732074.elements[8] = ((closureN)self_731252)->elements[7]; -c_732074.elements[9] = ((closureN)self_731252)->elements[8]; - - -make_cell(c_732217,((closureN)self_731252)->elements[9]); -return_closcall1(data,(closure)&c_732074, &c_732217);; -} - -static void __lambda_164(void *data, int argc, object self_731253, object unquote_91sym_73225) { - -closureN_type c_732076; -c_732076.hdr.mark = gc_color_red; - c_732076.hdr.grayed = 0; -c_732076.tag = closureN_tag; - c_732076.fn = (function_type)__lambda_163; -c_732076.num_args = 1; -c_732076.num_elements = 10; -c_732076.elements = (object *)alloca(sizeof(object) * 10); -c_732076.elements[0] = ((closureN)self_731253)->elements[0]; -c_732076.elements[1] = ((closureN)self_731253)->elements[1]; -c_732076.elements[2] = ((closureN)self_731253)->elements[2]; -c_732076.elements[3] = ((closureN)self_731253)->elements[4]; -c_732076.elements[4] = ((closureN)self_731253)->elements[5]; -c_732076.elements[5] = ((closureN)self_731253)->elements[6]; -c_732076.elements[6] = ((closureN)self_731253)->elements[7]; -c_732076.elements[7] = ((closureN)self_731253)->elements[8]; -c_732076.elements[8] = ((closureN)self_731253)->elements[9]; -c_732076.elements[9] = unquote_91sym_73225; - - -make_cell(c_732213,((closureN)self_731253)->elements[3]); -return_closcall1(data,(closure)&c_732076, &c_732213);; -} - -static void __lambda_163(void *data, int argc, object self_731254, object new_91toks_73224) { - -closureN_type c_732078; -c_732078.hdr.mark = gc_color_red; - c_732078.hdr.grayed = 0; -c_732078.tag = closureN_tag; - c_732078.fn = (function_type)__lambda_162; -c_732078.num_args = 1; -c_732078.num_elements = 11; -c_732078.elements = (object *)alloca(sizeof(object) * 11); -c_732078.elements[0] = ((closureN)self_731254)->elements[0]; -c_732078.elements[1] = ((closureN)self_731254)->elements[1]; -c_732078.elements[2] = ((closureN)self_731254)->elements[2]; -c_732078.elements[3] = new_91toks_73224; -c_732078.elements[4] = ((closureN)self_731254)->elements[3]; -c_732078.elements[5] = ((closureN)self_731254)->elements[4]; -c_732078.elements[6] = ((closureN)self_731254)->elements[5]; -c_732078.elements[7] = ((closureN)self_731254)->elements[6]; -c_732078.elements[8] = ((closureN)self_731254)->elements[7]; -c_732078.elements[9] = ((closureN)self_731254)->elements[8]; -c_732078.elements[10] = ((closureN)self_731254)->elements[9]; - -return_closcall1(data,(closure)&c_732078, Cyc_set_car(data, ((closureN)self_731254)->elements[6], boolean_f));; -} - -static void __lambda_162(void *data, int argc, object self_731255, object r_73564) { - -closureN_type c_732080; -c_732080.hdr.mark = gc_color_red; - c_732080.hdr.grayed = 0; -c_732080.tag = closureN_tag; - c_732080.fn = (function_type)__lambda_161; -c_732080.num_args = 1; -c_732080.num_elements = 11; -c_732080.elements = (object *)alloca(sizeof(object) * 11); -c_732080.elements[0] = ((closureN)self_731255)->elements[0]; -c_732080.elements[1] = ((closureN)self_731255)->elements[1]; -c_732080.elements[2] = ((closureN)self_731255)->elements[2]; -c_732080.elements[3] = ((closureN)self_731255)->elements[3]; -c_732080.elements[4] = ((closureN)self_731255)->elements[4]; -c_732080.elements[5] = ((closureN)self_731255)->elements[5]; -c_732080.elements[6] = ((closureN)self_731255)->elements[6]; -c_732080.elements[7] = ((closureN)self_731255)->elements[7]; -c_732080.elements[8] = ((closureN)self_731255)->elements[8]; -c_732080.elements[9] = ((closureN)self_731255)->elements[9]; -c_732080.elements[10] = ((closureN)self_731255)->elements[10]; - - -object c_732206 = Cyc_io_read_char(data,(closure)&c_732080,((closureN)self_731255)->elements[1]); -return_closcall1(data,(closure)&c_732080, c_732206);; -} - -static void __lambda_161(void *data, int argc, object self_731256, object r_73586) { - -closureN_type c_732082; -c_732082.hdr.mark = gc_color_red; - c_732082.hdr.grayed = 0; -c_732082.tag = closureN_tag; - c_732082.fn = (function_type)__lambda_160; -c_732082.num_args = 1; -c_732082.num_elements = 11; -c_732082.elements = (object *)alloca(sizeof(object) * 11); -c_732082.elements[0] = ((closureN)self_731256)->elements[0]; -c_732082.elements[1] = ((closureN)self_731256)->elements[1]; -c_732082.elements[2] = ((closureN)self_731256)->elements[2]; -c_732082.elements[3] = ((closureN)self_731256)->elements[3]; -c_732082.elements[4] = ((closureN)self_731256)->elements[4]; -c_732082.elements[5] = ((closureN)self_731256)->elements[5]; -c_732082.elements[6] = ((closureN)self_731256)->elements[6]; -c_732082.elements[7] = ((closureN)self_731256)->elements[7]; -c_732082.elements[8] = ((closureN)self_731256)->elements[8]; -c_732082.elements[9] = ((closureN)self_731256)->elements[9]; -c_732082.elements[10] = ((closureN)self_731256)->elements[10]; - -return_closcall1(data,(closure)&c_732082, Cyc_set_car(data, ((closureN)self_731256)->elements[4], r_73586));; -} - -static void __lambda_160(void *data, int argc, object self_731257, object r_73565) { - -closureN_type c_732084; -c_732084.hdr.mark = gc_color_red; - c_732084.hdr.grayed = 0; -c_732084.tag = closureN_tag; - c_732084.fn = (function_type)__lambda_138; -c_732084.num_args = 0; -c_732084.num_elements = 1; -c_732084.elements = (object *)alloca(sizeof(object) * 1); -c_732084.elements[0] = ((closureN)self_731257)->elements[4]; - - -closureN_type c_732096; -c_732096.hdr.mark = gc_color_red; - c_732096.hdr.grayed = 0; -c_732096.tag = closureN_tag; - c_732096.fn = (function_type)__lambda_159; -c_732096.num_args = 1; -c_732096.num_elements = 11; -c_732096.elements = (object *)alloca(sizeof(object) * 11); -c_732096.elements[0] = ((closureN)self_731257)->elements[0]; -c_732096.elements[1] = ((closureN)self_731257)->elements[1]; -c_732096.elements[2] = ((closureN)self_731257)->elements[2]; -c_732096.elements[3] = ((closureN)self_731257)->elements[3]; -c_732096.elements[4] = ((closureN)self_731257)->elements[4]; -c_732096.elements[5] = ((closureN)self_731257)->elements[5]; -c_732096.elements[6] = ((closureN)self_731257)->elements[6]; -c_732096.elements[7] = ((closureN)self_731257)->elements[7]; -c_732096.elements[8] = ((closureN)self_731257)->elements[8]; -c_732096.elements[9] = ((closureN)self_731257)->elements[9]; -c_732096.elements[10] = ((closureN)self_731257)->elements[10]; - -return_closcall1(data,(closure)&c_732084, &c_732096);; -} - -static void __lambda_159(void *data, int argc, object self_731258, object r_73583) { - -closureN_type c_732098; -c_732098.hdr.mark = gc_color_red; - c_732098.hdr.grayed = 0; -c_732098.tag = closureN_tag; - c_732098.fn = (function_type)__lambda_158; -c_732098.num_args = 1; -c_732098.num_elements = 11; -c_732098.elements = (object *)alloca(sizeof(object) * 11); -c_732098.elements[0] = ((closureN)self_731258)->elements[0]; -c_732098.elements[1] = ((closureN)self_731258)->elements[1]; -c_732098.elements[2] = ((closureN)self_731258)->elements[2]; -c_732098.elements[3] = ((closureN)self_731258)->elements[3]; -c_732098.elements[4] = ((closureN)self_731258)->elements[4]; -c_732098.elements[5] = ((closureN)self_731258)->elements[5]; -c_732098.elements[6] = ((closureN)self_731258)->elements[6]; -c_732098.elements[7] = ((closureN)self_731258)->elements[7]; -c_732098.elements[8] = ((closureN)self_731258)->elements[8]; -c_732098.elements[9] = ((closureN)self_731258)->elements[9]; -c_732098.elements[10] = ((closureN)self_731258)->elements[10]; - -return_closcall1(data,(closure)&c_732098, Cyc_set_car(data, ((closureN)self_731258)->elements[10], r_73583));; -} - -static void __lambda_158(void *data, int argc, object self_731259, object r_73566) { - -closureN_type c_732100; -c_732100.hdr.mark = gc_color_red; - c_732100.hdr.grayed = 0; -c_732100.tag = closureN_tag; - c_732100.fn = (function_type)__lambda_157; -c_732100.num_args = 1; -c_732100.num_elements = 11; -c_732100.elements = (object *)alloca(sizeof(object) * 11); -c_732100.elements[0] = ((closureN)self_731259)->elements[0]; -c_732100.elements[1] = ((closureN)self_731259)->elements[1]; -c_732100.elements[2] = ((closureN)self_731259)->elements[2]; -c_732100.elements[3] = ((closureN)self_731259)->elements[3]; -c_732100.elements[4] = ((closureN)self_731259)->elements[4]; -c_732100.elements[5] = ((closureN)self_731259)->elements[5]; -c_732100.elements[6] = ((closureN)self_731259)->elements[6]; -c_732100.elements[7] = ((closureN)self_731259)->elements[7]; -c_732100.elements[8] = ((closureN)self_731259)->elements[8]; -c_732100.elements[9] = ((closureN)self_731259)->elements[9]; -c_732100.elements[10] = ((closureN)self_731259)->elements[10]; - -return_closcall1(data,(closure)&c_732100, Cyc_set_car(data, ((closureN)self_731259)->elements[3], boolean_f));; -} - -static void __lambda_157(void *data, int argc, object self_731260, object r_73567) { - -closureN_type c_732102; -c_732102.hdr.mark = gc_color_red; - c_732102.hdr.grayed = 0; -c_732102.tag = closureN_tag; - c_732102.fn = (function_type)__lambda_146; -c_732102.num_args = 0; -c_732102.num_elements = 2; -c_732102.elements = (object *)alloca(sizeof(object) * 2); -c_732102.elements[0] = ((closureN)self_731260)->elements[4]; -c_732102.elements[1] = ((closureN)self_731260)->elements[6]; - - -closureN_type c_732141; -c_732141.hdr.mark = gc_color_red; - c_732141.hdr.grayed = 0; -c_732141.tag = closureN_tag; - c_732141.fn = (function_type)__lambda_156; -c_732141.num_args = 1; -c_732141.num_elements = 10; -c_732141.elements = (object *)alloca(sizeof(object) * 10); -c_732141.elements[0] = ((closureN)self_731260)->elements[0]; -c_732141.elements[1] = ((closureN)self_731260)->elements[1]; -c_732141.elements[2] = ((closureN)self_731260)->elements[2]; -c_732141.elements[3] = ((closureN)self_731260)->elements[3]; -c_732141.elements[4] = ((closureN)self_731260)->elements[5]; -c_732141.elements[5] = ((closureN)self_731260)->elements[6]; -c_732141.elements[6] = ((closureN)self_731260)->elements[7]; -c_732141.elements[7] = ((closureN)self_731260)->elements[8]; -c_732141.elements[8] = ((closureN)self_731260)->elements[9]; -c_732141.elements[9] = ((closureN)self_731260)->elements[10]; - -return_closcall1(data,(closure)&c_732102, &c_732141);; -} - -static void __lambda_156(void *data, int argc, object self_731261, object r_73568) { - -closureN_type c_732143; -c_732143.hdr.mark = gc_color_red; - c_732143.hdr.grayed = 0; -c_732143.tag = closureN_tag; - c_732143.fn = (function_type)__lambda_155; -c_732143.num_args = 1; -c_732143.num_elements = 10; -c_732143.elements = (object *)alloca(sizeof(object) * 10); -c_732143.elements[0] = ((closureN)self_731261)->elements[0]; -c_732143.elements[1] = ((closureN)self_731261)->elements[1]; -c_732143.elements[2] = ((closureN)self_731261)->elements[2]; -c_732143.elements[3] = ((closureN)self_731261)->elements[3]; -c_732143.elements[4] = ((closureN)self_731261)->elements[4]; -c_732143.elements[5] = ((closureN)self_731261)->elements[5]; -c_732143.elements[6] = ((closureN)self_731261)->elements[6]; -c_732143.elements[7] = ((closureN)self_731261)->elements[7]; -c_732143.elements[8] = ((closureN)self_731261)->elements[8]; -c_732143.elements[9] = ((closureN)self_731261)->elements[9]; - -return_closcall1(data,(closure)&c_732143, NULL);; -} - -static void __lambda_155(void *data, int argc, object self_731262, object r_73576) { - -closureN_type c_732145; -c_732145.hdr.mark = gc_color_red; - c_732145.hdr.grayed = 0; -c_732145.tag = closureN_tag; - c_732145.fn = (function_type)__lambda_154; -c_732145.num_args = 1; -c_732145.num_elements = 11; -c_732145.elements = (object *)alloca(sizeof(object) * 11); -c_732145.elements[0] = ((closureN)self_731262)->elements[0]; -c_732145.elements[1] = ((closureN)self_731262)->elements[1]; -c_732145.elements[2] = ((closureN)self_731262)->elements[2]; -c_732145.elements[3] = ((closureN)self_731262)->elements[3]; -c_732145.elements[4] = ((closureN)self_731262)->elements[4]; -c_732145.elements[5] = ((closureN)self_731262)->elements[5]; -c_732145.elements[6] = r_73576; -c_732145.elements[7] = ((closureN)self_731262)->elements[6]; -c_732145.elements[8] = ((closureN)self_731262)->elements[7]; -c_732145.elements[9] = ((closureN)self_731262)->elements[8]; -c_732145.elements[10] = ((closureN)self_731262)->elements[9]; - -return_closcall1(data,(closure)&c_732145, NULL);; -} - -static void __lambda_154(void *data, int argc, object self_731263, object r_73577) { - -closureN_type c_732147; -c_732147.hdr.mark = gc_color_red; - c_732147.hdr.grayed = 0; -c_732147.tag = closureN_tag; - c_732147.fn = (function_type)__lambda_153; -c_732147.num_args = 1; -c_732147.num_elements = 10; -c_732147.elements = (object *)alloca(sizeof(object) * 10); -c_732147.elements[0] = ((closureN)self_731263)->elements[0]; -c_732147.elements[1] = ((closureN)self_731263)->elements[1]; -c_732147.elements[2] = ((closureN)self_731263)->elements[2]; -c_732147.elements[3] = ((closureN)self_731263)->elements[3]; -c_732147.elements[4] = ((closureN)self_731263)->elements[4]; -c_732147.elements[5] = ((closureN)self_731263)->elements[5]; -c_732147.elements[6] = ((closureN)self_731263)->elements[7]; -c_732147.elements[7] = ((closureN)self_731263)->elements[8]; -c_732147.elements[8] = ((closureN)self_731263)->elements[9]; -c_732147.elements[9] = ((closureN)self_731263)->elements[10]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732147, ((closureN)self_731263)->elements[1], ((closureN)self_731263)->elements[6], r_73577, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731263)->elements[5]);; -} - -static void __lambda_153(void *data, int argc, object self_731264, object r_73575) { - -closureN_type c_732149; -c_732149.hdr.mark = gc_color_red; - c_732149.hdr.grayed = 0; -c_732149.tag = closureN_tag; - c_732149.fn = (function_type)__lambda_152; -c_732149.num_args = 1; -c_732149.num_elements = 10; -c_732149.elements = (object *)alloca(sizeof(object) * 10); -c_732149.elements[0] = ((closureN)self_731264)->elements[0]; -c_732149.elements[1] = ((closureN)self_731264)->elements[1]; -c_732149.elements[2] = ((closureN)self_731264)->elements[2]; -c_732149.elements[3] = ((closureN)self_731264)->elements[3]; -c_732149.elements[4] = ((closureN)self_731264)->elements[4]; -c_732149.elements[5] = ((closureN)self_731264)->elements[5]; -c_732149.elements[6] = ((closureN)self_731264)->elements[6]; -c_732149.elements[7] = ((closureN)self_731264)->elements[7]; -c_732149.elements[8] = ((closureN)self_731264)->elements[8]; -c_732149.elements[9] = ((closureN)self_731264)->elements[9]; - -return_closcall1(data,(closure)&c_732149, Cyc_set_car(data, ((closureN)self_731264)->elements[6], r_73575));; -} - -static void __lambda_152(void *data, int argc, object self_731265, object r_73569) { - -closureN_type c_732151; -c_732151.hdr.mark = gc_color_red; - c_732151.hdr.grayed = 0; -c_732151.tag = closureN_tag; - c_732151.fn = (function_type)__lambda_151; -c_732151.num_args = 1; -c_732151.num_elements = 8; -c_732151.elements = (object *)alloca(sizeof(object) * 8); -c_732151.elements[0] = ((closureN)self_731265)->elements[0]; -c_732151.elements[1] = ((closureN)self_731265)->elements[1]; -c_732151.elements[2] = ((closureN)self_731265)->elements[2]; -c_732151.elements[3] = ((closureN)self_731265)->elements[3]; -c_732151.elements[4] = ((closureN)self_731265)->elements[4]; -c_732151.elements[5] = ((closureN)self_731265)->elements[5]; -c_732151.elements[6] = ((closureN)self_731265)->elements[7]; -c_732151.elements[7] = ((closureN)self_731265)->elements[8]; - -return_closcall3(data, __glo__list_scheme_base, &c_732151, cell_get(((closureN)self_731265)->elements[9]), cell_get(((closureN)self_731265)->elements[6]));; -} - -static void __lambda_151(void *data, int argc, object self_731266, object r_73573) { - -closureN_type c_732153; -c_732153.hdr.mark = gc_color_red; - c_732153.hdr.grayed = 0; -c_732153.tag = closureN_tag; - c_732153.fn = (function_type)__lambda_150; -c_732153.num_args = 1; -c_732153.num_elements = 7; -c_732153.elements = (object *)alloca(sizeof(object) * 7); -c_732153.elements[0] = ((closureN)self_731266)->elements[0]; -c_732153.elements[1] = ((closureN)self_731266)->elements[1]; -c_732153.elements[2] = ((closureN)self_731266)->elements[2]; -c_732153.elements[3] = ((closureN)self_731266)->elements[3]; -c_732153.elements[4] = ((closureN)self_731266)->elements[4]; -c_732153.elements[5] = ((closureN)self_731266)->elements[5]; -c_732153.elements[6] = r_73573; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732153, ((closureN)self_731266)->elements[6], ((closureN)self_731266)->elements[7]);; -} - -static void __lambda_150(void *data, int argc, object self_731267, object r_73574) { - -closureN_type c_732155; -c_732155.hdr.mark = gc_color_red; - c_732155.hdr.grayed = 0; -c_732155.tag = closureN_tag; - c_732155.fn = (function_type)__lambda_149; -c_732155.num_args = 1; -c_732155.num_elements = 6; -c_732155.elements = (object *)alloca(sizeof(object) * 6); -c_732155.elements[0] = ((closureN)self_731267)->elements[0]; -c_732155.elements[1] = ((closureN)self_731267)->elements[1]; -c_732155.elements[2] = ((closureN)self_731267)->elements[2]; -c_732155.elements[3] = ((closureN)self_731267)->elements[3]; -c_732155.elements[4] = ((closureN)self_731267)->elements[4]; -c_732155.elements[5] = ((closureN)self_731267)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732155, ((closureN)self_731267)->elements[6], r_73574);; -} - -static void __lambda_149(void *data, int argc, object self_731268, object r_73572) { - -closureN_type c_732157; -c_732157.hdr.mark = gc_color_red; - c_732157.hdr.grayed = 0; -c_732157.tag = closureN_tag; - c_732157.fn = (function_type)__lambda_148; -c_732157.num_args = 1; -c_732157.num_elements = 6; -c_732157.elements = (object *)alloca(sizeof(object) * 6); -c_732157.elements[0] = ((closureN)self_731268)->elements[0]; -c_732157.elements[1] = ((closureN)self_731268)->elements[1]; -c_732157.elements[2] = ((closureN)self_731268)->elements[2]; -c_732157.elements[3] = ((closureN)self_731268)->elements[3]; -c_732157.elements[4] = ((closureN)self_731268)->elements[4]; -c_732157.elements[5] = ((closureN)self_731268)->elements[5]; - -return_closcall1(data,(closure)&c_732157, Cyc_set_car(data, ((closureN)self_731268)->elements[3], r_73572));; -} - -static void __lambda_148(void *data, int argc, object self_731269, object r_73570) { - if( (boolean_f != ((closureN)self_731269)->elements[0]) ){ - -closureN_type c_732160; -c_732160.hdr.mark = gc_color_red; - c_732160.hdr.grayed = 0; -c_732160.tag = closureN_tag; - c_732160.fn = (function_type)__lambda_147; -c_732160.num_args = 1; -c_732160.num_elements = 6; -c_732160.elements = (object *)alloca(sizeof(object) * 6); -c_732160.elements[0] = ((closureN)self_731269)->elements[0]; -c_732160.elements[1] = ((closureN)self_731269)->elements[1]; -c_732160.elements[2] = ((closureN)self_731269)->elements[2]; -c_732160.elements[3] = ((closureN)self_731269)->elements[3]; -c_732160.elements[4] = ((closureN)self_731269)->elements[4]; -c_732160.elements[5] = ((closureN)self_731269)->elements[5]; - -return_closcall1(data,(closure)&c_732160, NULL); -} else { - return_closcall1(data, ((closureN)self_731269)->elements[2], car(cell_get(((closureN)self_731269)->elements[3])));} -; -} - -static void __lambda_147(void *data, int argc, object self_731270, object r_73571) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731270)->elements[2], ((closureN)self_731270)->elements[1], r_73571, cell_get(((closureN)self_731270)->elements[3]), ((closureN)self_731270)->elements[0], boolean_f, ((closureN)self_731270)->elements[4], ((closureN)self_731270)->elements[5]);; -} - -static void __lambda_146(void *data, int argc, object self_731271, object k_73578) { - -closureN_type c_732104; -c_732104.hdr.mark = gc_color_red; - c_732104.hdr.grayed = 0; -c_732104.tag = closureN_tag; - c_732104.fn = (function_type)__lambda_145; -c_732104.num_args = 1; -c_732104.num_elements = 3; -c_732104.elements = (object *)alloca(sizeof(object) * 3); -c_732104.elements[0] = k_73578; -c_732104.elements[1] = ((closureN)self_731271)->elements[0]; -c_732104.elements[2] = ((closureN)self_731271)->elements[1]; - -return_closcall1(data,(closure)&c_732104, Cyc_is_eof_object(cell_get(((closureN)self_731271)->elements[0])));; -} - -static void __lambda_145(void *data, int argc, object self_731272, object r_73579) { - if( (boolean_f != r_73579) ){ - -closureN_type c_732106; -c_732106.hdr.mark = gc_color_red; - c_732106.hdr.grayed = 0; -c_732106.tag = closureN_tag; - c_732106.fn = (function_type)__lambda_141; -c_732106.num_args = 0; -c_732106.num_elements = 2; -c_732106.elements = (object *)alloca(sizeof(object) * 2); -c_732106.elements[0] = ((closureN)self_731272)->elements[0]; -c_732106.elements[1] = ((closureN)self_731272)->elements[2]; - -return_closcall0(data,(closure)&c_732106); -} else { - -closureN_type c_732118; -c_732118.hdr.mark = gc_color_red; - c_732118.hdr.grayed = 0; -c_732118.tag = closureN_tag; - c_732118.fn = (function_type)__lambda_144; -c_732118.num_args = 1; -c_732118.num_elements = 3; -c_732118.elements = (object *)alloca(sizeof(object) * 3); -c_732118.elements[0] = ((closureN)self_731272)->elements[0]; -c_732118.elements[1] = ((closureN)self_731272)->elements[1]; -c_732118.elements[2] = ((closureN)self_731272)->elements[2]; - -return_closcall1(data,(closure)&c_732118, equalp(cell_get(((closureN)self_731272)->elements[1]), obj_char2obj(64)));} -; -} - -static void __lambda_144(void *data, int argc, object self_731273, object r_73582) { - if( (boolean_f != r_73582) ){ - -closureN_type c_732120; -c_732120.hdr.mark = gc_color_red; - c_732120.hdr.grayed = 0; -c_732120.tag = closureN_tag; - c_732120.fn = (function_type)__lambda_142; -c_732120.num_args = 0; -c_732120.num_elements = 1; -c_732120.elements = (object *)alloca(sizeof(object) * 1); -c_732120.elements[0] = ((closureN)self_731273)->elements[0]; - -return_closcall0(data,(closure)&c_732120); -} else { - -closureN_type c_732124; -c_732124.hdr.mark = gc_color_red; - c_732124.hdr.grayed = 0; -c_732124.tag = closureN_tag; - c_732124.fn = (function_type)__lambda_143; -c_732124.num_args = 0; -c_732124.num_elements = 3; -c_732124.elements = (object *)alloca(sizeof(object) * 3); -c_732124.elements[0] = ((closureN)self_731273)->elements[0]; -c_732124.elements[1] = ((closureN)self_731273)->elements[1]; -c_732124.elements[2] = ((closureN)self_731273)->elements[2]; - -return_closcall0(data,(closure)&c_732124);} -; -} - -static void __lambda_143(void *data, int argc, object self_731274) { - return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, ((closureN)self_731274)->elements[0], ((closureN)self_731274)->elements[2], cell_get(((closureN)self_731274)->elements[1]));; -} - -static void __lambda_142(void *data, int argc, object self_731275) { - return_closcall1(data, ((closureN)self_731275)->elements[0], boolean_f);; -} - -static void __lambda_141(void *data, int argc, object self_731276) { - -closureN_type c_732108; -c_732108.hdr.mark = gc_color_red; - c_732108.hdr.grayed = 0; -c_732108.tag = closureN_tag; - c_732108.fn = (function_type)__lambda_140; -c_732108.num_args = 1; -c_732108.num_elements = 2; -c_732108.elements = (object *)alloca(sizeof(object) * 2); -c_732108.elements[0] = ((closureN)self_731276)->elements[0]; -c_732108.elements[1] = ((closureN)self_731276)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732108, ((closureN)self_731276)->elements[1]);; -} - -static void __lambda_140(void *data, int argc, object self_731277, object r_73580) { - -closureN_type c_732110; -c_732110.hdr.mark = gc_color_red; - c_732110.hdr.grayed = 0; -c_732110.tag = closureN_tag; - c_732110.fn = (function_type)__lambda_139; -c_732110.num_args = 1; -c_732110.num_elements = 2; -c_732110.elements = (object *)alloca(sizeof(object) * 2); -c_732110.elements[0] = ((closureN)self_731277)->elements[0]; -c_732110.elements[1] = r_73580; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732110, ((closureN)self_731277)->elements[1]);; -} - -static void __lambda_139(void *data, int argc, object self_731278, object r_73581) { - -make_string(c_732113, "unexpected end of file"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731278)->elements[0], &c_732113, ((closureN)self_731278)->elements[1], r_73581);; -} - -static void __lambda_138(void *data, int argc, object self_731279, object k_73584) { - -closureN_type c_732086; -c_732086.hdr.mark = gc_color_red; - c_732086.hdr.grayed = 0; -c_732086.tag = closureN_tag; - c_732086.fn = (function_type)__lambda_137; -c_732086.num_args = 1; -c_732086.num_elements = 1; -c_732086.elements = (object *)alloca(sizeof(object) * 1); -c_732086.elements[0] = k_73584; - -return_closcall1(data,(closure)&c_732086, equalp(cell_get(((closureN)self_731279)->elements[0]), obj_char2obj(64)));; -} - -static void __lambda_137(void *data, int argc, object self_731280, object r_73585) { - if( (boolean_f != r_73585) ){ - return_closcall1(data, ((closureN)self_731280)->elements[0], quote_unquote_91splicing); -} else { - return_closcall1(data, ((closureN)self_731280)->elements[0], quote_unquote);} -; -} - -static void __lambda_136(void *data, int argc, object self_731281) { - -closureN_type c_732052; -c_732052.hdr.mark = gc_color_red; - c_732052.hdr.grayed = 0; -c_732052.tag = closureN_tag; - c_732052.fn = (function_type)__lambda_135; -c_732052.num_args = 1; -c_732052.num_elements = 3; -c_732052.elements = (object *)alloca(sizeof(object) * 3); -c_732052.elements[0] = ((closureN)self_731281)->elements[1]; -c_732052.elements[1] = ((closureN)self_731281)->elements[3]; -c_732052.elements[2] = ((closureN)self_731281)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732052, ((closureN)self_731281)->elements[2], ((closureN)self_731281)->elements[0]);; -} - -static void __lambda_135(void *data, int argc, object self_731282, object r_73561) { - -closureN_type c_732054; -c_732054.hdr.mark = gc_color_red; - c_732054.hdr.grayed = 0; -c_732054.tag = closureN_tag; - c_732054.fn = (function_type)__lambda_134; -c_732054.num_args = 1; -c_732054.num_elements = 2; -c_732054.elements = (object *)alloca(sizeof(object) * 2); -c_732054.elements[0] = ((closureN)self_731282)->elements[0]; -c_732054.elements[1] = ((closureN)self_731282)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732054, ((closureN)self_731282)->elements[1]);; -} - -static void __lambda_134(void *data, int argc, object self_731283, object r_73563) { - -closureN_type c_732056; -c_732056.hdr.mark = gc_color_red; - c_732056.hdr.grayed = 0; -c_732056.tag = closureN_tag; - c_732056.fn = (function_type)__lambda_133; -c_732056.num_args = 1; -c_732056.num_elements = 1; -c_732056.elements = (object *)alloca(sizeof(object) * 1); -c_732056.elements[0] = ((closureN)self_731283)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732056, r_73563, ((closureN)self_731283)->elements[1]);; -} - -static void __lambda_133(void *data, int argc, object self_731284, object r_73562) { - return_closcall1(data, ((closureN)self_731284)->elements[0], car(r_73562));; -} - -static void __lambda_132(void *data, int argc, object self_731285, object k_73587) { - if( (boolean_f != ((closureN)self_731285)->elements[0]) ){ - return_closcall1(data, k_73587, boolean_f); -} else { - -closureN_type c_732042; -c_732042.hdr.mark = gc_color_red; - c_732042.hdr.grayed = 0; -c_732042.tag = closureN_tag; - c_732042.fn = (function_type)__lambda_131; -c_732042.num_args = 1; -c_732042.num_elements = 1; -c_732042.elements = (object *)alloca(sizeof(object) * 1); -c_732042.elements[0] = k_73587; - -return_closcall1(data,(closure)&c_732042, Cyc_is_null(((closureN)self_731285)->elements[1]));} -; -} - -static void __lambda_131(void *data, int argc, object self_731286, object r_73588) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731286)->elements[0], r_73588);; -} - -static void __lambda_130(void *data, int argc, object self_731287) { - -closureN_type c_731952; -c_731952.hdr.mark = gc_color_red; - c_731952.hdr.grayed = 0; -c_731952.tag = closureN_tag; - c_731952.fn = (function_type)__lambda_112; -c_731952.num_args = 0; -c_731952.num_elements = 2; -c_731952.elements = (object *)alloca(sizeof(object) * 2); -c_731952.elements[0] = ((closureN)self_731287)->elements[0]; -c_731952.elements[1] = ((closureN)self_731287)->elements[6]; - - -closureN_type c_731962; -c_731962.hdr.mark = gc_color_red; - c_731962.hdr.grayed = 0; -c_731962.tag = closureN_tag; - c_731962.fn = (function_type)__lambda_129; -c_731962.num_args = 1; -c_731962.num_elements = 8; -c_731962.elements = (object *)alloca(sizeof(object) * 8); -c_731962.elements[0] = ((closureN)self_731287)->elements[0]; -c_731962.elements[1] = ((closureN)self_731287)->elements[1]; -c_731962.elements[2] = ((closureN)self_731287)->elements[2]; -c_731962.elements[3] = ((closureN)self_731287)->elements[3]; -c_731962.elements[4] = ((closureN)self_731287)->elements[4]; -c_731962.elements[5] = ((closureN)self_731287)->elements[5]; -c_731962.elements[6] = ((closureN)self_731287)->elements[6]; -c_731962.elements[7] = ((closureN)self_731287)->elements[7]; - -return_closcall1(data,(closure)&c_731952, &c_731962);; -} - -static void __lambda_129(void *data, int argc, object self_731288, object r_73544) { - if( (boolean_f != r_73544) ){ - -closureN_type c_731964; -c_731964.hdr.mark = gc_color_red; - c_731964.hdr.grayed = 0; -c_731964.tag = closureN_tag; - c_731964.fn = (function_type)__lambda_116; -c_731964.num_args = 0; -c_731964.num_elements = 5; -c_731964.elements = (object *)alloca(sizeof(object) * 5); -c_731964.elements[0] = ((closureN)self_731288)->elements[1]; -c_731964.elements[1] = ((closureN)self_731288)->elements[3]; -c_731964.elements[2] = ((closureN)self_731288)->elements[5]; -c_731964.elements[3] = ((closureN)self_731288)->elements[6]; -c_731964.elements[4] = ((closureN)self_731288)->elements[7]; - -return_closcall0(data,(closure)&c_731964); -} else { - -closureN_type c_731980; -c_731980.hdr.mark = gc_color_red; - c_731980.hdr.grayed = 0; -c_731980.tag = closureN_tag; - c_731980.fn = (function_type)__lambda_128; -c_731980.num_args = 0; -c_731980.num_elements = 7; -c_731980.elements = (object *)alloca(sizeof(object) * 7); -c_731980.elements[0] = ((closureN)self_731288)->elements[0]; -c_731980.elements[1] = ((closureN)self_731288)->elements[2]; -c_731980.elements[2] = ((closureN)self_731288)->elements[3]; -c_731980.elements[3] = ((closureN)self_731288)->elements[4]; -c_731980.elements[4] = ((closureN)self_731288)->elements[5]; -c_731980.elements[5] = ((closureN)self_731288)->elements[6]; -c_731980.elements[6] = ((closureN)self_731288)->elements[7]; - -return_closcall0(data,(closure)&c_731980);} -; -} - -static void __lambda_128(void *data, int argc, object self_731289) { - -closureN_type c_731982; -c_731982.hdr.mark = gc_color_red; - c_731982.hdr.grayed = 0; -c_731982.tag = closureN_tag; - c_731982.fn = (function_type)__lambda_127; -c_731982.num_args = 1; -c_731982.num_elements = 7; -c_731982.elements = (object *)alloca(sizeof(object) * 7); -c_731982.elements[0] = ((closureN)self_731289)->elements[0]; -c_731982.elements[1] = ((closureN)self_731289)->elements[1]; -c_731982.elements[2] = ((closureN)self_731289)->elements[2]; -c_731982.elements[3] = ((closureN)self_731289)->elements[3]; -c_731982.elements[4] = ((closureN)self_731289)->elements[4]; -c_731982.elements[5] = ((closureN)self_731289)->elements[5]; -c_731982.elements[6] = ((closureN)self_731289)->elements[6]; - -return_closcall1(data,(closure)&c_731982, NULL);; -} - -static void __lambda_127(void *data, int argc, object self_731290, object r_73555) { - -closureN_type c_731984; -c_731984.hdr.mark = gc_color_red; - c_731984.hdr.grayed = 0; -c_731984.tag = closureN_tag; - c_731984.fn = (function_type)__lambda_126; -c_731984.num_args = 1; -c_731984.num_elements = 8; -c_731984.elements = (object *)alloca(sizeof(object) * 8); -c_731984.elements[0] = ((closureN)self_731290)->elements[0]; -c_731984.elements[1] = ((closureN)self_731290)->elements[1]; -c_731984.elements[2] = ((closureN)self_731290)->elements[2]; -c_731984.elements[3] = ((closureN)self_731290)->elements[3]; -c_731984.elements[4] = ((closureN)self_731290)->elements[4]; -c_731984.elements[5] = r_73555; -c_731984.elements[6] = ((closureN)self_731290)->elements[5]; -c_731984.elements[7] = ((closureN)self_731290)->elements[6]; - -return_closcall1(data,(closure)&c_731984, NULL);; -} - -static void __lambda_126(void *data, int argc, object self_731291, object r_73556) { - -closureN_type c_731986; -c_731986.hdr.mark = gc_color_red; - c_731986.hdr.grayed = 0; -c_731986.tag = closureN_tag; - c_731986.fn = (function_type)__lambda_125; -c_731986.num_args = 1; -c_731986.num_elements = 7; -c_731986.elements = (object *)alloca(sizeof(object) * 7); -c_731986.elements[0] = ((closureN)self_731291)->elements[0]; -c_731986.elements[1] = ((closureN)self_731291)->elements[1]; -c_731986.elements[2] = ((closureN)self_731291)->elements[2]; -c_731986.elements[3] = ((closureN)self_731291)->elements[3]; -c_731986.elements[4] = ((closureN)self_731291)->elements[4]; -c_731986.elements[5] = ((closureN)self_731291)->elements[6]; -c_731986.elements[6] = ((closureN)self_731291)->elements[7]; - -return_closcall8(data, __glo_parse_scheme_read, &c_731986, ((closureN)self_731291)->elements[1], ((closureN)self_731291)->elements[5], r_73556, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731291)->elements[4]);; -} - -static void __lambda_125(void *data, int argc, object self_731292, object sub_73228) { - -closureN_type c_731988; -c_731988.hdr.mark = gc_color_red; - c_731988.hdr.grayed = 0; -c_731988.tag = closureN_tag; - c_731988.fn = (function_type)__lambda_124; -c_731988.num_args = 1; -c_731988.num_elements = 8; -c_731988.elements = (object *)alloca(sizeof(object) * 8); -c_731988.elements[0] = ((closureN)self_731292)->elements[0]; -c_731988.elements[1] = ((closureN)self_731292)->elements[1]; -c_731988.elements[2] = ((closureN)self_731292)->elements[2]; -c_731988.elements[3] = ((closureN)self_731292)->elements[3]; -c_731988.elements[4] = ((closureN)self_731292)->elements[4]; -c_731988.elements[5] = sub_73228; -c_731988.elements[6] = ((closureN)self_731292)->elements[5]; -c_731988.elements[7] = ((closureN)self_731292)->elements[6]; - -return_closcall1(data,(closure)&c_731988, boolean_f);; -} - -static void __lambda_124(void *data, int argc, object self_731293, object new_91toks_73229) { - -closureN_type c_731990; -c_731990.hdr.mark = gc_color_red; - c_731990.hdr.grayed = 0; -c_731990.tag = closureN_tag; - c_731990.fn = (function_type)__lambda_123; -c_731990.num_args = 1; -c_731990.num_elements = 8; -c_731990.elements = (object *)alloca(sizeof(object) * 8); -c_731990.elements[0] = ((closureN)self_731293)->elements[0]; -c_731990.elements[1] = ((closureN)self_731293)->elements[1]; -c_731990.elements[2] = ((closureN)self_731293)->elements[2]; -c_731990.elements[3] = ((closureN)self_731293)->elements[3]; -c_731990.elements[4] = ((closureN)self_731293)->elements[4]; -c_731990.elements[5] = ((closureN)self_731293)->elements[5]; -c_731990.elements[6] = ((closureN)self_731293)->elements[6]; -c_731990.elements[7] = ((closureN)self_731293)->elements[7]; - - -make_cell(c_732029,new_91toks_73229); -return_closcall1(data,(closure)&c_731990, &c_732029);; -} - -static void __lambda_123(void *data, int argc, object self_731294, object new_91toks_73229) { - -closureN_type c_731992; -c_731992.hdr.mark = gc_color_red; - c_731992.hdr.grayed = 0; -c_731992.tag = closureN_tag; - c_731992.fn = (function_type)__lambda_122; -c_731992.num_args = 1; -c_731992.num_elements = 9; -c_731992.elements = (object *)alloca(sizeof(object) * 9); -c_731992.elements[0] = ((closureN)self_731294)->elements[0]; -c_731992.elements[1] = ((closureN)self_731294)->elements[1]; -c_731992.elements[2] = ((closureN)self_731294)->elements[2]; -c_731992.elements[3] = new_91toks_73229; -c_731992.elements[4] = ((closureN)self_731294)->elements[3]; -c_731992.elements[5] = ((closureN)self_731294)->elements[4]; -c_731992.elements[6] = ((closureN)self_731294)->elements[5]; -c_731992.elements[7] = ((closureN)self_731294)->elements[6]; -c_731992.elements[8] = ((closureN)self_731294)->elements[7]; - -return_closcall1(data,(closure)&c_731992, quote_quasiquote);; -} - -static void __lambda_122(void *data, int argc, object self_731295, object r_73554) { - -closureN_type c_731994; -c_731994.hdr.mark = gc_color_red; - c_731994.hdr.grayed = 0; -c_731994.tag = closureN_tag; - c_731994.fn = (function_type)__lambda_121; -c_731994.num_args = 1; -c_731994.num_elements = 8; -c_731994.elements = (object *)alloca(sizeof(object) * 8); -c_731994.elements[0] = ((closureN)self_731295)->elements[0]; -c_731994.elements[1] = ((closureN)self_731295)->elements[1]; -c_731994.elements[2] = ((closureN)self_731295)->elements[2]; -c_731994.elements[3] = ((closureN)self_731295)->elements[3]; -c_731994.elements[4] = ((closureN)self_731295)->elements[4]; -c_731994.elements[5] = ((closureN)self_731295)->elements[5]; -c_731994.elements[6] = ((closureN)self_731295)->elements[7]; -c_731994.elements[7] = ((closureN)self_731295)->elements[8]; - -return_closcall3(data, __glo__list_scheme_base, &c_731994, r_73554, ((closureN)self_731295)->elements[6]);; -} - -static void __lambda_121(void *data, int argc, object self_731296, object r_73552) { - -closureN_type c_731996; -c_731996.hdr.mark = gc_color_red; - c_731996.hdr.grayed = 0; -c_731996.tag = closureN_tag; - c_731996.fn = (function_type)__lambda_120; -c_731996.num_args = 1; -c_731996.num_elements = 7; -c_731996.elements = (object *)alloca(sizeof(object) * 7); -c_731996.elements[0] = ((closureN)self_731296)->elements[0]; -c_731996.elements[1] = ((closureN)self_731296)->elements[1]; -c_731996.elements[2] = ((closureN)self_731296)->elements[2]; -c_731996.elements[3] = ((closureN)self_731296)->elements[3]; -c_731996.elements[4] = ((closureN)self_731296)->elements[4]; -c_731996.elements[5] = ((closureN)self_731296)->elements[5]; -c_731996.elements[6] = r_73552; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731996, ((closureN)self_731296)->elements[6], ((closureN)self_731296)->elements[7]);; -} - -static void __lambda_120(void *data, int argc, object self_731297, object r_73553) { - -closureN_type c_731998; -c_731998.hdr.mark = gc_color_red; - c_731998.hdr.grayed = 0; -c_731998.tag = closureN_tag; - c_731998.fn = (function_type)__lambda_119; -c_731998.num_args = 1; -c_731998.num_elements = 6; -c_731998.elements = (object *)alloca(sizeof(object) * 6); -c_731998.elements[0] = ((closureN)self_731297)->elements[0]; -c_731998.elements[1] = ((closureN)self_731297)->elements[1]; -c_731998.elements[2] = ((closureN)self_731297)->elements[2]; -c_731998.elements[3] = ((closureN)self_731297)->elements[3]; -c_731998.elements[4] = ((closureN)self_731297)->elements[4]; -c_731998.elements[5] = ((closureN)self_731297)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731998, ((closureN)self_731297)->elements[6], r_73553);; -} - -static void __lambda_119(void *data, int argc, object self_731298, object r_73551) { - -closureN_type c_732000; -c_732000.hdr.mark = gc_color_red; - c_732000.hdr.grayed = 0; -c_732000.tag = closureN_tag; - c_732000.fn = (function_type)__lambda_118; -c_732000.num_args = 1; -c_732000.num_elements = 6; -c_732000.elements = (object *)alloca(sizeof(object) * 6); -c_732000.elements[0] = ((closureN)self_731298)->elements[0]; -c_732000.elements[1] = ((closureN)self_731298)->elements[1]; -c_732000.elements[2] = ((closureN)self_731298)->elements[2]; -c_732000.elements[3] = ((closureN)self_731298)->elements[3]; -c_732000.elements[4] = ((closureN)self_731298)->elements[4]; -c_732000.elements[5] = ((closureN)self_731298)->elements[5]; - -return_closcall1(data,(closure)&c_732000, Cyc_set_car(data, ((closureN)self_731298)->elements[3], r_73551));; -} - -static void __lambda_118(void *data, int argc, object self_731299, object r_73549) { - if( (boolean_f != ((closureN)self_731299)->elements[0]) ){ - -closureN_type c_732003; -c_732003.hdr.mark = gc_color_red; - c_732003.hdr.grayed = 0; -c_732003.tag = closureN_tag; - c_732003.fn = (function_type)__lambda_117; -c_732003.num_args = 1; -c_732003.num_elements = 6; -c_732003.elements = (object *)alloca(sizeof(object) * 6); -c_732003.elements[0] = ((closureN)self_731299)->elements[0]; -c_732003.elements[1] = ((closureN)self_731299)->elements[1]; -c_732003.elements[2] = ((closureN)self_731299)->elements[2]; -c_732003.elements[3] = ((closureN)self_731299)->elements[3]; -c_732003.elements[4] = ((closureN)self_731299)->elements[4]; -c_732003.elements[5] = ((closureN)self_731299)->elements[5]; - -return_closcall1(data,(closure)&c_732003, NULL); -} else { - return_closcall1(data, ((closureN)self_731299)->elements[2], car(cell_get(((closureN)self_731299)->elements[3])));} -; -} - -static void __lambda_117(void *data, int argc, object self_731300, object r_73550) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731300)->elements[2], ((closureN)self_731300)->elements[1], r_73550, cell_get(((closureN)self_731300)->elements[3]), ((closureN)self_731300)->elements[0], boolean_f, ((closureN)self_731300)->elements[4], ((closureN)self_731300)->elements[5]);; -} - -static void __lambda_116(void *data, int argc, object self_731301) { - -closureN_type c_731966; -c_731966.hdr.mark = gc_color_red; - c_731966.hdr.grayed = 0; -c_731966.tag = closureN_tag; - c_731966.fn = (function_type)__lambda_115; -c_731966.num_args = 1; -c_731966.num_elements = 3; -c_731966.elements = (object *)alloca(sizeof(object) * 3); -c_731966.elements[0] = ((closureN)self_731301)->elements[1]; -c_731966.elements[1] = ((closureN)self_731301)->elements[3]; -c_731966.elements[2] = ((closureN)self_731301)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731966, ((closureN)self_731301)->elements[2], ((closureN)self_731301)->elements[0]);; -} - -static void __lambda_115(void *data, int argc, object self_731302, object r_73545) { - -closureN_type c_731968; -c_731968.hdr.mark = gc_color_red; - c_731968.hdr.grayed = 0; -c_731968.tag = closureN_tag; - c_731968.fn = (function_type)__lambda_114; -c_731968.num_args = 1; -c_731968.num_elements = 2; -c_731968.elements = (object *)alloca(sizeof(object) * 2); -c_731968.elements[0] = ((closureN)self_731302)->elements[0]; -c_731968.elements[1] = ((closureN)self_731302)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731968, ((closureN)self_731302)->elements[1]);; -} - -static void __lambda_114(void *data, int argc, object self_731303, object r_73547) { - -closureN_type c_731970; -c_731970.hdr.mark = gc_color_red; - c_731970.hdr.grayed = 0; -c_731970.tag = closureN_tag; - c_731970.fn = (function_type)__lambda_113; -c_731970.num_args = 1; -c_731970.num_elements = 1; -c_731970.elements = (object *)alloca(sizeof(object) * 1); -c_731970.elements[0] = ((closureN)self_731303)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731970, r_73547, ((closureN)self_731303)->elements[1]);; -} - -static void __lambda_113(void *data, int argc, object self_731304, object r_73546) { - return_closcall1(data, ((closureN)self_731304)->elements[0], car(r_73546));; -} - -static void __lambda_112(void *data, int argc, object self_731305, object k_73557) { - if( (boolean_f != ((closureN)self_731305)->elements[0]) ){ - return_closcall1(data, k_73557, boolean_f); -} else { - -closureN_type c_731956; -c_731956.hdr.mark = gc_color_red; - c_731956.hdr.grayed = 0; -c_731956.tag = closureN_tag; - c_731956.fn = (function_type)__lambda_111; -c_731956.num_args = 1; -c_731956.num_elements = 1; -c_731956.elements = (object *)alloca(sizeof(object) * 1); -c_731956.elements[0] = k_73557; - -return_closcall1(data,(closure)&c_731956, Cyc_is_null(((closureN)self_731305)->elements[1]));} -; -} - -static void __lambda_111(void *data, int argc, object self_731306, object r_73558) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731306)->elements[0], r_73558);; -} - -static void __lambda_110(void *data, int argc, object self_731307) { - -closureN_type c_731866; -c_731866.hdr.mark = gc_color_red; - c_731866.hdr.grayed = 0; -c_731866.tag = closureN_tag; - c_731866.fn = (function_type)__lambda_92; -c_731866.num_args = 0; -c_731866.num_elements = 2; -c_731866.elements = (object *)alloca(sizeof(object) * 2); -c_731866.elements[0] = ((closureN)self_731307)->elements[0]; -c_731866.elements[1] = ((closureN)self_731307)->elements[6]; - - -closureN_type c_731876; -c_731876.hdr.mark = gc_color_red; - c_731876.hdr.grayed = 0; -c_731876.tag = closureN_tag; - c_731876.fn = (function_type)__lambda_109; -c_731876.num_args = 1; -c_731876.num_elements = 8; -c_731876.elements = (object *)alloca(sizeof(object) * 8); -c_731876.elements[0] = ((closureN)self_731307)->elements[0]; -c_731876.elements[1] = ((closureN)self_731307)->elements[1]; -c_731876.elements[2] = ((closureN)self_731307)->elements[2]; -c_731876.elements[3] = ((closureN)self_731307)->elements[3]; -c_731876.elements[4] = ((closureN)self_731307)->elements[4]; -c_731876.elements[5] = ((closureN)self_731307)->elements[5]; -c_731876.elements[6] = ((closureN)self_731307)->elements[6]; -c_731876.elements[7] = ((closureN)self_731307)->elements[7]; - -return_closcall1(data,(closure)&c_731866, &c_731876);; -} - -static void __lambda_109(void *data, int argc, object self_731308, object r_73528) { - if( (boolean_f != r_73528) ){ - -closureN_type c_731878; -c_731878.hdr.mark = gc_color_red; - c_731878.hdr.grayed = 0; -c_731878.tag = closureN_tag; - c_731878.fn = (function_type)__lambda_96; -c_731878.num_args = 0; -c_731878.num_elements = 5; -c_731878.elements = (object *)alloca(sizeof(object) * 5); -c_731878.elements[0] = ((closureN)self_731308)->elements[1]; -c_731878.elements[1] = ((closureN)self_731308)->elements[3]; -c_731878.elements[2] = ((closureN)self_731308)->elements[5]; -c_731878.elements[3] = ((closureN)self_731308)->elements[6]; -c_731878.elements[4] = ((closureN)self_731308)->elements[7]; - -return_closcall0(data,(closure)&c_731878); -} else { - -closureN_type c_731894; -c_731894.hdr.mark = gc_color_red; - c_731894.hdr.grayed = 0; -c_731894.tag = closureN_tag; - c_731894.fn = (function_type)__lambda_108; -c_731894.num_args = 0; -c_731894.num_elements = 7; -c_731894.elements = (object *)alloca(sizeof(object) * 7); -c_731894.elements[0] = ((closureN)self_731308)->elements[0]; -c_731894.elements[1] = ((closureN)self_731308)->elements[2]; -c_731894.elements[2] = ((closureN)self_731308)->elements[3]; -c_731894.elements[3] = ((closureN)self_731308)->elements[4]; -c_731894.elements[4] = ((closureN)self_731308)->elements[5]; -c_731894.elements[5] = ((closureN)self_731308)->elements[6]; -c_731894.elements[6] = ((closureN)self_731308)->elements[7]; - -return_closcall0(data,(closure)&c_731894);} -; -} - -static void __lambda_108(void *data, int argc, object self_731309) { - -closureN_type c_731896; -c_731896.hdr.mark = gc_color_red; - c_731896.hdr.grayed = 0; -c_731896.tag = closureN_tag; - c_731896.fn = (function_type)__lambda_107; -c_731896.num_args = 1; -c_731896.num_elements = 7; -c_731896.elements = (object *)alloca(sizeof(object) * 7); -c_731896.elements[0] = ((closureN)self_731309)->elements[0]; -c_731896.elements[1] = ((closureN)self_731309)->elements[1]; -c_731896.elements[2] = ((closureN)self_731309)->elements[2]; -c_731896.elements[3] = ((closureN)self_731309)->elements[3]; -c_731896.elements[4] = ((closureN)self_731309)->elements[4]; -c_731896.elements[5] = ((closureN)self_731309)->elements[5]; -c_731896.elements[6] = ((closureN)self_731309)->elements[6]; - -return_closcall1(data,(closure)&c_731896, NULL);; -} - -static void __lambda_107(void *data, int argc, object self_731310, object r_73539) { - -closureN_type c_731898; -c_731898.hdr.mark = gc_color_red; - c_731898.hdr.grayed = 0; -c_731898.tag = closureN_tag; - c_731898.fn = (function_type)__lambda_106; -c_731898.num_args = 1; -c_731898.num_elements = 8; -c_731898.elements = (object *)alloca(sizeof(object) * 8); -c_731898.elements[0] = ((closureN)self_731310)->elements[0]; -c_731898.elements[1] = ((closureN)self_731310)->elements[1]; -c_731898.elements[2] = ((closureN)self_731310)->elements[2]; -c_731898.elements[3] = ((closureN)self_731310)->elements[3]; -c_731898.elements[4] = ((closureN)self_731310)->elements[4]; -c_731898.elements[5] = r_73539; -c_731898.elements[6] = ((closureN)self_731310)->elements[5]; -c_731898.elements[7] = ((closureN)self_731310)->elements[6]; - -return_closcall1(data,(closure)&c_731898, NULL);; -} - -static void __lambda_106(void *data, int argc, object self_731311, object r_73540) { - -closureN_type c_731900; -c_731900.hdr.mark = gc_color_red; - c_731900.hdr.grayed = 0; -c_731900.tag = closureN_tag; - c_731900.fn = (function_type)__lambda_105; -c_731900.num_args = 1; -c_731900.num_elements = 7; -c_731900.elements = (object *)alloca(sizeof(object) * 7); -c_731900.elements[0] = ((closureN)self_731311)->elements[0]; -c_731900.elements[1] = ((closureN)self_731311)->elements[1]; -c_731900.elements[2] = ((closureN)self_731311)->elements[2]; -c_731900.elements[3] = ((closureN)self_731311)->elements[3]; -c_731900.elements[4] = ((closureN)self_731311)->elements[4]; -c_731900.elements[5] = ((closureN)self_731311)->elements[6]; -c_731900.elements[6] = ((closureN)self_731311)->elements[7]; - -return_closcall8(data, __glo_parse_scheme_read, &c_731900, ((closureN)self_731311)->elements[1], ((closureN)self_731311)->elements[5], r_73540, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731311)->elements[4]);; -} - -static void __lambda_105(void *data, int argc, object self_731312, object sub_73230) { - -closureN_type c_731902; -c_731902.hdr.mark = gc_color_red; - c_731902.hdr.grayed = 0; -c_731902.tag = closureN_tag; - c_731902.fn = (function_type)__lambda_104; -c_731902.num_args = 1; -c_731902.num_elements = 8; -c_731902.elements = (object *)alloca(sizeof(object) * 8); -c_731902.elements[0] = ((closureN)self_731312)->elements[0]; -c_731902.elements[1] = ((closureN)self_731312)->elements[1]; -c_731902.elements[2] = ((closureN)self_731312)->elements[2]; -c_731902.elements[3] = ((closureN)self_731312)->elements[3]; -c_731902.elements[4] = ((closureN)self_731312)->elements[4]; -c_731902.elements[5] = sub_73230; -c_731902.elements[6] = ((closureN)self_731312)->elements[5]; -c_731902.elements[7] = ((closureN)self_731312)->elements[6]; - -return_closcall1(data,(closure)&c_731902, boolean_f);; -} - -static void __lambda_104(void *data, int argc, object self_731313, object new_91toks_73231) { - -closureN_type c_731904; -c_731904.hdr.mark = gc_color_red; - c_731904.hdr.grayed = 0; -c_731904.tag = closureN_tag; - c_731904.fn = (function_type)__lambda_103; -c_731904.num_args = 1; -c_731904.num_elements = 8; -c_731904.elements = (object *)alloca(sizeof(object) * 8); -c_731904.elements[0] = ((closureN)self_731313)->elements[0]; -c_731904.elements[1] = ((closureN)self_731313)->elements[1]; -c_731904.elements[2] = ((closureN)self_731313)->elements[2]; -c_731904.elements[3] = ((closureN)self_731313)->elements[3]; -c_731904.elements[4] = ((closureN)self_731313)->elements[4]; -c_731904.elements[5] = ((closureN)self_731313)->elements[5]; -c_731904.elements[6] = ((closureN)self_731313)->elements[6]; -c_731904.elements[7] = ((closureN)self_731313)->elements[7]; - - -make_cell(c_731943,new_91toks_73231); -return_closcall1(data,(closure)&c_731904, &c_731943);; -} - -static void __lambda_103(void *data, int argc, object self_731314, object new_91toks_73231) { - -closureN_type c_731906; -c_731906.hdr.mark = gc_color_red; - c_731906.hdr.grayed = 0; -c_731906.tag = closureN_tag; - c_731906.fn = (function_type)__lambda_102; -c_731906.num_args = 1; -c_731906.num_elements = 9; -c_731906.elements = (object *)alloca(sizeof(object) * 9); -c_731906.elements[0] = ((closureN)self_731314)->elements[0]; -c_731906.elements[1] = ((closureN)self_731314)->elements[1]; -c_731906.elements[2] = ((closureN)self_731314)->elements[2]; -c_731906.elements[3] = new_91toks_73231; -c_731906.elements[4] = ((closureN)self_731314)->elements[3]; -c_731906.elements[5] = ((closureN)self_731314)->elements[4]; -c_731906.elements[6] = ((closureN)self_731314)->elements[5]; -c_731906.elements[7] = ((closureN)self_731314)->elements[6]; -c_731906.elements[8] = ((closureN)self_731314)->elements[7]; - -return_closcall1(data,(closure)&c_731906, quote_quote);; -} - -static void __lambda_102(void *data, int argc, object self_731315, object r_73538) { - -closureN_type c_731908; -c_731908.hdr.mark = gc_color_red; - c_731908.hdr.grayed = 0; -c_731908.tag = closureN_tag; - c_731908.fn = (function_type)__lambda_101; -c_731908.num_args = 1; -c_731908.num_elements = 8; -c_731908.elements = (object *)alloca(sizeof(object) * 8); -c_731908.elements[0] = ((closureN)self_731315)->elements[0]; -c_731908.elements[1] = ((closureN)self_731315)->elements[1]; -c_731908.elements[2] = ((closureN)self_731315)->elements[2]; -c_731908.elements[3] = ((closureN)self_731315)->elements[3]; -c_731908.elements[4] = ((closureN)self_731315)->elements[4]; -c_731908.elements[5] = ((closureN)self_731315)->elements[5]; -c_731908.elements[6] = ((closureN)self_731315)->elements[7]; -c_731908.elements[7] = ((closureN)self_731315)->elements[8]; - -return_closcall3(data, __glo__list_scheme_base, &c_731908, r_73538, ((closureN)self_731315)->elements[6]);; -} - -static void __lambda_101(void *data, int argc, object self_731316, object r_73536) { - -closureN_type c_731910; -c_731910.hdr.mark = gc_color_red; - c_731910.hdr.grayed = 0; -c_731910.tag = closureN_tag; - c_731910.fn = (function_type)__lambda_100; -c_731910.num_args = 1; -c_731910.num_elements = 7; -c_731910.elements = (object *)alloca(sizeof(object) * 7); -c_731910.elements[0] = ((closureN)self_731316)->elements[0]; -c_731910.elements[1] = ((closureN)self_731316)->elements[1]; -c_731910.elements[2] = ((closureN)self_731316)->elements[2]; -c_731910.elements[3] = ((closureN)self_731316)->elements[3]; -c_731910.elements[4] = ((closureN)self_731316)->elements[4]; -c_731910.elements[5] = ((closureN)self_731316)->elements[5]; -c_731910.elements[6] = r_73536; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731910, ((closureN)self_731316)->elements[6], ((closureN)self_731316)->elements[7]);; -} - -static void __lambda_100(void *data, int argc, object self_731317, object r_73537) { - -closureN_type c_731912; -c_731912.hdr.mark = gc_color_red; - c_731912.hdr.grayed = 0; -c_731912.tag = closureN_tag; - c_731912.fn = (function_type)__lambda_99; -c_731912.num_args = 1; -c_731912.num_elements = 6; -c_731912.elements = (object *)alloca(sizeof(object) * 6); -c_731912.elements[0] = ((closureN)self_731317)->elements[0]; -c_731912.elements[1] = ((closureN)self_731317)->elements[1]; -c_731912.elements[2] = ((closureN)self_731317)->elements[2]; -c_731912.elements[3] = ((closureN)self_731317)->elements[3]; -c_731912.elements[4] = ((closureN)self_731317)->elements[4]; -c_731912.elements[5] = ((closureN)self_731317)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731912, ((closureN)self_731317)->elements[6], r_73537);; -} - -static void __lambda_99(void *data, int argc, object self_731318, object r_73535) { - -closureN_type c_731914; -c_731914.hdr.mark = gc_color_red; - c_731914.hdr.grayed = 0; -c_731914.tag = closureN_tag; - c_731914.fn = (function_type)__lambda_98; -c_731914.num_args = 1; -c_731914.num_elements = 6; -c_731914.elements = (object *)alloca(sizeof(object) * 6); -c_731914.elements[0] = ((closureN)self_731318)->elements[0]; -c_731914.elements[1] = ((closureN)self_731318)->elements[1]; -c_731914.elements[2] = ((closureN)self_731318)->elements[2]; -c_731914.elements[3] = ((closureN)self_731318)->elements[3]; -c_731914.elements[4] = ((closureN)self_731318)->elements[4]; -c_731914.elements[5] = ((closureN)self_731318)->elements[5]; - -return_closcall1(data,(closure)&c_731914, Cyc_set_car(data, ((closureN)self_731318)->elements[3], r_73535));; -} - -static void __lambda_98(void *data, int argc, object self_731319, object r_73533) { - if( (boolean_f != ((closureN)self_731319)->elements[0]) ){ - -closureN_type c_731917; -c_731917.hdr.mark = gc_color_red; - c_731917.hdr.grayed = 0; -c_731917.tag = closureN_tag; - c_731917.fn = (function_type)__lambda_97; -c_731917.num_args = 1; -c_731917.num_elements = 6; -c_731917.elements = (object *)alloca(sizeof(object) * 6); -c_731917.elements[0] = ((closureN)self_731319)->elements[0]; -c_731917.elements[1] = ((closureN)self_731319)->elements[1]; -c_731917.elements[2] = ((closureN)self_731319)->elements[2]; -c_731917.elements[3] = ((closureN)self_731319)->elements[3]; -c_731917.elements[4] = ((closureN)self_731319)->elements[4]; -c_731917.elements[5] = ((closureN)self_731319)->elements[5]; - -return_closcall1(data,(closure)&c_731917, NULL); -} else { - return_closcall1(data, ((closureN)self_731319)->elements[2], car(cell_get(((closureN)self_731319)->elements[3])));} -; -} - -static void __lambda_97(void *data, int argc, object self_731320, object r_73534) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731320)->elements[2], ((closureN)self_731320)->elements[1], r_73534, cell_get(((closureN)self_731320)->elements[3]), ((closureN)self_731320)->elements[0], boolean_f, ((closureN)self_731320)->elements[4], ((closureN)self_731320)->elements[5]);; -} - -static void __lambda_96(void *data, int argc, object self_731321) { - -closureN_type c_731880; -c_731880.hdr.mark = gc_color_red; - c_731880.hdr.grayed = 0; -c_731880.tag = closureN_tag; - c_731880.fn = (function_type)__lambda_95; -c_731880.num_args = 1; -c_731880.num_elements = 3; -c_731880.elements = (object *)alloca(sizeof(object) * 3); -c_731880.elements[0] = ((closureN)self_731321)->elements[1]; -c_731880.elements[1] = ((closureN)self_731321)->elements[3]; -c_731880.elements[2] = ((closureN)self_731321)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731880, ((closureN)self_731321)->elements[2], ((closureN)self_731321)->elements[0]);; -} - -static void __lambda_95(void *data, int argc, object self_731322, object r_73529) { - -closureN_type c_731882; -c_731882.hdr.mark = gc_color_red; - c_731882.hdr.grayed = 0; -c_731882.tag = closureN_tag; - c_731882.fn = (function_type)__lambda_94; -c_731882.num_args = 1; -c_731882.num_elements = 2; -c_731882.elements = (object *)alloca(sizeof(object) * 2); -c_731882.elements[0] = ((closureN)self_731322)->elements[0]; -c_731882.elements[1] = ((closureN)self_731322)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731882, ((closureN)self_731322)->elements[1]);; -} - -static void __lambda_94(void *data, int argc, object self_731323, object r_73531) { - -closureN_type c_731884; -c_731884.hdr.mark = gc_color_red; - c_731884.hdr.grayed = 0; -c_731884.tag = closureN_tag; - c_731884.fn = (function_type)__lambda_93; -c_731884.num_args = 1; -c_731884.num_elements = 1; -c_731884.elements = (object *)alloca(sizeof(object) * 1); -c_731884.elements[0] = ((closureN)self_731323)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731884, r_73531, ((closureN)self_731323)->elements[1]);; -} - -static void __lambda_93(void *data, int argc, object self_731324, object r_73530) { - return_closcall1(data, ((closureN)self_731324)->elements[0], car(r_73530));; -} - -static void __lambda_92(void *data, int argc, object self_731325, object k_73541) { - if( (boolean_f != ((closureN)self_731325)->elements[0]) ){ - return_closcall1(data, k_73541, boolean_f); -} else { - -closureN_type c_731870; -c_731870.hdr.mark = gc_color_red; - c_731870.hdr.grayed = 0; -c_731870.tag = closureN_tag; - c_731870.fn = (function_type)__lambda_91; -c_731870.num_args = 1; -c_731870.num_elements = 1; -c_731870.elements = (object *)alloca(sizeof(object) * 1); -c_731870.elements[0] = k_73541; - -return_closcall1(data,(closure)&c_731870, Cyc_is_null(((closureN)self_731325)->elements[1]));} -; -} - -static void __lambda_91(void *data, int argc, object self_731326, object r_73542) { - return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731326)->elements[0], r_73542);; -} - -static void __lambda_90(void *data, int argc, object self_731327) { - return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731327)->elements[3], ((closureN)self_731327)->elements[2], ((closureN)self_731327)->elements[6], ((closureN)self_731327)->elements[7], ((closureN)self_731327)->elements[0], boolean_t, ((closureN)self_731327)->elements[4], ((closureN)self_731327)->elements[5], ((closureN)self_731327)->elements[1]);; -} - -static void __lambda_89(void *data, int argc, object self_731328) { - -closureN_type c_731806; -c_731806.hdr.mark = gc_color_red; - c_731806.hdr.grayed = 0; -c_731806.tag = closureN_tag; - c_731806.fn = (function_type)__lambda_84; -c_731806.num_args = 0; -c_731806.num_elements = 2; -c_731806.elements = (object *)alloca(sizeof(object) * 2); -c_731806.elements[0] = ((closureN)self_731328)->elements[1]; -c_731806.elements[1] = ((closureN)self_731328)->elements[5]; - - -closureN_type c_731825; -c_731825.hdr.mark = gc_color_red; - c_731825.hdr.grayed = 0; -c_731825.tag = closureN_tag; - c_731825.fn = (function_type)__lambda_88; -c_731825.num_args = 1; -c_731825.num_elements = 8; -c_731825.elements = (object *)alloca(sizeof(object) * 8); -c_731825.elements[0] = ((closureN)self_731328)->elements[0]; -c_731825.elements[1] = ((closureN)self_731328)->elements[1]; -c_731825.elements[2] = ((closureN)self_731328)->elements[2]; -c_731825.elements[3] = ((closureN)self_731328)->elements[3]; -c_731825.elements[4] = ((closureN)self_731328)->elements[4]; -c_731825.elements[5] = ((closureN)self_731328)->elements[5]; -c_731825.elements[6] = ((closureN)self_731328)->elements[6]; -c_731825.elements[7] = ((closureN)self_731328)->elements[7]; - -return_closcall1(data,(closure)&c_731806, &c_731825);; -} - -static void __lambda_88(void *data, int argc, object self_731329, object r_73518) { - -closureN_type c_731827; -c_731827.hdr.mark = gc_color_red; - c_731827.hdr.grayed = 0; -c_731827.tag = closureN_tag; - c_731827.fn = (function_type)__lambda_86; -c_731827.num_args = 0; -c_731827.num_elements = 2; -c_731827.elements = (object *)alloca(sizeof(object) * 2); -c_731827.elements[0] = ((closureN)self_731329)->elements[1]; -c_731827.elements[1] = ((closureN)self_731329)->elements[5]; - - -closureN_type c_731838; -c_731838.hdr.mark = gc_color_red; - c_731838.hdr.grayed = 0; -c_731838.tag = closureN_tag; - c_731838.fn = (function_type)__lambda_87; -c_731838.num_args = 1; -c_731838.num_elements = 8; -c_731838.elements = (object *)alloca(sizeof(object) * 8); -c_731838.elements[0] = ((closureN)self_731329)->elements[0]; -c_731838.elements[1] = ((closureN)self_731329)->elements[1]; -c_731838.elements[2] = ((closureN)self_731329)->elements[2]; -c_731838.elements[3] = ((closureN)self_731329)->elements[3]; -c_731838.elements[4] = ((closureN)self_731329)->elements[4]; -c_731838.elements[5] = ((closureN)self_731329)->elements[5]; -c_731838.elements[6] = ((closureN)self_731329)->elements[6]; -c_731838.elements[7] = ((closureN)self_731329)->elements[7]; - -return_closcall1(data,(closure)&c_731827, &c_731838);; -} - -static void __lambda_87(void *data, int argc, object self_731330, object r_73519) { - return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731330)->elements[3], ((closureN)self_731330)->elements[2], ((closureN)self_731330)->elements[6], ((closureN)self_731330)->elements[7], ((closureN)self_731330)->elements[0], boolean_f, ((closureN)self_731330)->elements[4], ((closureN)self_731330)->elements[5], ((closureN)self_731330)->elements[1]);; -} - -static void __lambda_86(void *data, int argc, object self_731331, object k_73520) { - -closureN_type c_731829; -c_731829.hdr.mark = gc_color_red; - c_731829.hdr.grayed = 0; -c_731829.tag = closureN_tag; - c_731829.fn = (function_type)__lambda_85; -c_731829.num_args = 1; -c_731829.num_elements = 2; -c_731829.elements = (object *)alloca(sizeof(object) * 2); -c_731829.elements[0] = k_73520; -c_731829.elements[1] = ((closureN)self_731331)->elements[1]; - -return_closcall1(data,(closure)&c_731829, equalp(((closureN)self_731331)->elements[0], obj_char2obj(10)));; -} - -static void __lambda_85(void *data, int argc, object self_731332, object r_73521) { - if( (boolean_f != r_73521) ){ - return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, ((closureN)self_731332)->elements[0], ((closureN)self_731332)->elements[1], obj_int2obj(0)); -} else { - return_closcall1(data, ((closureN)self_731332)->elements[0], boolean_f);} -; -} - -static void __lambda_84(void *data, int argc, object self_731333, object k_73522) { - -closureN_type c_731808; -c_731808.hdr.mark = gc_color_red; - c_731808.hdr.grayed = 0; -c_731808.tag = closureN_tag; - c_731808.fn = (function_type)__lambda_83; -c_731808.num_args = 1; -c_731808.num_elements = 2; -c_731808.elements = (object *)alloca(sizeof(object) * 2); -c_731808.elements[0] = k_73522; -c_731808.elements[1] = ((closureN)self_731333)->elements[1]; - -return_closcall1(data,(closure)&c_731808, equalp(((closureN)self_731333)->elements[0], obj_char2obj(10)));; -} - -static void __lambda_83(void *data, int argc, object self_731334, object r_73523) { - if( (boolean_f != r_73523) ){ - -closureN_type c_731810; -c_731810.hdr.mark = gc_color_red; - c_731810.hdr.grayed = 0; -c_731810.tag = closureN_tag; - c_731810.fn = (function_type)__lambda_82; -c_731810.num_args = 1; -c_731810.num_elements = 2; -c_731810.elements = (object *)alloca(sizeof(object) * 2); -c_731810.elements[0] = ((closureN)self_731334)->elements[0]; -c_731810.elements[1] = ((closureN)self_731334)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731810, ((closureN)self_731334)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731334)->elements[0], boolean_f);} -; -} - -static void __lambda_82(void *data, int argc, object self_731335, object r_73525) { - -closureN_type c_731812; -c_731812.hdr.mark = gc_color_red; - c_731812.hdr.grayed = 0; -c_731812.tag = closureN_tag; - c_731812.fn = (function_type)__lambda_81; -c_731812.num_args = 1; -c_731812.num_elements = 2; -c_731812.elements = (object *)alloca(sizeof(object) * 2); -c_731812.elements[0] = ((closureN)self_731335)->elements[0]; -c_731812.elements[1] = ((closureN)self_731335)->elements[1]; - - -object c_731818 = Cyc_sum(data,(closure)&c_731812,2,obj_int2obj(1), r_73525); -return_closcall1(data,(closure)&c_731812, c_731818);; -} - -static void __lambda_81(void *data, int argc, object self_731336, object r_73524) { - return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, ((closureN)self_731336)->elements[0], ((closureN)self_731336)->elements[1], r_73524);; -} - -static void __lambda_80(void *data, int argc, object self_731337) { - -closureN_type c_731763; -c_731763.hdr.mark = gc_color_red; - c_731763.hdr.grayed = 0; -c_731763.tag = closureN_tag; - c_731763.fn = (function_type)__lambda_79; -c_731763.num_args = 1; -c_731763.num_elements = 6; -c_731763.elements = (object *)alloca(sizeof(object) * 6); -c_731763.elements[0] = ((closureN)self_731337)->elements[0]; -c_731763.elements[1] = ((closureN)self_731337)->elements[2]; -c_731763.elements[2] = ((closureN)self_731337)->elements[3]; -c_731763.elements[3] = ((closureN)self_731337)->elements[4]; -c_731763.elements[4] = ((closureN)self_731337)->elements[5]; -c_731763.elements[5] = ((closureN)self_731337)->elements[6]; - -return_closcall1(data,(closure)&c_731763, Cyc_eq(((closureN)self_731337)->elements[1], obj_char2obj(10)));; -} - -static void __lambda_79(void *data, int argc, object self_731338, object r_73510) { - if( (boolean_f != r_73510) ){ - -closureN_type c_731765; -c_731765.hdr.mark = gc_color_red; - c_731765.hdr.grayed = 0; -c_731765.tag = closureN_tag; - c_731765.fn = (function_type)__lambda_77; -c_731765.num_args = 0; -c_731765.num_elements = 6; -c_731765.elements = (object *)alloca(sizeof(object) * 6); -c_731765.elements[0] = ((closureN)self_731338)->elements[0]; -c_731765.elements[1] = ((closureN)self_731338)->elements[1]; -c_731765.elements[2] = ((closureN)self_731338)->elements[2]; -c_731765.elements[3] = ((closureN)self_731338)->elements[3]; -c_731765.elements[4] = ((closureN)self_731338)->elements[4]; -c_731765.elements[5] = ((closureN)self_731338)->elements[5]; - -return_closcall0(data,(closure)&c_731765); -} else { - -closureN_type c_731790; -c_731790.hdr.mark = gc_color_red; - c_731790.hdr.grayed = 0; -c_731790.tag = closureN_tag; - c_731790.fn = (function_type)__lambda_78; -c_731790.num_args = 1; -c_731790.num_elements = 6; -c_731790.elements = (object *)alloca(sizeof(object) * 6); -c_731790.elements[0] = ((closureN)self_731338)->elements[0]; -c_731790.elements[1] = ((closureN)self_731338)->elements[1]; -c_731790.elements[2] = ((closureN)self_731338)->elements[2]; -c_731790.elements[3] = ((closureN)self_731338)->elements[3]; -c_731790.elements[4] = ((closureN)self_731338)->elements[4]; -c_731790.elements[5] = ((closureN)self_731338)->elements[5]; - -return_closcall1(data,(closure)&c_731790, NULL);} -; -} - -static void __lambda_78(void *data, int argc, object self_731339, object r_73516) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731339)->elements[2], ((closureN)self_731339)->elements[1], r_73516, ((closureN)self_731339)->elements[5], ((closureN)self_731339)->elements[0], boolean_t, ((closureN)self_731339)->elements[3], ((closureN)self_731339)->elements[4]);; -} - -static void __lambda_77(void *data, int argc, object self_731340) { - -closureN_type c_731767; -c_731767.hdr.mark = gc_color_red; - c_731767.hdr.grayed = 0; -c_731767.tag = closureN_tag; - c_731767.fn = (function_type)__lambda_76; -c_731767.num_args = 1; -c_731767.num_elements = 6; -c_731767.elements = (object *)alloca(sizeof(object) * 6); -c_731767.elements[0] = ((closureN)self_731340)->elements[0]; -c_731767.elements[1] = ((closureN)self_731340)->elements[1]; -c_731767.elements[2] = ((closureN)self_731340)->elements[2]; -c_731767.elements[3] = ((closureN)self_731340)->elements[3]; -c_731767.elements[4] = ((closureN)self_731340)->elements[4]; -c_731767.elements[5] = ((closureN)self_731340)->elements[5]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731767, ((closureN)self_731340)->elements[4]);; -} - -static void __lambda_76(void *data, int argc, object self_731341, object r_73515) { - -closureN_type c_731769; -c_731769.hdr.mark = gc_color_red; - c_731769.hdr.grayed = 0; -c_731769.tag = closureN_tag; - c_731769.fn = (function_type)__lambda_75; -c_731769.num_args = 1; -c_731769.num_elements = 6; -c_731769.elements = (object *)alloca(sizeof(object) * 6); -c_731769.elements[0] = ((closureN)self_731341)->elements[0]; -c_731769.elements[1] = ((closureN)self_731341)->elements[1]; -c_731769.elements[2] = ((closureN)self_731341)->elements[2]; -c_731769.elements[3] = ((closureN)self_731341)->elements[3]; -c_731769.elements[4] = ((closureN)self_731341)->elements[4]; -c_731769.elements[5] = ((closureN)self_731341)->elements[5]; - - -object c_731787 = Cyc_sum(data,(closure)&c_731769,2,obj_int2obj(1), r_73515); -return_closcall1(data,(closure)&c_731769, c_731787);; -} - -static void __lambda_75(void *data, int argc, object self_731342, object r_73514) { - -closureN_type c_731771; -c_731771.hdr.mark = gc_color_red; - c_731771.hdr.grayed = 0; -c_731771.tag = closureN_tag; - c_731771.fn = (function_type)__lambda_74; -c_731771.num_args = 1; -c_731771.num_elements = 6; -c_731771.elements = (object *)alloca(sizeof(object) * 6); -c_731771.elements[0] = ((closureN)self_731342)->elements[0]; -c_731771.elements[1] = ((closureN)self_731342)->elements[1]; -c_731771.elements[2] = ((closureN)self_731342)->elements[2]; -c_731771.elements[3] = ((closureN)self_731342)->elements[3]; -c_731771.elements[4] = ((closureN)self_731342)->elements[4]; -c_731771.elements[5] = ((closureN)self_731342)->elements[5]; - -return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, &c_731771, ((closureN)self_731342)->elements[4], r_73514);; -} - -static void __lambda_74(void *data, int argc, object self_731343, object r_73511) { - -closureN_type c_731773; -c_731773.hdr.mark = gc_color_red; - c_731773.hdr.grayed = 0; -c_731773.tag = closureN_tag; - c_731773.fn = (function_type)__lambda_73; -c_731773.num_args = 1; -c_731773.num_elements = 6; -c_731773.elements = (object *)alloca(sizeof(object) * 6); -c_731773.elements[0] = ((closureN)self_731343)->elements[0]; -c_731773.elements[1] = ((closureN)self_731343)->elements[1]; -c_731773.elements[2] = ((closureN)self_731343)->elements[2]; -c_731773.elements[3] = ((closureN)self_731343)->elements[3]; -c_731773.elements[4] = ((closureN)self_731343)->elements[4]; -c_731773.elements[5] = ((closureN)self_731343)->elements[5]; - -return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731773, ((closureN)self_731343)->elements[4], obj_int2obj(0));; -} - -static void __lambda_73(void *data, int argc, object self_731344, object r_73512) { - -closureN_type c_731775; -c_731775.hdr.mark = gc_color_red; - c_731775.hdr.grayed = 0; -c_731775.tag = closureN_tag; - c_731775.fn = (function_type)__lambda_72; -c_731775.num_args = 1; -c_731775.num_elements = 6; -c_731775.elements = (object *)alloca(sizeof(object) * 6); -c_731775.elements[0] = ((closureN)self_731344)->elements[0]; -c_731775.elements[1] = ((closureN)self_731344)->elements[1]; -c_731775.elements[2] = ((closureN)self_731344)->elements[2]; -c_731775.elements[3] = ((closureN)self_731344)->elements[3]; -c_731775.elements[4] = ((closureN)self_731344)->elements[4]; -c_731775.elements[5] = ((closureN)self_731344)->elements[5]; - -return_closcall1(data,(closure)&c_731775, NULL);; -} - -static void __lambda_72(void *data, int argc, object self_731345, object r_73513) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731345)->elements[2], ((closureN)self_731345)->elements[1], r_73513, ((closureN)self_731345)->elements[5], ((closureN)self_731345)->elements[0], boolean_f, ((closureN)self_731345)->elements[3], ((closureN)self_731345)->elements[4]);; -} - -static void __lambda_71(void *data, int argc, object self_731346) { - -closureN_type c_731711; -c_731711.hdr.mark = gc_color_red; - c_731711.hdr.grayed = 0; -c_731711.tag = closureN_tag; - c_731711.fn = (function_type)__lambda_65; -c_731711.num_args = 0; -c_731711.num_elements = 2; -c_731711.elements = (object *)alloca(sizeof(object) * 2); -c_731711.elements[0] = ((closureN)self_731346)->elements[3]; -c_731711.elements[1] = ((closureN)self_731346)->elements[4]; - - -closureN_type c_731730; -c_731730.hdr.mark = gc_color_red; - c_731730.hdr.grayed = 0; -c_731730.tag = closureN_tag; - c_731730.fn = (function_type)__lambda_70; -c_731730.num_args = 1; -c_731730.num_elements = 5; -c_731730.elements = (object *)alloca(sizeof(object) * 5); -c_731730.elements[0] = ((closureN)self_731346)->elements[0]; -c_731730.elements[1] = ((closureN)self_731346)->elements[1]; -c_731730.elements[2] = ((closureN)self_731346)->elements[2]; -c_731730.elements[3] = ((closureN)self_731346)->elements[5]; -c_731730.elements[4] = ((closureN)self_731346)->elements[6]; - -return_closcall1(data,(closure)&c_731711, &c_731730);; -} - -static void __lambda_70(void *data, int argc, object self_731347, object r_73501) { - if( (boolean_f != ((closureN)self_731347)->elements[0]) ){ - -closureN_type c_731733; -c_731733.hdr.mark = gc_color_red; - c_731733.hdr.grayed = 0; -c_731733.tag = closureN_tag; - c_731733.fn = (function_type)__lambda_66; -c_731733.num_args = 1; -c_731733.num_elements = 1; -c_731733.elements = (object *)alloca(sizeof(object) * 1); -c_731733.elements[0] = ((closureN)self_731347)->elements[2]; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731733, ((closureN)self_731347)->elements[3], ((closureN)self_731347)->elements[4]); -} else { - -closureN_type c_731739; -c_731739.hdr.mark = gc_color_red; - c_731739.hdr.grayed = 0; -c_731739.tag = closureN_tag; - c_731739.fn = (function_type)__lambda_69; -c_731739.num_args = 1; -c_731739.num_elements = 2; -c_731739.elements = (object *)alloca(sizeof(object) * 2); -c_731739.elements[0] = ((closureN)self_731347)->elements[1]; -c_731739.elements[1] = ((closureN)self_731347)->elements[2]; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731739, ((closureN)self_731347)->elements[3], ((closureN)self_731347)->elements[4]);} -; -} - -static void __lambda_69(void *data, int argc, object self_731348, object last_73232) { - -closureN_type c_731741; -c_731741.hdr.mark = gc_color_red; - c_731741.hdr.grayed = 0; -c_731741.tag = closureN_tag; - c_731741.fn = (function_type)__lambda_68; -c_731741.num_args = 1; -c_731741.num_elements = 3; -c_731741.elements = (object *)alloca(sizeof(object) * 3); -c_731741.elements[0] = ((closureN)self_731348)->elements[0]; -c_731741.elements[1] = ((closureN)self_731348)->elements[1]; -c_731741.elements[2] = last_73232; - -return_closcall1(data,(closure)&c_731741, Cyc_length(data, last_73232));; -} - -static void __lambda_68(void *data, int argc, object self_731349, object r_73505) { - -closureN_type c_731743; -c_731743.hdr.mark = gc_color_red; - c_731743.hdr.grayed = 0; -c_731743.tag = closureN_tag; - c_731743.fn = (function_type)__lambda_67; -c_731743.num_args = 1; -c_731743.num_elements = 3; -c_731743.elements = (object *)alloca(sizeof(object) * 3); -c_731743.elements[0] = ((closureN)self_731349)->elements[0]; -c_731743.elements[1] = ((closureN)self_731349)->elements[1]; -c_731743.elements[2] = ((closureN)self_731349)->elements[2]; - - -object c_731754 = Cyc_num_gt(data,(closure)&c_731743,2,r_73505, obj_int2obj(0)); -return_closcall1(data,(closure)&c_731743, c_731754);; -} - -static void __lambda_67(void *data, int argc, object self_731350, object r_73504) { - if( (boolean_f != r_73504) ){ - return_closcall1(data, ((closureN)self_731350)->elements[1], car(((closureN)self_731350)->elements[2])); -} else { - return_closcall1(data, ((closureN)self_731350)->elements[1], ((closureN)self_731350)->elements[0]);} -; -} - -static void __lambda_66(void *data, int argc, object self_731351, object r_73502) { - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731351)->elements[0], r_73502);; -} - -static void __lambda_65(void *data, int argc, object self_731352, object k_73506) { - -closureN_type c_731713; -c_731713.hdr.mark = gc_color_red; - c_731713.hdr.grayed = 0; -c_731713.tag = closureN_tag; - c_731713.fn = (function_type)__lambda_64; -c_731713.num_args = 1; -c_731713.num_elements = 2; -c_731713.elements = (object *)alloca(sizeof(object) * 2); -c_731713.elements[0] = k_73506; -c_731713.elements[1] = ((closureN)self_731352)->elements[1]; - - -object c_731728 = Cyc_num_gt(data,(closure)&c_731713,2,((closureN)self_731352)->elements[0], obj_int2obj(0)); -return_closcall1(data,(closure)&c_731713, c_731728);; -} - -static void __lambda_64(void *data, int argc, object self_731353, object r_73507) { - if( (boolean_f != r_73507) ){ - -closureN_type c_731715; -c_731715.hdr.mark = gc_color_red; - c_731715.hdr.grayed = 0; -c_731715.tag = closureN_tag; - c_731715.fn = (function_type)__lambda_63; -c_731715.num_args = 1; -c_731715.num_elements = 2; -c_731715.elements = (object *)alloca(sizeof(object) * 2); -c_731715.elements[0] = ((closureN)self_731353)->elements[0]; -c_731715.elements[1] = ((closureN)self_731353)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731715, ((closureN)self_731353)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731353)->elements[0], boolean_f);} -; -} - -static void __lambda_63(void *data, int argc, object self_731354, object r_73508) { - -closureN_type c_731717; -c_731717.hdr.mark = gc_color_red; - c_731717.hdr.grayed = 0; -c_731717.tag = closureN_tag; - c_731717.fn = (function_type)__lambda_62; -c_731717.num_args = 1; -c_731717.num_elements = 2; -c_731717.elements = (object *)alloca(sizeof(object) * 2); -c_731717.elements[0] = ((closureN)self_731354)->elements[0]; -c_731717.elements[1] = r_73508; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731717, ((closureN)self_731354)->elements[1]);; -} - -static void __lambda_62(void *data, int argc, object self_731355, object r_73509) { - -make_string(c_731720, "missing closing parenthesis"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731355)->elements[0], &c_731720, ((closureN)self_731355)->elements[1], r_73509);; -} - -static void __lambda_61(void *data, int argc, object self_731356, object k_73733) { - -closureN_type c_731694; -c_731694.hdr.mark = gc_color_red; - c_731694.hdr.grayed = 0; -c_731694.tag = closureN_tag; - c_731694.fn = (function_type)__lambda_60; -c_731694.num_args = 1; -c_731694.num_elements = 3; -c_731694.elements = (object *)alloca(sizeof(object) * 3); -c_731694.elements[0] = ((closureN)self_731356)->elements[0]; -c_731694.elements[1] = k_73733; -c_731694.elements[2] = ((closureN)self_731356)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_731694, ((closureN)self_731356)->elements[1]);; -} - -static void __lambda_60(void *data, int argc, object self_731357, object r_73734) { - if( (boolean_f != r_73734) ){ - return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_731357)->elements[1], ((closureN)self_731357)->elements[2]); -} else { - -object c_731702 = Cyc_io_read_char(data, ((closureN)self_731357)->elements[1],((closureN)self_731357)->elements[0]); -return_closcall1(data, ((closureN)self_731357)->elements[1], c_731702);} -; -} - -static void __lambda_59(void *data, int argc, closure _,object k_73739, object fp_73240, object tok_73239, object toks_73238, object all_127_73237, object comment_127_73236, object parens_73235, object ptbl_73234, object curr_91char_73233) { - Cyc_st_add(data, "scheme/read.sld:parse/tok"); - -closureN_type c_731632; -c_731632.hdr.mark = gc_color_red; - c_731632.hdr.grayed = 0; -c_731632.tag = closureN_tag; - c_731632.fn = (function_type)__lambda_58; -c_731632.num_args = 1; -c_731632.num_elements = 9; -c_731632.elements = (object *)alloca(sizeof(object) * 9); -c_731632.elements[0] = all_127_73237; -c_731632.elements[1] = comment_127_73236; -c_731632.elements[2] = curr_91char_73233; -c_731632.elements[3] = fp_73240; -c_731632.elements[4] = k_73739; -c_731632.elements[5] = parens_73235; -c_731632.elements[6] = ptbl_73234; -c_731632.elements[7] = tok_73239; -c_731632.elements[8] = toks_73238; - -return_closcall1(data,(closure)&c_731632, Cyc_is_null(tok_73239));; -} - -static void __lambda_58(void *data, int argc, object self_731358, object r_73740) { - if( (boolean_f != r_73740) ){ - -closureN_type c_731634; -c_731634.hdr.mark = gc_color_red; - c_731634.hdr.grayed = 0; -c_731634.tag = closureN_tag; - c_731634.fn = (function_type)__lambda_49; -c_731634.num_args = 0; -c_731634.num_elements = 7; -c_731634.elements = (object *)alloca(sizeof(object) * 7); -c_731634.elements[0] = ((closureN)self_731358)->elements[0]; -c_731634.elements[1] = ((closureN)self_731358)->elements[1]; -c_731634.elements[2] = ((closureN)self_731358)->elements[3]; -c_731634.elements[3] = ((closureN)self_731358)->elements[4]; -c_731634.elements[4] = ((closureN)self_731358)->elements[5]; -c_731634.elements[5] = ((closureN)self_731358)->elements[6]; -c_731634.elements[6] = ((closureN)self_731358)->elements[8]; - -return_closcall0(data,(closure)&c_731634); -} else { - if( (boolean_f != ((closureN)self_731358)->elements[0]) ){ - -closureN_type c_731647; -c_731647.hdr.mark = gc_color_red; - c_731647.hdr.grayed = 0; -c_731647.tag = closureN_tag; - c_731647.fn = (function_type)__lambda_53; -c_731647.num_args = 0; -c_731647.num_elements = 8; -c_731647.elements = (object *)alloca(sizeof(object) * 8); -c_731647.elements[0] = ((closureN)self_731358)->elements[0]; -c_731647.elements[1] = ((closureN)self_731358)->elements[1]; -c_731647.elements[2] = ((closureN)self_731358)->elements[3]; -c_731647.elements[3] = ((closureN)self_731358)->elements[4]; -c_731647.elements[4] = ((closureN)self_731358)->elements[5]; -c_731647.elements[5] = ((closureN)self_731358)->elements[6]; -c_731647.elements[6] = ((closureN)self_731358)->elements[7]; -c_731647.elements[7] = ((closureN)self_731358)->elements[8]; - -return_closcall0(data,(closure)&c_731647); -} else { - -closureN_type c_731665; -c_731665.hdr.mark = gc_color_red; - c_731665.hdr.grayed = 0; -c_731665.tag = closureN_tag; - c_731665.fn = (function_type)__lambda_57; -c_731665.num_args = 0; -c_731665.num_elements = 5; -c_731665.elements = (object *)alloca(sizeof(object) * 5); -c_731665.elements[0] = ((closureN)self_731358)->elements[2]; -c_731665.elements[1] = ((closureN)self_731358)->elements[4]; -c_731665.elements[2] = ((closureN)self_731358)->elements[6]; -c_731665.elements[3] = ((closureN)self_731358)->elements[7]; -c_731665.elements[4] = ((closureN)self_731358)->elements[8]; - -return_closcall0(data,(closure)&c_731665);} -} -; -} - -static void __lambda_57(void *data, int argc, object self_731359) { - -closureN_type c_731667; -c_731667.hdr.mark = gc_color_red; - c_731667.hdr.grayed = 0; -c_731667.tag = closureN_tag; - c_731667.fn = (function_type)__lambda_56; -c_731667.num_args = 1; -c_731667.num_elements = 3; -c_731667.elements = (object *)alloca(sizeof(object) * 3); -c_731667.elements[0] = ((closureN)self_731359)->elements[1]; -c_731667.elements[1] = ((closureN)self_731359)->elements[3]; -c_731667.elements[2] = ((closureN)self_731359)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731667, ((closureN)self_731359)->elements[2], ((closureN)self_731359)->elements[0]);; -} - -static void __lambda_56(void *data, int argc, object self_731360, object r_73745) { - -closureN_type c_731669; -c_731669.hdr.mark = gc_color_red; - c_731669.hdr.grayed = 0; -c_731669.tag = closureN_tag; - c_731669.fn = (function_type)__lambda_55; -c_731669.num_args = 1; -c_731669.num_elements = 2; -c_731669.elements = (object *)alloca(sizeof(object) * 2); -c_731669.elements[0] = ((closureN)self_731360)->elements[0]; -c_731669.elements[1] = ((closureN)self_731360)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731669, ((closureN)self_731360)->elements[1]);; -} - -static void __lambda_55(void *data, int argc, object self_731361, object r_73747) { - -closureN_type c_731671; -c_731671.hdr.mark = gc_color_red; - c_731671.hdr.grayed = 0; -c_731671.tag = closureN_tag; - c_731671.fn = (function_type)__lambda_54; -c_731671.num_args = 1; -c_731671.num_elements = 1; -c_731671.elements = (object *)alloca(sizeof(object) * 1); -c_731671.elements[0] = ((closureN)self_731361)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731671, r_73747, ((closureN)self_731361)->elements[1]);; -} - -static void __lambda_54(void *data, int argc, object self_731362, object r_73746) { - return_closcall1(data, ((closureN)self_731362)->elements[0], car(r_73746));; -} - -static void __lambda_53(void *data, int argc, object self_731363) { - -closureN_type c_731649; -c_731649.hdr.mark = gc_color_red; - c_731649.hdr.grayed = 0; -c_731649.tag = closureN_tag; - c_731649.fn = (function_type)__lambda_52; -c_731649.num_args = 1; -c_731649.num_elements = 8; -c_731649.elements = (object *)alloca(sizeof(object) * 8); -c_731649.elements[0] = ((closureN)self_731363)->elements[0]; -c_731649.elements[1] = ((closureN)self_731363)->elements[1]; -c_731649.elements[2] = ((closureN)self_731363)->elements[2]; -c_731649.elements[3] = ((closureN)self_731363)->elements[3]; -c_731649.elements[4] = ((closureN)self_731363)->elements[4]; -c_731649.elements[5] = ((closureN)self_731363)->elements[5]; -c_731649.elements[6] = ((closureN)self_731363)->elements[6]; -c_731649.elements[7] = ((closureN)self_731363)->elements[7]; - -return_closcall1(data,(closure)&c_731649, NULL);; -} - -static void __lambda_52(void *data, int argc, object self_731364, object r_73742) { - -closureN_type c_731651; -c_731651.hdr.mark = gc_color_red; - c_731651.hdr.grayed = 0; -c_731651.tag = closureN_tag; - c_731651.fn = (function_type)__lambda_51; -c_731651.num_args = 1; -c_731651.num_elements = 8; -c_731651.elements = (object *)alloca(sizeof(object) * 8); -c_731651.elements[0] = ((closureN)self_731364)->elements[0]; -c_731651.elements[1] = ((closureN)self_731364)->elements[1]; -c_731651.elements[2] = ((closureN)self_731364)->elements[2]; -c_731651.elements[3] = ((closureN)self_731364)->elements[3]; -c_731651.elements[4] = ((closureN)self_731364)->elements[4]; -c_731651.elements[5] = ((closureN)self_731364)->elements[5]; -c_731651.elements[6] = r_73742; -c_731651.elements[7] = ((closureN)self_731364)->elements[7]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731651, ((closureN)self_731364)->elements[6]);; -} - -static void __lambda_51(void *data, int argc, object self_731365, object r_73744) { - -closureN_type c_731653; -c_731653.hdr.mark = gc_color_red; - c_731653.hdr.grayed = 0; -c_731653.tag = closureN_tag; - c_731653.fn = (function_type)__lambda_50; -c_731653.num_args = 1; -c_731653.num_elements = 7; -c_731653.elements = (object *)alloca(sizeof(object) * 7); -c_731653.elements[0] = ((closureN)self_731365)->elements[0]; -c_731653.elements[1] = ((closureN)self_731365)->elements[1]; -c_731653.elements[2] = ((closureN)self_731365)->elements[2]; -c_731653.elements[3] = ((closureN)self_731365)->elements[3]; -c_731653.elements[4] = ((closureN)self_731365)->elements[4]; -c_731653.elements[5] = ((closureN)self_731365)->elements[5]; -c_731653.elements[6] = ((closureN)self_731365)->elements[6]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731653, r_73744, ((closureN)self_731365)->elements[7]);; -} - -static void __lambda_50(void *data, int argc, object self_731366, object r_73743) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731366)->elements[3], ((closureN)self_731366)->elements[2], ((closureN)self_731366)->elements[6], r_73743, ((closureN)self_731366)->elements[0], ((closureN)self_731366)->elements[1], ((closureN)self_731366)->elements[4], ((closureN)self_731366)->elements[5]);; -} - -static void __lambda_49(void *data, int argc, object self_731367) { - -closureN_type c_731636; -c_731636.hdr.mark = gc_color_red; - c_731636.hdr.grayed = 0; -c_731636.tag = closureN_tag; - c_731636.fn = (function_type)__lambda_48; -c_731636.num_args = 1; -c_731636.num_elements = 7; -c_731636.elements = (object *)alloca(sizeof(object) * 7); -c_731636.elements[0] = ((closureN)self_731367)->elements[0]; -c_731636.elements[1] = ((closureN)self_731367)->elements[1]; -c_731636.elements[2] = ((closureN)self_731367)->elements[2]; -c_731636.elements[3] = ((closureN)self_731367)->elements[3]; -c_731636.elements[4] = ((closureN)self_731367)->elements[4]; -c_731636.elements[5] = ((closureN)self_731367)->elements[5]; -c_731636.elements[6] = ((closureN)self_731367)->elements[6]; - -return_closcall1(data,(closure)&c_731636, NULL);; -} - -static void __lambda_48(void *data, int argc, object self_731368, object r_73741) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731368)->elements[3], ((closureN)self_731368)->elements[2], r_73741, ((closureN)self_731368)->elements[6], ((closureN)self_731368)->elements[0], ((closureN)self_731368)->elements[1], ((closureN)self_731368)->elements[4], ((closureN)self_731368)->elements[5]);; -} - -static void __lambda_47(void *data, int argc, closure _,object k_73750, object msg_73243, object lnum_73242, object cnum_73241) { - Cyc_st_add(data, "scheme/read.sld:parse-error"); - -closureN_type c_731608; -c_731608.hdr.mark = gc_color_red; - c_731608.hdr.grayed = 0; -c_731608.tag = closureN_tag; - c_731608.fn = (function_type)__lambda_46; -c_731608.num_args = 1; -c_731608.num_elements = 3; -c_731608.elements = (object *)alloca(sizeof(object) * 3); -c_731608.elements[0] = cnum_73241; -c_731608.elements[1] = k_73750; -c_731608.elements[2] = msg_73243; - - -object c_731629 = Cyc_number2string2(data,(closure)&c_731608,1,lnum_73242); -return_closcall1(data,(closure)&c_731608, c_731629);; -} - -static void __lambda_46(void *data, int argc, object self_731369, object r_73752) { - -closureN_type c_731610; -c_731610.hdr.mark = gc_color_red; - c_731610.hdr.grayed = 0; -c_731610.tag = closureN_tag; - c_731610.fn = (function_type)__lambda_45; -c_731610.num_args = 1; -c_731610.num_elements = 3; -c_731610.elements = (object *)alloca(sizeof(object) * 3); -c_731610.elements[0] = ((closureN)self_731369)->elements[1]; -c_731610.elements[1] = ((closureN)self_731369)->elements[2]; -c_731610.elements[2] = r_73752; - - -object c_731625 = Cyc_number2string2(data,(closure)&c_731610,1,((closureN)self_731369)->elements[0]); -return_closcall1(data,(closure)&c_731610, c_731625);; -} - -static void __lambda_45(void *data, int argc, object self_731370, object r_73753) { - -closureN_type c_731612; -c_731612.hdr.mark = gc_color_red; - c_731612.hdr.grayed = 0; -c_731612.tag = closureN_tag; - c_731612.fn = (function_type)__lambda_44; -c_731612.num_args = 1; -c_731612.num_elements = 1; -c_731612.elements = (object *)alloca(sizeof(object) * 1); -c_731612.elements[0] = ((closureN)self_731370)->elements[0]; - - -make_string(c_731618, "Error (line "); - -make_string(c_731620, ", char "); - -make_string(c_731621, "): "); - -object c_731617 = Cyc_string_append(data,(closure)&c_731612,6,&c_731618, ((closureN)self_731370)->elements[2], &c_731620, r_73753, &c_731621, ((closureN)self_731370)->elements[1]); -return_closcall1(data,(closure)&c_731612, c_731617);; -} - -static void __lambda_44(void *data, int argc, object self_731371, object r_73751) { - return_closcall2(data, __glo_error_scheme_base, ((closureN)self_731371)->elements[0], r_73751);; -} - -static void __lambda_43(void *data, int argc, closure _,object k_73756, object lst_73244) { - Cyc_st_add(data, "scheme/read.sld:->dotted-list"); - -closureN_type c_731557; -c_731557.hdr.mark = gc_color_red; - c_731557.hdr.grayed = 0; -c_731557.tag = closureN_tag; - c_731557.fn = (function_type)__lambda_42; -c_731557.num_args = 1; -c_731557.num_elements = 2; -c_731557.elements = (object *)alloca(sizeof(object) * 2); -c_731557.elements[0] = k_73756; -c_731557.elements[1] = lst_73244; - -return_closcall1(data,(closure)&c_731557, Cyc_is_null(lst_73244));; -} - -static void __lambda_42(void *data, int argc, object self_731372, object r_73757) { - if( (boolean_f != r_73757) ){ - -closureN_type c_731559; -c_731559.hdr.mark = gc_color_red; - c_731559.hdr.grayed = 0; -c_731559.tag = closureN_tag; - c_731559.fn = (function_type)__lambda_33; -c_731559.num_args = 0; -c_731559.num_elements = 1; -c_731559.elements = (object *)alloca(sizeof(object) * 1); -c_731559.elements[0] = ((closureN)self_731372)->elements[0]; - -return_closcall0(data,(closure)&c_731559); -} else { - -closureN_type c_731563; -c_731563.hdr.mark = gc_color_red; - c_731563.hdr.grayed = 0; -c_731563.tag = closureN_tag; - c_731563.fn = (function_type)__lambda_41; -c_731563.num_args = 1; -c_731563.num_elements = 2; -c_731563.elements = (object *)alloca(sizeof(object) * 2); -c_731563.elements[0] = ((closureN)self_731372)->elements[0]; -c_731563.elements[1] = ((closureN)self_731372)->elements[1]; - -return_closcall1(data,(closure)&c_731563, car(((closureN)self_731372)->elements[1]));} -; -} - -static void __lambda_41(void *data, int argc, object self_731373, object r_73762) { - -closureN_type c_731565; -c_731565.hdr.mark = gc_color_red; - c_731565.hdr.grayed = 0; -c_731565.tag = closureN_tag; - c_731565.fn = (function_type)__lambda_40; -c_731565.num_args = 1; -c_731565.num_elements = 3; -c_731565.elements = (object *)alloca(sizeof(object) * 3); -c_731565.elements[0] = ((closureN)self_731373)->elements[0]; -c_731565.elements[1] = ((closureN)self_731373)->elements[1]; -c_731565.elements[2] = r_73762; - - -make_string(c_731600, "."); -return_closcall1(data,(closure)&c_731565, Cyc_string2symbol(data, &c_731600));; -} - -static void __lambda_40(void *data, int argc, object self_731374, object r_73763) { - -closureN_type c_731567; -c_731567.hdr.mark = gc_color_red; - c_731567.hdr.grayed = 0; -c_731567.tag = closureN_tag; - c_731567.fn = (function_type)__lambda_39; -c_731567.num_args = 1; -c_731567.num_elements = 2; -c_731567.elements = (object *)alloca(sizeof(object) * 2); -c_731567.elements[0] = ((closureN)self_731374)->elements[0]; -c_731567.elements[1] = ((closureN)self_731374)->elements[1]; - -return_closcall1(data,(closure)&c_731567, equalp(((closureN)self_731374)->elements[2], r_73763));; -} - -static void __lambda_39(void *data, int argc, object self_731375, object r_73758) { - if( (boolean_f != r_73758) ){ - -closureN_type c_731569; -c_731569.hdr.mark = gc_color_red; - c_731569.hdr.grayed = 0; -c_731569.tag = closureN_tag; - c_731569.fn = (function_type)__lambda_34; -c_731569.num_args = 0; -c_731569.num_elements = 2; -c_731569.elements = (object *)alloca(sizeof(object) * 2); -c_731569.elements[0] = ((closureN)self_731375)->elements[0]; -c_731569.elements[1] = ((closureN)self_731375)->elements[1]; - -return_closcall0(data,(closure)&c_731569); -} else { - -closureN_type c_731576; -c_731576.hdr.mark = gc_color_red; - c_731576.hdr.grayed = 0; -c_731576.tag = closureN_tag; - c_731576.fn = (function_type)__lambda_38; -c_731576.num_args = 0; -c_731576.num_elements = 2; -c_731576.elements = (object *)alloca(sizeof(object) * 2); -c_731576.elements[0] = ((closureN)self_731375)->elements[0]; -c_731576.elements[1] = ((closureN)self_731375)->elements[1]; - -return_closcall0(data,(closure)&c_731576);} -; -} - -static void __lambda_38(void *data, int argc, object self_731376) { - -closureN_type c_731578; -c_731578.hdr.mark = gc_color_red; - c_731578.hdr.grayed = 0; -c_731578.tag = closureN_tag; - c_731578.fn = (function_type)__lambda_37; -c_731578.num_args = 1; -c_731578.num_elements = 2; -c_731578.elements = (object *)alloca(sizeof(object) * 2); -c_731578.elements[0] = ((closureN)self_731376)->elements[0]; -c_731578.elements[1] = ((closureN)self_731376)->elements[1]; - -return_closcall1(data,(closure)&c_731578, car(((closureN)self_731376)->elements[1]));; -} - -static void __lambda_37(void *data, int argc, object self_731377, object r_73759) { - -closureN_type c_731580; -c_731580.hdr.mark = gc_color_red; - c_731580.hdr.grayed = 0; -c_731580.tag = closureN_tag; - c_731580.fn = (function_type)__lambda_36; -c_731580.num_args = 1; -c_731580.num_elements = 2; -c_731580.elements = (object *)alloca(sizeof(object) * 2); -c_731580.elements[0] = ((closureN)self_731377)->elements[0]; -c_731580.elements[1] = r_73759; - -return_closcall1(data,(closure)&c_731580, cdr(((closureN)self_731377)->elements[1]));; -} - -static void __lambda_36(void *data, int argc, object self_731378, object r_73761) { - -closureN_type c_731582; -c_731582.hdr.mark = gc_color_red; - c_731582.hdr.grayed = 0; -c_731582.tag = closureN_tag; - c_731582.fn = (function_type)__lambda_35; -c_731582.num_args = 1; -c_731582.num_elements = 2; -c_731582.elements = (object *)alloca(sizeof(object) * 2); -c_731582.elements[0] = ((closureN)self_731378)->elements[0]; -c_731582.elements[1] = ((closureN)self_731378)->elements[1]; - -return_closcall2(data, __glo__91_125dotted_91list_scheme_read, &c_731582, r_73761);; -} - -static void __lambda_35(void *data, int argc, object self_731379, object r_73760) { - -make_pair(c_731587,((closureN)self_731379)->elements[1], r_73760); -return_closcall1(data, ((closureN)self_731379)->elements[0], &c_731587);; -} - -static void __lambda_34(void *data, int argc, object self_731380) { - return_closcall1(data, ((closureN)self_731380)->elements[0], cadr(((closureN)self_731380)->elements[1]));; -} - -static void __lambda_33(void *data, int argc, object self_731381) { - return_closcall1(data, ((closureN)self_731381)->elements[0], NULL);; -} - -static void __lambda_32(void *data, int argc, closure _,object k_73766, object lst_73245) { - Cyc_st_add(data, "scheme/read.sld:dotted?"); - -closureN_type c_731528; -c_731528.hdr.mark = gc_color_red; - c_731528.hdr.grayed = 0; -c_731528.tag = closureN_tag; - c_731528.fn = (function_type)__lambda_31; -c_731528.num_args = 1; -c_731528.num_elements = 2; -c_731528.elements = (object *)alloca(sizeof(object) * 2); -c_731528.elements[0] = k_73766; -c_731528.elements[1] = lst_73245; - -return_closcall1(data,(closure)&c_731528, Cyc_length(data, lst_73245));; -} - -static void __lambda_31(void *data, int argc, object self_731382, object r_73771) { - -closureN_type c_731530; -c_731530.hdr.mark = gc_color_red; - c_731530.hdr.grayed = 0; -c_731530.tag = closureN_tag; - c_731530.fn = (function_type)__lambda_30; -c_731530.num_args = 1; -c_731530.num_elements = 2; -c_731530.elements = (object *)alloca(sizeof(object) * 2); -c_731530.elements[0] = ((closureN)self_731382)->elements[0]; -c_731530.elements[1] = ((closureN)self_731382)->elements[1]; - - -object c_731552 = Cyc_num_gt(data,(closure)&c_731530,2,r_73771, obj_int2obj(2)); -return_closcall1(data,(closure)&c_731530, c_731552);; -} - -static void __lambda_30(void *data, int argc, object self_731383, object r_73767) { - if( (boolean_f != r_73767) ){ - -closureN_type c_731532; -c_731532.hdr.mark = gc_color_red; - c_731532.hdr.grayed = 0; -c_731532.tag = closureN_tag; - c_731532.fn = (function_type)__lambda_29; -c_731532.num_args = 1; -c_731532.num_elements = 1; -c_731532.elements = (object *)alloca(sizeof(object) * 1); -c_731532.elements[0] = ((closureN)self_731383)->elements[0]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_731532, ((closureN)self_731383)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731383)->elements[0], boolean_f);} -; -} - -static void __lambda_29(void *data, int argc, object self_731384, object r_73770) { - -closureN_type c_731534; -c_731534.hdr.mark = gc_color_red; - c_731534.hdr.grayed = 0; -c_731534.tag = closureN_tag; - c_731534.fn = (function_type)__lambda_28; -c_731534.num_args = 1; -c_731534.num_elements = 1; -c_731534.elements = (object *)alloca(sizeof(object) * 1); -c_731534.elements[0] = ((closureN)self_731384)->elements[0]; - -return_closcall1(data,(closure)&c_731534, cadr(r_73770));; -} - -static void __lambda_28(void *data, int argc, object self_731385, object r_73768) { - -closureN_type c_731536; -c_731536.hdr.mark = gc_color_red; - c_731536.hdr.grayed = 0; -c_731536.tag = closureN_tag; - c_731536.fn = (function_type)__lambda_27; -c_731536.num_args = 1; -c_731536.num_elements = 2; -c_731536.elements = (object *)alloca(sizeof(object) * 2); -c_731536.elements[0] = ((closureN)self_731385)->elements[0]; -c_731536.elements[1] = r_73768; - - -make_string(c_731544, "."); -return_closcall1(data,(closure)&c_731536, Cyc_string2symbol(data, &c_731544));; -} - -static void __lambda_27(void *data, int argc, object self_731386, object r_73769) { - return_closcall1(data, ((closureN)self_731386)->elements[0], equalp(((closureN)self_731386)->elements[1], r_73769));; -} - -static void __lambda_26(void *data, int argc, closure _,object k_73774, object lst_73246) { - Cyc_st_add(data, "scheme/read.sld:->tok"); - -closureN_type c_731523; -c_731523.hdr.mark = gc_color_red; - c_731523.hdr.grayed = 0; -c_731523.tag = closureN_tag; - c_731523.fn = (function_type)__lambda_25; -c_731523.num_args = 1; -c_731523.num_elements = 1; -c_731523.elements = (object *)alloca(sizeof(object) * 1); -c_731523.elements[0] = k_73774; - -return_closcall2(data, __glo_reverse_scheme_base, &c_731523, lst_73246);; -} - -static void __lambda_25(void *data, int argc, object self_731387, object r_73775) { - return_closcall2(data, __glo_parse_91atom_scheme_read, ((closureN)self_731387)->elements[0], r_73775);; -} - -static void __lambda_24(void *data, int argc, closure _,object k_73778, object tok_73248, object toks_73247) { - Cyc_st_add(data, "scheme/read.sld:get-toks"); - -closureN_type c_731509; -c_731509.hdr.mark = gc_color_red; - c_731509.hdr.grayed = 0; -c_731509.tag = closureN_tag; - c_731509.fn = (function_type)__lambda_23; -c_731509.num_args = 1; -c_731509.num_elements = 3; -c_731509.elements = (object *)alloca(sizeof(object) * 3); -c_731509.elements[0] = k_73778; -c_731509.elements[1] = tok_73248; -c_731509.elements[2] = toks_73247; - -return_closcall1(data,(closure)&c_731509, Cyc_is_null(tok_73248));; -} - -static void __lambda_23(void *data, int argc, object self_731388, object r_73779) { - if( (boolean_f != r_73779) ){ - return_closcall1(data, ((closureN)self_731388)->elements[0], ((closureN)self_731388)->elements[2]); -} else { - -closureN_type c_731514; -c_731514.hdr.mark = gc_color_red; - c_731514.hdr.grayed = 0; -c_731514.tag = closureN_tag; - c_731514.fn = (function_type)__lambda_22; -c_731514.num_args = 1; -c_731514.num_elements = 2; -c_731514.elements = (object *)alloca(sizeof(object) * 2); -c_731514.elements[0] = ((closureN)self_731388)->elements[0]; -c_731514.elements[1] = ((closureN)self_731388)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731514, ((closureN)self_731388)->elements[1]);} -; -} - -static void __lambda_22(void *data, int argc, object self_731389, object r_73780) { - return_closcall3(data, __glo_add_91tok_scheme_read, ((closureN)self_731389)->elements[0], r_73780, ((closureN)self_731389)->elements[1]);; -} - -static void __lambda_21(void *data, int argc, closure _,object k_73783, object tok_73250, object toks_73249) { - Cyc_st_add(data, "scheme/read.sld:add-tok"); - -make_pair(c_731506,tok_73250, toks_73249); -return_closcall1(data, k_73783, &c_731506);; -} - -static void __lambda_20(void *data, int argc, closure _,object k_73786, object ptbl_73252, object cnum_73251) { - Cyc_st_add(data, "scheme/read.sld:in-port:set-cnum!"); - -closureN_type c_731494; -c_731494.hdr.mark = gc_color_red; - c_731494.hdr.grayed = 0; -c_731494.tag = closureN_tag; - c_731494.fn = (function_type)__lambda_19; -c_731494.num_args = 1; -c_731494.num_elements = 2; -c_731494.elements = (object *)alloca(sizeof(object) * 2); -c_731494.elements[0] = cnum_73251; -c_731494.elements[1] = k_73786; - -return_closcall1(data,(closure)&c_731494, cdddr(ptbl_73252));; -} - -static void __lambda_19(void *data, int argc, object self_731390, object r_73787) { - return_closcall1(data, ((closureN)self_731390)->elements[1], Cyc_set_car(data, r_73787, ((closureN)self_731390)->elements[0]));; -} - -static void __lambda_18(void *data, int argc, closure _,object k_73790, object ptbl_73253) { - Cyc_st_add(data, "scheme/read.sld:in-port:get-cnum"); -return_closcall1(data, k_73790, cadddr(ptbl_73253));; -} - -static void __lambda_17(void *data, int argc, closure _,object k_73793, object ptbl_73255, object lnum_73254) { - Cyc_st_add(data, "scheme/read.sld:in-port:set-lnum!"); - -closureN_type c_731480; -c_731480.hdr.mark = gc_color_red; - c_731480.hdr.grayed = 0; -c_731480.tag = closureN_tag; - c_731480.fn = (function_type)__lambda_16; -c_731480.num_args = 1; -c_731480.num_elements = 2; -c_731480.elements = (object *)alloca(sizeof(object) * 2); -c_731480.elements[0] = k_73793; -c_731480.elements[1] = lnum_73254; - -return_closcall1(data,(closure)&c_731480, cddr(ptbl_73255));; -} - -static void __lambda_16(void *data, int argc, object self_731391, object r_73794) { - return_closcall1(data, ((closureN)self_731391)->elements[0], Cyc_set_car(data, r_73794, ((closureN)self_731391)->elements[1]));; -} - -static void __lambda_15(void *data, int argc, closure _,object k_73797, object ptbl_73256) { - Cyc_st_add(data, "scheme/read.sld:in-port:get-lnum"); -return_closcall1(data, k_73797, caddr(ptbl_73256));; -} - -static void __lambda_14(void *data, int argc, closure _,object k_73800, object ptbl_73258, object buf_73257) { - Cyc_st_add(data, "scheme/read.sld:in-port:set-buf!"); - -closureN_type c_731466; -c_731466.hdr.mark = gc_color_red; - c_731466.hdr.grayed = 0; -c_731466.tag = closureN_tag; - c_731466.fn = (function_type)__lambda_13; -c_731466.num_args = 1; -c_731466.num_elements = 2; -c_731466.elements = (object *)alloca(sizeof(object) * 2); -c_731466.elements[0] = buf_73257; -c_731466.elements[1] = k_73800; - -return_closcall1(data,(closure)&c_731466, cdr(ptbl_73258));; -} - -static void __lambda_13(void *data, int argc, object self_731392, object r_73801) { - return_closcall1(data, ((closureN)self_731392)->elements[1], Cyc_set_car(data, r_73801, ((closureN)self_731392)->elements[0]));; -} - -static void __lambda_12(void *data, int argc, closure _,object k_73804, object ptbl_73259) { - Cyc_st_add(data, "scheme/read.sld:in-port:get-buf"); -return_closcall1(data, k_73804, cadr(ptbl_73259));; -} - -static void __lambda_11(void *data, int argc, closure _,object k_73807, object ptbl_73260) { - Cyc_st_add(data, "scheme/read.sld:in-port:read-buf!"); - -closureN_type c_731451; -c_731451.hdr.mark = gc_color_red; - c_731451.hdr.grayed = 0; -c_731451.tag = closureN_tag; - c_731451.fn = (function_type)__lambda_10; -c_731451.num_args = 1; -c_731451.num_elements = 2; -c_731451.elements = (object *)alloca(sizeof(object) * 2); -c_731451.elements[0] = k_73807; -c_731451.elements[1] = ptbl_73260; - -return_closcall1(data,(closure)&c_731451, cadr(ptbl_73260));; -} - -static void __lambda_10(void *data, int argc, object self_731393, object result_73261) { - -closureN_type c_731453; -c_731453.hdr.mark = gc_color_red; - c_731453.hdr.grayed = 0; -c_731453.tag = closureN_tag; - c_731453.fn = (function_type)__lambda_9; -c_731453.num_args = 1; -c_731453.num_elements = 2; -c_731453.elements = (object *)alloca(sizeof(object) * 2); -c_731453.elements[0] = ((closureN)self_731393)->elements[0]; -c_731453.elements[1] = result_73261; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731453, ((closureN)self_731393)->elements[1], boolean_f);; -} - -static void __lambda_9(void *data, int argc, object self_731394, object r_73809) { - return_closcall1(data, ((closureN)self_731394)->elements[0], ((closureN)self_731394)->elements[1]);; -} - -static void __lambda_8(void *data, int argc, closure _,object k_73812, object fp_73262) { - Cyc_st_add(data, "scheme/read.sld:reg-port"); - -closureN_type c_731405; -c_731405.hdr.mark = gc_color_red; - c_731405.hdr.grayed = 0; -c_731405.tag = closureN_tag; - c_731405.fn = (function_type)__lambda_7; -c_731405.num_args = 1; -c_731405.num_elements = 2; -c_731405.elements = (object *)alloca(sizeof(object) * 2); -c_731405.elements[0] = fp_73262; -c_731405.elements[1] = k_73812; - -return_closcall1(data,(closure)&c_731405, assoc(data, fp_73262, __glo__85in_91port_91table_85_scheme_read));; -} - -static void __lambda_7(void *data, int argc, object self_731395, object r_73263) { - -closureN_type c_731407; -c_731407.hdr.mark = gc_color_red; - c_731407.hdr.grayed = 0; -c_731407.tag = closureN_tag; - c_731407.fn = (function_type)__lambda_6; -c_731407.num_args = 1; -c_731407.num_elements = 2; -c_731407.elements = (object *)alloca(sizeof(object) * 2); -c_731407.elements[0] = ((closureN)self_731395)->elements[0]; -c_731407.elements[1] = ((closureN)self_731395)->elements[1]; - - -make_cell(c_731446,r_73263); -return_closcall1(data,(closure)&c_731407, &c_731446);; -} - -static void __lambda_6(void *data, int argc, object self_731396, object r_73263) { - if( (boolean_f != cell_get(r_73263)) ){ - -closureN_type c_731411; -c_731411.hdr.mark = gc_color_red; - c_731411.hdr.grayed = 0; -c_731411.tag = closureN_tag; - c_731411.fn = (function_type)__lambda_0; -c_731411.num_args = 0; -c_731411.num_elements = 2; -c_731411.elements = (object *)alloca(sizeof(object) * 2); -c_731411.elements[0] = ((closureN)self_731396)->elements[1]; -c_731411.elements[1] = r_73263; - -return_closcall0(data,(closure)&c_731411); -} else { - -closureN_type c_731418; -c_731418.hdr.mark = gc_color_red; - c_731418.hdr.grayed = 0; -c_731418.tag = closureN_tag; - c_731418.fn = (function_type)__lambda_5; -c_731418.num_args = 0; -c_731418.num_elements = 3; -c_731418.elements = (object *)alloca(sizeof(object) * 3); -c_731418.elements[0] = ((closureN)self_731396)->elements[0]; -c_731418.elements[1] = ((closureN)self_731396)->elements[1]; -c_731418.elements[2] = r_73263; - -return_closcall0(data,(closure)&c_731418);} -; -} - -static void __lambda_5(void *data, int argc, object self_731397) { - -closureN_type c_731420; -c_731420.hdr.mark = gc_color_red; - c_731420.hdr.grayed = 0; -c_731420.tag = closureN_tag; - c_731420.fn = (function_type)__lambda_4; -c_731420.num_args = 1; -c_731420.num_elements = 2; -c_731420.elements = (object *)alloca(sizeof(object) * 2); -c_731420.elements[0] = ((closureN)self_731397)->elements[1]; -c_731420.elements[1] = ((closureN)self_731397)->elements[2]; - -return_closcall5(data, __glo__list_scheme_base, &c_731420, ((closureN)self_731397)->elements[0], boolean_f, obj_int2obj(1), obj_int2obj(0));; -} - -static void __lambda_4(void *data, int argc, object self_731398, object r_73817) { - -closureN_type c_731422; -c_731422.hdr.mark = gc_color_red; - c_731422.hdr.grayed = 0; -c_731422.tag = closureN_tag; - c_731422.fn = (function_type)__lambda_3; -c_731422.num_args = 1; -c_731422.num_elements = 2; -c_731422.elements = (object *)alloca(sizeof(object) * 2); -c_731422.elements[0] = ((closureN)self_731398)->elements[0]; -c_731422.elements[1] = ((closureN)self_731398)->elements[1]; - -return_closcall1(data,(closure)&c_731422, Cyc_set_car(data, ((closureN)self_731398)->elements[1], r_73817));; -} - -static void __lambda_3(void *data, int argc, object self_731399, object r_73814) { - -closureN_type c_731424; -c_731424.hdr.mark = gc_color_red; - c_731424.hdr.grayed = 0; -c_731424.tag = closureN_tag; - c_731424.fn = (function_type)__lambda_2; -c_731424.num_args = 1; -c_731424.num_elements = 2; -c_731424.elements = (object *)alloca(sizeof(object) * 2); -c_731424.elements[0] = ((closureN)self_731399)->elements[0]; -c_731424.elements[1] = ((closureN)self_731399)->elements[1]; - - -make_pair(c_731436,cell_get(((closureN)self_731399)->elements[1]), __glo__85in_91port_91table_85_scheme_read); -return_closcall1(data,(closure)&c_731424, &c_731436);; -} - -static void __lambda_2(void *data, int argc, object self_731400, object r_73816) { - -closureN_type c_731426; -c_731426.hdr.mark = gc_color_red; - c_731426.hdr.grayed = 0; -c_731426.tag = closureN_tag; - c_731426.fn = (function_type)__lambda_1; -c_731426.num_args = 1; -c_731426.num_elements = 2; -c_731426.elements = (object *)alloca(sizeof(object) * 2); -c_731426.elements[0] = ((closureN)self_731400)->elements[0]; -c_731426.elements[1] = ((closureN)self_731400)->elements[1]; - -return_closcall1(data,(closure)&c_731426, global_set(__glo__85in_91port_91table_85_scheme_read, r_73816));; -} - -static void __lambda_1(void *data, int argc, object self_731401, object r_73815) { - return_closcall1(data, ((closureN)self_731401)->elements[0], cell_get(((closureN)self_731401)->elements[1]));; -} - -static void __lambda_0(void *data, int argc, object self_731402) { - return_closcall1(data, ((closureN)self_731402)->elements[0], cell_get(((closureN)self_731402)->elements[1]));; -} - -void c_schemeread_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ - quote_unquote = find_or_add_symbol("unquote"); - quote_unquote_91splicing = find_or_add_symbol("unquote-splicing"); - quote_quasiquote = find_or_add_symbol("quasiquote"); - quote_quote = find_or_add_symbol("quote"); - - add_global((object *) &__glo_lib_91init_117schemeread_scheme_read); - add_global((object *) &__glo_read_91all_scheme_read); - add_global((object *) &__glo_cyc_91read_scheme_read); - add_global((object *) &__glo_hex_91digit_127_scheme_read); - add_global((object *) &__glo_parse_91number_91rec_scheme_read); - add_global((object *) &__glo_parse_91number_scheme_read); - add_global((object *) &__glo_parse_91li_91rec_scheme_read); - add_global((object *) &__glo_parse_91literal_91identifier_scheme_read); - add_global((object *) &__glo_read_91block_91terminator_scheme_read); - add_global((object *) &__glo_read_91block_91comment_scheme_read); - add_global((object *) &__glo_get_91next_91char_scheme_read); - add_global((object *) &__glo_parse_91atom_scheme_read); - add_global((object *) &__glo_token_91numeric_127_scheme_read); - add_global((object *) &__glo_sign_127_scheme_read); - add_global((object *) &__glo_read_91str_91esc_scheme_read); - add_global((object *) &__glo_read_91str_scheme_read); - add_global((object *) &__glo_read_91pound_scheme_read); - add_global((object *) &__glo_parse_scheme_read); - add_global((object *) &__glo_parse_95tok_scheme_read); - add_global((object *) &__glo_parse_91error_scheme_read); - add_global((object *) &__glo__91_125dotted_91list_scheme_read); - add_global((object *) &__glo_dotted_127_scheme_read); - add_global((object *) &__glo__91_125tok_scheme_read); - add_global((object *) &__glo_get_91toks_scheme_read); - add_global((object *) &__glo_add_91tok_scheme_read); - add_global((object *) &__glo_in_91port_117set_91cnum_67_scheme_read); - add_global((object *) &__glo_in_91port_117get_91cnum_scheme_read); - add_global((object *) &__glo_in_91port_117set_91lnum_67_scheme_read); - add_global((object *) &__glo_in_91port_117get_91lnum_scheme_read); - add_global((object *) &__glo_in_91port_117set_91buf_67_scheme_read); - add_global((object *) &__glo_in_91port_117get_91buf_scheme_read); - add_global((object *) &__glo_in_91port_117read_91buf_67_scheme_read); - add_global((object *) &__glo_reg_91port_scheme_read); - add_global((object *) &__glo__85in_91port_91table_85_scheme_read); - add_global((object *) &__glo_read_scheme_read); - add_symbol(quote_unquote); - add_symbol(quote_unquote_91splicing); - add_symbol(quote_quasiquote); - add_symbol(quote_quote); - mclosure0(c_734294, (function_type)__lambda_613);c_734294.num_args = 0; - __glo_lib_91init_117schemeread_scheme_read = &c_734294; - mclosure0(c_734231, (function_type)__lambda_609);c_734231.num_args = 0; - __glo_read_91all_scheme_read = &c_734231; - mclosure0(c_734203, (function_type)__lambda_595);c_734203.num_args = 0; - __glo_cyc_91read_scheme_read = &c_734203; - mclosure0(c_734181, (function_type)__lambda_588);c_734181.num_args = 1; - __glo_hex_91digit_127_scheme_read = &c_734181; - mclosure0(c_734058, (function_type)__lambda_583);c_734058.num_args = 4; - __glo_parse_91number_91rec_scheme_read = &c_734058; - mclosure0(c_733971, (function_type)__lambda_555);c_733971.num_args = 7; - __glo_parse_91number_scheme_read = &c_733971; - mclosure0(c_733900, (function_type)__lambda_537);c_733900.num_args = 3; - __glo_parse_91li_91rec_scheme_read = &c_733900; - mclosure0(c_733874, (function_type)__lambda_520);c_733874.num_args = 5; - __glo_parse_91literal_91identifier_scheme_read = &c_733874; - mclosure0(c_733846, (function_type)__lambda_515);c_733846.num_args = 2; - __glo_read_91block_91terminator_scheme_read = &c_733846; - mclosure0(c_733827, (function_type)__lambda_508);c_733827.num_args = 2; - __glo_read_91block_91comment_scheme_read = &c_733827; - mclosure0(c_733815, (function_type)__lambda_503);c_733815.num_args = 2; - __glo_get_91next_91char_scheme_read = &c_733815; - mclosure0(c_733787, (function_type)__lambda_501);c_733787.num_args = 1; - __glo_parse_91atom_scheme_read = &c_733787; - mclosure0(c_733700, (function_type)__lambda_495);c_733700.num_args = 1; - __glo_token_91numeric_127_scheme_read = &c_733700; - mclosure0(c_733688, (function_type)__lambda_477);c_733688.num_args = 1; - __glo_sign_127_scheme_read = &c_733688; - mclosure0(c_733602, (function_type)__lambda_475);c_733602.num_args = 3; - __glo_read_91str_91esc_scheme_read = &c_733602; - mclosure0(c_733536, (function_type)__lambda_457);c_733536.num_args = 3; - __glo_read_91str_scheme_read = &c_733536; - mclosure0(c_733158, (function_type)__lambda_443);c_733158.num_args = 2; - __glo_read_91pound_scheme_read = &c_733158; - mclosure0(c_731682, (function_type)__lambda_367);c_731682.num_args = 7; - __glo_parse_scheme_read = &c_731682; - mclosure0(c_731630, (function_type)__lambda_59);c_731630.num_args = 8; - __glo_parse_95tok_scheme_read = &c_731630; - mclosure0(c_731606, (function_type)__lambda_47);c_731606.num_args = 3; - __glo_parse_91error_scheme_read = &c_731606; - mclosure0(c_731555, (function_type)__lambda_43);c_731555.num_args = 1; - __glo__91_125dotted_91list_scheme_read = &c_731555; - mclosure0(c_731526, (function_type)__lambda_32);c_731526.num_args = 1; - __glo_dotted_127_scheme_read = &c_731526; - mclosure0(c_731521, (function_type)__lambda_26);c_731521.num_args = 1; - __glo__91_125tok_scheme_read = &c_731521; - mclosure0(c_731507, (function_type)__lambda_24);c_731507.num_args = 2; - __glo_get_91toks_scheme_read = &c_731507; - mclosure0(c_731502, (function_type)__lambda_21);c_731502.num_args = 2; - __glo_add_91tok_scheme_read = &c_731502; - mclosure0(c_731492, (function_type)__lambda_20);c_731492.num_args = 2; - __glo_in_91port_117set_91cnum_67_scheme_read = &c_731492; - mclosure0(c_731488, (function_type)__lambda_18);c_731488.num_args = 1; - __glo_in_91port_117get_91cnum_scheme_read = &c_731488; - mclosure0(c_731478, (function_type)__lambda_17);c_731478.num_args = 2; - __glo_in_91port_117set_91lnum_67_scheme_read = &c_731478; - mclosure0(c_731474, (function_type)__lambda_15);c_731474.num_args = 1; - __glo_in_91port_117get_91lnum_scheme_read = &c_731474; - mclosure0(c_731464, (function_type)__lambda_14);c_731464.num_args = 2; - __glo_in_91port_117set_91buf_67_scheme_read = &c_731464; - mclosure0(c_731460, (function_type)__lambda_12);c_731460.num_args = 1; - __glo_in_91port_117get_91buf_scheme_read = &c_731460; - mclosure0(c_731449, (function_type)__lambda_11);c_731449.num_args = 1; - __glo_in_91port_117read_91buf_67_scheme_read = &c_731449; - mclosure0(c_731403, (function_type)__lambda_8);c_731403.num_args = 1; - __glo_reg_91port_scheme_read = &c_731403; - __glo__85in_91port_91table_85_scheme_read = boolean_f; - __glo_read_scheme_read = boolean_f; - - make_cvar(cvar_734307, (object *)&__glo_lib_91init_117schemeread_scheme_read);make_pair(pair_734308, find_or_add_symbol("lib-init:schemeread"), &cvar_734307); - make_cvar(cvar_734309, (object *)&__glo_read_91all_scheme_read);make_pair(pair_734310, find_or_add_symbol("read-all"), &cvar_734309); - make_cvar(cvar_734311, (object *)&__glo_cyc_91read_scheme_read);make_pair(pair_734312, find_or_add_symbol("cyc-read"), &cvar_734311); - make_cvar(cvar_734313, (object *)&__glo_hex_91digit_127_scheme_read);make_pair(pair_734314, find_or_add_symbol("hex-digit?"), &cvar_734313); - make_cvar(cvar_734315, (object *)&__glo_parse_91number_91rec_scheme_read);make_pair(pair_734316, find_or_add_symbol("parse-number-rec"), &cvar_734315); - make_cvar(cvar_734317, (object *)&__glo_parse_91number_scheme_read);make_pair(pair_734318, find_or_add_symbol("parse-number"), &cvar_734317); - make_cvar(cvar_734319, (object *)&__glo_parse_91li_91rec_scheme_read);make_pair(pair_734320, find_or_add_symbol("parse-li-rec"), &cvar_734319); - make_cvar(cvar_734321, (object *)&__glo_parse_91literal_91identifier_scheme_read);make_pair(pair_734322, find_or_add_symbol("parse-literal-identifier"), &cvar_734321); - make_cvar(cvar_734323, (object *)&__glo_read_91block_91terminator_scheme_read);make_pair(pair_734324, find_or_add_symbol("read-block-terminator"), &cvar_734323); - make_cvar(cvar_734325, (object *)&__glo_read_91block_91comment_scheme_read);make_pair(pair_734326, find_or_add_symbol("read-block-comment"), &cvar_734325); - make_cvar(cvar_734327, (object *)&__glo_get_91next_91char_scheme_read);make_pair(pair_734328, find_or_add_symbol("get-next-char"), &cvar_734327); - make_cvar(cvar_734329, (object *)&__glo_parse_91atom_scheme_read);make_pair(pair_734330, find_or_add_symbol("parse-atom"), &cvar_734329); - make_cvar(cvar_734331, (object *)&__glo_token_91numeric_127_scheme_read);make_pair(pair_734332, find_or_add_symbol("token-numeric?"), &cvar_734331); - make_cvar(cvar_734333, (object *)&__glo_sign_127_scheme_read);make_pair(pair_734334, find_or_add_symbol("sign?"), &cvar_734333); - make_cvar(cvar_734335, (object *)&__glo_read_91str_91esc_scheme_read);make_pair(pair_734336, find_or_add_symbol("read-str-esc"), &cvar_734335); - make_cvar(cvar_734337, (object *)&__glo_read_91str_scheme_read);make_pair(pair_734338, find_or_add_symbol("read-str"), &cvar_734337); - make_cvar(cvar_734339, (object *)&__glo_read_91pound_scheme_read);make_pair(pair_734340, find_or_add_symbol("read-pound"), &cvar_734339); - make_cvar(cvar_734341, (object *)&__glo_parse_scheme_read);make_pair(pair_734342, find_or_add_symbol("parse"), &cvar_734341); - make_cvar(cvar_734343, (object *)&__glo_parse_95tok_scheme_read);make_pair(pair_734344, find_or_add_symbol("parse/tok"), &cvar_734343); - make_cvar(cvar_734345, (object *)&__glo_parse_91error_scheme_read);make_pair(pair_734346, find_or_add_symbol("parse-error"), &cvar_734345); - make_cvar(cvar_734347, (object *)&__glo__91_125dotted_91list_scheme_read);make_pair(pair_734348, find_or_add_symbol("->dotted-list"), &cvar_734347); - make_cvar(cvar_734349, (object *)&__glo_dotted_127_scheme_read);make_pair(pair_734350, find_or_add_symbol("dotted?"), &cvar_734349); - make_cvar(cvar_734351, (object *)&__glo__91_125tok_scheme_read);make_pair(pair_734352, find_or_add_symbol("->tok"), &cvar_734351); - make_cvar(cvar_734353, (object *)&__glo_get_91toks_scheme_read);make_pair(pair_734354, find_or_add_symbol("get-toks"), &cvar_734353); - make_cvar(cvar_734355, (object *)&__glo_add_91tok_scheme_read);make_pair(pair_734356, find_or_add_symbol("add-tok"), &cvar_734355); - make_cvar(cvar_734357, (object *)&__glo_in_91port_117set_91cnum_67_scheme_read);make_pair(pair_734358, find_or_add_symbol("in-port:set-cnum!"), &cvar_734357); - make_cvar(cvar_734359, (object *)&__glo_in_91port_117get_91cnum_scheme_read);make_pair(pair_734360, find_or_add_symbol("in-port:get-cnum"), &cvar_734359); - make_cvar(cvar_734361, (object *)&__glo_in_91port_117set_91lnum_67_scheme_read);make_pair(pair_734362, find_or_add_symbol("in-port:set-lnum!"), &cvar_734361); - make_cvar(cvar_734363, (object *)&__glo_in_91port_117get_91lnum_scheme_read);make_pair(pair_734364, find_or_add_symbol("in-port:get-lnum"), &cvar_734363); - make_cvar(cvar_734365, (object *)&__glo_in_91port_117set_91buf_67_scheme_read);make_pair(pair_734366, find_or_add_symbol("in-port:set-buf!"), &cvar_734365); - make_cvar(cvar_734367, (object *)&__glo_in_91port_117get_91buf_scheme_read);make_pair(pair_734368, find_or_add_symbol("in-port:get-buf"), &cvar_734367); - make_cvar(cvar_734369, (object *)&__glo_in_91port_117read_91buf_67_scheme_read);make_pair(pair_734370, find_or_add_symbol("in-port:read-buf!"), &cvar_734369); - make_cvar(cvar_734371, (object *)&__glo_reg_91port_scheme_read);make_pair(pair_734372, find_or_add_symbol("reg-port"), &cvar_734371); - make_cvar(cvar_734373, (object *)&__glo__85in_91port_91table_85_scheme_read);make_pair(pair_734374, find_or_add_symbol("*in-port-table*"), &cvar_734373); - make_cvar(cvar_734375, (object *)&__glo_read_scheme_read);make_pair(pair_734376, find_or_add_symbol("read"), &cvar_734375); -make_pair(c_734377, &pair_734308,Cyc_global_variables); -make_pair(c_734378, &pair_734310, &c_734377); -make_pair(c_734379, &pair_734312, &c_734378); -make_pair(c_734380, &pair_734314, &c_734379); -make_pair(c_734381, &pair_734316, &c_734380); -make_pair(c_734382, &pair_734318, &c_734381); -make_pair(c_734383, &pair_734320, &c_734382); -make_pair(c_734384, &pair_734322, &c_734383); -make_pair(c_734385, &pair_734324, &c_734384); -make_pair(c_734386, &pair_734326, &c_734385); -make_pair(c_734387, &pair_734328, &c_734386); -make_pair(c_734388, &pair_734330, &c_734387); -make_pair(c_734389, &pair_734332, &c_734388); -make_pair(c_734390, &pair_734334, &c_734389); -make_pair(c_734391, &pair_734336, &c_734390); -make_pair(c_734392, &pair_734338, &c_734391); -make_pair(c_734393, &pair_734340, &c_734392); -make_pair(c_734394, &pair_734342, &c_734393); -make_pair(c_734395, &pair_734344, &c_734394); -make_pair(c_734396, &pair_734346, &c_734395); -make_pair(c_734397, &pair_734348, &c_734396); -make_pair(c_734398, &pair_734350, &c_734397); -make_pair(c_734399, &pair_734352, &c_734398); -make_pair(c_734400, &pair_734354, &c_734399); -make_pair(c_734401, &pair_734356, &c_734400); -make_pair(c_734402, &pair_734358, &c_734401); -make_pair(c_734403, &pair_734360, &c_734402); -make_pair(c_734404, &pair_734362, &c_734403); -make_pair(c_734405, &pair_734364, &c_734404); -make_pair(c_734406, &pair_734366, &c_734405); -make_pair(c_734407, &pair_734368, &c_734406); -make_pair(c_734408, &pair_734370, &c_734407); -make_pair(c_734409, &pair_734372, &c_734408); -make_pair(c_734410, &pair_734374, &c_734409); -make_pair(c_734411, &pair_734376, &c_734410); -Cyc_global_variables = &c_734411; -cont = ((closure1_type *)cont)->element; -(((closure)__glo_lib_91init_117schemeread_scheme_read)->fn)(data, 1, cont, cont); -} diff --git a/debug/read/read.c b/debug/read/read.c deleted file mode 100644 index 0d28b5a0..00000000 --- a/debug/read/read.c +++ /dev/null @@ -1,8922 +0,0 @@ -/** - ** This file was automatically generated by the Cyclone scheme compiler - ** - ** (c) 2014-2016 Justin Ethier - ** Version 0.0.7 (Pre-release) - ** - **/ - -#define closcall1(td, clo,a1) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 0, (closure)(a1), clo); \ -} else { \ - ((clo)->fn)(td, 1, clo,a1);\ -} -#define return_closcall1(td, clo,a1) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[1]; buf[0] = a1;\ - GC(td, clo, buf, 1); \ - return; \ - } else {\ - closcall1(td, (closure) (clo),a1); \ - return;\ - } \ -} - -#define return_direct1(td, _fn,a1) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[1]; buf[0] = a1; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 1); \ - return; \ - } else { \ - (_fn)(td, 1, (closure)_fn,a1); \ - }} - -#define closcall2(td, clo,a1,a2) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 1, (closure)(a1), clo,a2); \ -} else { \ - ((clo)->fn)(td, 2, clo,a1,a2);\ -} -#define return_closcall2(td, clo,a1,a2) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[2]; buf[0] = a1;buf[1] = a2;\ - GC(td, clo, buf, 2); \ - return; \ - } else {\ - closcall2(td, (closure) (clo),a1,a2); \ - return;\ - } \ -} - -#define return_direct2(td, _fn,a1,a2) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[2]; buf[0] = a1;buf[1] = a2; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 2); \ - return; \ - } else { \ - (_fn)(td, 2, (closure)_fn,a1,a2); \ - }} - -#define closcall3(td, clo,a1,a2,a3) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ -} else { \ - ((clo)->fn)(td, 3, clo,a1,a2,a3);\ -} -#define return_closcall3(td, clo,a1,a2,a3) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ - GC(td, clo, buf, 3); \ - return; \ - } else {\ - closcall3(td, (closure) (clo),a1,a2,a3); \ - return;\ - } \ -} - -#define return_direct3(td, _fn,a1,a2,a3) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 3); \ - return; \ - } else { \ - (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ - }} - -#define closcall4(td, clo,a1,a2,a3,a4) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ -} else { \ - ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ -} -#define return_closcall4(td, clo,a1,a2,a3,a4) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ - GC(td, clo, buf, 4); \ - return; \ - } else {\ - closcall4(td, (closure) (clo),a1,a2,a3,a4); \ - return;\ - } \ -} - -#define return_direct4(td, _fn,a1,a2,a3,a4) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 4); \ - return; \ - } else { \ - (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ - }} - -#define closcall5(td, clo,a1,a2,a3,a4,a5) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ -} else { \ - ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ -} -#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ - GC(td, clo, buf, 5); \ - return; \ - } else {\ - closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ - return;\ - } \ -} - -#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 5); \ - return; \ - } else { \ - (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ - }} - -#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \ -} else { \ - ((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\ -} -#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\ - GC(td, clo, buf, 6); \ - return; \ - } else {\ - closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \ - return;\ - } \ -} - -#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 6); \ - return; \ - } else { \ - (_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \ - }} - -#define closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 7, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8); \ -} else { \ - ((clo)->fn)(td, 8, clo,a1,a2,a3,a4,a5,a6,a7,a8);\ -} -#define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\ - GC(td, clo, buf, 8); \ - return; \ - } else {\ - closcall8(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8); \ - return;\ - } \ -} - -#define return_direct8(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 8); \ - return; \ - } else { \ - (_fn)(td, 8, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8); \ - }} - -#define closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) \ -if (type_of(clo) == pair_tag || prim(clo)) { \ - Cyc_apply(td, 8, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9); \ -} else { \ - ((clo)->fn)(td, 9, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9);\ -} -#define return_closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;\ - GC(td, clo, buf, 9); \ - return; \ - } else {\ - closcall9(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9); \ - return;\ - } \ -} - -#define return_direct9(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ - char top; \ - if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ - object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9; \ - mclosure0(c1, _fn); \ - GC(td, &c1, buf, 9); \ - return; \ - } else { \ - (_fn)(td, 9, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9); \ - }} - -#include "cyclone/types.h" -object __glo_lib_91init_117schemeread_scheme_read = NULL; -object __glo_read_91all_scheme_read = NULL; -object __glo_cyc_91read_scheme_read = NULL; -object __glo_hex_91digit_127_scheme_read = NULL; -object __glo_parse_91number_91rec_scheme_read = NULL; -object __glo_parse_91number_scheme_read = NULL; -object __glo_parse_91li_91rec_scheme_read = NULL; -object __glo_parse_91literal_91identifier_scheme_read = NULL; -object __glo_read_91block_91terminator_scheme_read = NULL; -object __glo_read_91block_91comment_scheme_read = NULL; -object __glo_get_91next_91char_scheme_read = NULL; -object __glo_parse_91atom_scheme_read = NULL; -object __glo_token_91numeric_127_scheme_read = NULL; -object __glo_sign_127_scheme_read = NULL; -object __glo_read_91str_91esc_scheme_read = NULL; -object __glo_read_91str_scheme_read = NULL; -object __glo_read_91pound_scheme_read = NULL; -object __glo_parse_scheme_read = NULL; -object __glo_parse_95tok_scheme_read = NULL; -object __glo_parse_91error_scheme_read = NULL; -object __glo__91_125dotted_91list_scheme_read = NULL; -object __glo_dotted_127_scheme_read = NULL; -object __glo__91_125tok_scheme_read = NULL; -object __glo_get_91toks_scheme_read = NULL; -object __glo_add_91tok_scheme_read = NULL; -object __glo_in_91port_117set_91cnum_67_scheme_read = NULL; -object __glo_in_91port_117get_91cnum_scheme_read = NULL; -object __glo_in_91port_117set_91lnum_67_scheme_read = NULL; -object __glo_in_91port_117get_91lnum_scheme_read = NULL; -object __glo_in_91port_117set_91buf_67_scheme_read = NULL; -object __glo_in_91port_117get_91buf_scheme_read = NULL; -object __glo_in_91port_117read_91buf_67_scheme_read = NULL; -object __glo_reg_91port_scheme_read = NULL; -object __glo__85in_91port_91table_85_scheme_read = NULL; -object __glo_read_scheme_read = NULL; -extern object __glo_cons_91source_scheme_base; -extern object __glo_syntax_91rules_scheme_base; -extern object __glo_letrec_85_scheme_base; -extern object __glo_guard_scheme_base; -extern object __glo_guard_91aux_scheme_base; -extern object __glo_define_91record_91type_scheme_base; -extern object __glo_record_127_scheme_base; -extern object __glo_register_91simple_91type_scheme_base; -extern object __glo_make_91type_91predicate_scheme_base; -extern object __glo_make_91constructor_scheme_base; -extern object __glo_make_91getter_scheme_base; -extern object __glo_make_91setter_scheme_base; -extern object __glo_slot_91set_67_scheme_base; -extern object __glo_type_91slot_91offset_scheme_base; -extern object __glo_receive_scheme_base; -extern object __glo_abs_scheme_base; -extern object __glo_max_scheme_base; -extern object __glo_min_scheme_base; -extern object __glo_modulo_scheme_base; -extern object __glo_floor_91remainder_scheme_base; -extern object __glo_even_127_scheme_base; -extern object __glo_exact_91integer_127_scheme_base; -extern object __glo_exact_127_scheme_base; -extern object __glo_inexact_127_scheme_base; -extern object __glo_odd_127_scheme_base; -extern object __glo_complex_127_scheme_base; -extern object __glo_rational_127_scheme_base; -extern object __glo_gcd_scheme_base; -extern object __glo_lcm_scheme_base; -extern object __glo_quotient_scheme_base; -extern object __glo_remainder_scheme_base; -extern object __glo_truncate_91quotient_scheme_base; -extern object __glo_truncate_91remainder_scheme_base; -extern object __glo_truncate_95_scheme_base; -extern object __glo_floor_91quotient_scheme_base; -extern object __glo_floor_91remainder_scheme_base; -extern object __glo_floor_95_scheme_base; -extern object __glo_square_scheme_base; -extern object __glo_expt_scheme_base; -extern object __glo_call_91with_91current_91continuation_scheme_base; -extern object __glo_call_95cc_scheme_base; -extern object __glo_call_91with_91values_scheme_base; -extern object __glo_dynamic_91wind_scheme_base; -extern object __glo_values_scheme_base; -extern object __glo_char_123_127_scheme_base; -extern object __glo_char_121_127_scheme_base; -extern object __glo_char_125_127_scheme_base; -extern object __glo_char_121_123_127_scheme_base; -extern object __glo_char_125_123_127_scheme_base; -extern object __glo_string_123_127_scheme_base; -extern object __glo_string_121_127_scheme_base; -extern object __glo_string_121_123_127_scheme_base; -extern object __glo_string_125_127_scheme_base; -extern object __glo_string_125_123_127_scheme_base; -extern object __glo_foldl_scheme_base; -extern object __glo_foldr_scheme_base; -extern object __glo_not_scheme_base; -extern object __glo_list_127_scheme_base; -extern object __glo_zero_127_scheme_base; -extern object __glo_positive_127_scheme_base; -extern object __glo_negative_127_scheme_base; -extern object __glo_append_scheme_base; -extern object __glo__list_scheme_base; -extern object __glo_make_91list_scheme_base; -extern object __glo_list_91copy_scheme_base; -extern object __glo_map_scheme_base; -extern object __glo_for_91each_scheme_base; -extern object __glo_list_91tail_scheme_base; -extern object __glo_list_91ref_scheme_base; -extern object __glo_list_91set_67_scheme_base; -extern object __glo_reverse_scheme_base; -extern object __glo_boolean_123_127_scheme_base; -extern object __glo_symbol_123_127_scheme_base; -extern object __glo_Cyc_91obj_123_127_scheme_base; -extern object __glo_vector_scheme_base; -extern object __glo_vector_91append_scheme_base; -extern object __glo_vector_91copy_scheme_base; -extern object __glo_vector_91copy_67_scheme_base; -extern object __glo_vector_91fill_67_scheme_base; -extern object __glo_vector_91_125list_scheme_base; -extern object __glo_vector_91_125string_scheme_base; -extern object __glo_vector_91map_scheme_base; -extern object __glo_vector_91for_91each_scheme_base; -extern object __glo_make_91string_scheme_base; -extern object __glo_string_scheme_base; -extern object __glo_string_91copy_scheme_base; -extern object __glo_string_91copy_67_scheme_base; -extern object __glo_string_91fill_67_scheme_base; -extern object __glo_string_91_125list_scheme_base; -extern object __glo_string_91_125vector_scheme_base; -extern object __glo_string_91map_scheme_base; -extern object __glo_string_91for_91each_scheme_base; -extern object __glo_make_91parameter_scheme_base; -extern object __glo_current_91output_91port_scheme_base; -extern object __glo_current_91input_91port_scheme_base; -extern object __glo_current_91error_91port_scheme_base; -extern object __glo_call_91with_91port_scheme_base; -extern object __glo_error_scheme_base; -extern object __glo_raise_scheme_base; -extern object __glo_raise_91continuable_scheme_base; -extern object __glo_with_91exception_91handler_scheme_base; -extern object __glo_Cyc_91add_91exception_91handler_scheme_base; -extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; -extern object __glo_newline_scheme_base; -extern object __glo_write_91char_scheme_base; -extern object __glo_write_91string_scheme_base; -extern object __glo_flush_91output_91port_scheme_base; -extern object __glo_read_91line_scheme_base; -extern object __glo_read_91string_scheme_base; -extern object __glo_input_91port_127_scheme_base; -extern object __glo_output_91port_127_scheme_base; -extern object __glo_input_91port_91open_127_scheme_base; -extern object __glo_output_91port_91open_127_scheme_base; -extern object __glo_features_scheme_base; -extern object __glo_any_scheme_base; -extern object __glo_every_scheme_base; -extern object __glo_and_scheme_base; -extern object __glo_or_scheme_base; -extern object __glo_let_scheme_base; -extern object __glo_let_85_scheme_base; -extern object __glo_letrec_scheme_base; -extern object __glo_begin_scheme_base; -extern object __glo__case_scheme_base; -extern object __glo_cond_scheme_base; -extern object __glo_cond_91expand_scheme_base; -extern object __glo__do_scheme_base; -extern object __glo_when_scheme_base; -extern object __glo_unless_scheme_base; -extern object __glo_quasiquote_scheme_base; -extern object __glo_floor_scheme_base; -extern object __glo_ceiling_scheme_base; -extern object __glo_truncate_scheme_base; -extern object __glo_round_scheme_base; -extern object __glo_exact_scheme_base; -extern object __glo_inexact_scheme_base; -extern object __glo_eof_91object_scheme_base; -extern object __glo_syntax_91error_scheme_base; -extern object __glo_bytevector_91copy_scheme_base; -extern object __glo_utf8_91_125string_scheme_base; -extern object __glo_string_91_125utf8_scheme_base; -extern object __glo_denominator_scheme_base; -extern object __glo_numerator_scheme_base; -extern object __glo_display_scheme_write; -extern object __glo_write_scheme_write; -extern object __glo_char_91alphabetic_127_scheme__char; -extern object __glo_char_91downcase_scheme__char; -extern object __glo_char_91foldcase_scheme__char; -extern object __glo_char_91lower_91case_127_scheme__char; -extern object __glo_char_91numeric_127_scheme__char; -extern object __glo_char_91upcase_scheme__char; -extern object __glo_char_91upper_91case_127_scheme__char; -extern object __glo_char_91whitespace_127_scheme__char; -extern object __glo_char_91ci_121_123_127_scheme__char; -extern object __glo_char_91ci_121_127_scheme__char; -extern object __glo_char_91ci_123_127_scheme__char; -extern object __glo_char_91ci_125_123_127_scheme__char; -extern object __glo_char_91ci_125_127_scheme__char; -extern object __glo_digit_91value_scheme__char; -extern object __glo_string_91upcase_scheme__char; -extern object __glo_string_91downcase_scheme__char; -extern object __glo_string_91foldcase_scheme__char; -extern object __glo_string_91ci_121_123_127_scheme__char; -extern object __glo_string_91ci_121_127_scheme__char; -extern object __glo_string_91ci_123_127_scheme__char; -extern object __glo_string_91ci_125_123_127_scheme__char; -extern object __glo_string_91ci_125_127_scheme__char; -#include "cyclone/runtime.h" -defsymbol(DEBUG); -defsymbol(read); -defsymbol(unquote); -defsymbol(unquote_91splicing); -defsymbol(quasiquote); -defsymbol(quote); -static void __lambda_406(void *data, int argc, closure _,object k_73267) ; -static void __lambda_405(void *data, int argc, object self_73834, object r_73269) ; -static void __lambda_404(void *data, int argc, object self_73835, object r_73270) ; -static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) ; -static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) ; -static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) ; -static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) ; -static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) ; -static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) ; -static void __lambda_397(void *data, int argc, object self_73841, object r_73277) ; -static void __lambda_396(void *data, int argc, object self_73842, object r_73275) ; -static void __lambda_395(void *data, int argc, object self_73843, object r_73276) ; -static void __lambda_394(void *data, int argc, object self_73844, object k_73282) ; -static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) ; -static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) ; -static void __lambda_391(void *data, int argc, object self_73846, object r_73288) ; -static void __lambda_390(void *data, int argc, object self_73847, object r_73289) ; -static void __lambda_389(void *data, int argc, object self_73848, object r_73290) ; -static void __lambda_388(void *data, int argc, object self_73849, object k_73291) ; -static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) ; -static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) ; -static void __lambda_385(void *data, int argc, object self_73851, object r_73297) ; -static void __lambda_384(void *data, int argc, object self_73852, object k_73298) ; -static void __lambda_383(void *data, int argc, object self_73853, object r_73299) ; -static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) ; -static void __lambda_381(void *data, int argc, object self_73854, object r_73303) ; -static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) ; -static void __lambda_379(void *data, int argc, object self_73856, object r_73304) ; -static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) ; -static void __lambda_377(void *data, int argc, object self_73858, object r_73305) ; -static void __lambda_376(void *data, int argc, object self_73859, object r_73307) ; -static void __lambda_375(void *data, int argc, object self_73860, object r_73318) ; -static void __lambda_374(void *data, int argc, object self_73861, object r_73319) ; -static void __lambda_373(void *data, int argc, object self_73862, object k_73320) ; -static void __lambda_372(void *data, int argc, object self_73863, object r_73321) ; -static void __lambda_371(void *data, int argc, object self_73864, object r_73308) ; -static void __lambda_370(void *data, int argc, object self_73865, object k_73309) ; -static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) ; -static void __lambda_368(void *data, int argc, object self_73867, object r_73310) ; -static void __lambda_367(void *data, int argc, object self_73868, object r_73311) ; -static void __lambda_366(void *data, int argc, object self_73869, object r_73312) ; -static void __lambda_365(void *data, int argc, object self_73870, object k_73314) ; -static void __lambda_364(void *data, int argc, object self_73871, object r_73315) ; -static void __lambda_363(void *data, int argc, object self_73872, object k_73316) ; -static void __lambda_362(void *data, int argc, object self_73873, object r_73317) ; -static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) ; -static void __lambda_360(void *data, int argc, object self_73874, object r_73341) ; -static void __lambda_359(void *data, int argc, object self_73875, object num_73143) ; -static void __lambda_358(void *data, int argc, object self_73876, object r_73328) ; -static void __lambda_357(void *data, int argc, object self_73877, object r_73332) ; -static void __lambda_356(void *data, int argc, object self_73878, object r_73333) ; -static void __lambda_355(void *data, int argc, object self_73879, object result_73144) ; -static void __lambda_354(void *data, int argc, object self_73880, object r_73330) ; -static void __lambda_353(void *data, int argc, object self_73881, object k_73334) ; -static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) ; -static void __lambda_351(void *data, int argc, object self_73883, object r_73337) ; -static void __lambda_350(void *data, int argc, object self_73884, object r_73338) ; -static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) ; -static void __lambda_348(void *data, int argc, object self_73885, object r_73345) ; -static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) ; -static void __lambda_346(void *data, int argc, object self_73887, object r_73346) ; -static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) ; -static void __lambda_344(void *data, int argc, object self_73889, object r_73353) ; -static void __lambda_343(void *data, int argc, object self_73890, object r_73354) ; -static void __lambda_342(void *data, int argc, object self_73891, object str_73152) ; -static void __lambda_341(void *data, int argc, object self_73892, object k_73349) ; -static void __lambda_340(void *data, int argc, object self_73893, object r_73351) ; -static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) ; -static void __lambda_338(void *data, int argc, object self_73894, object r_73363) ; -static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) ; -static void __lambda_336(void *data, int argc, object self_73896, object r_73361) ; -static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) ; -static void __lambda_334(void *data, int argc, object self_73897, object c_73161) ; -static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) ; -static void __lambda_332(void *data, int argc, object self_73898, object c_73164) ; -static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) ; -static void __lambda_330(void *data, int argc, object self_73899, object r_73378) ; -static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) ; -static void __lambda_328(void *data, int argc, object self_73900, object r_73382) ; -static void __lambda_327(void *data, int argc, object self_73901, object r_73384) ; -static void __lambda_326(void *data, int argc, object self_73902, object r_73383) ; -static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) ; -static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) ; -static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) ; -static void __lambda_322(void *data, int argc, object self_73905, object r_73390) ; -static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) ; -static void __lambda_320(void *data, int argc, object self_73907, object r_73391) ; -static void __lambda_319(void *data, int argc, object self_73908, object k_73394) ; -static void __lambda_318(void *data, int argc, object self_73909, object k_73398) ; -static void __lambda_317(void *data, int argc, object self_73910, object r_73399) ; -static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) ; -static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) ; -static void __lambda_314(void *data, int argc, object self_73911, object c_73177) ; -static void __lambda_313(void *data, int argc, object self_73912, object r_73416) ; -static void __lambda_312(void *data, int argc, object self_73913, object r_73422) ; -static void __lambda_311(void *data, int argc, object self_73914, object r_73421) ; -static void __lambda_310(void *data, int argc, object self_73915, object r_73418) ; -static void __lambda_309(void *data, int argc, object self_73916, object r_73419) ; -static void __lambda_308(void *data, int argc, object self_73917, object r_73420) ; -static void __lambda_307(void *data, int argc, object self_73918, object k_73424) ; -static void __lambda_306(void *data, int argc, object self_73919, object r_73414) ; -static void __lambda_305(void *data, int argc, object self_73920, object r_73415) ; -static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) ; -static void __lambda_303(void *data, int argc, object self_73921, object c_73182) ; -static void __lambda_302(void *data, int argc, object self_73922, object r_73435) ; -static void __lambda_301(void *data, int argc, object self_73923, object r_73433) ; -static void __lambda_300(void *data, int argc, object self_73924, object r_73430) ; -static void __lambda_299(void *data, int argc, object self_73925, object r_73431) ; -static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) ; -static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) ; -static void __lambda_296(void *data, int argc, object self_73927, object done_73188) ; -static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) ; -static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) ; -static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) ; -static void __lambda_292(void *data, int argc, object self_73931, object r_73460) ; -static void __lambda_291(void *data, int argc, object self_73932, object r_73463) ; -static void __lambda_290(void *data, int argc, object self_73933, object r_73493) ; -static void __lambda_289(void *data, int argc, object self_73934, object r_73492) ; -static void __lambda_288(void *data, int argc, object self_73935, object r_73491) ; -static void __lambda_287(void *data, int argc, object self_73936, object r_73490) ; -static void __lambda_286(void *data, int argc, object self_73937, object r_73489) ; -static void __lambda_285(void *data, int argc, object self_73938, object r_73488) ; -static void __lambda_284(void *data, int argc, object self_73939, object r_73487) ; -static void __lambda_283(void *data, int argc, object self_73940, object r_73486) ; -static void __lambda_282(void *data, int argc, object self_73941, object r_73485) ; -static void __lambda_281(void *data, int argc, object self_73942, object r_73473) ; -static void __lambda_280(void *data, int argc, object self_73943, object r_73480) ; -static void __lambda_279(void *data, int argc, object self_73944, object r_73477) ; -static void __lambda_278(void *data, int argc, object self_73945, object r_73478) ; -static void __lambda_277(void *data, int argc, object self_73946, object r_73479) ; -static void __lambda_276(void *data, int argc, object self_73947, object r_73475) ; -static void __lambda_275(void *data, int argc, object self_73948, object r_73474) ; -static void __lambda_274(void *data, int argc, object self_73949, object k_73481) ; -static void __lambda_273(void *data, int argc, object self_73950, object r_73482) ; -static void __lambda_272(void *data, int argc, object self_73951, object r_73461) ; -static void __lambda_271(void *data, int argc, object self_73952, object r_73462) ; -static void __lambda_270(void *data, int argc, object self_73953, object r_73457) ; -static void __lambda_269(void *data, int argc, object self_73954, object r_73440) ; -static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) ; -static void __lambda_267(void *data, int argc, object self_73956, object c_73192) ; -static void __lambda_266(void *data, int argc, object self_73957, object r_73446) ; -static void __lambda_265(void *data, int argc, object self_73958, object r_73448) ; -static void __lambda_264(void *data, int argc, object self_73959, object k_73450) ; -static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) ; -static void __lambda_262(void *data, int argc, object self_73961, object r_73452) ; -static void __lambda_261(void *data, int argc, object self_73962, object k_73454) ; -static void __lambda_260(void *data, int argc, object self_73963, object r_73455) ; -static void __lambda_259(void *data, int argc, object self_73964, object r_73443) ; -static void __lambda_258(void *data, int argc, object self_73965, object r_73441) ; -static void __lambda_257(void *data, int argc, object self_73966, object r_73442) ; -static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) ; -static void __lambda_255(void *data, int argc, object self_73967, object r_73748) ; -static void __lambda_254(void *data, int argc, object self_73968, object r_73747) ; -static void __lambda_253(void *data, int argc, object self_73969, object r_73499) ; -static void __lambda_252(void *data, int argc, object self_73970, object c_73205) ; -static void __lambda_251(void *data, int argc, object self_73971, object r_73738) ; -static void __lambda_250(void *data, int argc, object self_73972, object r_73740) ; -static void __lambda_249(void *data, int argc, object self_73973, object r_73744) ; -static void __lambda_248(void *data, int argc, object self_73974, object r_73501) ; -static void __lambda_247(void *data, int argc, object self_73975, object r_73736) ; -static void __lambda_246(void *data, int argc, object self_73976, object r_73502) ; -static void __lambda_245(void *data, int argc, object self_73977, object r_73520) ; -static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) ; -static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) ; -static void __lambda_242(void *data, int argc, object self_73980, object r_73732) ; -static void __lambda_241(void *data, int argc, object self_73981, object r_73731) ; -static void __lambda_240(void *data, int argc, object self_73982, object r_73639) ; -static void __lambda_239(void *data, int argc, object self_73983, object r_73729) ; -static void __lambda_238(void *data, int argc, object self_73984, object r_73730) ; -static void __lambda_237(void *data, int argc, object self_73985, object r_73727) ; -static void __lambda_236(void *data, int argc, object self_73986, object r_73728) ; -static void __lambda_235(void *data, int argc, object self_73987, object r_73720) ; -static void __lambda_234(void *data, int argc, object self_73988, object r_73721) ; -static void __lambda_233(void *data, int argc, object self_73989, object r_73722) ; -static void __lambda_232(void *data, int argc, object self_73990, object r_73724) ; -static void __lambda_231(void *data, int argc, object self_73991, object r_73723) ; -static void __lambda_230(void *data, int argc, object self_73992, object k_73725) ; -static void __lambda_229(void *data, int argc, object self_73993, object r_73718) ; -static void __lambda_228(void *data, int argc, object self_73994, object r_73717) ; -static void __lambda_227(void *data, int argc, object self_73995, object r_73712) ; -static void __lambda_226(void *data, int argc, object self_73996, object r_73713) ; -static void __lambda_225(void *data, int argc, object self_73997, object r_73714) ; -static void __lambda_224(void *data, int argc, object self_73998, object r_73700) ; -static void __lambda_223(void *data, int argc, object self_73999, object r_73701) ; -static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) ; -static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) ; -static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) ; -static void __lambda_219(void *data, int argc, object self_731003, object r_73705) ; -static void __lambda_218(void *data, int argc, object self_731004, object r_73704) ; -static void __lambda_217(void *data, int argc, object self_731005, object r_73702) ; -static void __lambda_216(void *data, int argc, object self_731006, object r_73703) ; -static void __lambda_215(void *data, int argc, object self_731007, object k_73706) ; -static void __lambda_214(void *data, int argc, object self_731008, object r_73707) ; -static void __lambda_213(void *data, int argc, object self_731009, object r_73708) ; -static void __lambda_212(void *data, int argc, object self_731010, object r_73709) ; -static void __lambda_211(void *data, int argc, object self_731011, object k_73710) ; -static void __lambda_210(void *data, int argc, object self_731012, object r_73698) ; -static void __lambda_209(void *data, int argc, object self_731013, object r_73670) ; -static void __lambda_208(void *data, int argc, object self_731014, object r_73671) ; -static void __lambda_207(void *data, int argc, object self_731015, object r_73693) ; -static void __lambda_206(void *data, int argc, object self_731016, object r_73672) ; -static void __lambda_205(void *data, int argc, object self_731017, object r_73673) ; -static void __lambda_204(void *data, int argc, object self_731018, object r_73686) ; -static void __lambda_203(void *data, int argc, object self_731019, object r_73687) ; -static void __lambda_202(void *data, int argc, object self_731020, object r_73688) ; -static void __lambda_201(void *data, int argc, object self_731021, object r_73674) ; -static void __lambda_200(void *data, int argc, object self_731022, object r_73675) ; -static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) ; -static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) ; -static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) ; -static void __lambda_196(void *data, int argc, object self_731026, object r_73679) ; -static void __lambda_195(void *data, int argc, object self_731027, object r_73678) ; -static void __lambda_194(void *data, int argc, object self_731028, object r_73676) ; -static void __lambda_193(void *data, int argc, object self_731029, object r_73677) ; -static void __lambda_192(void *data, int argc, object self_731030, object k_73680) ; -static void __lambda_191(void *data, int argc, object self_731031, object r_73681) ; -static void __lambda_190(void *data, int argc, object self_731032, object r_73682) ; -static void __lambda_189(void *data, int argc, object self_731033, object r_73683) ; -static void __lambda_188(void *data, int argc, object self_731034, object k_73684) ; -static void __lambda_187(void *data, int argc, object self_731035, object k_73689) ; -static void __lambda_186(void *data, int argc, object self_731036, object r_73691) ; -static void __lambda_185(void *data, int argc, object self_731037, object r_73692) ; -static void __lambda_184(void *data, int argc, object self_731038, object k_73694) ; -static void __lambda_183(void *data, int argc, object self_731039, object r_73696) ; -static void __lambda_182(void *data, int argc, object self_731040, object r_73697) ; -static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) ; -static void __lambda_180(void *data, int argc, object self_731042, object r_73668) ; -static void __lambda_179(void *data, int argc, object self_731043, object r_73666) ; -static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) ; -static void __lambda_177(void *data, int argc, object self_731045, object r_73664) ; -static void __lambda_176(void *data, int argc, object self_731046, object r_73662) ; -static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) ; -static void __lambda_174(void *data, int argc, object self_731048, object r_73660) ; -static void __lambda_173(void *data, int argc, object self_731049, object r_73658) ; -static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) ; -static void __lambda_171(void *data, int argc, object self_731051, object r_73656) ; -static void __lambda_170(void *data, int argc, object self_731052, object r_73654) ; -static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) ; -static void __lambda_168(void *data, int argc, object self_731054, object r_73652) ; -static void __lambda_167(void *data, int argc, object self_731055, object r_73650) ; -static void __lambda_166(void *data, int argc, object self_731056, object r_73647) ; -static void __lambda_165(void *data, int argc, object self_731057, object r_73644) ; -static void __lambda_164(void *data, int argc, object self_731058, object r_73641) ; -static void __lambda_163(void *data, int argc, object self_731059, object r_73642) ; -static void __lambda_162(void *data, int argc, object self_731060, object r_73624) ; -static void __lambda_161(void *data, int argc, object self_731061, object r_73633) ; -static void __lambda_160(void *data, int argc, object self_731062, object r_73628) ; -static void __lambda_159(void *data, int argc, object self_731063, object r_73629) ; -static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) ; -static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) ; -static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) ; -static void __lambda_155(void *data, int argc, object self_731067, object r_73632) ; -static void __lambda_154(void *data, int argc, object self_731068, object r_73630) ; -static void __lambda_153(void *data, int argc, object self_731069, object r_73631) ; -static void __lambda_152(void *data, int argc, object self_731070, object r_73625) ; -static void __lambda_151(void *data, int argc, object self_731071, object r_73627) ; -static void __lambda_150(void *data, int argc, object self_731072, object r_73626) ; -static void __lambda_149(void *data, int argc, object self_731073, object k_73634) ; -static void __lambda_148(void *data, int argc, object self_731074, object r_73613) ; -static void __lambda_147(void *data, int argc, object self_731075, object r_73617) ; -static void __lambda_146(void *data, int argc, object self_731076, object r_73620) ; -static void __lambda_145(void *data, int argc, object self_731077, object r_73618) ; -static void __lambda_144(void *data, int argc, object self_731078, object r_73619) ; -static void __lambda_143(void *data, int argc, object self_731079, object r_73614) ; -static void __lambda_142(void *data, int argc, object self_731080, object r_73616) ; -static void __lambda_141(void *data, int argc, object self_731081, object r_73615) ; -static void __lambda_140(void *data, int argc, object self_731082, object k_73621) ; -static void __lambda_139(void *data, int argc, object self_731083, object r_73593) ; -static void __lambda_138(void *data, int argc, object self_731084, object r_73607) ; -static void __lambda_137(void *data, int argc, object self_731085, object r_73608) ; -static void __lambda_136(void *data, int argc, object self_731086, object r_73609) ; -static void __lambda_135(void *data, int argc, object self_731087, object r_73597) ; -static void __lambda_134(void *data, int argc, object self_731088, object r_73598) ; -static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) ; -static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) ; -static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) ; -static void __lambda_130(void *data, int argc, object self_731092, object r_73602) ; -static void __lambda_129(void *data, int argc, object self_731093, object r_73601) ; -static void __lambda_128(void *data, int argc, object self_731094, object r_73599) ; -static void __lambda_127(void *data, int argc, object self_731095, object r_73600) ; -static void __lambda_126(void *data, int argc, object self_731096, object k_73603) ; -static void __lambda_125(void *data, int argc, object self_731097, object r_73604) ; -static void __lambda_124(void *data, int argc, object self_731098, object k_73605) ; -static void __lambda_123(void *data, int argc, object self_731099, object r_73594) ; -static void __lambda_122(void *data, int argc, object self_731100, object r_73596) ; -static void __lambda_121(void *data, int argc, object self_731101, object r_73595) ; -static void __lambda_120(void *data, int argc, object self_731102, object k_73610) ; -static void __lambda_119(void *data, int argc, object self_731103, object r_73563) ; -static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) ; -static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) ; -static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) ; -static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) ; -static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) ; -static void __lambda_113(void *data, int argc, object self_731109, object r_73567) ; -static void __lambda_112(void *data, int argc, object self_731110, object r_73589) ; -static void __lambda_111(void *data, int argc, object self_731111, object r_73568) ; -static void __lambda_110(void *data, int argc, object self_731112, object r_73586) ; -static void __lambda_109(void *data, int argc, object self_731113, object r_73569) ; -static void __lambda_108(void *data, int argc, object self_731114, object r_73570) ; -static void __lambda_107(void *data, int argc, object self_731115, object r_73571) ; -static void __lambda_106(void *data, int argc, object self_731116, object r_73579) ; -static void __lambda_105(void *data, int argc, object self_731117, object r_73580) ; -static void __lambda_104(void *data, int argc, object self_731118, object r_73578) ; -static void __lambda_103(void *data, int argc, object self_731119, object r_73572) ; -static void __lambda_102(void *data, int argc, object self_731120, object r_73576) ; -static void __lambda_101(void *data, int argc, object self_731121, object r_73577) ; -static void __lambda_100(void *data, int argc, object self_731122, object r_73575) ; -static void __lambda_99(void *data, int argc, object self_731123, object r_73573) ; -static void __lambda_98(void *data, int argc, object self_731124, object r_73574) ; -static void __lambda_97(void *data, int argc, object self_731125, object k_73581) ; -static void __lambda_96(void *data, int argc, object self_731126, object r_73583) ; -static void __lambda_95(void *data, int argc, object self_731127, object r_73584) ; -static void __lambda_94(void *data, int argc, object self_731128, object k_73587) ; -static void __lambda_93(void *data, int argc, object self_731129, object r_73564) ; -static void __lambda_92(void *data, int argc, object self_731130, object r_73566) ; -static void __lambda_91(void *data, int argc, object self_731131, object r_73565) ; -static void __lambda_90(void *data, int argc, object self_731132, object k_73590) ; -static void __lambda_89(void *data, int argc, object self_731133, object r_73547) ; -static void __lambda_88(void *data, int argc, object self_731134, object r_73558) ; -static void __lambda_87(void *data, int argc, object self_731135, object r_73559) ; -static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) ; -static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) ; -static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) ; -static void __lambda_83(void *data, int argc, object self_731139, object r_73557) ; -static void __lambda_82(void *data, int argc, object self_731140, object r_73555) ; -static void __lambda_81(void *data, int argc, object self_731141, object r_73556) ; -static void __lambda_80(void *data, int argc, object self_731142, object r_73554) ; -static void __lambda_79(void *data, int argc, object self_731143, object r_73552) ; -static void __lambda_78(void *data, int argc, object self_731144, object r_73553) ; -static void __lambda_77(void *data, int argc, object self_731145, object r_73548) ; -static void __lambda_76(void *data, int argc, object self_731146, object r_73550) ; -static void __lambda_75(void *data, int argc, object self_731147, object r_73549) ; -static void __lambda_74(void *data, int argc, object self_731148, object k_73560) ; -static void __lambda_73(void *data, int argc, object self_731149, object r_73531) ; -static void __lambda_72(void *data, int argc, object self_731150, object r_73542) ; -static void __lambda_71(void *data, int argc, object self_731151, object r_73543) ; -static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) ; -static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) ; -static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) ; -static void __lambda_67(void *data, int argc, object self_731155, object r_73541) ; -static void __lambda_66(void *data, int argc, object self_731156, object r_73539) ; -static void __lambda_65(void *data, int argc, object self_731157, object r_73540) ; -static void __lambda_64(void *data, int argc, object self_731158, object r_73538) ; -static void __lambda_63(void *data, int argc, object self_731159, object r_73536) ; -static void __lambda_62(void *data, int argc, object self_731160, object r_73537) ; -static void __lambda_61(void *data, int argc, object self_731161, object r_73532) ; -static void __lambda_60(void *data, int argc, object self_731162, object r_73534) ; -static void __lambda_59(void *data, int argc, object self_731163, object r_73533) ; -static void __lambda_58(void *data, int argc, object self_731164, object k_73544) ; -static void __lambda_57(void *data, int argc, object self_731165, object r_73521) ; -static void __lambda_56(void *data, int argc, object self_731166, object r_73522) ; -static void __lambda_55(void *data, int argc, object self_731167, object k_73523) ; -static void __lambda_54(void *data, int argc, object self_731168, object k_73525) ; -static void __lambda_53(void *data, int argc, object self_731169, object r_73528) ; -static void __lambda_52(void *data, int argc, object self_731170, object r_73527) ; -static void __lambda_51(void *data, int argc, object self_731171, object r_73519) ; -static void __lambda_50(void *data, int argc, object self_731172, object r_73518) ; -static void __lambda_49(void *data, int argc, object self_731173, object r_73517) ; -static void __lambda_48(void *data, int argc, object self_731174, object r_73514) ; -static void __lambda_47(void *data, int argc, object self_731175, object r_73515) ; -static void __lambda_46(void *data, int argc, object self_731176, object r_73516) ; -static void __lambda_45(void *data, int argc, object self_731177, object r_73504) ; -static void __lambda_44(void *data, int argc, object self_731178, object last_73233) ; -static void __lambda_43(void *data, int argc, object self_731179, object r_73507) ; -static void __lambda_42(void *data, int argc, object self_731180, object r_73505) ; -static void __lambda_41(void *data, int argc, object self_731181, object k_73509) ; -static void __lambda_40(void *data, int argc, object self_731182, object r_73510) ; -static void __lambda_39(void *data, int argc, object self_731183, object r_73511) ; -static void __lambda_38(void *data, int argc, object self_731184, object r_73512) ; -static void __lambda_37(void *data, int argc, object self_731185, object k_73745) ; -static void __lambda_36(void *data, int argc, object self_731186, object r_73746) ; -static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) ; -static void __lambda_34(void *data, int argc, object self_731187, object r_73757) ; -static void __lambda_33(void *data, int argc, object self_731188, object r_73759) ; -static void __lambda_32(void *data, int argc, object self_731189, object r_73758) ; -static void __lambda_31(void *data, int argc, object self_731190, object r_73754) ; -static void __lambda_30(void *data, int argc, object self_731191, object r_73756) ; -static void __lambda_29(void *data, int argc, object self_731192, object r_73755) ; -static void __lambda_28(void *data, int argc, object self_731193, object r_73753) ; -static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) ; -static void __lambda_26(void *data, int argc, object self_731194, object r_73764) ; -static void __lambda_25(void *data, int argc, object self_731195, object r_73765) ; -static void __lambda_24(void *data, int argc, object self_731196, object r_73763) ; -static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) ; -static void __lambda_22(void *data, int argc, object self_731197, object r_73772) ; -static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) ; -static void __lambda_20(void *data, int argc, object self_731198, object r_73779) ; -static void __lambda_19(void *data, int argc, object self_731199, object r_73782) ; -static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) ; -static void __lambda_17(void *data, int argc, object self_731200, object r_73787) ; -static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) ; -static void __lambda_15(void *data, int argc, object self_731201, object r_73792) ; -static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) ; -static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) ; -static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) ; -static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) ; -static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) ; -static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) ; -static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) ; -static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) ; -static void __lambda_6(void *data, int argc, object self_731202, object r_73821) ; -static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) ; -static void __lambda_4(void *data, int argc, object self_731203, object r_73264) ; -static void __lambda_3(void *data, int argc, object self_731204, object r_73264) ; -static void __lambda_2(void *data, int argc, object self_731205, object r_73829) ; -static void __lambda_1(void *data, int argc, object self_731206, object r_73826) ; -static void __lambda_0(void *data, int argc, object self_731207, object r_73827) ; - -static void __lambda_406(void *data, int argc, closure _,object k_73267) { - Cyc_st_add(data, "scheme/read.sld:lib-init:schemeread"); - -closureN_type c_733650; -c_733650.hdr.mark = gc_color_red; - c_733650.hdr.grayed = 0; -c_733650.tag = closureN_tag; - c_733650.fn = (function_type)__lambda_405; -c_733650.num_args = 1; -c_733650.num_elements = 1; -c_733650.elements = (object *)alloca(sizeof(object) * 1); -c_733650.elements[0] = k_73267; - -return_closcall1(data,(closure)&c_733650, global_set(__glo_read_scheme_read, __glo_cyc_91read_scheme_read));; -} - -static void __lambda_405(void *data, int argc, object self_73834, object r_73269) { - -closureN_type c_733652; -c_733652.hdr.mark = gc_color_red; - c_733652.hdr.grayed = 0; -c_733652.tag = closureN_tag; - c_733652.fn = (function_type)__lambda_404; -c_733652.num_args = 1; -c_733652.num_elements = 1; -c_733652.elements = (object *)alloca(sizeof(object) * 1); -c_733652.elements[0] = ((closureN)self_73834)->elements[0]; - -return_closcall1(data,(closure)&c_733652, NULL);; -} - -static void __lambda_404(void *data, int argc, object self_73835, object r_73270) { - return_closcall1(data, ((closureN)self_73835)->elements[0], global_set(__glo__85in_91port_91table_85_scheme_read, r_73270));; -} - -static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) { -load_varargs(args_73117, args_73117_raw, argc - 1); - Cyc_st_add(data, "scheme/read.sld:read-all"); - -closureN_type c_733598; -c_733598.hdr.mark = gc_color_red; - c_733598.hdr.grayed = 0; -c_733598.tag = closureN_tag; - c_733598.fn = (function_type)__lambda_394; -c_733598.num_args = 0; -c_733598.num_elements = 1; -c_733598.elements = (object *)alloca(sizeof(object) * 1); -c_733598.elements[0] = args_73117; - - -closureN_type c_733607; -c_733607.hdr.mark = gc_color_red; - c_733607.hdr.grayed = 0; -c_733607.tag = closureN_tag; - c_733607.fn = (function_type)__lambda_402; -c_733607.num_args = 1; -c_733607.num_elements = 1; -c_733607.elements = (object *)alloca(sizeof(object) * 1); -c_733607.elements[0] = k_73273; - -return_closcall1(data,(closure)&c_733598, &c_733607);; -} - -static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) { - -closureN_type c_733609; -c_733609.hdr.mark = gc_color_red; - c_733609.hdr.grayed = 0; -c_733609.tag = closureN_tag; - c_733609.fn = (function_type)__lambda_401; -c_733609.num_args = 1; -c_733609.num_elements = 2; -c_733609.elements = (object *)alloca(sizeof(object) * 2); -c_733609.elements[0] = fp_73119; -c_733609.elements[1] = ((closureN)self_73836)->elements[0]; - -return_closcall1(data,(closure)&c_733609, boolean_f);; -} - -static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) { - -closureN_type c_733611; -c_733611.hdr.mark = gc_color_red; - c_733611.hdr.grayed = 0; -c_733611.tag = closureN_tag; - c_733611.fn = (function_type)__lambda_400; -c_733611.num_args = 1; -c_733611.num_elements = 2; -c_733611.elements = (object *)alloca(sizeof(object) * 2); -c_733611.elements[0] = ((closureN)self_73837)->elements[0]; -c_733611.elements[1] = ((closureN)self_73837)->elements[1]; - - -make_cell(c_733647,loop_73120); -return_closcall1(data,(closure)&c_733611, &c_733647);; -} - -static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) { - -closureN_type c_733613; -c_733613.hdr.mark = gc_color_red; - c_733613.hdr.grayed = 0; -c_733613.tag = closureN_tag; - c_733613.fn = (function_type)__lambda_397; -c_733613.num_args = 1; -c_733613.num_elements = 3; -c_733613.elements = (object *)alloca(sizeof(object) * 3); -c_733613.elements[0] = ((closureN)self_73838)->elements[0]; -c_733613.elements[1] = ((closureN)self_73838)->elements[1]; -c_733613.elements[2] = loop_73120; - - -closureN_type c_733627; -c_733627.hdr.mark = gc_color_red; - c_733627.hdr.grayed = 0; -c_733627.tag = closureN_tag; - c_733627.fn = (function_type)__lambda_399; -c_733627.num_args = 2; -c_733627.num_elements = 1; -c_733627.elements = (object *)alloca(sizeof(object) * 1); -c_733627.elements[0] = loop_73120; - -return_closcall1(data,(closure)&c_733613, &c_733627);; -} - -static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) { - -closureN_type c_733629; -c_733629.hdr.mark = gc_color_red; - c_733629.hdr.grayed = 0; -c_733629.tag = closureN_tag; - c_733629.fn = (function_type)__lambda_398; -c_733629.num_args = 1; -c_733629.num_elements = 4; -c_733629.elements = (object *)alloca(sizeof(object) * 4); -c_733629.elements[0] = fp_73122; -c_733629.elements[1] = k_73278; -c_733629.elements[2] = ((closureN)self_73839)->elements[0]; -c_733629.elements[3] = result_73121; - -return_closcall2(data, __glo_cyc_91read_scheme_read, &c_733629, fp_73122);; -} - -static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) { - if( (boolean_f != Cyc_is_eof_object(obj_73123)) ){ - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[3]); -} else { - -make_pair(c_733643,obj_73123, ((closureN)self_73840)->elements[3]); -return_closcall3(data, cell_get(((closureN)self_73840)->elements[2]), ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[0], &c_733643);} -; -} - -static void __lambda_397(void *data, int argc, object self_73841, object r_73277) { - -closureN_type c_733615; -c_733615.hdr.mark = gc_color_red; - c_733615.hdr.grayed = 0; -c_733615.tag = closureN_tag; - c_733615.fn = (function_type)__lambda_396; -c_733615.num_args = 1; -c_733615.num_elements = 3; -c_733615.elements = (object *)alloca(sizeof(object) * 3); -c_733615.elements[0] = ((closureN)self_73841)->elements[0]; -c_733615.elements[1] = ((closureN)self_73841)->elements[1]; -c_733615.elements[2] = ((closureN)self_73841)->elements[2]; - -return_closcall1(data,(closure)&c_733615, Cyc_set_car(data, ((closureN)self_73841)->elements[2], r_73277));; -} - -static void __lambda_396(void *data, int argc, object self_73842, object r_73275) { - -closureN_type c_733617; -c_733617.hdr.mark = gc_color_red; - c_733617.hdr.grayed = 0; -c_733617.tag = closureN_tag; - c_733617.fn = (function_type)__lambda_395; -c_733617.num_args = 1; -c_733617.num_elements = 3; -c_733617.elements = (object *)alloca(sizeof(object) * 3); -c_733617.elements[0] = ((closureN)self_73842)->elements[0]; -c_733617.elements[1] = ((closureN)self_73842)->elements[1]; -c_733617.elements[2] = ((closureN)self_73842)->elements[2]; - -return_closcall1(data,(closure)&c_733617, NULL);; -} - -static void __lambda_395(void *data, int argc, object self_73843, object r_73276) { - return_closcall3(data, cell_get(((closureN)self_73843)->elements[2]), ((closureN)self_73843)->elements[1], ((closureN)self_73843)->elements[0], r_73276);; -} - -static void __lambda_394(void *data, int argc, object self_73844, object k_73282) { - if( (boolean_f != Cyc_is_null(((closureN)self_73844)->elements[0])) ){ - return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73282); -} else { - return_closcall1(data, k_73282, car(((closureN)self_73844)->elements[0]));} -; -} - -static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) { -load_varargs(args_73124, args_73124_raw, argc - 1); - Cyc_st_add(data, "scheme/read.sld:cyc-read"); - -closureN_type c_733574; -c_733574.hdr.mark = gc_color_red; - c_733574.hdr.grayed = 0; -c_733574.tag = closureN_tag; - c_733574.fn = (function_type)__lambda_388; -c_733574.num_args = 0; -c_733574.num_elements = 1; -c_733574.elements = (object *)alloca(sizeof(object) * 1); -c_733574.elements[0] = args_73124; - - -closureN_type c_733583; -c_733583.hdr.mark = gc_color_red; - c_733583.hdr.grayed = 0; -c_733583.tag = closureN_tag; - c_733583.fn = (function_type)__lambda_392; -c_733583.num_args = 1; -c_733583.num_elements = 1; -c_733583.elements = (object *)alloca(sizeof(object) * 1); -c_733583.elements[0] = k_73286; - -return_closcall1(data,(closure)&c_733574, &c_733583);; -} - -static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) { - -closureN_type c_733585; -c_733585.hdr.mark = gc_color_red; - c_733585.hdr.grayed = 0; -c_733585.tag = closureN_tag; - c_733585.fn = (function_type)__lambda_391; -c_733585.num_args = 1; -c_733585.num_elements = 2; -c_733585.elements = (object *)alloca(sizeof(object) * 2); -c_733585.elements[0] = fp_73125; -c_733585.elements[1] = ((closureN)self_73845)->elements[0]; - -return_closcall1(data,(closure)&c_733585, NULL);; -} - -static void __lambda_391(void *data, int argc, object self_73846, object r_73288) { - -closureN_type c_733587; -c_733587.hdr.mark = gc_color_red; - c_733587.hdr.grayed = 0; -c_733587.tag = closureN_tag; - c_733587.fn = (function_type)__lambda_390; -c_733587.num_args = 1; -c_733587.num_elements = 3; -c_733587.elements = (object *)alloca(sizeof(object) * 3); -c_733587.elements[0] = ((closureN)self_73846)->elements[0]; -c_733587.elements[1] = ((closureN)self_73846)->elements[1]; -c_733587.elements[2] = r_73288; - -return_closcall1(data,(closure)&c_733587, NULL);; -} - -static void __lambda_390(void *data, int argc, object self_73847, object r_73289) { - -closureN_type c_733589; -c_733589.hdr.mark = gc_color_red; - c_733589.hdr.grayed = 0; -c_733589.tag = closureN_tag; - c_733589.fn = (function_type)__lambda_389; -c_733589.num_args = 1; -c_733589.num_elements = 4; -c_733589.elements = (object *)alloca(sizeof(object) * 4); -c_733589.elements[0] = ((closureN)self_73847)->elements[0]; -c_733589.elements[1] = ((closureN)self_73847)->elements[1]; -c_733589.elements[2] = ((closureN)self_73847)->elements[2]; -c_733589.elements[3] = r_73289; - -return_closcall2(data, __glo_reg_91port_scheme_read, &c_733589, ((closureN)self_73847)->elements[0]);; -} - -static void __lambda_389(void *data, int argc, object self_73848, object r_73290) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73848)->elements[1], ((closureN)self_73848)->elements[0], ((closureN)self_73848)->elements[2], ((closureN)self_73848)->elements[3], boolean_f, boolean_f, obj_int2obj(0), r_73290);; -} - -static void __lambda_388(void *data, int argc, object self_73849, object k_73291) { - if( (boolean_f != Cyc_is_null(((closureN)self_73849)->elements[0])) ){ - return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73291); -} else { - return_closcall1(data, k_73291, car(((closureN)self_73849)->elements[0]));} -; -} - -static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) { - Cyc_st_add(data, "scheme/read.sld:hex-digit?"); - -closureN_type c_733552; -c_733552.hdr.mark = gc_color_red; - c_733552.hdr.grayed = 0; -c_733552.tag = closureN_tag; - c_733552.fn = (function_type)__lambda_384; -c_733552.num_args = 0; -c_733552.num_elements = 1; -c_733552.elements = (object *)alloca(sizeof(object) * 1); -c_733552.elements[0] = c_73126; - - -closureN_type c_733561; -c_733561.hdr.mark = gc_color_red; - c_733561.hdr.grayed = 0; -c_733561.tag = closureN_tag; - c_733561.fn = (function_type)__lambda_386; -c_733561.num_args = 1; -c_733561.num_elements = 2; -c_733561.elements = (object *)alloca(sizeof(object) * 2); -c_733561.elements[0] = c_73126; -c_733561.elements[1] = k_73295; - -return_closcall1(data,(closure)&c_733552, &c_733561);; -} - -static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) { - if( (boolean_f != tmp_73127) ){ - return_closcall1(data, ((closureN)self_73850)->elements[1], tmp_73127); -} else { - -closureN_type c_733565; -c_733565.hdr.mark = gc_color_red; - c_733565.hdr.grayed = 0; -c_733565.tag = closureN_tag; - c_733565.fn = (function_type)__lambda_385; -c_733565.num_args = 1; -c_733565.num_elements = 2; -c_733565.elements = (object *)alloca(sizeof(object) * 2); -c_733565.elements[0] = ((closureN)self_73850)->elements[0]; -c_733565.elements[1] = ((closureN)self_73850)->elements[1]; - -return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733565, ((closureN)self_73850)->elements[0], obj_char2obj(65));} -; -} - -static void __lambda_385(void *data, int argc, object self_73851, object r_73297) { - if( (boolean_f != r_73297) ){ - return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73851)->elements[1], ((closureN)self_73851)->elements[0], obj_char2obj(70)); -} else { - return_closcall1(data, ((closureN)self_73851)->elements[1], boolean_f);} -; -} - -static void __lambda_384(void *data, int argc, object self_73852, object k_73298) { - -closureN_type c_733554; -c_733554.hdr.mark = gc_color_red; - c_733554.hdr.grayed = 0; -c_733554.tag = closureN_tag; - c_733554.fn = (function_type)__lambda_383; -c_733554.num_args = 1; -c_733554.num_elements = 2; -c_733554.elements = (object *)alloca(sizeof(object) * 2); -c_733554.elements[0] = ((closureN)self_73852)->elements[0]; -c_733554.elements[1] = k_73298; - -return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733554, ((closureN)self_73852)->elements[0], obj_char2obj(97));; -} - -static void __lambda_383(void *data, int argc, object self_73853, object r_73299) { - if( (boolean_f != r_73299) ){ - return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73853)->elements[1], ((closureN)self_73853)->elements[0], obj_char2obj(102)); -} else { - return_closcall1(data, ((closureN)self_73853)->elements[1], boolean_f);} -; -} - -static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) { - Cyc_st_add(data, "scheme/read.sld:parse-number-rec"); - -closureN_type c_733444; -c_733444.hdr.mark = gc_color_red; - c_733444.hdr.grayed = 0; -c_733444.tag = closureN_tag; - c_733444.fn = (function_type)__lambda_381; -c_733444.num_args = 1; -c_733444.num_elements = 5; -c_733444.elements = (object *)alloca(sizeof(object) * 5); -c_733444.elements[0] = base_73131; -c_733444.elements[1] = fp_73130; -c_733444.elements[2] = k_73302; -c_733444.elements[3] = ptbl_73128; -c_733444.elements[4] = tok_73129; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733444, fp_73130, ptbl_73128);; -} - -static void __lambda_381(void *data, int argc, object self_73854, object r_73303) { - -closureN_type c_733446; -c_733446.hdr.mark = gc_color_red; - c_733446.hdr.grayed = 0; -c_733446.tag = closureN_tag; - c_733446.fn = (function_type)__lambda_379; -c_733446.num_args = 1; -c_733446.num_elements = 5; -c_733446.elements = (object *)alloca(sizeof(object) * 5); -c_733446.elements[0] = ((closureN)self_73854)->elements[0]; -c_733446.elements[1] = ((closureN)self_73854)->elements[2]; -c_733446.elements[2] = ((closureN)self_73854)->elements[3]; -c_733446.elements[3] = r_73303; -c_733446.elements[4] = ((closureN)self_73854)->elements[4]; - - -closureN_type c_733541; -c_733541.hdr.mark = gc_color_red; - c_733541.hdr.grayed = 0; -c_733541.tag = closureN_tag; - c_733541.fn = (function_type)__lambda_380; -c_733541.num_args = 1; -c_733541.num_elements = 4; -c_733541.elements = (object *)alloca(sizeof(object) * 4); -c_733541.elements[0] = ((closureN)self_73854)->elements[0]; -c_733541.elements[1] = ((closureN)self_73854)->elements[1]; -c_733541.elements[2] = ((closureN)self_73854)->elements[3]; -c_733541.elements[3] = ((closureN)self_73854)->elements[4]; - -return_closcall1(data,(closure)&c_733446, &c_733541);; -} - -static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) { - -make_pair(c_733547,c_73132, ((closureN)self_73855)->elements[3]); -return_closcall5(data, __glo_parse_91number_91rec_scheme_read, k_73322, ((closureN)self_73855)->elements[0], ((closureN)self_73855)->elements[1], &c_733547, ((closureN)self_73855)->elements[2]);; -} - -static void __lambda_379(void *data, int argc, object self_73856, object r_73304) { - -closureN_type c_733448; -c_733448.hdr.mark = gc_color_red; - c_733448.hdr.grayed = 0; -c_733448.tag = closureN_tag; - c_733448.fn = (function_type)__lambda_378; -c_733448.num_args = 2; -c_733448.num_elements = 4; -c_733448.elements = (object *)alloca(sizeof(object) * 4); -c_733448.elements[0] = ((closureN)self_73856)->elements[0]; -c_733448.elements[1] = ((closureN)self_73856)->elements[1]; -c_733448.elements[2] = ((closureN)self_73856)->elements[2]; -c_733448.elements[3] = ((closureN)self_73856)->elements[4]; - -return_closcall2(data,(closure)&c_733448, ((closureN)self_73856)->elements[3], r_73304);; -} - -static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) { - -closureN_type c_733450; -c_733450.hdr.mark = gc_color_red; - c_733450.hdr.grayed = 0; -c_733450.tag = closureN_tag; - c_733450.fn = (function_type)__lambda_377; -c_733450.num_args = 1; -c_733450.num_elements = 6; -c_733450.elements = (object *)alloca(sizeof(object) * 6); -c_733450.elements[0] = ((closureN)self_73857)->elements[0]; -c_733450.elements[1] = c_73134; -c_733450.elements[2] = ((closureN)self_73857)->elements[1]; -c_733450.elements[3] = next_73133; -c_733450.elements[4] = ((closureN)self_73857)->elements[2]; -c_733450.elements[5] = ((closureN)self_73857)->elements[3]; - -return_closcall2(data, __glo_sign_127_scheme_read, &c_733450, c_73134);; -} - -static void __lambda_377(void *data, int argc, object self_73858, object r_73305) { - if( (boolean_f != r_73305) ){ - return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(46), ((closureN)self_73858)->elements[1])) ){ - return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]); -} else { - -closureN_type c_733463; -c_733463.hdr.mark = gc_color_red; - c_733463.hdr.grayed = 0; -c_733463.tag = closureN_tag; - c_733463.fn = (function_type)__lambda_376; -c_733463.num_args = 1; -c_733463.num_elements = 6; -c_733463.elements = (object *)alloca(sizeof(object) * 6); -c_733463.elements[0] = ((closureN)self_73858)->elements[0]; -c_733463.elements[1] = ((closureN)self_73858)->elements[1]; -c_733463.elements[2] = ((closureN)self_73858)->elements[2]; -c_733463.elements[3] = ((closureN)self_73858)->elements[3]; -c_733463.elements[4] = ((closureN)self_73858)->elements[4]; -c_733463.elements[5] = ((closureN)self_73858)->elements[5]; - -return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733463, ((closureN)self_73858)->elements[1]);} -} -; -} - -static void __lambda_376(void *data, int argc, object self_73859, object r_73307) { - if( (boolean_f != r_73307) ){ - -closureN_type c_733465; -c_733465.hdr.mark = gc_color_red; - c_733465.hdr.grayed = 0; -c_733465.tag = closureN_tag; - c_733465.fn = (function_type)__lambda_370; -c_733465.num_args = 0; -c_733465.num_elements = 3; -c_733465.elements = (object *)alloca(sizeof(object) * 3); -c_733465.elements[0] = ((closureN)self_73859)->elements[0]; -c_733465.elements[1] = ((closureN)self_73859)->elements[1]; -c_733465.elements[2] = ((closureN)self_73859)->elements[4]; - - -closureN_type c_733509; -c_733509.hdr.mark = gc_color_red; - c_733509.hdr.grayed = 0; -c_733509.tag = closureN_tag; - c_733509.fn = (function_type)__lambda_371; -c_733509.num_args = 1; -c_733509.num_elements = 3; -c_733509.elements = (object *)alloca(sizeof(object) * 3); -c_733509.elements[0] = ((closureN)self_73859)->elements[1]; -c_733509.elements[1] = ((closureN)self_73859)->elements[2]; -c_733509.elements[2] = ((closureN)self_73859)->elements[3]; - -return_closcall1(data,(closure)&c_733465, &c_733509); -} else { - -closureN_type c_733515; -c_733515.hdr.mark = gc_color_red; - c_733515.hdr.grayed = 0; -c_733515.tag = closureN_tag; - c_733515.fn = (function_type)__lambda_373; -c_733515.num_args = 0; -c_733515.num_elements = 2; -c_733515.elements = (object *)alloca(sizeof(object) * 2); -c_733515.elements[0] = ((closureN)self_73859)->elements[0]; -c_733515.elements[1] = ((closureN)self_73859)->elements[1]; - - -closureN_type c_733527; -c_733527.hdr.mark = gc_color_red; - c_733527.hdr.grayed = 0; -c_733527.tag = closureN_tag; - c_733527.fn = (function_type)__lambda_375; -c_733527.num_args = 1; -c_733527.num_elements = 5; -c_733527.elements = (object *)alloca(sizeof(object) * 5); -c_733527.elements[0] = ((closureN)self_73859)->elements[1]; -c_733527.elements[1] = ((closureN)self_73859)->elements[2]; -c_733527.elements[2] = ((closureN)self_73859)->elements[3]; -c_733527.elements[3] = ((closureN)self_73859)->elements[4]; -c_733527.elements[4] = ((closureN)self_73859)->elements[5]; - -return_closcall1(data,(closure)&c_733515, &c_733527);} -; -} - -static void __lambda_375(void *data, int argc, object self_73860, object r_73318) { - if( (boolean_f != r_73318) ){ - return_closcall2(data, ((closureN)self_73860)->elements[2], ((closureN)self_73860)->elements[1], ((closureN)self_73860)->elements[0]); -} else { - -closureN_type c_733533; -c_733533.hdr.mark = gc_color_red; - c_733533.hdr.grayed = 0; -c_733533.tag = closureN_tag; - c_733533.fn = (function_type)__lambda_374; -c_733533.num_args = 1; -c_733533.num_elements = 2; -c_733533.elements = (object *)alloca(sizeof(object) * 2); -c_733533.elements[0] = ((closureN)self_73860)->elements[1]; -c_733533.elements[1] = ((closureN)self_73860)->elements[4]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_733533, ((closureN)self_73860)->elements[3], ((closureN)self_73860)->elements[0]);} -; -} - -static void __lambda_374(void *data, int argc, object self_73861, object r_73319) { - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73861)->elements[0], ((closureN)self_73861)->elements[1]);; -} - -static void __lambda_373(void *data, int argc, object self_73862, object k_73320) { - -closureN_type c_733517; -c_733517.hdr.mark = gc_color_red; - c_733517.hdr.grayed = 0; -c_733517.tag = closureN_tag; - c_733517.fn = (function_type)__lambda_372; -c_733517.num_args = 1; -c_733517.num_elements = 2; -c_733517.elements = (object *)alloca(sizeof(object) * 2); -c_733517.elements[0] = ((closureN)self_73862)->elements[1]; -c_733517.elements[1] = k_73320; - - -object c_733525 = Cyc_num_eq(data,(closure)&c_733517,2,((closureN)self_73862)->elements[0], obj_int2obj(16)); -return_closcall1(data,(closure)&c_733517, c_733525);; -} - -static void __lambda_372(void *data, int argc, object self_73863, object r_73321) { - if( (boolean_f != r_73321) ){ - return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73863)->elements[1], ((closureN)self_73863)->elements[0]); -} else { - return_closcall1(data, ((closureN)self_73863)->elements[1], boolean_f);} -; -} - -static void __lambda_371(void *data, int argc, object self_73864, object r_73308) { - return_closcall2(data, ((closureN)self_73864)->elements[2], ((closureN)self_73864)->elements[1], ((closureN)self_73864)->elements[0]);; -} - -static void __lambda_370(void *data, int argc, object self_73865, object k_73309) { - -closureN_type c_733467; -c_733467.hdr.mark = gc_color_red; - c_733467.hdr.grayed = 0; -c_733467.tag = closureN_tag; - c_733467.fn = (function_type)__lambda_363; -c_733467.num_args = 0; -c_733467.num_elements = 2; -c_733467.elements = (object *)alloca(sizeof(object) * 2); -c_733467.elements[0] = ((closureN)self_73865)->elements[0]; -c_733467.elements[1] = ((closureN)self_73865)->elements[1]; - - -closureN_type c_733479; -c_733479.hdr.mark = gc_color_red; - c_733479.hdr.grayed = 0; -c_733479.tag = closureN_tag; - c_733479.fn = (function_type)__lambda_369; -c_733479.num_args = 1; -c_733479.num_elements = 4; -c_733479.elements = (object *)alloca(sizeof(object) * 4); -c_733479.elements[0] = ((closureN)self_73865)->elements[0]; -c_733479.elements[1] = ((closureN)self_73865)->elements[1]; -c_733479.elements[2] = k_73309; -c_733479.elements[3] = ((closureN)self_73865)->elements[2]; - -return_closcall1(data,(closure)&c_733467, &c_733479);; -} - -static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) { - -closureN_type c_733481; -c_733481.hdr.mark = gc_color_red; - c_733481.hdr.grayed = 0; -c_733481.tag = closureN_tag; - c_733481.fn = (function_type)__lambda_365; -c_733481.num_args = 0; -c_733481.num_elements = 3; -c_733481.elements = (object *)alloca(sizeof(object) * 3); -c_733481.elements[0] = ((closureN)self_73866)->elements[0]; -c_733481.elements[1] = ((closureN)self_73866)->elements[1]; -c_733481.elements[2] = tmp_73135; - - -closureN_type c_733496; -c_733496.hdr.mark = gc_color_red; - c_733496.hdr.grayed = 0; -c_733496.tag = closureN_tag; - c_733496.fn = (function_type)__lambda_368; -c_733496.num_args = 1; -c_733496.num_elements = 2; -c_733496.elements = (object *)alloca(sizeof(object) * 2); -c_733496.elements[0] = ((closureN)self_73866)->elements[2]; -c_733496.elements[1] = ((closureN)self_73866)->elements[3]; - -return_closcall1(data,(closure)&c_733481, &c_733496);; -} - -static void __lambda_368(void *data, int argc, object self_73867, object r_73310) { - if( (boolean_f != r_73310) ){ - -closureN_type c_733498; -c_733498.hdr.mark = gc_color_red; - c_733498.hdr.grayed = 0; -c_733498.tag = closureN_tag; - c_733498.fn = (function_type)__lambda_367; -c_733498.num_args = 1; -c_733498.num_elements = 2; -c_733498.elements = (object *)alloca(sizeof(object) * 2); -c_733498.elements[0] = ((closureN)self_73867)->elements[0]; -c_733498.elements[1] = ((closureN)self_73867)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733498, ((closureN)self_73867)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_73867)->elements[0], boolean_f);} -; -} - -static void __lambda_367(void *data, int argc, object self_73868, object r_73311) { - -closureN_type c_733500; -c_733500.hdr.mark = gc_color_red; - c_733500.hdr.grayed = 0; -c_733500.tag = closureN_tag; - c_733500.fn = (function_type)__lambda_366; -c_733500.num_args = 1; -c_733500.num_elements = 2; -c_733500.elements = (object *)alloca(sizeof(object) * 2); -c_733500.elements[0] = ((closureN)self_73868)->elements[0]; -c_733500.elements[1] = r_73311; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733500, ((closureN)self_73868)->elements[1]);; -} - -static void __lambda_366(void *data, int argc, object self_73869, object r_73312) { - -make_string(c_733503, "Illegal digit"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73869)->elements[0], &c_733503, ((closureN)self_73869)->elements[1], r_73312);; -} - -static void __lambda_365(void *data, int argc, object self_73870, object k_73314) { - if( (boolean_f != ((closureN)self_73870)->elements[2]) ){ - return_closcall1(data, k_73314, ((closureN)self_73870)->elements[2]); -} else { - -closureN_type c_733486; -c_733486.hdr.mark = gc_color_red; - c_733486.hdr.grayed = 0; -c_733486.tag = closureN_tag; - c_733486.fn = (function_type)__lambda_364; -c_733486.num_args = 1; -c_733486.num_elements = 2; -c_733486.elements = (object *)alloca(sizeof(object) * 2); -c_733486.elements[0] = ((closureN)self_73870)->elements[1]; -c_733486.elements[1] = k_73314; - - -object c_733494 = Cyc_num_eq(data,(closure)&c_733486,2,((closureN)self_73870)->elements[0], obj_int2obj(8)); -return_closcall1(data,(closure)&c_733486, c_733494);} -; -} - -static void __lambda_364(void *data, int argc, object self_73871, object r_73315) { - if( (boolean_f != r_73315) ){ - return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73871)->elements[1], ((closureN)self_73871)->elements[0], obj_char2obj(55)); -} else { - return_closcall1(data, ((closureN)self_73871)->elements[1], boolean_f);} -; -} - -static void __lambda_363(void *data, int argc, object self_73872, object k_73316) { - -closureN_type c_733469; -c_733469.hdr.mark = gc_color_red; - c_733469.hdr.grayed = 0; -c_733469.tag = closureN_tag; - c_733469.fn = (function_type)__lambda_362; -c_733469.num_args = 1; -c_733469.num_elements = 2; -c_733469.elements = (object *)alloca(sizeof(object) * 2); -c_733469.elements[0] = ((closureN)self_73872)->elements[1]; -c_733469.elements[1] = k_73316; - - -object c_733477 = Cyc_num_eq(data,(closure)&c_733469,2,((closureN)self_73872)->elements[0], obj_int2obj(2)); -return_closcall1(data,(closure)&c_733469, c_733477);; -} - -static void __lambda_362(void *data, int argc, object self_73873, object r_73317) { - if( (boolean_f != r_73317) ){ - return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73873)->elements[1], ((closureN)self_73873)->elements[0], obj_char2obj(49)); -} else { - return_closcall1(data, ((closureN)self_73873)->elements[1], boolean_f);} -; -} - -static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) { - Cyc_st_add(data, "scheme/read.sld:parse-number"); - -closureN_type c_733371; -c_733371.hdr.mark = gc_color_red; - c_733371.hdr.grayed = 0; -c_733371.tag = closureN_tag; - c_733371.fn = (function_type)__lambda_360; -c_733371.num_args = 1; -c_733371.num_elements = 8; -c_733371.elements = (object *)alloca(sizeof(object) * 8); -c_733371.elements[0] = all_127_73140; -c_733371.elements[1] = base_73137; -c_733371.elements[2] = fp_73142; -c_733371.elements[3] = k_73326; -c_733371.elements[4] = parens_73139; -c_733371.elements[5] = ptbl_73138; -c_733371.elements[6] = tok_91_125num_73136; -c_733371.elements[7] = toks_73141; - -return_closcall1(data,(closure)&c_733371, NULL);; -} - -static void __lambda_360(void *data, int argc, object self_73874, object r_73341) { - -closureN_type c_733373; -c_733373.hdr.mark = gc_color_red; - c_733373.hdr.grayed = 0; -c_733373.tag = closureN_tag; - c_733373.fn = (function_type)__lambda_359; -c_733373.num_args = 1; -c_733373.num_elements = 8; -c_733373.elements = (object *)alloca(sizeof(object) * 8); -c_733373.elements[0] = ((closureN)self_73874)->elements[0]; -c_733373.elements[1] = ((closureN)self_73874)->elements[1]; -c_733373.elements[2] = ((closureN)self_73874)->elements[2]; -c_733373.elements[3] = ((closureN)self_73874)->elements[3]; -c_733373.elements[4] = ((closureN)self_73874)->elements[4]; -c_733373.elements[5] = ((closureN)self_73874)->elements[5]; -c_733373.elements[6] = ((closureN)self_73874)->elements[6]; -c_733373.elements[7] = ((closureN)self_73874)->elements[7]; - -return_closcall5(data, __glo_parse_91number_91rec_scheme_read, &c_733373, ((closureN)self_73874)->elements[1], ((closureN)self_73874)->elements[2], r_73341, ((closureN)self_73874)->elements[5]);; -} - -static void __lambda_359(void *data, int argc, object self_73875, object num_73143) { - -closureN_type c_733375; -c_733375.hdr.mark = gc_color_red; - c_733375.hdr.grayed = 0; -c_733375.tag = closureN_tag; - c_733375.fn = (function_type)__lambda_353; -c_733375.num_args = 0; -c_733375.num_elements = 2; -c_733375.elements = (object *)alloca(sizeof(object) * 2); -c_733375.elements[0] = ((closureN)self_73875)->elements[1]; -c_733375.elements[1] = num_73143; - - -closureN_type c_733408; -c_733408.hdr.mark = gc_color_red; - c_733408.hdr.grayed = 0; -c_733408.tag = closureN_tag; - c_733408.fn = (function_type)__lambda_358; -c_733408.num_args = 1; -c_733408.num_elements = 8; -c_733408.elements = (object *)alloca(sizeof(object) * 8); -c_733408.elements[0] = ((closureN)self_73875)->elements[0]; -c_733408.elements[1] = ((closureN)self_73875)->elements[2]; -c_733408.elements[2] = ((closureN)self_73875)->elements[3]; -c_733408.elements[3] = num_73143; -c_733408.elements[4] = ((closureN)self_73875)->elements[4]; -c_733408.elements[5] = ((closureN)self_73875)->elements[5]; -c_733408.elements[6] = ((closureN)self_73875)->elements[6]; -c_733408.elements[7] = ((closureN)self_73875)->elements[7]; - -return_closcall1(data,(closure)&c_733375, &c_733408);; -} - -static void __lambda_358(void *data, int argc, object self_73876, object r_73328) { - if( (boolean_f != r_73328) ){ - -closureN_type c_733411; -c_733411.hdr.mark = gc_color_red; - c_733411.hdr.grayed = 0; -c_733411.tag = closureN_tag; - c_733411.fn = (function_type)__lambda_355; -c_733411.num_args = 1; -c_733411.num_elements = 6; -c_733411.elements = (object *)alloca(sizeof(object) * 6); -c_733411.elements[0] = ((closureN)self_73876)->elements[0]; -c_733411.elements[1] = ((closureN)self_73876)->elements[1]; -c_733411.elements[2] = ((closureN)self_73876)->elements[2]; -c_733411.elements[3] = ((closureN)self_73876)->elements[4]; -c_733411.elements[4] = ((closureN)self_73876)->elements[5]; -c_733411.elements[5] = ((closureN)self_73876)->elements[7]; - -return_closcall2(data, ((closureN)self_73876)->elements[6], &c_733411, ((closureN)self_73876)->elements[3]); -} else { - -closureN_type c_733430; -c_733430.hdr.mark = gc_color_red; - c_733430.hdr.grayed = 0; -c_733430.tag = closureN_tag; - c_733430.fn = (function_type)__lambda_357; -c_733430.num_args = 1; -c_733430.num_elements = 2; -c_733430.elements = (object *)alloca(sizeof(object) * 2); -c_733430.elements[0] = ((closureN)self_73876)->elements[2]; -c_733430.elements[1] = ((closureN)self_73876)->elements[5]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733430, ((closureN)self_73876)->elements[5]);} -; -} - -static void __lambda_357(void *data, int argc, object self_73877, object r_73332) { - -closureN_type c_733432; -c_733432.hdr.mark = gc_color_red; - c_733432.hdr.grayed = 0; -c_733432.tag = closureN_tag; - c_733432.fn = (function_type)__lambda_356; -c_733432.num_args = 1; -c_733432.num_elements = 2; -c_733432.elements = (object *)alloca(sizeof(object) * 2); -c_733432.elements[0] = ((closureN)self_73877)->elements[0]; -c_733432.elements[1] = r_73332; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733432, ((closureN)self_73877)->elements[1]);; -} - -static void __lambda_356(void *data, int argc, object self_73878, object r_73333) { - -make_string(c_733435, "Illegal number syntax"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73878)->elements[0], &c_733435, ((closureN)self_73878)->elements[1], r_73333);; -} - -static void __lambda_355(void *data, int argc, object self_73879, object result_73144) { - if( (boolean_f != ((closureN)self_73879)->elements[0]) ){ - -closureN_type c_733414; -c_733414.hdr.mark = gc_color_red; - c_733414.hdr.grayed = 0; -c_733414.tag = closureN_tag; - c_733414.fn = (function_type)__lambda_354; -c_733414.num_args = 1; -c_733414.num_elements = 7; -c_733414.elements = (object *)alloca(sizeof(object) * 7); -c_733414.elements[0] = ((closureN)self_73879)->elements[0]; -c_733414.elements[1] = ((closureN)self_73879)->elements[1]; -c_733414.elements[2] = ((closureN)self_73879)->elements[2]; -c_733414.elements[3] = ((closureN)self_73879)->elements[3]; -c_733414.elements[4] = ((closureN)self_73879)->elements[4]; -c_733414.elements[5] = result_73144; -c_733414.elements[6] = ((closureN)self_73879)->elements[5]; - -return_closcall1(data,(closure)&c_733414, NULL); -} else { - return_closcall1(data, ((closureN)self_73879)->elements[2], result_73144);} -; -} - -static void __lambda_354(void *data, int argc, object self_73880, object r_73330) { - -make_pair(c_733420,((closureN)self_73880)->elements[5], ((closureN)self_73880)->elements[6]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73880)->elements[2], ((closureN)self_73880)->elements[1], r_73330, &c_733420, ((closureN)self_73880)->elements[0], boolean_f, ((closureN)self_73880)->elements[3], ((closureN)self_73880)->elements[4]);; -} - -static void __lambda_353(void *data, int argc, object self_73881, object k_73334) { - if( (boolean_f != Cyc_is_null(((closureN)self_73881)->elements[1])) ){ - return_closcall1(data, k_73334, boolean_f); -} else { - -closureN_type c_733381; -c_733381.hdr.mark = gc_color_red; - c_733381.hdr.grayed = 0; -c_733381.tag = closureN_tag; - c_733381.fn = (function_type)__lambda_352; -c_733381.num_args = 1; -c_733381.num_elements = 3; -c_733381.elements = (object *)alloca(sizeof(object) * 3); -c_733381.elements[0] = ((closureN)self_73881)->elements[0]; -c_733381.elements[1] = k_73334; -c_733381.elements[2] = ((closureN)self_73881)->elements[1]; - -return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733381, ((closureN)self_73881)->elements[1]);} -; -} - -static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) { - if( (boolean_f != tmp_73145) ){ - return_closcall1(data, ((closureN)self_73882)->elements[1], tmp_73145); -} else { - -closureN_type c_733385; -c_733385.hdr.mark = gc_color_red; - c_733385.hdr.grayed = 0; -c_733385.tag = closureN_tag; - c_733385.fn = (function_type)__lambda_351; -c_733385.num_args = 1; -c_733385.num_elements = 3; -c_733385.elements = (object *)alloca(sizeof(object) * 3); -c_733385.elements[0] = ((closureN)self_73882)->elements[0]; -c_733385.elements[1] = ((closureN)self_73882)->elements[1]; -c_733385.elements[2] = ((closureN)self_73882)->elements[2]; - - -object c_733403 = Cyc_num_gt(data,(closure)&c_733385,2,Cyc_length(data, ((closureN)self_73882)->elements[2]), obj_int2obj(0)); -return_closcall1(data,(closure)&c_733385, c_733403);} -; -} - -static void __lambda_351(void *data, int argc, object self_73883, object r_73337) { - if( (boolean_f != r_73337) ){ - -closureN_type c_733387; -c_733387.hdr.mark = gc_color_red; - c_733387.hdr.grayed = 0; -c_733387.tag = closureN_tag; - c_733387.fn = (function_type)__lambda_350; -c_733387.num_args = 1; -c_733387.num_elements = 2; -c_733387.elements = (object *)alloca(sizeof(object) * 2); -c_733387.elements[0] = ((closureN)self_73883)->elements[1]; -c_733387.elements[1] = ((closureN)self_73883)->elements[2]; - - -object c_733397 = Cyc_num_eq(data,(closure)&c_733387,2,((closureN)self_73883)->elements[0], obj_int2obj(16)); -return_closcall1(data,(closure)&c_733387, c_733397); -} else { - return_closcall1(data, ((closureN)self_73883)->elements[1], boolean_f);} -; -} - -static void __lambda_350(void *data, int argc, object self_73884, object r_73338) { - if( (boolean_f != r_73338) ){ - return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73884)->elements[0], car(((closureN)self_73884)->elements[1])); -} else { - return_closcall1(data, ((closureN)self_73884)->elements[0], boolean_f);} -; -} - -static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) { - Cyc_st_add(data, "scheme/read.sld:parse-li-rec"); - -closureN_type c_733319; -c_733319.hdr.mark = gc_color_red; - c_733319.hdr.grayed = 0; -c_733319.tag = closureN_tag; - c_733319.fn = (function_type)__lambda_348; -c_733319.num_args = 1; -c_733319.num_elements = 4; -c_733319.elements = (object *)alloca(sizeof(object) * 4); -c_733319.elements[0] = fp_73148; -c_733319.elements[1] = k_73344; -c_733319.elements[2] = ptbl_73146; -c_733319.elements[3] = tok_73147; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733319, fp_73148, ptbl_73146);; -} - -static void __lambda_348(void *data, int argc, object self_73885, object r_73345) { - -closureN_type c_733321; -c_733321.hdr.mark = gc_color_red; - c_733321.hdr.grayed = 0; -c_733321.tag = closureN_tag; - c_733321.fn = (function_type)__lambda_346; -c_733321.num_args = 1; -c_733321.num_elements = 4; -c_733321.elements = (object *)alloca(sizeof(object) * 4); -c_733321.elements[0] = ((closureN)self_73885)->elements[1]; -c_733321.elements[1] = ((closureN)self_73885)->elements[2]; -c_733321.elements[2] = r_73345; -c_733321.elements[3] = ((closureN)self_73885)->elements[3]; - - -closureN_type c_733361; -c_733361.hdr.mark = gc_color_red; - c_733361.hdr.grayed = 0; -c_733361.tag = closureN_tag; - c_733361.fn = (function_type)__lambda_347; -c_733361.num_args = 1; -c_733361.num_elements = 3; -c_733361.elements = (object *)alloca(sizeof(object) * 3); -c_733361.elements[0] = ((closureN)self_73885)->elements[0]; -c_733361.elements[1] = ((closureN)self_73885)->elements[2]; -c_733361.elements[2] = ((closureN)self_73885)->elements[3]; - -return_closcall1(data,(closure)&c_733321, &c_733361);; -} - -static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) { - -make_pair(c_733366,c_73149, ((closureN)self_73886)->elements[2]); -return_closcall4(data, __glo_parse_91li_91rec_scheme_read, k_73355, ((closureN)self_73886)->elements[0], &c_733366, ((closureN)self_73886)->elements[1]);; -} - -static void __lambda_346(void *data, int argc, object self_73887, object r_73346) { - -closureN_type c_733323; -c_733323.hdr.mark = gc_color_red; - c_733323.hdr.grayed = 0; -c_733323.tag = closureN_tag; - c_733323.fn = (function_type)__lambda_345; -c_733323.num_args = 2; -c_733323.num_elements = 3; -c_733323.elements = (object *)alloca(sizeof(object) * 3); -c_733323.elements[0] = ((closureN)self_73887)->elements[0]; -c_733323.elements[1] = ((closureN)self_73887)->elements[1]; -c_733323.elements[2] = ((closureN)self_73887)->elements[3]; - -return_closcall2(data,(closure)&c_733323, ((closureN)self_73887)->elements[2], r_73346);; -} - -static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) { - if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73151)) ){ - -closureN_type c_733327; -c_733327.hdr.mark = gc_color_red; - c_733327.hdr.grayed = 0; -c_733327.tag = closureN_tag; - c_733327.fn = (function_type)__lambda_341; -c_733327.num_args = 0; -c_733327.num_elements = 1; -c_733327.elements = (object *)alloca(sizeof(object) * 1); -c_733327.elements[0] = ((closureN)self_73888)->elements[2]; - - -closureN_type c_733341; -c_733341.hdr.mark = gc_color_red; - c_733341.hdr.grayed = 0; -c_733341.tag = closureN_tag; - c_733341.fn = (function_type)__lambda_342; -c_733341.num_args = 1; -c_733341.num_elements = 1; -c_733341.elements = (object *)alloca(sizeof(object) * 1); -c_733341.elements[0] = ((closureN)self_73888)->elements[0]; - -return_closcall1(data,(closure)&c_733327, &c_733341); -} else { - if( (boolean_f != Cyc_is_eof_object(c_73151)) ){ - -closureN_type c_733349; -c_733349.hdr.mark = gc_color_red; - c_733349.hdr.grayed = 0; -c_733349.tag = closureN_tag; - c_733349.fn = (function_type)__lambda_344; -c_733349.num_args = 1; -c_733349.num_elements = 2; -c_733349.elements = (object *)alloca(sizeof(object) * 2); -c_733349.elements[0] = ((closureN)self_73888)->elements[0]; -c_733349.elements[1] = ((closureN)self_73888)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733349, ((closureN)self_73888)->elements[1]); -} else { - return_closcall2(data, next_73150, ((closureN)self_73888)->elements[0], c_73151);} -} -; -} - -static void __lambda_344(void *data, int argc, object self_73889, object r_73353) { - -closureN_type c_733351; -c_733351.hdr.mark = gc_color_red; - c_733351.hdr.grayed = 0; -c_733351.tag = closureN_tag; - c_733351.fn = (function_type)__lambda_343; -c_733351.num_args = 1; -c_733351.num_elements = 2; -c_733351.elements = (object *)alloca(sizeof(object) * 2); -c_733351.elements[0] = ((closureN)self_73889)->elements[0]; -c_733351.elements[1] = r_73353; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733351, ((closureN)self_73889)->elements[1]);; -} - -static void __lambda_343(void *data, int argc, object self_73890, object r_73354) { - -make_string(c_733354, "EOF encountered parsing literal identifier"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73890)->elements[0], &c_733354, ((closureN)self_73890)->elements[1], r_73354);; -} - -static void __lambda_342(void *data, int argc, object self_73891, object str_73152) { - return_closcall1(data, ((closureN)self_73891)->elements[0], Cyc_string2symbol(data, str_73152));; -} - -static void __lambda_341(void *data, int argc, object self_73892, object k_73349) { - if( (boolean_f != Cyc_is_null(((closureN)self_73892)->elements[0])) ){ - -make_string(c_733332, "||"); -return_closcall1(data, k_73349, &c_733332); -} else { - -closureN_type c_733334; -c_733334.hdr.mark = gc_color_red; - c_733334.hdr.grayed = 0; -c_733334.tag = closureN_tag; - c_733334.fn = (function_type)__lambda_340; -c_733334.num_args = 1; -c_733334.num_elements = 1; -c_733334.elements = (object *)alloca(sizeof(object) * 1); -c_733334.elements[0] = k_73349; - -return_closcall2(data, __glo_reverse_scheme_base, &c_733334, ((closureN)self_73892)->elements[0]);} -; -} - -static void __lambda_340(void *data, int argc, object self_73893, object r_73351) { - -object c_733339 = Cyc_list2string(data, ((closureN)self_73893)->elements[0],r_73351); -return_closcall1(data, ((closureN)self_73893)->elements[0], c_733339);; -} - -static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) { - Cyc_st_add(data, "scheme/read.sld:parse-literal-identifier"); - -closureN_type c_733296; -c_733296.hdr.mark = gc_color_red; - c_733296.hdr.grayed = 0; -c_733296.tag = closureN_tag; - c_733296.fn = (function_type)__lambda_338; -c_733296.num_args = 1; -c_733296.num_elements = 6; -c_733296.elements = (object *)alloca(sizeof(object) * 6); -c_733296.elements[0] = all_127_73155; -c_733296.elements[1] = fp_73157; -c_733296.elements[2] = k_73359; -c_733296.elements[3] = parens_73154; -c_733296.elements[4] = ptbl_73153; -c_733296.elements[5] = toks_73156; - -return_closcall1(data,(closure)&c_733296, NULL);; -} - -static void __lambda_338(void *data, int argc, object self_73894, object r_73363) { - -closureN_type c_733298; -c_733298.hdr.mark = gc_color_red; - c_733298.hdr.grayed = 0; -c_733298.tag = closureN_tag; - c_733298.fn = (function_type)__lambda_337; -c_733298.num_args = 1; -c_733298.num_elements = 6; -c_733298.elements = (object *)alloca(sizeof(object) * 6); -c_733298.elements[0] = ((closureN)self_73894)->elements[0]; -c_733298.elements[1] = ((closureN)self_73894)->elements[1]; -c_733298.elements[2] = ((closureN)self_73894)->elements[2]; -c_733298.elements[3] = ((closureN)self_73894)->elements[3]; -c_733298.elements[4] = ((closureN)self_73894)->elements[4]; -c_733298.elements[5] = ((closureN)self_73894)->elements[5]; - -return_closcall4(data, __glo_parse_91li_91rec_scheme_read, &c_733298, ((closureN)self_73894)->elements[1], r_73363, ((closureN)self_73894)->elements[4]);; -} - -static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) { - if( (boolean_f != ((closureN)self_73895)->elements[0]) ){ - -closureN_type c_733301; -c_733301.hdr.mark = gc_color_red; - c_733301.hdr.grayed = 0; -c_733301.tag = closureN_tag; - c_733301.fn = (function_type)__lambda_336; -c_733301.num_args = 1; -c_733301.num_elements = 7; -c_733301.elements = (object *)alloca(sizeof(object) * 7); -c_733301.elements[0] = ((closureN)self_73895)->elements[0]; -c_733301.elements[1] = ((closureN)self_73895)->elements[1]; -c_733301.elements[2] = ((closureN)self_73895)->elements[2]; -c_733301.elements[3] = ((closureN)self_73895)->elements[3]; -c_733301.elements[4] = ((closureN)self_73895)->elements[4]; -c_733301.elements[5] = sym_73158; -c_733301.elements[6] = ((closureN)self_73895)->elements[5]; - -return_closcall1(data,(closure)&c_733301, NULL); -} else { - return_closcall1(data, ((closureN)self_73895)->elements[2], sym_73158);} -; -} - -static void __lambda_336(void *data, int argc, object self_73896, object r_73361) { - -make_pair(c_733307,((closureN)self_73896)->elements[5], ((closureN)self_73896)->elements[6]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73896)->elements[2], ((closureN)self_73896)->elements[1], r_73361, &c_733307, ((closureN)self_73896)->elements[0], boolean_f, ((closureN)self_73896)->elements[3], ((closureN)self_73896)->elements[4]);; -} - -static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) { - Cyc_st_add(data, "scheme/read.sld:read-block-terminator"); - -closureN_type c_733279; -c_733279.hdr.mark = gc_color_red; - c_733279.hdr.grayed = 0; -c_733279.tag = closureN_tag; - c_733279.fn = (function_type)__lambda_334; -c_733279.num_args = 1; -c_733279.num_elements = 3; -c_733279.elements = (object *)alloca(sizeof(object) * 3); -c_733279.elements[0] = fp_73160; -c_733279.elements[1] = k_73366; -c_733279.elements[2] = ptbl_73159; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733279, fp_73160, ptbl_73159);; -} - -static void __lambda_334(void *data, int argc, object self_73897, object c_73161) { - if( (boolean_f != Cyc_eq(obj_char2obj(35), c_73161)) ){ - return_closcall1(data, ((closureN)self_73897)->elements[1], boolean_t); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73161)) ){ - return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]); -} else { - return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]);} -} -; -} - -static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) { - Cyc_st_add(data, "scheme/read.sld:read-block-comment"); - -closureN_type c_733266; -c_733266.hdr.mark = gc_color_red; - c_733266.hdr.grayed = 0; -c_733266.tag = closureN_tag; - c_733266.fn = (function_type)__lambda_332; -c_733266.num_args = 1; -c_733266.num_elements = 3; -c_733266.elements = (object *)alloca(sizeof(object) * 3); -c_733266.elements[0] = fp_73163; -c_733266.elements[1] = k_73372; -c_733266.elements[2] = ptbl_73162; - -return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733266, fp_73163, ptbl_73162);; -} - -static void __lambda_332(void *data, int argc, object self_73898, object c_73164) { - if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73164)) ){ - return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]); -} else { - return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]);} -; -} - -static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) { - Cyc_st_add(data, "scheme/read.sld:get-next-char"); - -closureN_type c_733254; -c_733254.hdr.mark = gc_color_red; - c_733254.hdr.grayed = 0; -c_733254.tag = closureN_tag; - c_733254.fn = (function_type)__lambda_330; -c_733254.num_args = 1; -c_733254.num_elements = 3; -c_733254.elements = (object *)alloca(sizeof(object) * 3); -c_733254.elements[0] = fp_73166; -c_733254.elements[1] = k_73377; -c_733254.elements[2] = ptbl_73165; - -return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_733254, ptbl_73165);; -} - -static void __lambda_330(void *data, int argc, object self_73899, object r_73378) { - if( (boolean_f != r_73378) ){ - return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[2]); -} else { - -object c_733262 = Cyc_io_read_char(data, ((closureN)self_73899)->elements[1],((closureN)self_73899)->elements[0]); -return_closcall1(data, ((closureN)self_73899)->elements[1], c_733262);} -; -} - -static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) { - Cyc_st_add(data, "scheme/read.sld:parse-atom"); - -closureN_type c_733230; -c_733230.hdr.mark = gc_color_red; - c_733230.hdr.grayed = 0; -c_733230.tag = closureN_tag; - c_733230.fn = (function_type)__lambda_328; -c_733230.num_args = 1; -c_733230.num_elements = 2; -c_733230.elements = (object *)alloca(sizeof(object) * 2); -c_733230.elements[0] = a_73167; -c_733230.elements[1] = k_73381; - -return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733230, a_73167);; -} - -static void __lambda_328(void *data, int argc, object self_73900, object r_73382) { - if( (boolean_f != r_73382) ){ - -closureN_type c_733232; -c_733232.hdr.mark = gc_color_red; - c_733232.hdr.grayed = 0; -c_733232.tag = closureN_tag; - c_733232.fn = (function_type)__lambda_326; -c_733232.num_args = 1; -c_733232.num_elements = 1; -c_733232.elements = (object *)alloca(sizeof(object) * 1); -c_733232.elements[0] = ((closureN)self_73900)->elements[1]; - - -object c_733240 = Cyc_list2string(data,(closure)&c_733232,((closureN)self_73900)->elements[0]); -return_closcall1(data,(closure)&c_733232, c_733240); -} else { - -closureN_type c_733243; -c_733243.hdr.mark = gc_color_red; - c_733243.hdr.grayed = 0; -c_733243.tag = closureN_tag; - c_733243.fn = (function_type)__lambda_327; -c_733243.num_args = 1; -c_733243.num_elements = 1; -c_733243.elements = (object *)alloca(sizeof(object) * 1); -c_733243.elements[0] = ((closureN)self_73900)->elements[1]; - - -object c_733250 = Cyc_list2string(data,(closure)&c_733243,((closureN)self_73900)->elements[0]); -return_closcall1(data,(closure)&c_733243, c_733250);} -; -} - -static void __lambda_327(void *data, int argc, object self_73901, object r_73384) { - return_closcall1(data, ((closureN)self_73901)->elements[0], Cyc_string2symbol(data, r_73384));; -} - -static void __lambda_326(void *data, int argc, object self_73902, object r_73383) { - -object c_733237 = Cyc_string2number2_(data, ((closureN)self_73902)->elements[0],1,r_73383); -return_closcall1(data, ((closureN)self_73902)->elements[0], c_733237);; -} - -static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) { - Cyc_st_add(data, "scheme/read.sld:token-numeric?"); - -closureN_type c_733162; -c_733162.hdr.mark = gc_color_red; - c_733162.hdr.grayed = 0; -c_733162.tag = closureN_tag; - c_733162.fn = (function_type)__lambda_324; -c_733162.num_args = 1; -c_733162.num_elements = 2; -c_733162.elements = (object *)alloca(sizeof(object) * 2); -c_733162.elements[0] = a_73168; -c_733162.elements[1] = k_73387; - -return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733162, car(a_73168));; -} - -static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) { - if( (boolean_f != tmp_73169) ){ - return_closcall1(data, ((closureN)self_73903)->elements[1], tmp_73169); -} else { - -closureN_type c_733166; -c_733166.hdr.mark = gc_color_red; - c_733166.hdr.grayed = 0; -c_733166.tag = closureN_tag; - c_733166.fn = (function_type)__lambda_318; -c_733166.num_args = 0; -c_733166.num_elements = 1; -c_733166.elements = (object *)alloca(sizeof(object) * 1); -c_733166.elements[0] = ((closureN)self_73903)->elements[0]; - - -closureN_type c_733189; -c_733189.hdr.mark = gc_color_red; - c_733189.hdr.grayed = 0; -c_733189.tag = closureN_tag; - c_733189.fn = (function_type)__lambda_323; -c_733189.num_args = 1; -c_733189.num_elements = 2; -c_733189.elements = (object *)alloca(sizeof(object) * 2); -c_733189.elements[0] = ((closureN)self_73903)->elements[0]; -c_733189.elements[1] = ((closureN)self_73903)->elements[1]; - -return_closcall1(data,(closure)&c_733166, &c_733189);} -; -} - -static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) { - if( (boolean_f != tmp_73170) ){ - return_closcall1(data, ((closureN)self_73904)->elements[1], tmp_73170); -} else { - -closureN_type c_733193; -c_733193.hdr.mark = gc_color_red; - c_733193.hdr.grayed = 0; -c_733193.tag = closureN_tag; - c_733193.fn = (function_type)__lambda_322; -c_733193.num_args = 1; -c_733193.num_elements = 2; -c_733193.elements = (object *)alloca(sizeof(object) * 2); -c_733193.elements[0] = ((closureN)self_73904)->elements[0]; -c_733193.elements[1] = ((closureN)self_73904)->elements[1]; - - -object c_733222 = Cyc_num_gt(data,(closure)&c_733193,2,Cyc_length(data, ((closureN)self_73904)->elements[0]), obj_int2obj(1)); -return_closcall1(data,(closure)&c_733193, c_733222);} -; -} - -static void __lambda_322(void *data, int argc, object self_73905, object r_73390) { - if( (boolean_f != r_73390) ){ - -closureN_type c_733195; -c_733195.hdr.mark = gc_color_red; - c_733195.hdr.grayed = 0; -c_733195.tag = closureN_tag; - c_733195.fn = (function_type)__lambda_321; -c_733195.num_args = 1; -c_733195.num_elements = 2; -c_733195.elements = (object *)alloca(sizeof(object) * 2); -c_733195.elements[0] = ((closureN)self_73905)->elements[0]; -c_733195.elements[1] = ((closureN)self_73905)->elements[1]; - -return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733195, cadr(((closureN)self_73905)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73905)->elements[1], boolean_f);} -; -} - -static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) { - -closureN_type c_733197; -c_733197.hdr.mark = gc_color_red; - c_733197.hdr.grayed = 0; -c_733197.tag = closureN_tag; - c_733197.fn = (function_type)__lambda_319; -c_733197.num_args = 0; -c_733197.num_elements = 2; -c_733197.elements = (object *)alloca(sizeof(object) * 2); -c_733197.elements[0] = ((closureN)self_73906)->elements[0]; -c_733197.elements[1] = tmp_73171; - - -closureN_type c_733207; -c_733207.hdr.mark = gc_color_red; - c_733207.hdr.grayed = 0; -c_733207.tag = closureN_tag; - c_733207.fn = (function_type)__lambda_320; -c_733207.num_args = 1; -c_733207.num_elements = 2; -c_733207.elements = (object *)alloca(sizeof(object) * 2); -c_733207.elements[0] = ((closureN)self_73906)->elements[0]; -c_733207.elements[1] = ((closureN)self_73906)->elements[1]; - -return_closcall1(data,(closure)&c_733197, &c_733207);; -} - -static void __lambda_320(void *data, int argc, object self_73907, object r_73391) { - if( (boolean_f != r_73391) ){ - return_closcall2(data, __glo_sign_127_scheme_read, ((closureN)self_73907)->elements[1], car(((closureN)self_73907)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73907)->elements[1], boolean_f);} -; -} - -static void __lambda_319(void *data, int argc, object self_73908, object k_73394) { - if( (boolean_f != ((closureN)self_73908)->elements[1]) ){ - return_closcall1(data, k_73394, ((closureN)self_73908)->elements[1]); -} else { - return_closcall1(data, k_73394, Cyc_eq(obj_char2obj(46), cadr(((closureN)self_73908)->elements[0])));} -; -} - -static void __lambda_318(void *data, int argc, object self_73909, object k_73398) { - -closureN_type c_733168; -c_733168.hdr.mark = gc_color_red; - c_733168.hdr.grayed = 0; -c_733168.tag = closureN_tag; - c_733168.fn = (function_type)__lambda_317; -c_733168.num_args = 1; -c_733168.num_elements = 2; -c_733168.elements = (object *)alloca(sizeof(object) * 2); -c_733168.elements[0] = ((closureN)self_73909)->elements[0]; -c_733168.elements[1] = k_73398; - - -object c_733185 = Cyc_num_gt(data,(closure)&c_733168,2,Cyc_length(data, ((closureN)self_73909)->elements[0]), obj_int2obj(1)); -return_closcall1(data,(closure)&c_733168, c_733185);; -} - -static void __lambda_317(void *data, int argc, object self_73910, object r_73399) { - if( (boolean_f != r_73399) ){ - if( (boolean_f != Cyc_eq(obj_char2obj(46), car(((closureN)self_73910)->elements[0]))) ){ - return_closcall2(data, __glo_char_91numeric_127_scheme__char, ((closureN)self_73910)->elements[1], cadr(((closureN)self_73910)->elements[0])); -} else { - return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);} - -} else { - return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);} -; -} - -static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) { - Cyc_st_add(data, "scheme/read.sld:sign?"); -if( (boolean_f != equalp(c_73172, obj_char2obj(43))) ){ - return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(43))); -} else { - return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(45)));} -; -} - -static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) { - Cyc_st_add(data, "scheme/read.sld:read-str-esc"); - -closureN_type c_733080; -c_733080.hdr.mark = gc_color_red; - c_733080.hdr.grayed = 0; -c_733080.tag = closureN_tag; - c_733080.fn = (function_type)__lambda_314; -c_733080.num_args = 1; -c_733080.num_elements = 3; -c_733080.elements = (object *)alloca(sizeof(object) * 3); -c_733080.elements[0] = buf_73175; -c_733080.elements[1] = k_73411; -c_733080.elements[2] = ptbl_73174; - - -object c_733150 = Cyc_io_read_char(data,(closure)&c_733080,fp_73176); -return_closcall1(data,(closure)&c_733080, c_733150);; -} - -static void __lambda_314(void *data, int argc, object self_73911, object c_73177) { - if( (boolean_f != Cyc_is_eof_object(c_73177)) ){ - -closureN_type c_733084; -c_733084.hdr.mark = gc_color_red; - c_733084.hdr.grayed = 0; -c_733084.tag = closureN_tag; - c_733084.fn = (function_type)__lambda_306; -c_733084.num_args = 1; -c_733084.num_elements = 2; -c_733084.elements = (object *)alloca(sizeof(object) * 2); -c_733084.elements[0] = ((closureN)self_73911)->elements[1]; -c_733084.elements[1] = ((closureN)self_73911)->elements[2]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733084, ((closureN)self_73911)->elements[2]); -} else { - -closureN_type c_733094; -c_733094.hdr.mark = gc_color_red; - c_733094.hdr.grayed = 0; -c_733094.tag = closureN_tag; - c_733094.fn = (function_type)__lambda_307; -c_733094.num_args = 0; -c_733094.num_elements = 1; -c_733094.elements = (object *)alloca(sizeof(object) * 1); -c_733094.elements[0] = c_73177; - - -closureN_type c_733106; -c_733106.hdr.mark = gc_color_red; - c_733106.hdr.grayed = 0; -c_733106.tag = closureN_tag; - c_733106.fn = (function_type)__lambda_313; -c_733106.num_args = 1; -c_733106.num_elements = 4; -c_733106.elements = (object *)alloca(sizeof(object) * 4); -c_733106.elements[0] = ((closureN)self_73911)->elements[0]; -c_733106.elements[1] = c_73177; -c_733106.elements[2] = ((closureN)self_73911)->elements[1]; -c_733106.elements[3] = ((closureN)self_73911)->elements[2]; - -return_closcall1(data,(closure)&c_733094, &c_733106);} -; -} - -static void __lambda_313(void *data, int argc, object self_73912, object r_73416) { - if( (boolean_f != r_73416) ){ - -make_pair(c_733111,((closureN)self_73912)->elements[1], ((closureN)self_73912)->elements[0]); -return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733111); -} else { - if( (boolean_f != equalp(obj_char2obj(110), ((closureN)self_73912)->elements[1])) ){ - -make_pair(c_733121,obj_char2obj(10), ((closureN)self_73912)->elements[0]); -return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733121); -} else { - -closureN_type c_733124; -c_733124.hdr.mark = gc_color_red; - c_733124.hdr.grayed = 0; -c_733124.tag = closureN_tag; - c_733124.fn = (function_type)__lambda_312; -c_733124.num_args = 1; -c_733124.num_elements = 2; -c_733124.elements = (object *)alloca(sizeof(object) * 2); -c_733124.elements[0] = ((closureN)self_73912)->elements[2]; -c_733124.elements[1] = ((closureN)self_73912)->elements[3]; - -return_closcall2(data, __glo__list_scheme_base, &c_733124, ((closureN)self_73912)->elements[1]);} -} -; -} - -static void __lambda_312(void *data, int argc, object self_73913, object r_73422) { - -closureN_type c_733126; -c_733126.hdr.mark = gc_color_red; - c_733126.hdr.grayed = 0; -c_733126.tag = closureN_tag; - c_733126.fn = (function_type)__lambda_311; -c_733126.num_args = 1; -c_733126.num_elements = 2; -c_733126.elements = (object *)alloca(sizeof(object) * 2); -c_733126.elements[0] = ((closureN)self_73913)->elements[0]; -c_733126.elements[1] = ((closureN)self_73913)->elements[1]; - - -object c_733146 = Cyc_list2string(data,(closure)&c_733126,r_73422); -return_closcall1(data,(closure)&c_733126, c_733146);; -} - -static void __lambda_311(void *data, int argc, object self_73914, object r_73421) { - -closureN_type c_733128; -c_733128.hdr.mark = gc_color_red; - c_733128.hdr.grayed = 0; -c_733128.tag = closureN_tag; - c_733128.fn = (function_type)__lambda_310; -c_733128.num_args = 1; -c_733128.num_elements = 2; -c_733128.elements = (object *)alloca(sizeof(object) * 2); -c_733128.elements[0] = ((closureN)self_73914)->elements[0]; -c_733128.elements[1] = ((closureN)self_73914)->elements[1]; - - -make_string(c_733142, "invalid escape character ["); - -make_string(c_733143, "] in string"); - -object c_733141 = Cyc_string_append(data,(closure)&c_733128,3,&c_733142, r_73421, &c_733143); -return_closcall1(data,(closure)&c_733128, c_733141);; -} - -static void __lambda_310(void *data, int argc, object self_73915, object r_73418) { - -closureN_type c_733130; -c_733130.hdr.mark = gc_color_red; - c_733130.hdr.grayed = 0; -c_733130.tag = closureN_tag; - c_733130.fn = (function_type)__lambda_309; -c_733130.num_args = 1; -c_733130.num_elements = 3; -c_733130.elements = (object *)alloca(sizeof(object) * 3); -c_733130.elements[0] = ((closureN)self_73915)->elements[0]; -c_733130.elements[1] = ((closureN)self_73915)->elements[1]; -c_733130.elements[2] = r_73418; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733130, ((closureN)self_73915)->elements[1]);; -} - -static void __lambda_309(void *data, int argc, object self_73916, object r_73419) { - -closureN_type c_733132; -c_733132.hdr.mark = gc_color_red; - c_733132.hdr.grayed = 0; -c_733132.tag = closureN_tag; - c_733132.fn = (function_type)__lambda_308; -c_733132.num_args = 1; -c_733132.num_elements = 3; -c_733132.elements = (object *)alloca(sizeof(object) * 3); -c_733132.elements[0] = ((closureN)self_73916)->elements[0]; -c_733132.elements[1] = ((closureN)self_73916)->elements[2]; -c_733132.elements[2] = r_73419; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733132, ((closureN)self_73916)->elements[1]);; -} - -static void __lambda_308(void *data, int argc, object self_73917, object r_73420) { - return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73917)->elements[0], ((closureN)self_73917)->elements[1], ((closureN)self_73917)->elements[2], r_73420);; -} - -static void __lambda_307(void *data, int argc, object self_73918, object k_73424) { - if( (boolean_f != equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])) ){ - return_closcall1(data, k_73424, equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])); -} else { - return_closcall1(data, k_73424, equalp(obj_char2obj(92), ((closureN)self_73918)->elements[0]));} -; -} - -static void __lambda_306(void *data, int argc, object self_73919, object r_73414) { - -closureN_type c_733086; -c_733086.hdr.mark = gc_color_red; - c_733086.hdr.grayed = 0; -c_733086.tag = closureN_tag; - c_733086.fn = (function_type)__lambda_305; -c_733086.num_args = 1; -c_733086.num_elements = 2; -c_733086.elements = (object *)alloca(sizeof(object) * 2); -c_733086.elements[0] = ((closureN)self_73919)->elements[0]; -c_733086.elements[1] = r_73414; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733086, ((closureN)self_73919)->elements[1]);; -} - -static void __lambda_305(void *data, int argc, object self_73920, object r_73415) { - -make_string(c_733089, "missing escaped character within string"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73920)->elements[0], &c_733089, ((closureN)self_73920)->elements[1], r_73415);; -} - -static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) { - Cyc_st_add(data, "scheme/read.sld:read-str"); - -closureN_type c_733033; -c_733033.hdr.mark = gc_color_red; - c_733033.hdr.grayed = 0; -c_733033.tag = closureN_tag; - c_733033.fn = (function_type)__lambda_303; -c_733033.num_args = 1; -c_733033.num_elements = 4; -c_733033.elements = (object *)alloca(sizeof(object) * 4); -c_733033.elements[0] = buf_73180; -c_733033.elements[1] = fp_73181; -c_733033.elements[2] = k_73427; -c_733033.elements[3] = ptbl_73179; - - -object c_733077 = Cyc_io_read_char(data,(closure)&c_733033,fp_73181); -return_closcall1(data,(closure)&c_733033, c_733077);; -} - -static void __lambda_303(void *data, int argc, object self_73921, object c_73182) { - if( (boolean_f != Cyc_is_eof_object(c_73182)) ){ - -closureN_type c_733037; -c_733037.hdr.mark = gc_color_red; - c_733037.hdr.grayed = 0; -c_733037.tag = closureN_tag; - c_733037.fn = (function_type)__lambda_300; -c_733037.num_args = 1; -c_733037.num_elements = 2; -c_733037.elements = (object *)alloca(sizeof(object) * 2); -c_733037.elements[0] = ((closureN)self_73921)->elements[2]; -c_733037.elements[1] = ((closureN)self_73921)->elements[3]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733037, ((closureN)self_73921)->elements[3]); -} else { - if( (boolean_f != equalp(obj_char2obj(92), c_73182)) ){ - -closureN_type c_733049; -c_733049.hdr.mark = gc_color_red; - c_733049.hdr.grayed = 0; -c_733049.tag = closureN_tag; - c_733049.fn = (function_type)__lambda_301; -c_733049.num_args = 1; -c_733049.num_elements = 3; -c_733049.elements = (object *)alloca(sizeof(object) * 3); -c_733049.elements[0] = ((closureN)self_73921)->elements[1]; -c_733049.elements[1] = ((closureN)self_73921)->elements[2]; -c_733049.elements[2] = ((closureN)self_73921)->elements[3]; - -return_closcall4(data, __glo_read_91str_91esc_scheme_read, &c_733049, ((closureN)self_73921)->elements[1], ((closureN)self_73921)->elements[0], ((closureN)self_73921)->elements[3]); -} else { - if( (boolean_f != equalp(obj_char2obj(34), c_73182)) ){ - -closureN_type c_733060; -c_733060.hdr.mark = gc_color_red; - c_733060.hdr.grayed = 0; -c_733060.tag = closureN_tag; - c_733060.fn = (function_type)__lambda_302; -c_733060.num_args = 1; -c_733060.num_elements = 1; -c_733060.elements = (object *)alloca(sizeof(object) * 1); -c_733060.elements[0] = ((closureN)self_73921)->elements[2]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_733060, ((closureN)self_73921)->elements[0]); -} else { - -make_pair(c_733072,c_73182, ((closureN)self_73921)->elements[0]); -return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73921)->elements[2], ((closureN)self_73921)->elements[1], &c_733072, ((closureN)self_73921)->elements[3]);} -} -} -; -} - -static void __lambda_302(void *data, int argc, object self_73922, object r_73435) { - -object c_733065 = Cyc_list2string(data, ((closureN)self_73922)->elements[0],r_73435); -return_closcall1(data, ((closureN)self_73922)->elements[0], c_733065);; -} - -static void __lambda_301(void *data, int argc, object self_73923, object r_73433) { - return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73923)->elements[1], ((closureN)self_73923)->elements[0], r_73433, ((closureN)self_73923)->elements[2]);; -} - -static void __lambda_300(void *data, int argc, object self_73924, object r_73430) { - -closureN_type c_733039; -c_733039.hdr.mark = gc_color_red; - c_733039.hdr.grayed = 0; -c_733039.tag = closureN_tag; - c_733039.fn = (function_type)__lambda_299; -c_733039.num_args = 1; -c_733039.num_elements = 2; -c_733039.elements = (object *)alloca(sizeof(object) * 2); -c_733039.elements[0] = ((closureN)self_73924)->elements[0]; -c_733039.elements[1] = r_73430; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733039, ((closureN)self_73924)->elements[1]);; -} - -static void __lambda_299(void *data, int argc, object self_73925, object r_73431) { - -make_string(c_733042, "missing closing double-quote"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73925)->elements[0], &c_733042, ((closureN)self_73925)->elements[1], r_73431);; -} - -static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) { - Cyc_st_add(data, "scheme/read.sld:read-pound"); - -closureN_type c_732721; -c_732721.hdr.mark = gc_color_red; - c_732721.hdr.grayed = 0; -c_732721.tag = closureN_tag; - c_732721.fn = (function_type)__lambda_297; -c_732721.num_args = 2; -c_732721.num_elements = 3; -c_732721.elements = (object *)alloca(sizeof(object) * 3); -c_732721.elements[0] = fp_73184; -c_732721.elements[1] = k_73439; -c_732721.elements[2] = ptbl_73183; - -return_closcall2(data,(closure)&c_732721, boolean_f, boolean_f);; -} - -static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) { - -closureN_type c_732723; -c_732723.hdr.mark = gc_color_red; - c_732723.hdr.grayed = 0; -c_732723.tag = closureN_tag; - c_732723.fn = (function_type)__lambda_296; -c_732723.num_args = 1; -c_732723.num_elements = 4; -c_732723.elements = (object *)alloca(sizeof(object) * 4); -c_732723.elements[0] = ((closureN)self_73926)->elements[0]; -c_732723.elements[1] = ((closureN)self_73926)->elements[1]; -c_732723.elements[2] = loop_73187; -c_732723.elements[3] = ((closureN)self_73926)->elements[2]; - - -make_cell(c_733030,done_73188); -return_closcall1(data,(closure)&c_732723, &c_733030);; -} - -static void __lambda_296(void *data, int argc, object self_73927, object done_73188) { - -closureN_type c_732725; -c_732725.hdr.mark = gc_color_red; - c_732725.hdr.grayed = 0; -c_732725.tag = closureN_tag; - c_732725.fn = (function_type)__lambda_295; -c_732725.num_args = 1; -c_732725.num_elements = 4; -c_732725.elements = (object *)alloca(sizeof(object) * 4); -c_732725.elements[0] = done_73188; -c_732725.elements[1] = ((closureN)self_73927)->elements[0]; -c_732725.elements[2] = ((closureN)self_73927)->elements[1]; -c_732725.elements[3] = ((closureN)self_73927)->elements[3]; - - -make_cell(c_733026,((closureN)self_73927)->elements[2]); -return_closcall1(data,(closure)&c_732725, &c_733026);; -} - -static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) { - -closureN_type c_732727; -c_732727.hdr.mark = gc_color_red; - c_732727.hdr.grayed = 0; -c_732727.tag = closureN_tag; - c_732727.fn = (function_type)__lambda_270; -c_732727.num_args = 1; -c_732727.num_elements = 4; -c_732727.elements = (object *)alloca(sizeof(object) * 4); -c_732727.elements[0] = ((closureN)self_73928)->elements[0]; -c_732727.elements[1] = ((closureN)self_73928)->elements[1]; -c_732727.elements[2] = ((closureN)self_73928)->elements[2]; -c_732727.elements[3] = loop_73187; - - -closureN_type c_732818; -c_732818.hdr.mark = gc_color_red; - c_732818.hdr.grayed = 0; -c_732818.tag = closureN_tag; - c_732818.fn = (function_type)__lambda_294; -c_732818.num_args = 1; -c_732818.num_elements = 1; -c_732818.elements = (object *)alloca(sizeof(object) * 1); -c_732818.elements[0] = ((closureN)self_73928)->elements[3]; - -return_closcall1(data,(closure)&c_732727, &c_732818);; -} - -static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) { - -closureN_type c_732820; -c_732820.hdr.mark = gc_color_red; - c_732820.hdr.grayed = 0; -c_732820.tag = closureN_tag; - c_732820.fn = (function_type)__lambda_293; -c_732820.num_args = 1; -c_732820.num_elements = 2; -c_732820.elements = (object *)alloca(sizeof(object) * 2); -c_732820.elements[0] = k_73458; -c_732820.elements[1] = ((closureN)self_73929)->elements[0]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_732820, raw_91buf_73195);; -} - -static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) { - -closureN_type c_732822; -c_732822.hdr.mark = gc_color_red; - c_732822.hdr.grayed = 0; -c_732822.tag = closureN_tag; - c_732822.fn = (function_type)__lambda_292; -c_732822.num_args = 1; -c_732822.num_elements = 3; -c_732822.elements = (object *)alloca(sizeof(object) * 3); -c_732822.elements[0] = buf_73196; -c_732822.elements[1] = ((closureN)self_73930)->elements[0]; -c_732822.elements[2] = ((closureN)self_73930)->elements[1]; - - -object c_733021 = Cyc_num_eq(data,(closure)&c_732822,2,obj_int2obj(0), Cyc_length(data, buf_73196)); -return_closcall1(data,(closure)&c_732822, c_733021);; -} - -static void __lambda_292(void *data, int argc, object self_73931, object r_73460) { - if( (boolean_f != r_73460) ){ - -closureN_type c_732824; -c_732824.hdr.mark = gc_color_red; - c_732824.hdr.grayed = 0; -c_732824.tag = closureN_tag; - c_732824.fn = (function_type)__lambda_272; -c_732824.num_args = 1; -c_732824.num_elements = 2; -c_732824.elements = (object *)alloca(sizeof(object) * 2); -c_732824.elements[0] = ((closureN)self_73931)->elements[1]; -c_732824.elements[1] = ((closureN)self_73931)->elements[2]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732824, ((closureN)self_73931)->elements[2]); -} else { - -closureN_type c_732834; -c_732834.hdr.mark = gc_color_red; - c_732834.hdr.grayed = 0; -c_732834.tag = closureN_tag; - c_732834.fn = (function_type)__lambda_291; -c_732834.num_args = 1; -c_732834.num_elements = 3; -c_732834.elements = (object *)alloca(sizeof(object) * 3); -c_732834.elements[0] = ((closureN)self_73931)->elements[0]; -c_732834.elements[1] = ((closureN)self_73931)->elements[1]; -c_732834.elements[2] = ((closureN)self_73931)->elements[2]; - - -object c_733015 = Cyc_num_eq(data,(closure)&c_732834,2,obj_int2obj(1), Cyc_length(data, ((closureN)self_73931)->elements[0])); -return_closcall1(data,(closure)&c_732834, c_733015);} -; -} - -static void __lambda_291(void *data, int argc, object self_73932, object r_73463) { - if( (boolean_f != r_73463) ){ - return_closcall1(data, ((closureN)self_73932)->elements[1], car(((closureN)self_73932)->elements[0])); -} else { - -closureN_type c_732841; -c_732841.hdr.mark = gc_color_red; - c_732841.hdr.grayed = 0; -c_732841.tag = closureN_tag; - c_732841.fn = (function_type)__lambda_290; -c_732841.num_args = 1; -c_732841.num_elements = 3; -c_732841.elements = (object *)alloca(sizeof(object) * 3); -c_732841.elements[0] = ((closureN)self_73932)->elements[0]; -c_732841.elements[1] = ((closureN)self_73932)->elements[1]; -c_732841.elements[2] = ((closureN)self_73932)->elements[2]; - - -make_pair(c_733012,obj_char2obj(109),NULL); - -make_pair(c_733011,obj_char2obj(114),&c_733012); - -make_pair(c_733010,obj_char2obj(97),&c_733011); - -make_pair(c_733009,obj_char2obj(108),&c_733010); - -make_pair(c_733008,obj_char2obj(97),&c_733009); -return_closcall1(data,(closure)&c_732841, &c_733008);} -; -} - -static void __lambda_290(void *data, int argc, object self_73933, object r_73493) { - if( (boolean_f != equalp(((closureN)self_73933)->elements[0], r_73493)) ){ - return_closcall1(data, ((closureN)self_73933)->elements[1], obj_char2obj(7)); -} else { - -closureN_type c_732848; -c_732848.hdr.mark = gc_color_red; - c_732848.hdr.grayed = 0; -c_732848.tag = closureN_tag; - c_732848.fn = (function_type)__lambda_289; -c_732848.num_args = 1; -c_732848.num_elements = 3; -c_732848.elements = (object *)alloca(sizeof(object) * 3); -c_732848.elements[0] = ((closureN)self_73933)->elements[0]; -c_732848.elements[1] = ((closureN)self_73933)->elements[1]; -c_732848.elements[2] = ((closureN)self_73933)->elements[2]; - - -make_pair(c_733007,obj_char2obj(101),NULL); - -make_pair(c_733006,obj_char2obj(99),&c_733007); - -make_pair(c_733005,obj_char2obj(97),&c_733006); - -make_pair(c_733004,obj_char2obj(112),&c_733005); - -make_pair(c_733003,obj_char2obj(115),&c_733004); - -make_pair(c_733002,obj_char2obj(107),&c_733003); - -make_pair(c_733001,obj_char2obj(99),&c_733002); - -make_pair(c_733000,obj_char2obj(97),&c_733001); - -make_pair(c_732999,obj_char2obj(98),&c_733000); -return_closcall1(data,(closure)&c_732848, &c_732999);} -; -} - -static void __lambda_289(void *data, int argc, object self_73934, object r_73492) { - if( (boolean_f != equalp(((closureN)self_73934)->elements[0], r_73492)) ){ - return_closcall1(data, ((closureN)self_73934)->elements[1], obj_char2obj(8)); -} else { - -closureN_type c_732855; -c_732855.hdr.mark = gc_color_red; - c_732855.hdr.grayed = 0; -c_732855.tag = closureN_tag; - c_732855.fn = (function_type)__lambda_288; -c_732855.num_args = 1; -c_732855.num_elements = 3; -c_732855.elements = (object *)alloca(sizeof(object) * 3); -c_732855.elements[0] = ((closureN)self_73934)->elements[0]; -c_732855.elements[1] = ((closureN)self_73934)->elements[1]; -c_732855.elements[2] = ((closureN)self_73934)->elements[2]; - - -make_pair(c_732998,obj_char2obj(101),NULL); - -make_pair(c_732997,obj_char2obj(116),&c_732998); - -make_pair(c_732996,obj_char2obj(101),&c_732997); - -make_pair(c_732995,obj_char2obj(108),&c_732996); - -make_pair(c_732994,obj_char2obj(101),&c_732995); - -make_pair(c_732993,obj_char2obj(100),&c_732994); -return_closcall1(data,(closure)&c_732855, &c_732993);} -; -} - -static void __lambda_288(void *data, int argc, object self_73935, object r_73491) { - if( (boolean_f != equalp(((closureN)self_73935)->elements[0], r_73491)) ){ - return_closcall1(data, ((closureN)self_73935)->elements[1], obj_char2obj(127)); -} else { - -closureN_type c_732862; -c_732862.hdr.mark = gc_color_red; - c_732862.hdr.grayed = 0; -c_732862.tag = closureN_tag; - c_732862.fn = (function_type)__lambda_287; -c_732862.num_args = 1; -c_732862.num_elements = 3; -c_732862.elements = (object *)alloca(sizeof(object) * 3); -c_732862.elements[0] = ((closureN)self_73935)->elements[0]; -c_732862.elements[1] = ((closureN)self_73935)->elements[1]; -c_732862.elements[2] = ((closureN)self_73935)->elements[2]; - - -make_pair(c_732992,obj_char2obj(101),NULL); - -make_pair(c_732991,obj_char2obj(112),&c_732992); - -make_pair(c_732990,obj_char2obj(97),&c_732991); - -make_pair(c_732989,obj_char2obj(99),&c_732990); - -make_pair(c_732988,obj_char2obj(115),&c_732989); - -make_pair(c_732987,obj_char2obj(101),&c_732988); -return_closcall1(data,(closure)&c_732862, &c_732987);} -; -} - -static void __lambda_287(void *data, int argc, object self_73936, object r_73490) { - if( (boolean_f != equalp(((closureN)self_73936)->elements[0], r_73490)) ){ - return_closcall1(data, ((closureN)self_73936)->elements[1], obj_char2obj(27)); -} else { - -closureN_type c_732869; -c_732869.hdr.mark = gc_color_red; - c_732869.hdr.grayed = 0; -c_732869.tag = closureN_tag; - c_732869.fn = (function_type)__lambda_286; -c_732869.num_args = 1; -c_732869.num_elements = 3; -c_732869.elements = (object *)alloca(sizeof(object) * 3); -c_732869.elements[0] = ((closureN)self_73936)->elements[0]; -c_732869.elements[1] = ((closureN)self_73936)->elements[1]; -c_732869.elements[2] = ((closureN)self_73936)->elements[2]; - - -make_pair(c_732986,obj_char2obj(101),NULL); - -make_pair(c_732985,obj_char2obj(110),&c_732986); - -make_pair(c_732984,obj_char2obj(105),&c_732985); - -make_pair(c_732983,obj_char2obj(108),&c_732984); - -make_pair(c_732982,obj_char2obj(119),&c_732983); - -make_pair(c_732981,obj_char2obj(101),&c_732982); - -make_pair(c_732980,obj_char2obj(110),&c_732981); -return_closcall1(data,(closure)&c_732869, &c_732980);} -; -} - -static void __lambda_286(void *data, int argc, object self_73937, object r_73489) { - if( (boolean_f != equalp(((closureN)self_73937)->elements[0], r_73489)) ){ - return_closcall1(data, ((closureN)self_73937)->elements[1], obj_char2obj(10)); -} else { - -closureN_type c_732876; -c_732876.hdr.mark = gc_color_red; - c_732876.hdr.grayed = 0; -c_732876.tag = closureN_tag; - c_732876.fn = (function_type)__lambda_285; -c_732876.num_args = 1; -c_732876.num_elements = 3; -c_732876.elements = (object *)alloca(sizeof(object) * 3); -c_732876.elements[0] = ((closureN)self_73937)->elements[0]; -c_732876.elements[1] = ((closureN)self_73937)->elements[1]; -c_732876.elements[2] = ((closureN)self_73937)->elements[2]; - - -make_pair(c_732979,obj_char2obj(108),NULL); - -make_pair(c_732978,obj_char2obj(108),&c_732979); - -make_pair(c_732977,obj_char2obj(117),&c_732978); - -make_pair(c_732976,obj_char2obj(110),&c_732977); -return_closcall1(data,(closure)&c_732876, &c_732976);} -; -} - -static void __lambda_285(void *data, int argc, object self_73938, object r_73488) { - if( (boolean_f != equalp(((closureN)self_73938)->elements[0], r_73488)) ){ - return_closcall1(data, ((closureN)self_73938)->elements[1], obj_char2obj(0)); -} else { - -closureN_type c_732883; -c_732883.hdr.mark = gc_color_red; - c_732883.hdr.grayed = 0; -c_732883.tag = closureN_tag; - c_732883.fn = (function_type)__lambda_284; -c_732883.num_args = 1; -c_732883.num_elements = 3; -c_732883.elements = (object *)alloca(sizeof(object) * 3); -c_732883.elements[0] = ((closureN)self_73938)->elements[0]; -c_732883.elements[1] = ((closureN)self_73938)->elements[1]; -c_732883.elements[2] = ((closureN)self_73938)->elements[2]; - - -make_pair(c_732975,obj_char2obj(110),NULL); - -make_pair(c_732974,obj_char2obj(114),&c_732975); - -make_pair(c_732973,obj_char2obj(117),&c_732974); - -make_pair(c_732972,obj_char2obj(116),&c_732973); - -make_pair(c_732971,obj_char2obj(101),&c_732972); - -make_pair(c_732970,obj_char2obj(114),&c_732971); -return_closcall1(data,(closure)&c_732883, &c_732970);} -; -} - -static void __lambda_284(void *data, int argc, object self_73939, object r_73487) { - if( (boolean_f != equalp(((closureN)self_73939)->elements[0], r_73487)) ){ - return_closcall1(data, ((closureN)self_73939)->elements[1], obj_char2obj(13)); -} else { - -closureN_type c_732890; -c_732890.hdr.mark = gc_color_red; - c_732890.hdr.grayed = 0; -c_732890.tag = closureN_tag; - c_732890.fn = (function_type)__lambda_283; -c_732890.num_args = 1; -c_732890.num_elements = 3; -c_732890.elements = (object *)alloca(sizeof(object) * 3); -c_732890.elements[0] = ((closureN)self_73939)->elements[0]; -c_732890.elements[1] = ((closureN)self_73939)->elements[1]; -c_732890.elements[2] = ((closureN)self_73939)->elements[2]; - - -make_pair(c_732969,obj_char2obj(101),NULL); - -make_pair(c_732968,obj_char2obj(99),&c_732969); - -make_pair(c_732967,obj_char2obj(97),&c_732968); - -make_pair(c_732966,obj_char2obj(112),&c_732967); - -make_pair(c_732965,obj_char2obj(115),&c_732966); -return_closcall1(data,(closure)&c_732890, &c_732965);} -; -} - -static void __lambda_283(void *data, int argc, object self_73940, object r_73486) { - if( (boolean_f != equalp(((closureN)self_73940)->elements[0], r_73486)) ){ - return_closcall1(data, ((closureN)self_73940)->elements[1], obj_char2obj(32)); -} else { - -closureN_type c_732897; -c_732897.hdr.mark = gc_color_red; - c_732897.hdr.grayed = 0; -c_732897.tag = closureN_tag; - c_732897.fn = (function_type)__lambda_282; -c_732897.num_args = 1; -c_732897.num_elements = 3; -c_732897.elements = (object *)alloca(sizeof(object) * 3); -c_732897.elements[0] = ((closureN)self_73940)->elements[0]; -c_732897.elements[1] = ((closureN)self_73940)->elements[1]; -c_732897.elements[2] = ((closureN)self_73940)->elements[2]; - - -make_pair(c_732964,obj_char2obj(98),NULL); - -make_pair(c_732963,obj_char2obj(97),&c_732964); - -make_pair(c_732962,obj_char2obj(116),&c_732963); -return_closcall1(data,(closure)&c_732897, &c_732962);} -; -} - -static void __lambda_282(void *data, int argc, object self_73941, object r_73485) { - if( (boolean_f != equalp(((closureN)self_73941)->elements[0], r_73485)) ){ - return_closcall1(data, ((closureN)self_73941)->elements[1], obj_char2obj(9)); -} else { - -closureN_type c_732904; -c_732904.hdr.mark = gc_color_red; - c_732904.hdr.grayed = 0; -c_732904.tag = closureN_tag; - c_732904.fn = (function_type)__lambda_274; -c_732904.num_args = 0; -c_732904.num_elements = 1; -c_732904.elements = (object *)alloca(sizeof(object) * 1); -c_732904.elements[0] = ((closureN)self_73941)->elements[0]; - - -closureN_type c_732922; -c_732922.hdr.mark = gc_color_red; - c_732922.hdr.grayed = 0; -c_732922.tag = closureN_tag; - c_732922.fn = (function_type)__lambda_281; -c_732922.num_args = 1; -c_732922.num_elements = 3; -c_732922.elements = (object *)alloca(sizeof(object) * 3); -c_732922.elements[0] = ((closureN)self_73941)->elements[0]; -c_732922.elements[1] = ((closureN)self_73941)->elements[1]; -c_732922.elements[2] = ((closureN)self_73941)->elements[2]; - -return_closcall1(data,(closure)&c_732904, &c_732922);} -; -} - -static void __lambda_281(void *data, int argc, object self_73942, object r_73473) { - if( (boolean_f != r_73473) ){ - -closureN_type c_732924; -c_732924.hdr.mark = gc_color_red; - c_732924.hdr.grayed = 0; -c_732924.tag = closureN_tag; - c_732924.fn = (function_type)__lambda_276; -c_732924.num_args = 1; -c_732924.num_elements = 1; -c_732924.elements = (object *)alloca(sizeof(object) * 1); -c_732924.elements[0] = ((closureN)self_73942)->elements[1]; - - -object c_732936 = Cyc_list2string(data,(closure)&c_732924,cdr(((closureN)self_73942)->elements[0])); -return_closcall1(data,(closure)&c_732924, c_732936); -} else { - -closureN_type c_732941; -c_732941.hdr.mark = gc_color_red; - c_732941.hdr.grayed = 0; -c_732941.tag = closureN_tag; - c_732941.fn = (function_type)__lambda_280; -c_732941.num_args = 1; -c_732941.num_elements = 2; -c_732941.elements = (object *)alloca(sizeof(object) * 2); -c_732941.elements[0] = ((closureN)self_73942)->elements[1]; -c_732941.elements[1] = ((closureN)self_73942)->elements[2]; - - -object c_732960 = Cyc_list2string(data,(closure)&c_732941,((closureN)self_73942)->elements[0]); -return_closcall1(data,(closure)&c_732941, c_732960);} -; -} - -static void __lambda_280(void *data, int argc, object self_73943, object r_73480) { - -closureN_type c_732943; -c_732943.hdr.mark = gc_color_red; - c_732943.hdr.grayed = 0; -c_732943.tag = closureN_tag; - c_732943.fn = (function_type)__lambda_279; -c_732943.num_args = 1; -c_732943.num_elements = 2; -c_732943.elements = (object *)alloca(sizeof(object) * 2); -c_732943.elements[0] = ((closureN)self_73943)->elements[0]; -c_732943.elements[1] = ((closureN)self_73943)->elements[1]; - - -make_string(c_732957, "unable to parse character: "); - -object c_732956 = Cyc_string_append(data,(closure)&c_732943,2,&c_732957, r_73480); -return_closcall1(data,(closure)&c_732943, c_732956);; -} - -static void __lambda_279(void *data, int argc, object self_73944, object r_73477) { - -closureN_type c_732945; -c_732945.hdr.mark = gc_color_red; - c_732945.hdr.grayed = 0; -c_732945.tag = closureN_tag; - c_732945.fn = (function_type)__lambda_278; -c_732945.num_args = 1; -c_732945.num_elements = 3; -c_732945.elements = (object *)alloca(sizeof(object) * 3); -c_732945.elements[0] = ((closureN)self_73944)->elements[0]; -c_732945.elements[1] = ((closureN)self_73944)->elements[1]; -c_732945.elements[2] = r_73477; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732945, ((closureN)self_73944)->elements[1]);; -} - -static void __lambda_278(void *data, int argc, object self_73945, object r_73478) { - -closureN_type c_732947; -c_732947.hdr.mark = gc_color_red; - c_732947.hdr.grayed = 0; -c_732947.tag = closureN_tag; - c_732947.fn = (function_type)__lambda_277; -c_732947.num_args = 1; -c_732947.num_elements = 3; -c_732947.elements = (object *)alloca(sizeof(object) * 3); -c_732947.elements[0] = ((closureN)self_73945)->elements[0]; -c_732947.elements[1] = ((closureN)self_73945)->elements[2]; -c_732947.elements[2] = r_73478; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732947, ((closureN)self_73945)->elements[1]);; -} - -static void __lambda_277(void *data, int argc, object self_73946, object r_73479) { - return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73946)->elements[0], ((closureN)self_73946)->elements[1], ((closureN)self_73946)->elements[2], r_73479);; -} - -static void __lambda_276(void *data, int argc, object self_73947, object r_73475) { - -closureN_type c_732926; -c_732926.hdr.mark = gc_color_red; - c_732926.hdr.grayed = 0; -c_732926.tag = closureN_tag; - c_732926.fn = (function_type)__lambda_275; -c_732926.num_args = 1; -c_732926.num_elements = 1; -c_732926.elements = (object *)alloca(sizeof(object) * 1); -c_732926.elements[0] = ((closureN)self_73947)->elements[0]; - - -object c_732933 = Cyc_string2number2_(data,(closure)&c_732926,2,r_73475, obj_int2obj(16)); -return_closcall1(data,(closure)&c_732926, c_732933);; -} - -static void __lambda_275(void *data, int argc, object self_73948, object r_73474) { - return_closcall1(data, ((closureN)self_73948)->elements[0], Cyc_integer2char(data, r_73474));; -} - -static void __lambda_274(void *data, int argc, object self_73949, object k_73481) { - -closureN_type c_732906; -c_732906.hdr.mark = gc_color_red; - c_732906.hdr.grayed = 0; -c_732906.tag = closureN_tag; - c_732906.fn = (function_type)__lambda_273; -c_732906.num_args = 1; -c_732906.num_elements = 2; -c_732906.elements = (object *)alloca(sizeof(object) * 2); -c_732906.elements[0] = ((closureN)self_73949)->elements[0]; -c_732906.elements[1] = k_73481; - - -object c_732918 = Cyc_num_gt(data,(closure)&c_732906,2,Cyc_length(data, ((closureN)self_73949)->elements[0]), obj_int2obj(1)); -return_closcall1(data,(closure)&c_732906, c_732918);; -} - -static void __lambda_273(void *data, int argc, object self_73950, object r_73482) { - if( (boolean_f != r_73482) ){ - return_closcall1(data, ((closureN)self_73950)->elements[1], equalp(car(((closureN)self_73950)->elements[0]), obj_char2obj(120))); -} else { - return_closcall1(data, ((closureN)self_73950)->elements[1], boolean_f);} -; -} - -static void __lambda_272(void *data, int argc, object self_73951, object r_73461) { - -closureN_type c_732826; -c_732826.hdr.mark = gc_color_red; - c_732826.hdr.grayed = 0; -c_732826.tag = closureN_tag; - c_732826.fn = (function_type)__lambda_271; -c_732826.num_args = 1; -c_732826.num_elements = 2; -c_732826.elements = (object *)alloca(sizeof(object) * 2); -c_732826.elements[0] = ((closureN)self_73951)->elements[0]; -c_732826.elements[1] = r_73461; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732826, ((closureN)self_73951)->elements[1]);; -} - -static void __lambda_271(void *data, int argc, object self_73952, object r_73462) { - -make_string(c_732829, "missing character"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73952)->elements[0], &c_732829, ((closureN)self_73952)->elements[1], r_73462);; -} - -static void __lambda_270(void *data, int argc, object self_73953, object r_73457) { - -closureN_type c_732729; -c_732729.hdr.mark = gc_color_red; - c_732729.hdr.grayed = 0; -c_732729.tag = closureN_tag; - c_732729.fn = (function_type)__lambda_269; -c_732729.num_args = 1; -c_732729.num_elements = 4; -c_732729.elements = (object *)alloca(sizeof(object) * 4); -c_732729.elements[0] = ((closureN)self_73953)->elements[0]; -c_732729.elements[1] = ((closureN)self_73953)->elements[1]; -c_732729.elements[2] = ((closureN)self_73953)->elements[2]; -c_732729.elements[3] = ((closureN)self_73953)->elements[3]; - -return_closcall1(data,(closure)&c_732729, Cyc_set_car(data, ((closureN)self_73953)->elements[0], r_73457));; -} - -static void __lambda_269(void *data, int argc, object self_73954, object r_73440) { - -closureN_type c_732731; -c_732731.hdr.mark = gc_color_red; - c_732731.hdr.grayed = 0; -c_732731.tag = closureN_tag; - c_732731.fn = (function_type)__lambda_259; -c_732731.num_args = 1; -c_732731.num_elements = 2; -c_732731.elements = (object *)alloca(sizeof(object) * 2); -c_732731.elements[0] = ((closureN)self_73954)->elements[2]; -c_732731.elements[1] = ((closureN)self_73954)->elements[3]; - - -closureN_type c_732744; -c_732744.hdr.mark = gc_color_red; - c_732744.hdr.grayed = 0; -c_732744.tag = closureN_tag; - c_732744.fn = (function_type)__lambda_268; -c_732744.num_args = 1; -c_732744.num_elements = 3; -c_732744.elements = (object *)alloca(sizeof(object) * 3); -c_732744.elements[0] = ((closureN)self_73954)->elements[0]; -c_732744.elements[1] = ((closureN)self_73954)->elements[1]; -c_732744.elements[2] = ((closureN)self_73954)->elements[3]; - -return_closcall1(data,(closure)&c_732731, &c_732744);; -} - -static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) { - -closureN_type c_732746; -c_732746.hdr.mark = gc_color_red; - c_732746.hdr.grayed = 0; -c_732746.tag = closureN_tag; - c_732746.fn = (function_type)__lambda_267; -c_732746.num_args = 1; -c_732746.num_elements = 5; -c_732746.elements = (object *)alloca(sizeof(object) * 5); -c_732746.elements[0] = buf_73191; -c_732746.elements[1] = ((closureN)self_73955)->elements[0]; -c_732746.elements[2] = ((closureN)self_73955)->elements[1]; -c_732746.elements[3] = k_73444; -c_732746.elements[4] = ((closureN)self_73955)->elements[2]; - - -object c_732813 = Cyc_io_peek_char(data,(closure)&c_732746,((closureN)self_73955)->elements[1]); -return_closcall1(data,(closure)&c_732746, c_732813);; -} - -static void __lambda_267(void *data, int argc, object self_73956, object c_73192) { - -closureN_type c_732748; -c_732748.hdr.mark = gc_color_red; - c_732748.hdr.grayed = 0; -c_732748.tag = closureN_tag; - c_732748.fn = (function_type)__lambda_264; -c_732748.num_args = 0; -c_732748.num_elements = 2; -c_732748.elements = (object *)alloca(sizeof(object) * 2); -c_732748.elements[0] = ((closureN)self_73956)->elements[0]; -c_732748.elements[1] = c_73192; - - -closureN_type c_732789; -c_732789.hdr.mark = gc_color_red; - c_732789.hdr.grayed = 0; -c_732789.tag = closureN_tag; - c_732789.fn = (function_type)__lambda_266; -c_732789.num_args = 1; -c_732789.num_elements = 5; -c_732789.elements = (object *)alloca(sizeof(object) * 5); -c_732789.elements[0] = ((closureN)self_73956)->elements[0]; -c_732789.elements[1] = ((closureN)self_73956)->elements[1]; -c_732789.elements[2] = ((closureN)self_73956)->elements[2]; -c_732789.elements[3] = ((closureN)self_73956)->elements[3]; -c_732789.elements[4] = ((closureN)self_73956)->elements[4]; - -return_closcall1(data,(closure)&c_732748, &c_732789);; -} - -static void __lambda_266(void *data, int argc, object self_73957, object r_73446) { - if( (boolean_f != r_73446) ){ - return_closcall2(data, cell_get(((closureN)self_73957)->elements[1]), ((closureN)self_73957)->elements[3], ((closureN)self_73957)->elements[0]); -} else { - -closureN_type c_732797; -c_732797.hdr.mark = gc_color_red; - c_732797.hdr.grayed = 0; -c_732797.tag = closureN_tag; - c_732797.fn = (function_type)__lambda_265; -c_732797.num_args = 1; -c_732797.num_elements = 3; -c_732797.elements = (object *)alloca(sizeof(object) * 3); -c_732797.elements[0] = ((closureN)self_73957)->elements[0]; -c_732797.elements[1] = ((closureN)self_73957)->elements[3]; -c_732797.elements[2] = ((closureN)self_73957)->elements[4]; - - -object c_732809 = Cyc_io_read_char(data,(closure)&c_732797,((closureN)self_73957)->elements[2]); -return_closcall1(data,(closure)&c_732797, c_732809);} -; -} - -static void __lambda_265(void *data, int argc, object self_73958, object r_73448) { - -make_pair(c_732805,r_73448, ((closureN)self_73958)->elements[0]); -return_closcall2(data, cell_get(((closureN)self_73958)->elements[2]), ((closureN)self_73958)->elements[1], &c_732805);; -} - -static void __lambda_264(void *data, int argc, object self_73959, object k_73450) { - if( (boolean_f != Cyc_is_eof_object(((closureN)self_73959)->elements[1])) ){ - return_closcall1(data, k_73450, Cyc_is_eof_object(((closureN)self_73959)->elements[1])); -} else { - -closureN_type c_732757; -c_732757.hdr.mark = gc_color_red; - c_732757.hdr.grayed = 0; -c_732757.tag = closureN_tag; - c_732757.fn = (function_type)__lambda_261; -c_732757.num_args = 0; -c_732757.num_elements = 2; -c_732757.elements = (object *)alloca(sizeof(object) * 2); -c_732757.elements[0] = ((closureN)self_73959)->elements[0]; -c_732757.elements[1] = ((closureN)self_73959)->elements[1]; - - -closureN_type c_732771; -c_732771.hdr.mark = gc_color_red; - c_732771.hdr.grayed = 0; -c_732771.tag = closureN_tag; - c_732771.fn = (function_type)__lambda_263; -c_732771.num_args = 1; -c_732771.num_elements = 3; -c_732771.elements = (object *)alloca(sizeof(object) * 3); -c_732771.elements[0] = ((closureN)self_73959)->elements[0]; -c_732771.elements[1] = ((closureN)self_73959)->elements[1]; -c_732771.elements[2] = k_73450; - -return_closcall1(data,(closure)&c_732757, &c_732771);} -; -} - -static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) { - if( (boolean_f != tmp_73194) ){ - return_closcall1(data, ((closureN)self_73960)->elements[2], tmp_73194); -} else { - -closureN_type c_732775; -c_732775.hdr.mark = gc_color_red; - c_732775.hdr.grayed = 0; -c_732775.tag = closureN_tag; - c_732775.fn = (function_type)__lambda_262; -c_732775.num_args = 1; -c_732775.num_elements = 2; -c_732775.elements = (object *)alloca(sizeof(object) * 2); -c_732775.elements[0] = ((closureN)self_73960)->elements[1]; -c_732775.elements[1] = ((closureN)self_73960)->elements[2]; - - -object c_732785 = Cyc_num_gt(data,(closure)&c_732775,2,Cyc_length(data, ((closureN)self_73960)->elements[0]), obj_int2obj(0)); -return_closcall1(data,(closure)&c_732775, c_732785);} -; -} - -static void __lambda_262(void *data, int argc, object self_73961, object r_73452) { - if( (boolean_f != r_73452) ){ - return_closcall1(data, ((closureN)self_73961)->elements[1], equalp(((closureN)self_73961)->elements[0], obj_char2obj(41))); -} else { - return_closcall1(data, ((closureN)self_73961)->elements[1], boolean_f);} -; -} - -static void __lambda_261(void *data, int argc, object self_73962, object k_73454) { - -closureN_type c_732759; -c_732759.hdr.mark = gc_color_red; - c_732759.hdr.grayed = 0; -c_732759.tag = closureN_tag; - c_732759.fn = (function_type)__lambda_260; -c_732759.num_args = 1; -c_732759.num_elements = 2; -c_732759.elements = (object *)alloca(sizeof(object) * 2); -c_732759.elements[0] = ((closureN)self_73962)->elements[0]; -c_732759.elements[1] = k_73454; - -return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_732759, ((closureN)self_73962)->elements[1]);; -} - -static void __lambda_260(void *data, int argc, object self_73963, object r_73455) { - if( (boolean_f != r_73455) ){ - -object c_732764 = Cyc_num_gt(data, ((closureN)self_73963)->elements[1],2,Cyc_length(data, ((closureN)self_73963)->elements[0]), obj_int2obj(0)); -return_closcall1(data, ((closureN)self_73963)->elements[1], c_732764); -} else { - return_closcall1(data, ((closureN)self_73963)->elements[1], boolean_f);} -; -} - -static void __lambda_259(void *data, int argc, object self_73964, object r_73443) { - -closureN_type c_732733; -c_732733.hdr.mark = gc_color_red; - c_732733.hdr.grayed = 0; -c_732733.tag = closureN_tag; - c_732733.fn = (function_type)__lambda_258; -c_732733.num_args = 1; -c_732733.num_elements = 2; -c_732733.elements = (object *)alloca(sizeof(object) * 2); -c_732733.elements[0] = ((closureN)self_73964)->elements[0]; -c_732733.elements[1] = ((closureN)self_73964)->elements[1]; - -return_closcall1(data,(closure)&c_732733, Cyc_set_car(data, ((closureN)self_73964)->elements[1], r_73443));; -} - -static void __lambda_258(void *data, int argc, object self_73965, object r_73441) { - -closureN_type c_732735; -c_732735.hdr.mark = gc_color_red; - c_732735.hdr.grayed = 0; -c_732735.tag = closureN_tag; - c_732735.fn = (function_type)__lambda_257; -c_732735.num_args = 1; -c_732735.num_elements = 2; -c_732735.elements = (object *)alloca(sizeof(object) * 2); -c_732735.elements[0] = ((closureN)self_73965)->elements[0]; -c_732735.elements[1] = ((closureN)self_73965)->elements[1]; - -return_closcall1(data,(closure)&c_732735, NULL);; -} - -static void __lambda_257(void *data, int argc, object self_73966, object r_73442) { - return_closcall2(data, cell_get(((closureN)self_73966)->elements[1]), ((closureN)self_73966)->elements[0], r_73442);; -} - -static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) { - Cyc_st_add(data, "scheme/read.sld:parse"); - -closureN_type c_731419; -c_731419.hdr.mark = gc_color_red; - c_731419.hdr.grayed = 0; -c_731419.tag = closureN_tag; - c_731419.fn = (function_type)__lambda_255; -c_731419.num_args = 1; -c_731419.num_elements = 8; -c_731419.elements = (object *)alloca(sizeof(object) * 8); -c_731419.elements[0] = all_127_73200; -c_731419.elements[1] = comment_127_73199; -c_731419.elements[2] = fp_73203; -c_731419.elements[3] = k_73498; -c_731419.elements[4] = parens_73198; -c_731419.elements[5] = ptbl_73197; -c_731419.elements[6] = tok_73202; -c_731419.elements[7] = toks_73201; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731419, ptbl_73197);; -} - -static void __lambda_255(void *data, int argc, object self_73967, object r_73748) { - -closureN_type c_731421; -c_731421.hdr.mark = gc_color_red; - c_731421.hdr.grayed = 0; -c_731421.tag = closureN_tag; - c_731421.fn = (function_type)__lambda_254; -c_731421.num_args = 1; -c_731421.num_elements = 8; -c_731421.elements = (object *)alloca(sizeof(object) * 8); -c_731421.elements[0] = ((closureN)self_73967)->elements[0]; -c_731421.elements[1] = ((closureN)self_73967)->elements[1]; -c_731421.elements[2] = ((closureN)self_73967)->elements[2]; -c_731421.elements[3] = ((closureN)self_73967)->elements[3]; -c_731421.elements[4] = ((closureN)self_73967)->elements[4]; -c_731421.elements[5] = ((closureN)self_73967)->elements[5]; -c_731421.elements[6] = ((closureN)self_73967)->elements[6]; -c_731421.elements[7] = ((closureN)self_73967)->elements[7]; - - -object c_732718 = Cyc_sum(data,(closure)&c_731421,2,obj_int2obj(1), r_73748); -return_closcall1(data,(closure)&c_731421, c_732718);; -} - -static void __lambda_254(void *data, int argc, object self_73968, object r_73747) { - -closureN_type c_731423; -c_731423.hdr.mark = gc_color_red; - c_731423.hdr.grayed = 0; -c_731423.tag = closureN_tag; - c_731423.fn = (function_type)__lambda_253; -c_731423.num_args = 1; -c_731423.num_elements = 8; -c_731423.elements = (object *)alloca(sizeof(object) * 8); -c_731423.elements[0] = ((closureN)self_73968)->elements[0]; -c_731423.elements[1] = ((closureN)self_73968)->elements[1]; -c_731423.elements[2] = ((closureN)self_73968)->elements[2]; -c_731423.elements[3] = ((closureN)self_73968)->elements[3]; -c_731423.elements[4] = ((closureN)self_73968)->elements[4]; -c_731423.elements[5] = ((closureN)self_73968)->elements[5]; -c_731423.elements[6] = ((closureN)self_73968)->elements[6]; -c_731423.elements[7] = ((closureN)self_73968)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731423, ((closureN)self_73968)->elements[5], r_73747);; -} - -static void __lambda_253(void *data, int argc, object self_73969, object r_73499) { - -closureN_type c_731425; -c_731425.hdr.mark = gc_color_red; - c_731425.hdr.grayed = 0; -c_731425.tag = closureN_tag; - c_731425.fn = (function_type)__lambda_37; -c_731425.num_args = 0; -c_731425.num_elements = 2; -c_731425.elements = (object *)alloca(sizeof(object) * 2); -c_731425.elements[0] = ((closureN)self_73969)->elements[2]; -c_731425.elements[1] = ((closureN)self_73969)->elements[5]; - - -closureN_type c_731438; -c_731438.hdr.mark = gc_color_red; - c_731438.hdr.grayed = 0; -c_731438.tag = closureN_tag; - c_731438.fn = (function_type)__lambda_252; -c_731438.num_args = 1; -c_731438.num_elements = 8; -c_731438.elements = (object *)alloca(sizeof(object) * 8); -c_731438.elements[0] = ((closureN)self_73969)->elements[0]; -c_731438.elements[1] = ((closureN)self_73969)->elements[1]; -c_731438.elements[2] = ((closureN)self_73969)->elements[2]; -c_731438.elements[3] = ((closureN)self_73969)->elements[3]; -c_731438.elements[4] = ((closureN)self_73969)->elements[4]; -c_731438.elements[5] = ((closureN)self_73969)->elements[5]; -c_731438.elements[6] = ((closureN)self_73969)->elements[6]; -c_731438.elements[7] = ((closureN)self_73969)->elements[7]; - -return_closcall1(data,(closure)&c_731425, &c_731438);; -} - -static void __lambda_252(void *data, int argc, object self_73970, object c_73205) { - -closureN_type c_731440; -c_731440.hdr.mark = gc_color_red; - c_731440.hdr.grayed = 0; -c_731440.tag = closureN_tag; - c_731440.fn = (function_type)__lambda_251; -c_731440.num_args = 1; -c_731440.num_elements = 9; -c_731440.elements = (object *)alloca(sizeof(object) * 9); -c_731440.elements[0] = ((closureN)self_73970)->elements[0]; -c_731440.elements[1] = c_73205; -c_731440.elements[2] = ((closureN)self_73970)->elements[1]; -c_731440.elements[3] = ((closureN)self_73970)->elements[2]; -c_731440.elements[4] = ((closureN)self_73970)->elements[3]; -c_731440.elements[5] = ((closureN)self_73970)->elements[4]; -c_731440.elements[6] = ((closureN)self_73970)->elements[5]; -c_731440.elements[7] = ((closureN)self_73970)->elements[6]; -c_731440.elements[8] = ((closureN)self_73970)->elements[7]; - -return_closcall1(data,(closure)&c_731440, quote_DEBUG);; -} - -static void __lambda_251(void *data, int argc, object self_73971, object r_73738) { - -closureN_type c_731442; -c_731442.hdr.mark = gc_color_red; - c_731442.hdr.grayed = 0; -c_731442.tag = closureN_tag; - c_731442.fn = (function_type)__lambda_250; -c_731442.num_args = 1; -c_731442.num_elements = 10; -c_731442.elements = (object *)alloca(sizeof(object) * 10); -c_731442.elements[0] = ((closureN)self_73971)->elements[0]; -c_731442.elements[1] = ((closureN)self_73971)->elements[1]; -c_731442.elements[2] = ((closureN)self_73971)->elements[2]; -c_731442.elements[3] = ((closureN)self_73971)->elements[3]; -c_731442.elements[4] = ((closureN)self_73971)->elements[4]; -c_731442.elements[5] = ((closureN)self_73971)->elements[5]; -c_731442.elements[6] = ((closureN)self_73971)->elements[6]; -c_731442.elements[7] = r_73738; -c_731442.elements[8] = ((closureN)self_73971)->elements[7]; -c_731442.elements[9] = ((closureN)self_73971)->elements[8]; - -return_closcall1(data,(closure)&c_731442, quote_read);; -} - -static void __lambda_250(void *data, int argc, object self_73972, object r_73740) { - -closureN_type c_731444; -c_731444.hdr.mark = gc_color_red; - c_731444.hdr.grayed = 0; -c_731444.tag = closureN_tag; - c_731444.fn = (function_type)__lambda_249; -c_731444.num_args = 1; -c_731444.num_elements = 11; -c_731444.elements = (object *)alloca(sizeof(object) * 11); -c_731444.elements[0] = ((closureN)self_73972)->elements[0]; -c_731444.elements[1] = ((closureN)self_73972)->elements[1]; -c_731444.elements[2] = ((closureN)self_73972)->elements[2]; -c_731444.elements[3] = ((closureN)self_73972)->elements[3]; -c_731444.elements[4] = ((closureN)self_73972)->elements[4]; -c_731444.elements[5] = ((closureN)self_73972)->elements[5]; -c_731444.elements[6] = ((closureN)self_73972)->elements[6]; -c_731444.elements[7] = ((closureN)self_73972)->elements[7]; -c_731444.elements[8] = r_73740; -c_731444.elements[9] = ((closureN)self_73972)->elements[8]; -c_731444.elements[10] = ((closureN)self_73972)->elements[9]; - -return_closcall1(data,(closure)&c_731444, NULL);; -} - -static void __lambda_249(void *data, int argc, object self_73973, object r_73744) { - -closureN_type c_731446; -c_731446.hdr.mark = gc_color_red; - c_731446.hdr.grayed = 0; -c_731446.tag = closureN_tag; - c_731446.fn = (function_type)__lambda_248; -c_731446.num_args = 1; -c_731446.num_elements = 9; -c_731446.elements = (object *)alloca(sizeof(object) * 9); -c_731446.elements[0] = ((closureN)self_73973)->elements[0]; -c_731446.elements[1] = ((closureN)self_73973)->elements[1]; -c_731446.elements[2] = ((closureN)self_73973)->elements[2]; -c_731446.elements[3] = ((closureN)self_73973)->elements[3]; -c_731446.elements[4] = ((closureN)self_73973)->elements[4]; -c_731446.elements[5] = ((closureN)self_73973)->elements[5]; -c_731446.elements[6] = ((closureN)self_73973)->elements[6]; -c_731446.elements[7] = ((closureN)self_73973)->elements[9]; -c_731446.elements[8] = ((closureN)self_73973)->elements[10]; - - -make_pair(c_732713,((closureN)self_73973)->elements[5], r_73744); - -make_pair(c_732709,((closureN)self_73973)->elements[1], &c_732713); - -make_pair(c_732705,((closureN)self_73973)->elements[9], &c_732709); - -make_pair(c_732701,((closureN)self_73973)->elements[8], &c_732705); - -make_pair(c_732697,((closureN)self_73973)->elements[7], &c_732701); -return_closcall2(data, __glo_write_scheme_write, &c_731446, &c_732697);; -} - -static void __lambda_248(void *data, int argc, object self_73974, object r_73501) { - -closureN_type c_731448; -c_731448.hdr.mark = gc_color_red; - c_731448.hdr.grayed = 0; -c_731448.tag = closureN_tag; - c_731448.fn = (function_type)__lambda_247; -c_731448.num_args = 1; -c_731448.num_elements = 9; -c_731448.elements = (object *)alloca(sizeof(object) * 9); -c_731448.elements[0] = ((closureN)self_73974)->elements[0]; -c_731448.elements[1] = ((closureN)self_73974)->elements[1]; -c_731448.elements[2] = ((closureN)self_73974)->elements[2]; -c_731448.elements[3] = ((closureN)self_73974)->elements[3]; -c_731448.elements[4] = ((closureN)self_73974)->elements[4]; -c_731448.elements[5] = ((closureN)self_73974)->elements[5]; -c_731448.elements[6] = ((closureN)self_73974)->elements[6]; -c_731448.elements[7] = ((closureN)self_73974)->elements[7]; -c_731448.elements[8] = ((closureN)self_73974)->elements[8]; - -return_closcall1(data, __glo_newline_scheme_base, &c_731448);; -} - -static void __lambda_247(void *data, int argc, object self_73975, object r_73736) { - -closureN_type c_731450; -c_731450.hdr.mark = gc_color_red; - c_731450.hdr.grayed = 0; -c_731450.tag = closureN_tag; - c_731450.fn = (function_type)__lambda_246; -c_731450.num_args = 1; -c_731450.num_elements = 9; -c_731450.elements = (object *)alloca(sizeof(object) * 9); -c_731450.elements[0] = ((closureN)self_73975)->elements[0]; -c_731450.elements[1] = ((closureN)self_73975)->elements[1]; -c_731450.elements[2] = ((closureN)self_73975)->elements[2]; -c_731450.elements[3] = ((closureN)self_73975)->elements[3]; -c_731450.elements[4] = ((closureN)self_73975)->elements[4]; -c_731450.elements[5] = ((closureN)self_73975)->elements[5]; -c_731450.elements[6] = ((closureN)self_73975)->elements[6]; -c_731450.elements[7] = ((closureN)self_73975)->elements[7]; -c_731450.elements[8] = ((closureN)self_73975)->elements[8]; - -return_closcall2(data, __glo_write_scheme_write, &c_731450, r_73736);; -} - -static void __lambda_246(void *data, int argc, object self_73976, object r_73502) { - if( (boolean_f != Cyc_is_eof_object(((closureN)self_73976)->elements[1])) ){ - -closureN_type c_731455; -c_731455.hdr.mark = gc_color_red; - c_731455.hdr.grayed = 0; -c_731455.tag = closureN_tag; - c_731455.fn = (function_type)__lambda_41; -c_731455.num_args = 0; -c_731455.num_elements = 2; -c_731455.elements = (object *)alloca(sizeof(object) * 2); -c_731455.elements[0] = ((closureN)self_73976)->elements[5]; -c_731455.elements[1] = ((closureN)self_73976)->elements[6]; - - -closureN_type c_731474; -c_731474.hdr.mark = gc_color_red; - c_731474.hdr.grayed = 0; -c_731474.tag = closureN_tag; - c_731474.fn = (function_type)__lambda_45; -c_731474.num_args = 1; -c_731474.num_elements = 5; -c_731474.elements = (object *)alloca(sizeof(object) * 5); -c_731474.elements[0] = ((closureN)self_73976)->elements[0]; -c_731474.elements[1] = ((closureN)self_73976)->elements[1]; -c_731474.elements[2] = ((closureN)self_73976)->elements[4]; -c_731474.elements[3] = ((closureN)self_73976)->elements[7]; -c_731474.elements[4] = ((closureN)self_73976)->elements[8]; - -return_closcall1(data,(closure)&c_731455, &c_731474); -} else { - if( (boolean_f != ((closureN)self_73976)->elements[2]) ){ - if( (boolean_f != Cyc_eq(((closureN)self_73976)->elements[1], obj_char2obj(10))) ){ - -closureN_type c_731506; -c_731506.hdr.mark = gc_color_red; - c_731506.hdr.grayed = 0; -c_731506.tag = closureN_tag; - c_731506.fn = (function_type)__lambda_50; -c_731506.num_args = 1; -c_731506.num_elements = 6; -c_731506.elements = (object *)alloca(sizeof(object) * 6); -c_731506.elements[0] = ((closureN)self_73976)->elements[0]; -c_731506.elements[1] = ((closureN)self_73976)->elements[3]; -c_731506.elements[2] = ((closureN)self_73976)->elements[4]; -c_731506.elements[3] = ((closureN)self_73976)->elements[5]; -c_731506.elements[4] = ((closureN)self_73976)->elements[6]; -c_731506.elements[5] = ((closureN)self_73976)->elements[8]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731506, ((closureN)self_73976)->elements[6]); -} else { - -closureN_type c_731529; -c_731529.hdr.mark = gc_color_red; - c_731529.hdr.grayed = 0; -c_731529.tag = closureN_tag; - c_731529.fn = (function_type)__lambda_51; -c_731529.num_args = 1; -c_731529.num_elements = 6; -c_731529.elements = (object *)alloca(sizeof(object) * 6); -c_731529.elements[0] = ((closureN)self_73976)->elements[0]; -c_731529.elements[1] = ((closureN)self_73976)->elements[3]; -c_731529.elements[2] = ((closureN)self_73976)->elements[4]; -c_731529.elements[3] = ((closureN)self_73976)->elements[5]; -c_731529.elements[4] = ((closureN)self_73976)->elements[6]; -c_731529.elements[5] = ((closureN)self_73976)->elements[8]; - -return_closcall1(data,(closure)&c_731529, NULL);} - -} else { - -closureN_type c_731538; -c_731538.hdr.mark = gc_color_red; - c_731538.hdr.grayed = 0; -c_731538.tag = closureN_tag; - c_731538.fn = (function_type)__lambda_245; -c_731538.num_args = 1; -c_731538.num_elements = 8; -c_731538.elements = (object *)alloca(sizeof(object) * 8); -c_731538.elements[0] = ((closureN)self_73976)->elements[0]; -c_731538.elements[1] = ((closureN)self_73976)->elements[1]; -c_731538.elements[2] = ((closureN)self_73976)->elements[3]; -c_731538.elements[3] = ((closureN)self_73976)->elements[4]; -c_731538.elements[4] = ((closureN)self_73976)->elements[5]; -c_731538.elements[5] = ((closureN)self_73976)->elements[6]; -c_731538.elements[6] = ((closureN)self_73976)->elements[7]; -c_731538.elements[7] = ((closureN)self_73976)->elements[8]; - -return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_731538, ((closureN)self_73976)->elements[1]);} -} -; -} - -static void __lambda_245(void *data, int argc, object self_73977, object r_73520) { - if( (boolean_f != r_73520) ){ - -closureN_type c_731540; -c_731540.hdr.mark = gc_color_red; - c_731540.hdr.grayed = 0; -c_731540.tag = closureN_tag; - c_731540.fn = (function_type)__lambda_54; -c_731540.num_args = 0; -c_731540.num_elements = 2; -c_731540.elements = (object *)alloca(sizeof(object) * 2); -c_731540.elements[0] = ((closureN)self_73977)->elements[1]; -c_731540.elements[1] = ((closureN)self_73977)->elements[5]; - - -closureN_type c_731556; -c_731556.hdr.mark = gc_color_red; - c_731556.hdr.grayed = 0; -c_731556.tag = closureN_tag; - c_731556.fn = (function_type)__lambda_57; -c_731556.num_args = 1; -c_731556.num_elements = 8; -c_731556.elements = (object *)alloca(sizeof(object) * 8); -c_731556.elements[0] = ((closureN)self_73977)->elements[0]; -c_731556.elements[1] = ((closureN)self_73977)->elements[1]; -c_731556.elements[2] = ((closureN)self_73977)->elements[2]; -c_731556.elements[3] = ((closureN)self_73977)->elements[3]; -c_731556.elements[4] = ((closureN)self_73977)->elements[4]; -c_731556.elements[5] = ((closureN)self_73977)->elements[5]; -c_731556.elements[6] = ((closureN)self_73977)->elements[6]; -c_731556.elements[7] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_731540, &c_731556); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(59))) ){ - return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[6], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_t, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5], ((closureN)self_73977)->elements[1]); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(39))) ){ - -closureN_type c_731591; -c_731591.hdr.mark = gc_color_red; - c_731591.hdr.grayed = 0; -c_731591.tag = closureN_tag; - c_731591.fn = (function_type)__lambda_58; -c_731591.num_args = 0; -c_731591.num_elements = 2; -c_731591.elements = (object *)alloca(sizeof(object) * 2); -c_731591.elements[0] = ((closureN)self_73977)->elements[0]; -c_731591.elements[1] = ((closureN)self_73977)->elements[6]; - - -closureN_type c_731598; -c_731598.hdr.mark = gc_color_red; - c_731598.hdr.grayed = 0; -c_731598.tag = closureN_tag; - c_731598.fn = (function_type)__lambda_73; -c_731598.num_args = 1; -c_731598.num_elements = 8; -c_731598.elements = (object *)alloca(sizeof(object) * 8); -c_731598.elements[0] = ((closureN)self_73977)->elements[0]; -c_731598.elements[1] = ((closureN)self_73977)->elements[1]; -c_731598.elements[2] = ((closureN)self_73977)->elements[2]; -c_731598.elements[3] = ((closureN)self_73977)->elements[3]; -c_731598.elements[4] = ((closureN)self_73977)->elements[4]; -c_731598.elements[5] = ((closureN)self_73977)->elements[5]; -c_731598.elements[6] = ((closureN)self_73977)->elements[6]; -c_731598.elements[7] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_731591, &c_731598); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(96))) ){ - -closureN_type c_731669; -c_731669.hdr.mark = gc_color_red; - c_731669.hdr.grayed = 0; -c_731669.tag = closureN_tag; - c_731669.fn = (function_type)__lambda_74; -c_731669.num_args = 0; -c_731669.num_elements = 2; -c_731669.elements = (object *)alloca(sizeof(object) * 2); -c_731669.elements[0] = ((closureN)self_73977)->elements[0]; -c_731669.elements[1] = ((closureN)self_73977)->elements[6]; - - -closureN_type c_731676; -c_731676.hdr.mark = gc_color_red; - c_731676.hdr.grayed = 0; -c_731676.tag = closureN_tag; - c_731676.fn = (function_type)__lambda_89; -c_731676.num_args = 1; -c_731676.num_elements = 8; -c_731676.elements = (object *)alloca(sizeof(object) * 8); -c_731676.elements[0] = ((closureN)self_73977)->elements[0]; -c_731676.elements[1] = ((closureN)self_73977)->elements[1]; -c_731676.elements[2] = ((closureN)self_73977)->elements[2]; -c_731676.elements[3] = ((closureN)self_73977)->elements[3]; -c_731676.elements[4] = ((closureN)self_73977)->elements[4]; -c_731676.elements[5] = ((closureN)self_73977)->elements[5]; -c_731676.elements[6] = ((closureN)self_73977)->elements[6]; -c_731676.elements[7] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_731669, &c_731676); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(44))) ){ - -closureN_type c_731747; -c_731747.hdr.mark = gc_color_red; - c_731747.hdr.grayed = 0; -c_731747.tag = closureN_tag; - c_731747.fn = (function_type)__lambda_90; -c_731747.num_args = 0; -c_731747.num_elements = 2; -c_731747.elements = (object *)alloca(sizeof(object) * 2); -c_731747.elements[0] = ((closureN)self_73977)->elements[0]; -c_731747.elements[1] = ((closureN)self_73977)->elements[6]; - - -closureN_type c_731754; -c_731754.hdr.mark = gc_color_red; - c_731754.hdr.grayed = 0; -c_731754.tag = closureN_tag; - c_731754.fn = (function_type)__lambda_119; -c_731754.num_args = 1; -c_731754.num_elements = 8; -c_731754.elements = (object *)alloca(sizeof(object) * 8); -c_731754.elements[0] = ((closureN)self_73977)->elements[0]; -c_731754.elements[1] = ((closureN)self_73977)->elements[1]; -c_731754.elements[2] = ((closureN)self_73977)->elements[2]; -c_731754.elements[3] = ((closureN)self_73977)->elements[3]; -c_731754.elements[4] = ((closureN)self_73977)->elements[4]; -c_731754.elements[5] = ((closureN)self_73977)->elements[5]; -c_731754.elements[6] = ((closureN)self_73977)->elements[6]; -c_731754.elements[7] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_731747, &c_731754); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(40))) ){ - -closureN_type c_731916; -c_731916.hdr.mark = gc_color_red; - c_731916.hdr.grayed = 0; -c_731916.tag = closureN_tag; - c_731916.fn = (function_type)__lambda_120; -c_731916.num_args = 0; -c_731916.num_elements = 2; -c_731916.elements = (object *)alloca(sizeof(object) * 2); -c_731916.elements[0] = ((closureN)self_73977)->elements[0]; -c_731916.elements[1] = ((closureN)self_73977)->elements[6]; - - -closureN_type c_731923; -c_731923.hdr.mark = gc_color_red; - c_731923.hdr.grayed = 0; -c_731923.tag = closureN_tag; - c_731923.fn = (function_type)__lambda_139; -c_731923.num_args = 1; -c_731923.num_elements = 8; -c_731923.elements = (object *)alloca(sizeof(object) * 8); -c_731923.elements[0] = ((closureN)self_73977)->elements[0]; -c_731923.elements[1] = ((closureN)self_73977)->elements[1]; -c_731923.elements[2] = ((closureN)self_73977)->elements[2]; -c_731923.elements[3] = ((closureN)self_73977)->elements[3]; -c_731923.elements[4] = ((closureN)self_73977)->elements[4]; -c_731923.elements[5] = ((closureN)self_73977)->elements[5]; -c_731923.elements[6] = ((closureN)self_73977)->elements[6]; -c_731923.elements[7] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_731916, &c_731923); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(41))) ){ - -closureN_type c_732017; -c_732017.hdr.mark = gc_color_red; - c_732017.hdr.grayed = 0; -c_732017.tag = closureN_tag; - c_732017.fn = (function_type)__lambda_140; -c_732017.num_args = 0; -c_732017.num_elements = 2; -c_732017.elements = (object *)alloca(sizeof(object) * 2); -c_732017.elements[0] = ((closureN)self_73977)->elements[0]; -c_732017.elements[1] = ((closureN)self_73977)->elements[6]; - - -closureN_type c_732024; -c_732024.hdr.mark = gc_color_red; - c_732024.hdr.grayed = 0; -c_732024.tag = closureN_tag; - c_732024.fn = (function_type)__lambda_148; -c_732024.num_args = 1; -c_732024.num_elements = 6; -c_732024.elements = (object *)alloca(sizeof(object) * 6); -c_732024.elements[0] = ((closureN)self_73977)->elements[1]; -c_732024.elements[1] = ((closureN)self_73977)->elements[3]; -c_732024.elements[2] = ((closureN)self_73977)->elements[4]; -c_732024.elements[3] = ((closureN)self_73977)->elements[5]; -c_732024.elements[4] = ((closureN)self_73977)->elements[6]; -c_732024.elements[5] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_732017, &c_732024); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(34))) ){ - -closureN_type c_732065; -c_732065.hdr.mark = gc_color_red; - c_732065.hdr.grayed = 0; -c_732065.tag = closureN_tag; - c_732065.fn = (function_type)__lambda_149; -c_732065.num_args = 0; -c_732065.num_elements = 2; -c_732065.elements = (object *)alloca(sizeof(object) * 2); -c_732065.elements[0] = ((closureN)self_73977)->elements[0]; -c_732065.elements[1] = ((closureN)self_73977)->elements[6]; - - -closureN_type c_732072; -c_732072.hdr.mark = gc_color_red; - c_732072.hdr.grayed = 0; -c_732072.tag = closureN_tag; - c_732072.fn = (function_type)__lambda_162; -c_732072.num_args = 1; -c_732072.num_elements = 8; -c_732072.elements = (object *)alloca(sizeof(object) * 8); -c_732072.elements[0] = ((closureN)self_73977)->elements[0]; -c_732072.elements[1] = ((closureN)self_73977)->elements[1]; -c_732072.elements[2] = ((closureN)self_73977)->elements[2]; -c_732072.elements[3] = ((closureN)self_73977)->elements[3]; -c_732072.elements[4] = ((closureN)self_73977)->elements[4]; -c_732072.elements[5] = ((closureN)self_73977)->elements[5]; -c_732072.elements[6] = ((closureN)self_73977)->elements[6]; -c_732072.elements[7] = ((closureN)self_73977)->elements[7]; - -return_closcall1(data,(closure)&c_732065, &c_732072); -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(35))) ){ - if( (boolean_f != Cyc_is_null(((closureN)self_73977)->elements[6])) ){ - -closureN_type c_732142; -c_732142.hdr.mark = gc_color_red; - c_732142.hdr.grayed = 0; -c_732142.tag = closureN_tag; - c_732142.fn = (function_type)__lambda_244; -c_732142.num_args = 1; -c_732142.num_elements = 8; -c_732142.elements = (object *)alloca(sizeof(object) * 8); -c_732142.elements[0] = ((closureN)self_73977)->elements[0]; -c_732142.elements[1] = ((closureN)self_73977)->elements[1]; -c_732142.elements[2] = ((closureN)self_73977)->elements[2]; -c_732142.elements[3] = ((closureN)self_73977)->elements[3]; -c_732142.elements[4] = ((closureN)self_73977)->elements[4]; -c_732142.elements[5] = ((closureN)self_73977)->elements[5]; -c_732142.elements[6] = ((closureN)self_73977)->elements[6]; -c_732142.elements[7] = ((closureN)self_73977)->elements[7]; - - -object c_732658 = Cyc_io_read_char(data,(closure)&c_732142,((closureN)self_73977)->elements[2]); -return_closcall1(data,(closure)&c_732142, c_732658); -} else { - -make_pair(c_732665,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732665, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);} - -} else { - if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(124))) ){ - return_closcall6(data, __glo_parse_91literal_91identifier_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]); -} else { - -make_pair(c_732687,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732687, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);} -} -} -} -} -} -} -} -} -} -; -} - -static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) { - -closureN_type c_732144; -c_732144.hdr.mark = gc_color_red; - c_732144.hdr.grayed = 0; -c_732144.tag = closureN_tag; - c_732144.fn = (function_type)__lambda_243; -c_732144.num_args = 1; -c_732144.num_elements = 8; -c_732144.elements = (object *)alloca(sizeof(object) * 8); -c_732144.elements[0] = ((closureN)self_73978)->elements[0]; -c_732144.elements[1] = ((closureN)self_73978)->elements[1]; -c_732144.elements[2] = ((closureN)self_73978)->elements[2]; -c_732144.elements[3] = ((closureN)self_73978)->elements[3]; -c_732144.elements[4] = ((closureN)self_73978)->elements[4]; -c_732144.elements[5] = ((closureN)self_73978)->elements[5]; -c_732144.elements[6] = ((closureN)self_73978)->elements[6]; -c_732144.elements[7] = ((closureN)self_73978)->elements[7]; - - -make_cell(c_732655,next_91c_73206); -return_closcall1(data,(closure)&c_732144, &c_732655);; -} - -static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) { - -closureN_type c_732146; -c_732146.hdr.mark = gc_color_red; - c_732146.hdr.grayed = 0; -c_732146.tag = closureN_tag; - c_732146.fn = (function_type)__lambda_242; -c_732146.num_args = 1; -c_732146.num_elements = 9; -c_732146.elements = (object *)alloca(sizeof(object) * 9); -c_732146.elements[0] = ((closureN)self_73979)->elements[0]; -c_732146.elements[1] = ((closureN)self_73979)->elements[1]; -c_732146.elements[2] = ((closureN)self_73979)->elements[2]; -c_732146.elements[3] = ((closureN)self_73979)->elements[3]; -c_732146.elements[4] = next_91c_73206; -c_732146.elements[5] = ((closureN)self_73979)->elements[4]; -c_732146.elements[6] = ((closureN)self_73979)->elements[5]; -c_732146.elements[7] = ((closureN)self_73979)->elements[6]; -c_732146.elements[8] = ((closureN)self_73979)->elements[7]; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732146, ((closureN)self_73979)->elements[5]);; -} - -static void __lambda_242(void *data, int argc, object self_73980, object r_73732) { - -closureN_type c_732148; -c_732148.hdr.mark = gc_color_red; - c_732148.hdr.grayed = 0; -c_732148.tag = closureN_tag; - c_732148.fn = (function_type)__lambda_241; -c_732148.num_args = 1; -c_732148.num_elements = 9; -c_732148.elements = (object *)alloca(sizeof(object) * 9); -c_732148.elements[0] = ((closureN)self_73980)->elements[0]; -c_732148.elements[1] = ((closureN)self_73980)->elements[1]; -c_732148.elements[2] = ((closureN)self_73980)->elements[2]; -c_732148.elements[3] = ((closureN)self_73980)->elements[3]; -c_732148.elements[4] = ((closureN)self_73980)->elements[4]; -c_732148.elements[5] = ((closureN)self_73980)->elements[5]; -c_732148.elements[6] = ((closureN)self_73980)->elements[6]; -c_732148.elements[7] = ((closureN)self_73980)->elements[7]; -c_732148.elements[8] = ((closureN)self_73980)->elements[8]; - - -object c_732651 = Cyc_sum(data,(closure)&c_732148,2,obj_int2obj(1), r_73732); -return_closcall1(data,(closure)&c_732148, c_732651);; -} - -static void __lambda_241(void *data, int argc, object self_73981, object r_73731) { - -closureN_type c_732150; -c_732150.hdr.mark = gc_color_red; - c_732150.hdr.grayed = 0; -c_732150.tag = closureN_tag; - c_732150.fn = (function_type)__lambda_240; -c_732150.num_args = 1; -c_732150.num_elements = 9; -c_732150.elements = (object *)alloca(sizeof(object) * 9); -c_732150.elements[0] = ((closureN)self_73981)->elements[0]; -c_732150.elements[1] = ((closureN)self_73981)->elements[1]; -c_732150.elements[2] = ((closureN)self_73981)->elements[2]; -c_732150.elements[3] = ((closureN)self_73981)->elements[3]; -c_732150.elements[4] = ((closureN)self_73981)->elements[4]; -c_732150.elements[5] = ((closureN)self_73981)->elements[5]; -c_732150.elements[6] = ((closureN)self_73981)->elements[6]; -c_732150.elements[7] = ((closureN)self_73981)->elements[7]; -c_732150.elements[8] = ((closureN)self_73981)->elements[8]; - -return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_732150, ((closureN)self_73981)->elements[6], r_73731);; -} - -static void __lambda_240(void *data, int argc, object self_73982, object r_73639) { - if( (boolean_f != Cyc_eq(obj_char2obj(124), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732157; -c_732157.hdr.mark = gc_color_red; - c_732157.hdr.grayed = 0; -c_732157.tag = closureN_tag; - c_732157.fn = (function_type)__lambda_164; -c_732157.num_args = 1; -c_732157.num_elements = 6; -c_732157.elements = (object *)alloca(sizeof(object) * 6); -c_732157.elements[0] = ((closureN)self_73982)->elements[0]; -c_732157.elements[1] = ((closureN)self_73982)->elements[2]; -c_732157.elements[2] = ((closureN)self_73982)->elements[3]; -c_732157.elements[3] = ((closureN)self_73982)->elements[5]; -c_732157.elements[4] = ((closureN)self_73982)->elements[6]; -c_732157.elements[5] = ((closureN)self_73982)->elements[8]; - -return_closcall3(data, __glo_read_91block_91comment_scheme_read, &c_732157, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(116), cell_get(((closureN)self_73982)->elements[4]))) ){ - if( (boolean_f != ((closureN)self_73982)->elements[0]) ){ - -closureN_type c_732176; -c_732176.hdr.mark = gc_color_red; - c_732176.hdr.grayed = 0; -c_732176.tag = closureN_tag; - c_732176.fn = (function_type)__lambda_165; -c_732176.num_args = 1; -c_732176.num_elements = 6; -c_732176.elements = (object *)alloca(sizeof(object) * 6); -c_732176.elements[0] = ((closureN)self_73982)->elements[0]; -c_732176.elements[1] = ((closureN)self_73982)->elements[2]; -c_732176.elements[2] = ((closureN)self_73982)->elements[3]; -c_732176.elements[3] = ((closureN)self_73982)->elements[5]; -c_732176.elements[4] = ((closureN)self_73982)->elements[6]; -c_732176.elements[5] = ((closureN)self_73982)->elements[8]; - -return_closcall1(data,(closure)&c_732176, NULL); -} else { - return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_t);} - -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(102), cell_get(((closureN)self_73982)->elements[4]))) ){ - if( (boolean_f != ((closureN)self_73982)->elements[0]) ){ - -closureN_type c_732196; -c_732196.hdr.mark = gc_color_red; - c_732196.hdr.grayed = 0; -c_732196.tag = closureN_tag; - c_732196.fn = (function_type)__lambda_166; -c_732196.num_args = 1; -c_732196.num_elements = 6; -c_732196.elements = (object *)alloca(sizeof(object) * 6); -c_732196.elements[0] = ((closureN)self_73982)->elements[0]; -c_732196.elements[1] = ((closureN)self_73982)->elements[2]; -c_732196.elements[2] = ((closureN)self_73982)->elements[3]; -c_732196.elements[3] = ((closureN)self_73982)->elements[5]; -c_732196.elements[4] = ((closureN)self_73982)->elements[6]; -c_732196.elements[5] = ((closureN)self_73982)->elements[8]; - -return_closcall1(data,(closure)&c_732196, NULL); -} else { - return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_f);} - -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(101), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732215; -c_732215.hdr.mark = gc_color_red; - c_732215.hdr.grayed = 0; -c_732215.tag = closureN_tag; - c_732215.fn = (function_type)__lambda_167; -c_732215.num_args = 1; -c_732215.num_elements = 6; -c_732215.elements = (object *)alloca(sizeof(object) * 6); -c_732215.elements[0] = ((closureN)self_73982)->elements[0]; -c_732215.elements[1] = ((closureN)self_73982)->elements[2]; -c_732215.elements[2] = ((closureN)self_73982)->elements[3]; -c_732215.elements[3] = ((closureN)self_73982)->elements[5]; -c_732215.elements[4] = ((closureN)self_73982)->elements[6]; -c_732215.elements[5] = ((closureN)self_73982)->elements[8]; - - -mclosure0(c_732223, (function_type)__lambda_169);c_732223.num_args = 1; -return_closcall1(data,(closure)&c_732215, &c_732223); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(105), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732234; -c_732234.hdr.mark = gc_color_red; - c_732234.hdr.grayed = 0; -c_732234.tag = closureN_tag; - c_732234.fn = (function_type)__lambda_170; -c_732234.num_args = 1; -c_732234.num_elements = 6; -c_732234.elements = (object *)alloca(sizeof(object) * 6); -c_732234.elements[0] = ((closureN)self_73982)->elements[0]; -c_732234.elements[1] = ((closureN)self_73982)->elements[2]; -c_732234.elements[2] = ((closureN)self_73982)->elements[3]; -c_732234.elements[3] = ((closureN)self_73982)->elements[5]; -c_732234.elements[4] = ((closureN)self_73982)->elements[6]; -c_732234.elements[5] = ((closureN)self_73982)->elements[8]; - - -mclosure0(c_732242, (function_type)__lambda_172);c_732242.num_args = 1; -return_closcall1(data,(closure)&c_732234, &c_732242); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(98), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732253; -c_732253.hdr.mark = gc_color_red; - c_732253.hdr.grayed = 0; -c_732253.tag = closureN_tag; - c_732253.fn = (function_type)__lambda_173; -c_732253.num_args = 1; -c_732253.num_elements = 6; -c_732253.elements = (object *)alloca(sizeof(object) * 6); -c_732253.elements[0] = ((closureN)self_73982)->elements[0]; -c_732253.elements[1] = ((closureN)self_73982)->elements[2]; -c_732253.elements[2] = ((closureN)self_73982)->elements[3]; -c_732253.elements[3] = ((closureN)self_73982)->elements[5]; -c_732253.elements[4] = ((closureN)self_73982)->elements[6]; -c_732253.elements[5] = ((closureN)self_73982)->elements[8]; - - -mclosure0(c_732261, (function_type)__lambda_175);c_732261.num_args = 1; -return_closcall1(data,(closure)&c_732253, &c_732261); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(111), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732278; -c_732278.hdr.mark = gc_color_red; - c_732278.hdr.grayed = 0; -c_732278.tag = closureN_tag; - c_732278.fn = (function_type)__lambda_176; -c_732278.num_args = 1; -c_732278.num_elements = 6; -c_732278.elements = (object *)alloca(sizeof(object) * 6); -c_732278.elements[0] = ((closureN)self_73982)->elements[0]; -c_732278.elements[1] = ((closureN)self_73982)->elements[2]; -c_732278.elements[2] = ((closureN)self_73982)->elements[3]; -c_732278.elements[3] = ((closureN)self_73982)->elements[5]; -c_732278.elements[4] = ((closureN)self_73982)->elements[6]; -c_732278.elements[5] = ((closureN)self_73982)->elements[8]; - - -mclosure0(c_732286, (function_type)__lambda_178);c_732286.num_args = 1; -return_closcall1(data,(closure)&c_732278, &c_732286); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(120), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732303; -c_732303.hdr.mark = gc_color_red; - c_732303.hdr.grayed = 0; -c_732303.tag = closureN_tag; - c_732303.fn = (function_type)__lambda_179; -c_732303.num_args = 1; -c_732303.num_elements = 6; -c_732303.elements = (object *)alloca(sizeof(object) * 6); -c_732303.elements[0] = ((closureN)self_73982)->elements[0]; -c_732303.elements[1] = ((closureN)self_73982)->elements[2]; -c_732303.elements[2] = ((closureN)self_73982)->elements[3]; -c_732303.elements[3] = ((closureN)self_73982)->elements[5]; -c_732303.elements[4] = ((closureN)self_73982)->elements[6]; -c_732303.elements[5] = ((closureN)self_73982)->elements[8]; - - -mclosure0(c_732311, (function_type)__lambda_181);c_732311.num_args = 1; -return_closcall1(data,(closure)&c_732303, &c_732311); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(117), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732328; -c_732328.hdr.mark = gc_color_red; - c_732328.hdr.grayed = 0; -c_732328.tag = closureN_tag; - c_732328.fn = (function_type)__lambda_210; -c_732328.num_args = 1; -c_732328.num_elements = 8; -c_732328.elements = (object *)alloca(sizeof(object) * 8); -c_732328.elements[0] = ((closureN)self_73982)->elements[0]; -c_732328.elements[1] = ((closureN)self_73982)->elements[2]; -c_732328.elements[2] = ((closureN)self_73982)->elements[3]; -c_732328.elements[3] = ((closureN)self_73982)->elements[4]; -c_732328.elements[4] = ((closureN)self_73982)->elements[5]; -c_732328.elements[5] = ((closureN)self_73982)->elements[6]; -c_732328.elements[6] = ((closureN)self_73982)->elements[7]; -c_732328.elements[7] = ((closureN)self_73982)->elements[8]; - - -object c_732470 = Cyc_io_read_char(data,(closure)&c_732328,((closureN)self_73982)->elements[2]); -return_closcall1(data,(closure)&c_732328, c_732470); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732478; -c_732478.hdr.mark = gc_color_red; - c_732478.hdr.grayed = 0; -c_732478.tag = closureN_tag; - c_732478.fn = (function_type)__lambda_227; -c_732478.num_args = 1; -c_732478.num_elements = 7; -c_732478.elements = (object *)alloca(sizeof(object) * 7); -c_732478.elements[0] = ((closureN)self_73982)->elements[0]; -c_732478.elements[1] = ((closureN)self_73982)->elements[2]; -c_732478.elements[2] = ((closureN)self_73982)->elements[3]; -c_732478.elements[3] = ((closureN)self_73982)->elements[5]; -c_732478.elements[4] = ((closureN)self_73982)->elements[6]; -c_732478.elements[5] = ((closureN)self_73982)->elements[7]; -c_732478.elements[6] = ((closureN)self_73982)->elements[8]; - -return_closcall1(data,(closure)&c_732478, NULL); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(92), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732568; -c_732568.hdr.mark = gc_color_red; - c_732568.hdr.grayed = 0; -c_732568.tag = closureN_tag; - c_732568.fn = (function_type)__lambda_229; -c_732568.num_args = 1; -c_732568.num_elements = 6; -c_732568.elements = (object *)alloca(sizeof(object) * 6); -c_732568.elements[0] = ((closureN)self_73982)->elements[0]; -c_732568.elements[1] = ((closureN)self_73982)->elements[2]; -c_732568.elements[2] = ((closureN)self_73982)->elements[3]; -c_732568.elements[3] = ((closureN)self_73982)->elements[5]; -c_732568.elements[4] = ((closureN)self_73982)->elements[6]; -c_732568.elements[5] = ((closureN)self_73982)->elements[8]; - -return_closcall3(data, __glo_read_91pound_scheme_read, &c_732568, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]); -} else { - if( (boolean_f != Cyc_eq(obj_char2obj(59), cell_get(((closureN)self_73982)->elements[4]))) ){ - -closureN_type c_732599; -c_732599.hdr.mark = gc_color_red; - c_732599.hdr.grayed = 0; -c_732599.tag = closureN_tag; - c_732599.fn = (function_type)__lambda_237; -c_732599.num_args = 1; -c_732599.num_elements = 8; -c_732599.elements = (object *)alloca(sizeof(object) * 8); -c_732599.elements[0] = ((closureN)self_73982)->elements[0]; -c_732599.elements[1] = ((closureN)self_73982)->elements[1]; -c_732599.elements[2] = ((closureN)self_73982)->elements[2]; -c_732599.elements[3] = ((closureN)self_73982)->elements[3]; -c_732599.elements[4] = ((closureN)self_73982)->elements[5]; -c_732599.elements[5] = ((closureN)self_73982)->elements[6]; -c_732599.elements[6] = ((closureN)self_73982)->elements[7]; -c_732599.elements[7] = ((closureN)self_73982)->elements[8]; - -return_closcall1(data,(closure)&c_732599, NULL); -} else { - -closureN_type c_732639; -c_732639.hdr.mark = gc_color_red; - c_732639.hdr.grayed = 0; -c_732639.tag = closureN_tag; - c_732639.fn = (function_type)__lambda_239; -c_732639.num_args = 1; -c_732639.num_elements = 2; -c_732639.elements = (object *)alloca(sizeof(object) * 2); -c_732639.elements[0] = ((closureN)self_73982)->elements[3]; -c_732639.elements[1] = ((closureN)self_73982)->elements[6]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732639, ((closureN)self_73982)->elements[6]);} -} -} -} -} -} -} -} -} -} -} -} -; -} - -static void __lambda_239(void *data, int argc, object self_73983, object r_73729) { - -closureN_type c_732641; -c_732641.hdr.mark = gc_color_red; - c_732641.hdr.grayed = 0; -c_732641.tag = closureN_tag; - c_732641.fn = (function_type)__lambda_238; -c_732641.num_args = 1; -c_732641.num_elements = 2; -c_732641.elements = (object *)alloca(sizeof(object) * 2); -c_732641.elements[0] = ((closureN)self_73983)->elements[0]; -c_732641.elements[1] = r_73729; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732641, ((closureN)self_73983)->elements[1]);; -} - -static void __lambda_238(void *data, int argc, object self_73984, object r_73730) { - -make_string(c_732644, "Unhandled input sequence"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73984)->elements[0], &c_732644, ((closureN)self_73984)->elements[1], r_73730);; -} - -static void __lambda_237(void *data, int argc, object self_73985, object r_73727) { - -closureN_type c_732601; -c_732601.hdr.mark = gc_color_red; - c_732601.hdr.grayed = 0; -c_732601.tag = closureN_tag; - c_732601.fn = (function_type)__lambda_236; -c_732601.num_args = 1; -c_732601.num_elements = 9; -c_732601.elements = (object *)alloca(sizeof(object) * 9); -c_732601.elements[0] = ((closureN)self_73985)->elements[0]; -c_732601.elements[1] = ((closureN)self_73985)->elements[1]; -c_732601.elements[2] = ((closureN)self_73985)->elements[2]; -c_732601.elements[3] = ((closureN)self_73985)->elements[3]; -c_732601.elements[4] = ((closureN)self_73985)->elements[4]; -c_732601.elements[5] = ((closureN)self_73985)->elements[5]; -c_732601.elements[6] = r_73727; -c_732601.elements[7] = ((closureN)self_73985)->elements[6]; -c_732601.elements[8] = ((closureN)self_73985)->elements[7]; - -return_closcall1(data,(closure)&c_732601, NULL);; -} - -static void __lambda_236(void *data, int argc, object self_73986, object r_73728) { - -closureN_type c_732603; -c_732603.hdr.mark = gc_color_red; - c_732603.hdr.grayed = 0; -c_732603.tag = closureN_tag; - c_732603.fn = (function_type)__lambda_235; -c_732603.num_args = 1; -c_732603.num_elements = 8; -c_732603.elements = (object *)alloca(sizeof(object) * 8); -c_732603.elements[0] = ((closureN)self_73986)->elements[0]; -c_732603.elements[1] = ((closureN)self_73986)->elements[1]; -c_732603.elements[2] = ((closureN)self_73986)->elements[2]; -c_732603.elements[3] = ((closureN)self_73986)->elements[3]; -c_732603.elements[4] = ((closureN)self_73986)->elements[4]; -c_732603.elements[5] = ((closureN)self_73986)->elements[5]; -c_732603.elements[6] = ((closureN)self_73986)->elements[7]; -c_732603.elements[7] = ((closureN)self_73986)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732603, ((closureN)self_73986)->elements[2], ((closureN)self_73986)->elements[6], r_73728, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_73986)->elements[5]);; -} - -static void __lambda_235(void *data, int argc, object self_73987, object r_73720) { - -closureN_type c_732605; -c_732605.hdr.mark = gc_color_red; - c_732605.hdr.grayed = 0; -c_732605.tag = closureN_tag; - c_732605.fn = (function_type)__lambda_230; -c_732605.num_args = 0; -c_732605.num_elements = 2; -c_732605.elements = (object *)alloca(sizeof(object) * 2); -c_732605.elements[0] = ((closureN)self_73987)->elements[0]; -c_732605.elements[1] = ((closureN)self_73987)->elements[6]; - - -closureN_type c_732612; -c_732612.hdr.mark = gc_color_red; - c_732612.hdr.grayed = 0; -c_732612.tag = closureN_tag; - c_732612.fn = (function_type)__lambda_234; -c_732612.num_args = 1; -c_732612.num_elements = 8; -c_732612.elements = (object *)alloca(sizeof(object) * 8); -c_732612.elements[0] = ((closureN)self_73987)->elements[0]; -c_732612.elements[1] = ((closureN)self_73987)->elements[1]; -c_732612.elements[2] = ((closureN)self_73987)->elements[2]; -c_732612.elements[3] = ((closureN)self_73987)->elements[3]; -c_732612.elements[4] = ((closureN)self_73987)->elements[4]; -c_732612.elements[5] = ((closureN)self_73987)->elements[5]; -c_732612.elements[6] = ((closureN)self_73987)->elements[6]; -c_732612.elements[7] = ((closureN)self_73987)->elements[7]; - -return_closcall1(data,(closure)&c_732605, &c_732612);; -} - -static void __lambda_234(void *data, int argc, object self_73988, object r_73721) { - if( (boolean_f != r_73721) ){ - -closureN_type c_732614; -c_732614.hdr.mark = gc_color_red; - c_732614.hdr.grayed = 0; -c_732614.tag = closureN_tag; - c_732614.fn = (function_type)__lambda_233; -c_732614.num_args = 1; -c_732614.num_elements = 3; -c_732614.elements = (object *)alloca(sizeof(object) * 3); -c_732614.elements[0] = ((closureN)self_73988)->elements[3]; -c_732614.elements[1] = ((closureN)self_73988)->elements[6]; -c_732614.elements[2] = ((closureN)self_73988)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732614, ((closureN)self_73988)->elements[5], ((closureN)self_73988)->elements[1]); -} else { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73988)->elements[3], ((closureN)self_73988)->elements[2], ((closureN)self_73988)->elements[6], ((closureN)self_73988)->elements[7], ((closureN)self_73988)->elements[0], boolean_f, ((closureN)self_73988)->elements[4], ((closureN)self_73988)->elements[5]);} -; -} - -static void __lambda_233(void *data, int argc, object self_73989, object r_73722) { - -closureN_type c_732616; -c_732616.hdr.mark = gc_color_red; - c_732616.hdr.grayed = 0; -c_732616.tag = closureN_tag; - c_732616.fn = (function_type)__lambda_232; -c_732616.num_args = 1; -c_732616.num_elements = 2; -c_732616.elements = (object *)alloca(sizeof(object) * 2); -c_732616.elements[0] = ((closureN)self_73989)->elements[0]; -c_732616.elements[1] = ((closureN)self_73989)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732616, ((closureN)self_73989)->elements[1]);; -} - -static void __lambda_232(void *data, int argc, object self_73990, object r_73724) { - -closureN_type c_732618; -c_732618.hdr.mark = gc_color_red; - c_732618.hdr.grayed = 0; -c_732618.tag = closureN_tag; - c_732618.fn = (function_type)__lambda_231; -c_732618.num_args = 1; -c_732618.num_elements = 1; -c_732618.elements = (object *)alloca(sizeof(object) * 1); -c_732618.elements[0] = ((closureN)self_73990)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732618, r_73724, ((closureN)self_73990)->elements[1]);; -} - -static void __lambda_231(void *data, int argc, object self_73991, object r_73723) { - return_closcall1(data, ((closureN)self_73991)->elements[0], car(r_73723));; -} - -static void __lambda_230(void *data, int argc, object self_73992, object k_73725) { - if( (boolean_f != ((closureN)self_73992)->elements[0]) ){ - return_closcall1(data, k_73725, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73725, Cyc_is_null(((closureN)self_73992)->elements[1]));} -; -} - -static void __lambda_229(void *data, int argc, object self_73993, object r_73718) { - if( (boolean_f != ((closureN)self_73993)->elements[0]) ){ - -closureN_type c_732571; -c_732571.hdr.mark = gc_color_red; - c_732571.hdr.grayed = 0; -c_732571.tag = closureN_tag; - c_732571.fn = (function_type)__lambda_228; -c_732571.num_args = 1; -c_732571.num_elements = 7; -c_732571.elements = (object *)alloca(sizeof(object) * 7); -c_732571.elements[0] = ((closureN)self_73993)->elements[0]; -c_732571.elements[1] = ((closureN)self_73993)->elements[1]; -c_732571.elements[2] = ((closureN)self_73993)->elements[2]; -c_732571.elements[3] = ((closureN)self_73993)->elements[3]; -c_732571.elements[4] = ((closureN)self_73993)->elements[4]; -c_732571.elements[5] = r_73718; -c_732571.elements[6] = ((closureN)self_73993)->elements[5]; - -return_closcall1(data,(closure)&c_732571, NULL); -} else { - -make_pair(c_732589,r_73718, ((closureN)self_73993)->elements[5]); -return_closcall1(data, ((closureN)self_73993)->elements[2], car(&c_732589));} -; -} - -static void __lambda_228(void *data, int argc, object self_73994, object r_73717) { - -make_pair(c_732577,((closureN)self_73994)->elements[5], ((closureN)self_73994)->elements[6]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73994)->elements[2], ((closureN)self_73994)->elements[1], r_73717, &c_732577, ((closureN)self_73994)->elements[0], boolean_f, ((closureN)self_73994)->elements[3], ((closureN)self_73994)->elements[4]);; -} - -static void __lambda_227(void *data, int argc, object self_73995, object r_73712) { - -closureN_type c_732480; -c_732480.hdr.mark = gc_color_red; - c_732480.hdr.grayed = 0; -c_732480.tag = closureN_tag; - c_732480.fn = (function_type)__lambda_226; -c_732480.num_args = 1; -c_732480.num_elements = 8; -c_732480.elements = (object *)alloca(sizeof(object) * 8); -c_732480.elements[0] = ((closureN)self_73995)->elements[0]; -c_732480.elements[1] = ((closureN)self_73995)->elements[1]; -c_732480.elements[2] = ((closureN)self_73995)->elements[2]; -c_732480.elements[3] = ((closureN)self_73995)->elements[3]; -c_732480.elements[4] = ((closureN)self_73995)->elements[4]; -c_732480.elements[5] = r_73712; -c_732480.elements[6] = ((closureN)self_73995)->elements[5]; -c_732480.elements[7] = ((closureN)self_73995)->elements[6]; - -return_closcall1(data,(closure)&c_732480, NULL);; -} - -static void __lambda_226(void *data, int argc, object self_73996, object r_73713) { - -closureN_type c_732482; -c_732482.hdr.mark = gc_color_red; - c_732482.hdr.grayed = 0; -c_732482.tag = closureN_tag; - c_732482.fn = (function_type)__lambda_225; -c_732482.num_args = 1; -c_732482.num_elements = 9; -c_732482.elements = (object *)alloca(sizeof(object) * 9); -c_732482.elements[0] = ((closureN)self_73996)->elements[0]; -c_732482.elements[1] = ((closureN)self_73996)->elements[1]; -c_732482.elements[2] = ((closureN)self_73996)->elements[2]; -c_732482.elements[3] = ((closureN)self_73996)->elements[3]; -c_732482.elements[4] = ((closureN)self_73996)->elements[4]; -c_732482.elements[5] = ((closureN)self_73996)->elements[5]; -c_732482.elements[6] = r_73713; -c_732482.elements[7] = ((closureN)self_73996)->elements[6]; -c_732482.elements[8] = ((closureN)self_73996)->elements[7]; - - -object c_732560 = Cyc_sum(data,(closure)&c_732482,2,((closureN)self_73996)->elements[3], obj_int2obj(1)); -return_closcall1(data,(closure)&c_732482, c_732560);; -} - -static void __lambda_225(void *data, int argc, object self_73997, object r_73714) { - -closureN_type c_732484; -c_732484.hdr.mark = gc_color_red; - c_732484.hdr.grayed = 0; -c_732484.tag = closureN_tag; - c_732484.fn = (function_type)__lambda_224; -c_732484.num_args = 1; -c_732484.num_elements = 7; -c_732484.elements = (object *)alloca(sizeof(object) * 7); -c_732484.elements[0] = ((closureN)self_73997)->elements[0]; -c_732484.elements[1] = ((closureN)self_73997)->elements[1]; -c_732484.elements[2] = ((closureN)self_73997)->elements[2]; -c_732484.elements[3] = ((closureN)self_73997)->elements[3]; -c_732484.elements[4] = ((closureN)self_73997)->elements[4]; -c_732484.elements[5] = ((closureN)self_73997)->elements[7]; -c_732484.elements[6] = ((closureN)self_73997)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732484, ((closureN)self_73997)->elements[1], ((closureN)self_73997)->elements[5], ((closureN)self_73997)->elements[6], boolean_t, boolean_f, r_73714, ((closureN)self_73997)->elements[4]);; -} - -static void __lambda_224(void *data, int argc, object self_73998, object r_73700) { - -closureN_type c_732486; -c_732486.hdr.mark = gc_color_red; - c_732486.hdr.grayed = 0; -c_732486.tag = closureN_tag; - c_732486.fn = (function_type)__lambda_223; -c_732486.num_args = 1; -c_732486.num_elements = 6; -c_732486.elements = (object *)alloca(sizeof(object) * 6); -c_732486.elements[0] = ((closureN)self_73998)->elements[0]; -c_732486.elements[1] = ((closureN)self_73998)->elements[1]; -c_732486.elements[2] = ((closureN)self_73998)->elements[2]; -c_732486.elements[3] = ((closureN)self_73998)->elements[3]; -c_732486.elements[4] = ((closureN)self_73998)->elements[4]; -c_732486.elements[5] = r_73700; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732486, ((closureN)self_73998)->elements[5], ((closureN)self_73998)->elements[6]);; -} - -static void __lambda_223(void *data, int argc, object self_73999, object r_73701) { - -closureN_type c_732488; -c_732488.hdr.mark = gc_color_red; - c_732488.hdr.grayed = 0; -c_732488.tag = closureN_tag; - c_732488.fn = (function_type)__lambda_222; -c_732488.num_args = 2; -c_732488.num_elements = 5; -c_732488.elements = (object *)alloca(sizeof(object) * 5); -c_732488.elements[0] = ((closureN)self_73999)->elements[0]; -c_732488.elements[1] = ((closureN)self_73999)->elements[1]; -c_732488.elements[2] = ((closureN)self_73999)->elements[2]; -c_732488.elements[3] = ((closureN)self_73999)->elements[3]; -c_732488.elements[4] = ((closureN)self_73999)->elements[4]; - -return_closcall2(data,(closure)&c_732488, ((closureN)self_73999)->elements[5], r_73701);; -} - -static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) { - -closureN_type c_732490; -c_732490.hdr.mark = gc_color_red; - c_732490.hdr.grayed = 0; -c_732490.tag = closureN_tag; - c_732490.fn = (function_type)__lambda_221; -c_732490.num_args = 1; -c_732490.num_elements = 7; -c_732490.elements = (object *)alloca(sizeof(object) * 7); -c_732490.elements[0] = ((closureN)self_731000)->elements[0]; -c_732490.elements[1] = ((closureN)self_731000)->elements[1]; -c_732490.elements[2] = ((closureN)self_731000)->elements[2]; -c_732490.elements[3] = ((closureN)self_731000)->elements[3]; -c_732490.elements[4] = ((closureN)self_731000)->elements[4]; -c_732490.elements[5] = sub_73209; -c_732490.elements[6] = toks_85_73208; - -return_closcall1(data,(closure)&c_732490, boolean_f);; -} - -static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) { - -closureN_type c_732492; -c_732492.hdr.mark = gc_color_red; - c_732492.hdr.grayed = 0; -c_732492.tag = closureN_tag; - c_732492.fn = (function_type)__lambda_220; -c_732492.num_args = 1; -c_732492.num_elements = 7; -c_732492.elements = (object *)alloca(sizeof(object) * 7); -c_732492.elements[0] = ((closureN)self_731001)->elements[0]; -c_732492.elements[1] = ((closureN)self_731001)->elements[1]; -c_732492.elements[2] = ((closureN)self_731001)->elements[2]; -c_732492.elements[3] = ((closureN)self_731001)->elements[3]; -c_732492.elements[4] = ((closureN)self_731001)->elements[4]; -c_732492.elements[5] = ((closureN)self_731001)->elements[5]; -c_732492.elements[6] = ((closureN)self_731001)->elements[6]; - - -make_cell(c_732550,new_91toks_73210); -return_closcall1(data,(closure)&c_732492, &c_732550);; -} - -static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) { - -closureN_type c_732494; -c_732494.hdr.mark = gc_color_red; - c_732494.hdr.grayed = 0; -c_732494.tag = closureN_tag; - c_732494.fn = (function_type)__lambda_215; -c_732494.num_args = 0; -c_732494.num_elements = 2; -c_732494.elements = (object *)alloca(sizeof(object) * 2); -c_732494.elements[0] = ((closureN)self_731002)->elements[4]; -c_732494.elements[1] = ((closureN)self_731002)->elements[5]; - - -closureN_type c_732520; -c_732520.hdr.mark = gc_color_red; - c_732520.hdr.grayed = 0; -c_732520.tag = closureN_tag; - c_732520.fn = (function_type)__lambda_219; -c_732520.num_args = 1; -c_732520.num_elements = 7; -c_732520.elements = (object *)alloca(sizeof(object) * 7); -c_732520.elements[0] = ((closureN)self_731002)->elements[0]; -c_732520.elements[1] = ((closureN)self_731002)->elements[1]; -c_732520.elements[2] = ((closureN)self_731002)->elements[2]; -c_732520.elements[3] = new_91toks_73210; -c_732520.elements[4] = ((closureN)self_731002)->elements[3]; -c_732520.elements[5] = ((closureN)self_731002)->elements[4]; -c_732520.elements[6] = ((closureN)self_731002)->elements[6]; - -return_closcall1(data,(closure)&c_732494, &c_732520);; -} - -static void __lambda_219(void *data, int argc, object self_731003, object r_73705) { - -closureN_type c_732522; -c_732522.hdr.mark = gc_color_red; - c_732522.hdr.grayed = 0; -c_732522.tag = closureN_tag; - c_732522.fn = (function_type)__lambda_218; -c_732522.num_args = 1; -c_732522.num_elements = 6; -c_732522.elements = (object *)alloca(sizeof(object) * 6); -c_732522.elements[0] = ((closureN)self_731003)->elements[0]; -c_732522.elements[1] = ((closureN)self_731003)->elements[1]; -c_732522.elements[2] = ((closureN)self_731003)->elements[2]; -c_732522.elements[3] = ((closureN)self_731003)->elements[3]; -c_732522.elements[4] = ((closureN)self_731003)->elements[4]; -c_732522.elements[5] = ((closureN)self_731003)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732522, r_73705, ((closureN)self_731003)->elements[6]);; -} - -static void __lambda_218(void *data, int argc, object self_731004, object r_73704) { - -closureN_type c_732524; -c_732524.hdr.mark = gc_color_red; - c_732524.hdr.grayed = 0; -c_732524.tag = closureN_tag; - c_732524.fn = (function_type)__lambda_217; -c_732524.num_args = 1; -c_732524.num_elements = 6; -c_732524.elements = (object *)alloca(sizeof(object) * 6); -c_732524.elements[0] = ((closureN)self_731004)->elements[0]; -c_732524.elements[1] = ((closureN)self_731004)->elements[1]; -c_732524.elements[2] = ((closureN)self_731004)->elements[2]; -c_732524.elements[3] = ((closureN)self_731004)->elements[3]; -c_732524.elements[4] = ((closureN)self_731004)->elements[4]; -c_732524.elements[5] = ((closureN)self_731004)->elements[5]; - -return_closcall1(data,(closure)&c_732524, Cyc_set_car(data, ((closureN)self_731004)->elements[3], r_73704));; -} - -static void __lambda_217(void *data, int argc, object self_731005, object r_73702) { - if( (boolean_f != ((closureN)self_731005)->elements[0]) ){ - -closureN_type c_732527; -c_732527.hdr.mark = gc_color_red; - c_732527.hdr.grayed = 0; -c_732527.tag = closureN_tag; - c_732527.fn = (function_type)__lambda_216; -c_732527.num_args = 1; -c_732527.num_elements = 6; -c_732527.elements = (object *)alloca(sizeof(object) * 6); -c_732527.elements[0] = ((closureN)self_731005)->elements[0]; -c_732527.elements[1] = ((closureN)self_731005)->elements[1]; -c_732527.elements[2] = ((closureN)self_731005)->elements[2]; -c_732527.elements[3] = ((closureN)self_731005)->elements[3]; -c_732527.elements[4] = ((closureN)self_731005)->elements[4]; -c_732527.elements[5] = ((closureN)self_731005)->elements[5]; - -return_closcall1(data,(closure)&c_732527, NULL); -} else { - return_closcall1(data, ((closureN)self_731005)->elements[2], car(cell_get(((closureN)self_731005)->elements[3])));} -; -} - -static void __lambda_216(void *data, int argc, object self_731006, object r_73703) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731006)->elements[2], ((closureN)self_731006)->elements[1], r_73703, cell_get(((closureN)self_731006)->elements[3]), ((closureN)self_731006)->elements[0], boolean_f, ((closureN)self_731006)->elements[4], ((closureN)self_731006)->elements[5]);; -} - -static void __lambda_215(void *data, int argc, object self_731007, object k_73706) { - -closureN_type c_732496; -c_732496.hdr.mark = gc_color_red; - c_732496.hdr.grayed = 0; -c_732496.tag = closureN_tag; - c_732496.fn = (function_type)__lambda_211; -c_732496.num_args = 0; -c_732496.num_elements = 1; -c_732496.elements = (object *)alloca(sizeof(object) * 1); -c_732496.elements[0] = ((closureN)self_731007)->elements[1]; - - -closureN_type c_732503; -c_732503.hdr.mark = gc_color_red; - c_732503.hdr.grayed = 0; -c_732503.tag = closureN_tag; - c_732503.fn = (function_type)__lambda_214; -c_732503.num_args = 1; -c_732503.num_elements = 3; -c_732503.elements = (object *)alloca(sizeof(object) * 3); -c_732503.elements[0] = k_73706; -c_732503.elements[1] = ((closureN)self_731007)->elements[0]; -c_732503.elements[2] = ((closureN)self_731007)->elements[1]; - -return_closcall1(data,(closure)&c_732496, &c_732503);; -} - -static void __lambda_214(void *data, int argc, object self_731008, object r_73707) { - if( (boolean_f != r_73707) ){ - -closureN_type c_732505; -c_732505.hdr.mark = gc_color_red; - c_732505.hdr.grayed = 0; -c_732505.tag = closureN_tag; - c_732505.fn = (function_type)__lambda_213; -c_732505.num_args = 1; -c_732505.num_elements = 2; -c_732505.elements = (object *)alloca(sizeof(object) * 2); -c_732505.elements[0] = ((closureN)self_731008)->elements[0]; -c_732505.elements[1] = ((closureN)self_731008)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732505, ((closureN)self_731008)->elements[1]); -} else { - -object c_732518 = Cyc_list2vector(data, ((closureN)self_731008)->elements[0],((closureN)self_731008)->elements[2]); -return_closcall1(data, ((closureN)self_731008)->elements[0], c_732518);} -; -} - -static void __lambda_213(void *data, int argc, object self_731009, object r_73708) { - -closureN_type c_732507; -c_732507.hdr.mark = gc_color_red; - c_732507.hdr.grayed = 0; -c_732507.tag = closureN_tag; - c_732507.fn = (function_type)__lambda_212; -c_732507.num_args = 1; -c_732507.num_elements = 2; -c_732507.elements = (object *)alloca(sizeof(object) * 2); -c_732507.elements[0] = ((closureN)self_731009)->elements[0]; -c_732507.elements[1] = r_73708; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732507, ((closureN)self_731009)->elements[1]);; -} - -static void __lambda_212(void *data, int argc, object self_731010, object r_73709) { - -make_string(c_732510, "Invalid vector syntax"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731010)->elements[0], &c_732510, ((closureN)self_731010)->elements[1], r_73709);; -} - -static void __lambda_211(void *data, int argc, object self_731011, object k_73710) { - if( (boolean_f != Cyc_is_pair(((closureN)self_731011)->elements[0])) ){ - return_closcall2(data, __glo_dotted_127_scheme_read, k_73710, ((closureN)self_731011)->elements[0]); -} else { - return_closcall1(data, k_73710, boolean_f);} -; -} - -static void __lambda_210(void *data, int argc, object self_731012, object r_73698) { - -closureN_type c_732330; -c_732330.hdr.mark = gc_color_red; - c_732330.hdr.grayed = 0; -c_732330.tag = closureN_tag; - c_732330.fn = (function_type)__lambda_209; -c_732330.num_args = 1; -c_732330.num_elements = 8; -c_732330.elements = (object *)alloca(sizeof(object) * 8); -c_732330.elements[0] = ((closureN)self_731012)->elements[0]; -c_732330.elements[1] = ((closureN)self_731012)->elements[1]; -c_732330.elements[2] = ((closureN)self_731012)->elements[2]; -c_732330.elements[3] = ((closureN)self_731012)->elements[3]; -c_732330.elements[4] = ((closureN)self_731012)->elements[4]; -c_732330.elements[5] = ((closureN)self_731012)->elements[5]; -c_732330.elements[6] = ((closureN)self_731012)->elements[6]; -c_732330.elements[7] = ((closureN)self_731012)->elements[7]; - -return_closcall1(data,(closure)&c_732330, Cyc_set_car(data, ((closureN)self_731012)->elements[3], r_73698));; -} - -static void __lambda_209(void *data, int argc, object self_731013, object r_73670) { - -closureN_type c_732332; -c_732332.hdr.mark = gc_color_red; - c_732332.hdr.grayed = 0; -c_732332.tag = closureN_tag; - c_732332.fn = (function_type)__lambda_184; -c_732332.num_args = 0; -c_732332.num_elements = 2; -c_732332.elements = (object *)alloca(sizeof(object) * 2); -c_732332.elements[0] = ((closureN)self_731013)->elements[3]; -c_732332.elements[1] = ((closureN)self_731013)->elements[5]; - - -closureN_type c_732349; -c_732349.hdr.mark = gc_color_red; - c_732349.hdr.grayed = 0; -c_732349.tag = closureN_tag; - c_732349.fn = (function_type)__lambda_208; -c_732349.num_args = 1; -c_732349.num_elements = 8; -c_732349.elements = (object *)alloca(sizeof(object) * 8); -c_732349.elements[0] = ((closureN)self_731013)->elements[0]; -c_732349.elements[1] = ((closureN)self_731013)->elements[1]; -c_732349.elements[2] = ((closureN)self_731013)->elements[2]; -c_732349.elements[3] = ((closureN)self_731013)->elements[3]; -c_732349.elements[4] = ((closureN)self_731013)->elements[4]; -c_732349.elements[5] = ((closureN)self_731013)->elements[5]; -c_732349.elements[6] = ((closureN)self_731013)->elements[6]; -c_732349.elements[7] = ((closureN)self_731013)->elements[7]; - -return_closcall1(data,(closure)&c_732332, &c_732349);; -} - -static void __lambda_208(void *data, int argc, object self_731014, object r_73671) { - -closureN_type c_732351; -c_732351.hdr.mark = gc_color_red; - c_732351.hdr.grayed = 0; -c_732351.tag = closureN_tag; - c_732351.fn = (function_type)__lambda_207; -c_732351.num_args = 1; -c_732351.num_elements = 8; -c_732351.elements = (object *)alloca(sizeof(object) * 8); -c_732351.elements[0] = ((closureN)self_731014)->elements[0]; -c_732351.elements[1] = ((closureN)self_731014)->elements[1]; -c_732351.elements[2] = ((closureN)self_731014)->elements[2]; -c_732351.elements[3] = ((closureN)self_731014)->elements[3]; -c_732351.elements[4] = ((closureN)self_731014)->elements[4]; -c_732351.elements[5] = ((closureN)self_731014)->elements[5]; -c_732351.elements[6] = ((closureN)self_731014)->elements[6]; -c_732351.elements[7] = ((closureN)self_731014)->elements[7]; - - -object c_732463 = Cyc_io_read_char(data,(closure)&c_732351,((closureN)self_731014)->elements[1]); -return_closcall1(data,(closure)&c_732351, c_732463);; -} - -static void __lambda_207(void *data, int argc, object self_731015, object r_73693) { - -closureN_type c_732353; -c_732353.hdr.mark = gc_color_red; - c_732353.hdr.grayed = 0; -c_732353.tag = closureN_tag; - c_732353.fn = (function_type)__lambda_206; -c_732353.num_args = 1; -c_732353.num_elements = 8; -c_732353.elements = (object *)alloca(sizeof(object) * 8); -c_732353.elements[0] = ((closureN)self_731015)->elements[0]; -c_732353.elements[1] = ((closureN)self_731015)->elements[1]; -c_732353.elements[2] = ((closureN)self_731015)->elements[2]; -c_732353.elements[3] = ((closureN)self_731015)->elements[3]; -c_732353.elements[4] = ((closureN)self_731015)->elements[4]; -c_732353.elements[5] = ((closureN)self_731015)->elements[5]; -c_732353.elements[6] = ((closureN)self_731015)->elements[6]; -c_732353.elements[7] = ((closureN)self_731015)->elements[7]; - -return_closcall1(data,(closure)&c_732353, Cyc_set_car(data, ((closureN)self_731015)->elements[3], r_73693));; -} - -static void __lambda_206(void *data, int argc, object self_731016, object r_73672) { - -closureN_type c_732355; -c_732355.hdr.mark = gc_color_red; - c_732355.hdr.grayed = 0; -c_732355.tag = closureN_tag; - c_732355.fn = (function_type)__lambda_187; -c_732355.num_args = 0; -c_732355.num_elements = 2; -c_732355.elements = (object *)alloca(sizeof(object) * 2); -c_732355.elements[0] = ((closureN)self_731016)->elements[3]; -c_732355.elements[1] = ((closureN)self_731016)->elements[5]; - - -closureN_type c_732372; -c_732372.hdr.mark = gc_color_red; - c_732372.hdr.grayed = 0; -c_732372.tag = closureN_tag; - c_732372.fn = (function_type)__lambda_205; -c_732372.num_args = 1; -c_732372.num_elements = 7; -c_732372.elements = (object *)alloca(sizeof(object) * 7); -c_732372.elements[0] = ((closureN)self_731016)->elements[0]; -c_732372.elements[1] = ((closureN)self_731016)->elements[1]; -c_732372.elements[2] = ((closureN)self_731016)->elements[2]; -c_732372.elements[3] = ((closureN)self_731016)->elements[4]; -c_732372.elements[4] = ((closureN)self_731016)->elements[5]; -c_732372.elements[5] = ((closureN)self_731016)->elements[6]; -c_732372.elements[6] = ((closureN)self_731016)->elements[7]; - -return_closcall1(data,(closure)&c_732355, &c_732372);; -} - -static void __lambda_205(void *data, int argc, object self_731017, object r_73673) { - -closureN_type c_732374; -c_732374.hdr.mark = gc_color_red; - c_732374.hdr.grayed = 0; -c_732374.tag = closureN_tag; - c_732374.fn = (function_type)__lambda_204; -c_732374.num_args = 1; -c_732374.num_elements = 7; -c_732374.elements = (object *)alloca(sizeof(object) * 7); -c_732374.elements[0] = ((closureN)self_731017)->elements[0]; -c_732374.elements[1] = ((closureN)self_731017)->elements[1]; -c_732374.elements[2] = ((closureN)self_731017)->elements[2]; -c_732374.elements[3] = ((closureN)self_731017)->elements[3]; -c_732374.elements[4] = ((closureN)self_731017)->elements[4]; -c_732374.elements[5] = ((closureN)self_731017)->elements[5]; -c_732374.elements[6] = ((closureN)self_731017)->elements[6]; - -return_closcall1(data,(closure)&c_732374, NULL);; -} - -static void __lambda_204(void *data, int argc, object self_731018, object r_73686) { - -closureN_type c_732376; -c_732376.hdr.mark = gc_color_red; - c_732376.hdr.grayed = 0; -c_732376.tag = closureN_tag; - c_732376.fn = (function_type)__lambda_203; -c_732376.num_args = 1; -c_732376.num_elements = 8; -c_732376.elements = (object *)alloca(sizeof(object) * 8); -c_732376.elements[0] = ((closureN)self_731018)->elements[0]; -c_732376.elements[1] = ((closureN)self_731018)->elements[1]; -c_732376.elements[2] = ((closureN)self_731018)->elements[2]; -c_732376.elements[3] = ((closureN)self_731018)->elements[3]; -c_732376.elements[4] = ((closureN)self_731018)->elements[4]; -c_732376.elements[5] = r_73686; -c_732376.elements[6] = ((closureN)self_731018)->elements[5]; -c_732376.elements[7] = ((closureN)self_731018)->elements[6]; - -return_closcall1(data,(closure)&c_732376, NULL);; -} - -static void __lambda_203(void *data, int argc, object self_731019, object r_73687) { - -closureN_type c_732378; -c_732378.hdr.mark = gc_color_red; - c_732378.hdr.grayed = 0; -c_732378.tag = closureN_tag; - c_732378.fn = (function_type)__lambda_202; -c_732378.num_args = 1; -c_732378.num_elements = 9; -c_732378.elements = (object *)alloca(sizeof(object) * 9); -c_732378.elements[0] = ((closureN)self_731019)->elements[0]; -c_732378.elements[1] = ((closureN)self_731019)->elements[1]; -c_732378.elements[2] = ((closureN)self_731019)->elements[2]; -c_732378.elements[3] = ((closureN)self_731019)->elements[3]; -c_732378.elements[4] = ((closureN)self_731019)->elements[4]; -c_732378.elements[5] = ((closureN)self_731019)->elements[5]; -c_732378.elements[6] = r_73687; -c_732378.elements[7] = ((closureN)self_731019)->elements[6]; -c_732378.elements[8] = ((closureN)self_731019)->elements[7]; - - -object c_732456 = Cyc_sum(data,(closure)&c_732378,2,((closureN)self_731019)->elements[3], obj_int2obj(1)); -return_closcall1(data,(closure)&c_732378, c_732456);; -} - -static void __lambda_202(void *data, int argc, object self_731020, object r_73688) { - -closureN_type c_732380; -c_732380.hdr.mark = gc_color_red; - c_732380.hdr.grayed = 0; -c_732380.tag = closureN_tag; - c_732380.fn = (function_type)__lambda_201; -c_732380.num_args = 1; -c_732380.num_elements = 7; -c_732380.elements = (object *)alloca(sizeof(object) * 7); -c_732380.elements[0] = ((closureN)self_731020)->elements[0]; -c_732380.elements[1] = ((closureN)self_731020)->elements[1]; -c_732380.elements[2] = ((closureN)self_731020)->elements[2]; -c_732380.elements[3] = ((closureN)self_731020)->elements[3]; -c_732380.elements[4] = ((closureN)self_731020)->elements[4]; -c_732380.elements[5] = ((closureN)self_731020)->elements[7]; -c_732380.elements[6] = ((closureN)self_731020)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_732380, ((closureN)self_731020)->elements[1], ((closureN)self_731020)->elements[5], ((closureN)self_731020)->elements[6], boolean_t, boolean_f, r_73688, ((closureN)self_731020)->elements[4]);; -} - -static void __lambda_201(void *data, int argc, object self_731021, object r_73674) { - -closureN_type c_732382; -c_732382.hdr.mark = gc_color_red; - c_732382.hdr.grayed = 0; -c_732382.tag = closureN_tag; - c_732382.fn = (function_type)__lambda_200; -c_732382.num_args = 1; -c_732382.num_elements = 6; -c_732382.elements = (object *)alloca(sizeof(object) * 6); -c_732382.elements[0] = ((closureN)self_731021)->elements[0]; -c_732382.elements[1] = ((closureN)self_731021)->elements[1]; -c_732382.elements[2] = ((closureN)self_731021)->elements[2]; -c_732382.elements[3] = ((closureN)self_731021)->elements[3]; -c_732382.elements[4] = ((closureN)self_731021)->elements[4]; -c_732382.elements[5] = r_73674; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732382, ((closureN)self_731021)->elements[5], ((closureN)self_731021)->elements[6]);; -} - -static void __lambda_200(void *data, int argc, object self_731022, object r_73675) { - -closureN_type c_732384; -c_732384.hdr.mark = gc_color_red; - c_732384.hdr.grayed = 0; -c_732384.tag = closureN_tag; - c_732384.fn = (function_type)__lambda_199; -c_732384.num_args = 2; -c_732384.num_elements = 5; -c_732384.elements = (object *)alloca(sizeof(object) * 5); -c_732384.elements[0] = ((closureN)self_731022)->elements[0]; -c_732384.elements[1] = ((closureN)self_731022)->elements[1]; -c_732384.elements[2] = ((closureN)self_731022)->elements[2]; -c_732384.elements[3] = ((closureN)self_731022)->elements[3]; -c_732384.elements[4] = ((closureN)self_731022)->elements[4]; - -return_closcall2(data,(closure)&c_732384, ((closureN)self_731022)->elements[5], r_73675);; -} - -static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) { - -closureN_type c_732386; -c_732386.hdr.mark = gc_color_red; - c_732386.hdr.grayed = 0; -c_732386.tag = closureN_tag; - c_732386.fn = (function_type)__lambda_198; -c_732386.num_args = 1; -c_732386.num_elements = 7; -c_732386.elements = (object *)alloca(sizeof(object) * 7); -c_732386.elements[0] = ((closureN)self_731023)->elements[0]; -c_732386.elements[1] = ((closureN)self_731023)->elements[1]; -c_732386.elements[2] = ((closureN)self_731023)->elements[2]; -c_732386.elements[3] = ((closureN)self_731023)->elements[3]; -c_732386.elements[4] = ((closureN)self_731023)->elements[4]; -c_732386.elements[5] = sub_73212; -c_732386.elements[6] = toks_85_73211; - -return_closcall1(data,(closure)&c_732386, boolean_f);; -} - -static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) { - -closureN_type c_732388; -c_732388.hdr.mark = gc_color_red; - c_732388.hdr.grayed = 0; -c_732388.tag = closureN_tag; - c_732388.fn = (function_type)__lambda_197; -c_732388.num_args = 1; -c_732388.num_elements = 7; -c_732388.elements = (object *)alloca(sizeof(object) * 7); -c_732388.elements[0] = ((closureN)self_731024)->elements[0]; -c_732388.elements[1] = ((closureN)self_731024)->elements[1]; -c_732388.elements[2] = ((closureN)self_731024)->elements[2]; -c_732388.elements[3] = ((closureN)self_731024)->elements[3]; -c_732388.elements[4] = ((closureN)self_731024)->elements[4]; -c_732388.elements[5] = ((closureN)self_731024)->elements[5]; -c_732388.elements[6] = ((closureN)self_731024)->elements[6]; - - -make_cell(c_732446,new_91toks_73213); -return_closcall1(data,(closure)&c_732388, &c_732446);; -} - -static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) { - -closureN_type c_732390; -c_732390.hdr.mark = gc_color_red; - c_732390.hdr.grayed = 0; -c_732390.tag = closureN_tag; - c_732390.fn = (function_type)__lambda_192; -c_732390.num_args = 0; -c_732390.num_elements = 2; -c_732390.elements = (object *)alloca(sizeof(object) * 2); -c_732390.elements[0] = ((closureN)self_731025)->elements[4]; -c_732390.elements[1] = ((closureN)self_731025)->elements[5]; - - -closureN_type c_732416; -c_732416.hdr.mark = gc_color_red; - c_732416.hdr.grayed = 0; -c_732416.tag = closureN_tag; - c_732416.fn = (function_type)__lambda_196; -c_732416.num_args = 1; -c_732416.num_elements = 7; -c_732416.elements = (object *)alloca(sizeof(object) * 7); -c_732416.elements[0] = ((closureN)self_731025)->elements[0]; -c_732416.elements[1] = ((closureN)self_731025)->elements[1]; -c_732416.elements[2] = ((closureN)self_731025)->elements[2]; -c_732416.elements[3] = new_91toks_73213; -c_732416.elements[4] = ((closureN)self_731025)->elements[3]; -c_732416.elements[5] = ((closureN)self_731025)->elements[4]; -c_732416.elements[6] = ((closureN)self_731025)->elements[6]; - -return_closcall1(data,(closure)&c_732390, &c_732416);; -} - -static void __lambda_196(void *data, int argc, object self_731026, object r_73679) { - -closureN_type c_732418; -c_732418.hdr.mark = gc_color_red; - c_732418.hdr.grayed = 0; -c_732418.tag = closureN_tag; - c_732418.fn = (function_type)__lambda_195; -c_732418.num_args = 1; -c_732418.num_elements = 6; -c_732418.elements = (object *)alloca(sizeof(object) * 6); -c_732418.elements[0] = ((closureN)self_731026)->elements[0]; -c_732418.elements[1] = ((closureN)self_731026)->elements[1]; -c_732418.elements[2] = ((closureN)self_731026)->elements[2]; -c_732418.elements[3] = ((closureN)self_731026)->elements[3]; -c_732418.elements[4] = ((closureN)self_731026)->elements[4]; -c_732418.elements[5] = ((closureN)self_731026)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732418, r_73679, ((closureN)self_731026)->elements[6]);; -} - -static void __lambda_195(void *data, int argc, object self_731027, object r_73678) { - -closureN_type c_732420; -c_732420.hdr.mark = gc_color_red; - c_732420.hdr.grayed = 0; -c_732420.tag = closureN_tag; - c_732420.fn = (function_type)__lambda_194; -c_732420.num_args = 1; -c_732420.num_elements = 6; -c_732420.elements = (object *)alloca(sizeof(object) * 6); -c_732420.elements[0] = ((closureN)self_731027)->elements[0]; -c_732420.elements[1] = ((closureN)self_731027)->elements[1]; -c_732420.elements[2] = ((closureN)self_731027)->elements[2]; -c_732420.elements[3] = ((closureN)self_731027)->elements[3]; -c_732420.elements[4] = ((closureN)self_731027)->elements[4]; -c_732420.elements[5] = ((closureN)self_731027)->elements[5]; - -return_closcall1(data,(closure)&c_732420, Cyc_set_car(data, ((closureN)self_731027)->elements[3], r_73678));; -} - -static void __lambda_194(void *data, int argc, object self_731028, object r_73676) { - if( (boolean_f != ((closureN)self_731028)->elements[0]) ){ - -closureN_type c_732423; -c_732423.hdr.mark = gc_color_red; - c_732423.hdr.grayed = 0; -c_732423.tag = closureN_tag; - c_732423.fn = (function_type)__lambda_193; -c_732423.num_args = 1; -c_732423.num_elements = 6; -c_732423.elements = (object *)alloca(sizeof(object) * 6); -c_732423.elements[0] = ((closureN)self_731028)->elements[0]; -c_732423.elements[1] = ((closureN)self_731028)->elements[1]; -c_732423.elements[2] = ((closureN)self_731028)->elements[2]; -c_732423.elements[3] = ((closureN)self_731028)->elements[3]; -c_732423.elements[4] = ((closureN)self_731028)->elements[4]; -c_732423.elements[5] = ((closureN)self_731028)->elements[5]; - -return_closcall1(data,(closure)&c_732423, NULL); -} else { - return_closcall1(data, ((closureN)self_731028)->elements[2], car(cell_get(((closureN)self_731028)->elements[3])));} -; -} - -static void __lambda_193(void *data, int argc, object self_731029, object r_73677) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731029)->elements[2], ((closureN)self_731029)->elements[1], r_73677, cell_get(((closureN)self_731029)->elements[3]), ((closureN)self_731029)->elements[0], boolean_f, ((closureN)self_731029)->elements[4], ((closureN)self_731029)->elements[5]);; -} - -static void __lambda_192(void *data, int argc, object self_731030, object k_73680) { - -closureN_type c_732392; -c_732392.hdr.mark = gc_color_red; - c_732392.hdr.grayed = 0; -c_732392.tag = closureN_tag; - c_732392.fn = (function_type)__lambda_188; -c_732392.num_args = 0; -c_732392.num_elements = 1; -c_732392.elements = (object *)alloca(sizeof(object) * 1); -c_732392.elements[0] = ((closureN)self_731030)->elements[1]; - - -closureN_type c_732399; -c_732399.hdr.mark = gc_color_red; - c_732399.hdr.grayed = 0; -c_732399.tag = closureN_tag; - c_732399.fn = (function_type)__lambda_191; -c_732399.num_args = 1; -c_732399.num_elements = 3; -c_732399.elements = (object *)alloca(sizeof(object) * 3); -c_732399.elements[0] = k_73680; -c_732399.elements[1] = ((closureN)self_731030)->elements[0]; -c_732399.elements[2] = ((closureN)self_731030)->elements[1]; - -return_closcall1(data,(closure)&c_732392, &c_732399);; -} - -static void __lambda_191(void *data, int argc, object self_731031, object r_73681) { - if( (boolean_f != r_73681) ){ - -closureN_type c_732401; -c_732401.hdr.mark = gc_color_red; - c_732401.hdr.grayed = 0; -c_732401.tag = closureN_tag; - c_732401.fn = (function_type)__lambda_190; -c_732401.num_args = 1; -c_732401.num_elements = 2; -c_732401.elements = (object *)alloca(sizeof(object) * 2); -c_732401.elements[0] = ((closureN)self_731031)->elements[0]; -c_732401.elements[1] = ((closureN)self_731031)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732401, ((closureN)self_731031)->elements[1]); -} else { - -object c_732414 = apply(data, ((closureN)self_731031)->elements[0],primitive_bytevector, ((closureN)self_731031)->elements[2]); -return_closcall1(data, ((closureN)self_731031)->elements[0], c_732414);} -; -} - -static void __lambda_190(void *data, int argc, object self_731032, object r_73682) { - -closureN_type c_732403; -c_732403.hdr.mark = gc_color_red; - c_732403.hdr.grayed = 0; -c_732403.tag = closureN_tag; - c_732403.fn = (function_type)__lambda_189; -c_732403.num_args = 1; -c_732403.num_elements = 2; -c_732403.elements = (object *)alloca(sizeof(object) * 2); -c_732403.elements[0] = ((closureN)self_731032)->elements[0]; -c_732403.elements[1] = r_73682; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732403, ((closureN)self_731032)->elements[1]);; -} - -static void __lambda_189(void *data, int argc, object self_731033, object r_73683) { - -make_string(c_732406, "Invalid vector syntax"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731033)->elements[0], &c_732406, ((closureN)self_731033)->elements[1], r_73683);; -} - -static void __lambda_188(void *data, int argc, object self_731034, object k_73684) { - if( (boolean_f != Cyc_is_pair(((closureN)self_731034)->elements[0])) ){ - return_closcall2(data, __glo_dotted_127_scheme_read, k_73684, ((closureN)self_731034)->elements[0]); -} else { - return_closcall1(data, k_73684, boolean_f);} -; -} - -static void __lambda_187(void *data, int argc, object self_731035, object k_73689) { - if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731035)->elements[0]))) ){ - return_closcall1(data, k_73689, boolean_f); -} else { - -closureN_type c_732363; -c_732363.hdr.mark = gc_color_red; - c_732363.hdr.grayed = 0; -c_732363.tag = closureN_tag; - c_732363.fn = (function_type)__lambda_186; -c_732363.num_args = 1; -c_732363.num_elements = 2; -c_732363.elements = (object *)alloca(sizeof(object) * 2); -c_732363.elements[0] = k_73689; -c_732363.elements[1] = ((closureN)self_731035)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732363, ((closureN)self_731035)->elements[1]);} -; -} - -static void __lambda_186(void *data, int argc, object self_731036, object r_73691) { - -closureN_type c_732365; -c_732365.hdr.mark = gc_color_red; - c_732365.hdr.grayed = 0; -c_732365.tag = closureN_tag; - c_732365.fn = (function_type)__lambda_185; -c_732365.num_args = 1; -c_732365.num_elements = 2; -c_732365.elements = (object *)alloca(sizeof(object) * 2); -c_732365.elements[0] = ((closureN)self_731036)->elements[0]; -c_732365.elements[1] = r_73691; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732365, ((closureN)self_731036)->elements[1]);; -} - -static void __lambda_185(void *data, int argc, object self_731037, object r_73692) { - -make_string(c_732368, "Unhandled input sequence"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731037)->elements[0], &c_732368, ((closureN)self_731037)->elements[1], r_73692);; -} - -static void __lambda_184(void *data, int argc, object self_731038, object k_73694) { - if( (boolean_f != Cyc_eq(obj_char2obj(56), cell_get(((closureN)self_731038)->elements[0]))) ){ - return_closcall1(data, k_73694, boolean_f); -} else { - -closureN_type c_732340; -c_732340.hdr.mark = gc_color_red; - c_732340.hdr.grayed = 0; -c_732340.tag = closureN_tag; - c_732340.fn = (function_type)__lambda_183; -c_732340.num_args = 1; -c_732340.num_elements = 2; -c_732340.elements = (object *)alloca(sizeof(object) * 2); -c_732340.elements[0] = k_73694; -c_732340.elements[1] = ((closureN)self_731038)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732340, ((closureN)self_731038)->elements[1]);} -; -} - -static void __lambda_183(void *data, int argc, object self_731039, object r_73696) { - -closureN_type c_732342; -c_732342.hdr.mark = gc_color_red; - c_732342.hdr.grayed = 0; -c_732342.tag = closureN_tag; - c_732342.fn = (function_type)__lambda_182; -c_732342.num_args = 1; -c_732342.num_elements = 2; -c_732342.elements = (object *)alloca(sizeof(object) * 2); -c_732342.elements[0] = ((closureN)self_731039)->elements[0]; -c_732342.elements[1] = r_73696; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732342, ((closureN)self_731039)->elements[1]);; -} - -static void __lambda_182(void *data, int argc, object self_731040, object r_73697) { - -make_string(c_732345, "Unhandled input sequence"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731040)->elements[0], &c_732345, ((closureN)self_731040)->elements[1], r_73697);; -} - -static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) { - -closureN_type c_732313; -c_732313.hdr.mark = gc_color_red; - c_732313.hdr.grayed = 0; -c_732313.tag = closureN_tag; - c_732313.fn = (function_type)__lambda_180; -c_732313.num_args = 1; -c_732313.num_elements = 1; -c_732313.elements = (object *)alloca(sizeof(object) * 1); -c_732313.elements[0] = k_73667; - - -object c_732321 = Cyc_list2string(data,(closure)&c_732313,num_73214); -return_closcall1(data,(closure)&c_732313, c_732321);; -} - -static void __lambda_180(void *data, int argc, object self_731042, object r_73668) { - -object c_732318 = Cyc_string2number2_(data, ((closureN)self_731042)->elements[0],2,r_73668, obj_int2obj(16)); -return_closcall1(data, ((closureN)self_731042)->elements[0], c_732318);; -} - -static void __lambda_179(void *data, int argc, object self_731043, object r_73666) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731043)->elements[2], ((closureN)self_731043)->elements[1], ((closureN)self_731043)->elements[5], ((closureN)self_731043)->elements[0], ((closureN)self_731043)->elements[3], ((closureN)self_731043)->elements[4], obj_int2obj(16), r_73666);; -} - -static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) { - -closureN_type c_732288; -c_732288.hdr.mark = gc_color_red; - c_732288.hdr.grayed = 0; -c_732288.tag = closureN_tag; - c_732288.fn = (function_type)__lambda_177; -c_732288.num_args = 1; -c_732288.num_elements = 1; -c_732288.elements = (object *)alloca(sizeof(object) * 1); -c_732288.elements[0] = k_73663; - - -object c_732296 = Cyc_list2string(data,(closure)&c_732288,num_73215); -return_closcall1(data,(closure)&c_732288, c_732296);; -} - -static void __lambda_177(void *data, int argc, object self_731045, object r_73664) { - -object c_732293 = Cyc_string2number2_(data, ((closureN)self_731045)->elements[0],2,r_73664, obj_int2obj(8)); -return_closcall1(data, ((closureN)self_731045)->elements[0], c_732293);; -} - -static void __lambda_176(void *data, int argc, object self_731046, object r_73662) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731046)->elements[2], ((closureN)self_731046)->elements[1], ((closureN)self_731046)->elements[5], ((closureN)self_731046)->elements[0], ((closureN)self_731046)->elements[3], ((closureN)self_731046)->elements[4], obj_int2obj(8), r_73662);; -} - -static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) { - -closureN_type c_732263; -c_732263.hdr.mark = gc_color_red; - c_732263.hdr.grayed = 0; -c_732263.tag = closureN_tag; - c_732263.fn = (function_type)__lambda_174; -c_732263.num_args = 1; -c_732263.num_elements = 1; -c_732263.elements = (object *)alloca(sizeof(object) * 1); -c_732263.elements[0] = k_73659; - - -object c_732271 = Cyc_list2string(data,(closure)&c_732263,num_73216); -return_closcall1(data,(closure)&c_732263, c_732271);; -} - -static void __lambda_174(void *data, int argc, object self_731048, object r_73660) { - -object c_732268 = Cyc_string2number2_(data, ((closureN)self_731048)->elements[0],2,r_73660, obj_int2obj(2)); -return_closcall1(data, ((closureN)self_731048)->elements[0], c_732268);; -} - -static void __lambda_173(void *data, int argc, object self_731049, object r_73658) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731049)->elements[2], ((closureN)self_731049)->elements[1], ((closureN)self_731049)->elements[5], ((closureN)self_731049)->elements[0], ((closureN)self_731049)->elements[3], ((closureN)self_731049)->elements[4], obj_int2obj(2), r_73658);; -} - -static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) { - -closureN_type c_732244; -c_732244.hdr.mark = gc_color_red; - c_732244.hdr.grayed = 0; -c_732244.tag = closureN_tag; - c_732244.fn = (function_type)__lambda_171; -c_732244.num_args = 1; -c_732244.num_elements = 1; -c_732244.elements = (object *)alloca(sizeof(object) * 1); -c_732244.elements[0] = k_73655; - -return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732244, num_73217);; -} - -static void __lambda_171(void *data, int argc, object self_731051, object r_73656) { - return_closcall2(data, __glo_inexact_scheme_base, ((closureN)self_731051)->elements[0], r_73656);; -} - -static void __lambda_170(void *data, int argc, object self_731052, object r_73654) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731052)->elements[2], ((closureN)self_731052)->elements[1], ((closureN)self_731052)->elements[5], ((closureN)self_731052)->elements[0], ((closureN)self_731052)->elements[3], ((closureN)self_731052)->elements[4], obj_int2obj(10), r_73654);; -} - -static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) { - -closureN_type c_732225; -c_732225.hdr.mark = gc_color_red; - c_732225.hdr.grayed = 0; -c_732225.tag = closureN_tag; - c_732225.fn = (function_type)__lambda_168; -c_732225.num_args = 1; -c_732225.num_elements = 1; -c_732225.elements = (object *)alloca(sizeof(object) * 1); -c_732225.elements[0] = k_73651; - -return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732225, num_73218);; -} - -static void __lambda_168(void *data, int argc, object self_731054, object r_73652) { - return_closcall2(data, __glo_exact_scheme_base, ((closureN)self_731054)->elements[0], r_73652);; -} - -static void __lambda_167(void *data, int argc, object self_731055, object r_73650) { - return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731055)->elements[2], ((closureN)self_731055)->elements[1], ((closureN)self_731055)->elements[5], ((closureN)self_731055)->elements[0], ((closureN)self_731055)->elements[3], ((closureN)self_731055)->elements[4], obj_int2obj(10), r_73650);; -} - -static void __lambda_166(void *data, int argc, object self_731056, object r_73647) { - -make_pair(c_732202,boolean_f, ((closureN)self_731056)->elements[5]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731056)->elements[2], ((closureN)self_731056)->elements[1], r_73647, &c_732202, ((closureN)self_731056)->elements[0], boolean_f, ((closureN)self_731056)->elements[3], ((closureN)self_731056)->elements[4]);; -} - -static void __lambda_165(void *data, int argc, object self_731057, object r_73644) { - -make_pair(c_732182,boolean_t, ((closureN)self_731057)->elements[5]); -return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731057)->elements[2], ((closureN)self_731057)->elements[1], r_73644, &c_732182, ((closureN)self_731057)->elements[0], boolean_f, ((closureN)self_731057)->elements[3], ((closureN)self_731057)->elements[4]);; -} - -static void __lambda_164(void *data, int argc, object self_731058, object r_73641) { - -closureN_type c_732159; -c_732159.hdr.mark = gc_color_red; - c_732159.hdr.grayed = 0; -c_732159.tag = closureN_tag; - c_732159.fn = (function_type)__lambda_163; -c_732159.num_args = 1; -c_732159.num_elements = 6; -c_732159.elements = (object *)alloca(sizeof(object) * 6); -c_732159.elements[0] = ((closureN)self_731058)->elements[0]; -c_732159.elements[1] = ((closureN)self_731058)->elements[1]; -c_732159.elements[2] = ((closureN)self_731058)->elements[2]; -c_732159.elements[3] = ((closureN)self_731058)->elements[3]; -c_732159.elements[4] = ((closureN)self_731058)->elements[4]; -c_732159.elements[5] = ((closureN)self_731058)->elements[5]; - -return_closcall1(data,(closure)&c_732159, NULL);; -} - -static void __lambda_163(void *data, int argc, object self_731059, object r_73642) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731059)->elements[2], ((closureN)self_731059)->elements[1], r_73642, ((closureN)self_731059)->elements[5], ((closureN)self_731059)->elements[0], boolean_f, ((closureN)self_731059)->elements[3], ((closureN)self_731059)->elements[4]);; -} - -static void __lambda_162(void *data, int argc, object self_731060, object r_73624) { - if( (boolean_f != r_73624) ){ - -closureN_type c_732074; -c_732074.hdr.mark = gc_color_red; - c_732074.hdr.grayed = 0; -c_732074.tag = closureN_tag; - c_732074.fn = (function_type)__lambda_152; -c_732074.num_args = 1; -c_732074.num_elements = 3; -c_732074.elements = (object *)alloca(sizeof(object) * 3); -c_732074.elements[0] = ((closureN)self_731060)->elements[3]; -c_732074.elements[1] = ((closureN)self_731060)->elements[6]; -c_732074.elements[2] = ((closureN)self_731060)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732074, ((closureN)self_731060)->elements[5], ((closureN)self_731060)->elements[1]); -} else { - -closureN_type c_732088; -c_732088.hdr.mark = gc_color_red; - c_732088.hdr.grayed = 0; -c_732088.tag = closureN_tag; - c_732088.fn = (function_type)__lambda_161; -c_732088.num_args = 1; -c_732088.num_elements = 7; -c_732088.elements = (object *)alloca(sizeof(object) * 7); -c_732088.elements[0] = ((closureN)self_731060)->elements[0]; -c_732088.elements[1] = ((closureN)self_731060)->elements[2]; -c_732088.elements[2] = ((closureN)self_731060)->elements[3]; -c_732088.elements[3] = ((closureN)self_731060)->elements[4]; -c_732088.elements[4] = ((closureN)self_731060)->elements[5]; -c_732088.elements[5] = ((closureN)self_731060)->elements[6]; -c_732088.elements[6] = ((closureN)self_731060)->elements[7]; - -return_closcall1(data,(closure)&c_732088, NULL);} -; -} - -static void __lambda_161(void *data, int argc, object self_731061, object r_73633) { - -closureN_type c_732090; -c_732090.hdr.mark = gc_color_red; - c_732090.hdr.grayed = 0; -c_732090.tag = closureN_tag; - c_732090.fn = (function_type)__lambda_160; -c_732090.num_args = 1; -c_732090.num_elements = 7; -c_732090.elements = (object *)alloca(sizeof(object) * 7); -c_732090.elements[0] = ((closureN)self_731061)->elements[0]; -c_732090.elements[1] = ((closureN)self_731061)->elements[1]; -c_732090.elements[2] = ((closureN)self_731061)->elements[2]; -c_732090.elements[3] = ((closureN)self_731061)->elements[3]; -c_732090.elements[4] = ((closureN)self_731061)->elements[4]; -c_732090.elements[5] = ((closureN)self_731061)->elements[5]; -c_732090.elements[6] = ((closureN)self_731061)->elements[6]; - -return_closcall4(data, __glo_read_91str_scheme_read, &c_732090, ((closureN)self_731061)->elements[1], r_73633, ((closureN)self_731061)->elements[4]);; -} - -static void __lambda_160(void *data, int argc, object self_731062, object r_73628) { - -closureN_type c_732092; -c_732092.hdr.mark = gc_color_red; - c_732092.hdr.grayed = 0; -c_732092.tag = closureN_tag; - c_732092.fn = (function_type)__lambda_159; -c_732092.num_args = 1; -c_732092.num_elements = 6; -c_732092.elements = (object *)alloca(sizeof(object) * 6); -c_732092.elements[0] = ((closureN)self_731062)->elements[0]; -c_732092.elements[1] = ((closureN)self_731062)->elements[1]; -c_732092.elements[2] = ((closureN)self_731062)->elements[2]; -c_732092.elements[3] = ((closureN)self_731062)->elements[3]; -c_732092.elements[4] = ((closureN)self_731062)->elements[4]; -c_732092.elements[5] = r_73628; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732092, ((closureN)self_731062)->elements[5], ((closureN)self_731062)->elements[6]);; -} - -static void __lambda_159(void *data, int argc, object self_731063, object r_73629) { - -closureN_type c_732094; -c_732094.hdr.mark = gc_color_red; - c_732094.hdr.grayed = 0; -c_732094.tag = closureN_tag; - c_732094.fn = (function_type)__lambda_158; -c_732094.num_args = 2; -c_732094.num_elements = 5; -c_732094.elements = (object *)alloca(sizeof(object) * 5); -c_732094.elements[0] = ((closureN)self_731063)->elements[0]; -c_732094.elements[1] = ((closureN)self_731063)->elements[1]; -c_732094.elements[2] = ((closureN)self_731063)->elements[2]; -c_732094.elements[3] = ((closureN)self_731063)->elements[3]; -c_732094.elements[4] = ((closureN)self_731063)->elements[4]; - -return_closcall2(data,(closure)&c_732094, ((closureN)self_731063)->elements[5], r_73629);; -} - -static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) { - -closureN_type c_732096; -c_732096.hdr.mark = gc_color_red; - c_732096.hdr.grayed = 0; -c_732096.tag = closureN_tag; - c_732096.fn = (function_type)__lambda_157; -c_732096.num_args = 1; -c_732096.num_elements = 7; -c_732096.elements = (object *)alloca(sizeof(object) * 7); -c_732096.elements[0] = ((closureN)self_731064)->elements[0]; -c_732096.elements[1] = ((closureN)self_731064)->elements[1]; -c_732096.elements[2] = ((closureN)self_731064)->elements[2]; -c_732096.elements[3] = ((closureN)self_731064)->elements[3]; -c_732096.elements[4] = ((closureN)self_731064)->elements[4]; -c_732096.elements[5] = str_73220; -c_732096.elements[6] = toks_85_73219; - -return_closcall1(data,(closure)&c_732096, boolean_f);; -} - -static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) { - -closureN_type c_732098; -c_732098.hdr.mark = gc_color_red; - c_732098.hdr.grayed = 0; -c_732098.tag = closureN_tag; - c_732098.fn = (function_type)__lambda_156; -c_732098.num_args = 1; -c_732098.num_elements = 7; -c_732098.elements = (object *)alloca(sizeof(object) * 7); -c_732098.elements[0] = ((closureN)self_731065)->elements[0]; -c_732098.elements[1] = ((closureN)self_731065)->elements[1]; -c_732098.elements[2] = ((closureN)self_731065)->elements[2]; -c_732098.elements[3] = ((closureN)self_731065)->elements[3]; -c_732098.elements[4] = ((closureN)self_731065)->elements[4]; -c_732098.elements[5] = ((closureN)self_731065)->elements[5]; -c_732098.elements[6] = ((closureN)self_731065)->elements[6]; - - -make_cell(c_732129,new_91toks_73221); -return_closcall1(data,(closure)&c_732098, &c_732129);; -} - -static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) { - -closureN_type c_732100; -c_732100.hdr.mark = gc_color_red; - c_732100.hdr.grayed = 0; -c_732100.tag = closureN_tag; - c_732100.fn = (function_type)__lambda_155; -c_732100.num_args = 1; -c_732100.num_elements = 6; -c_732100.elements = (object *)alloca(sizeof(object) * 6); -c_732100.elements[0] = ((closureN)self_731066)->elements[0]; -c_732100.elements[1] = ((closureN)self_731066)->elements[1]; -c_732100.elements[2] = ((closureN)self_731066)->elements[2]; -c_732100.elements[3] = new_91toks_73221; -c_732100.elements[4] = ((closureN)self_731066)->elements[3]; -c_732100.elements[5] = ((closureN)self_731066)->elements[4]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732100, ((closureN)self_731066)->elements[5], ((closureN)self_731066)->elements[6]);; -} - -static void __lambda_155(void *data, int argc, object self_731067, object r_73632) { - -closureN_type c_732102; -c_732102.hdr.mark = gc_color_red; - c_732102.hdr.grayed = 0; -c_732102.tag = closureN_tag; - c_732102.fn = (function_type)__lambda_154; -c_732102.num_args = 1; -c_732102.num_elements = 6; -c_732102.elements = (object *)alloca(sizeof(object) * 6); -c_732102.elements[0] = ((closureN)self_731067)->elements[0]; -c_732102.elements[1] = ((closureN)self_731067)->elements[1]; -c_732102.elements[2] = ((closureN)self_731067)->elements[2]; -c_732102.elements[3] = ((closureN)self_731067)->elements[3]; -c_732102.elements[4] = ((closureN)self_731067)->elements[4]; -c_732102.elements[5] = ((closureN)self_731067)->elements[5]; - -return_closcall1(data,(closure)&c_732102, Cyc_set_car(data, ((closureN)self_731067)->elements[3], r_73632));; -} - -static void __lambda_154(void *data, int argc, object self_731068, object r_73630) { - if( (boolean_f != ((closureN)self_731068)->elements[0]) ){ - -closureN_type c_732105; -c_732105.hdr.mark = gc_color_red; - c_732105.hdr.grayed = 0; -c_732105.tag = closureN_tag; - c_732105.fn = (function_type)__lambda_153; -c_732105.num_args = 1; -c_732105.num_elements = 6; -c_732105.elements = (object *)alloca(sizeof(object) * 6); -c_732105.elements[0] = ((closureN)self_731068)->elements[0]; -c_732105.elements[1] = ((closureN)self_731068)->elements[1]; -c_732105.elements[2] = ((closureN)self_731068)->elements[2]; -c_732105.elements[3] = ((closureN)self_731068)->elements[3]; -c_732105.elements[4] = ((closureN)self_731068)->elements[4]; -c_732105.elements[5] = ((closureN)self_731068)->elements[5]; - -return_closcall1(data,(closure)&c_732105, NULL); -} else { - return_closcall1(data, ((closureN)self_731068)->elements[2], car(cell_get(((closureN)self_731068)->elements[3])));} -; -} - -static void __lambda_153(void *data, int argc, object self_731069, object r_73631) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731069)->elements[2], ((closureN)self_731069)->elements[1], r_73631, cell_get(((closureN)self_731069)->elements[3]), ((closureN)self_731069)->elements[0], boolean_f, ((closureN)self_731069)->elements[4], ((closureN)self_731069)->elements[5]);; -} - -static void __lambda_152(void *data, int argc, object self_731070, object r_73625) { - -closureN_type c_732076; -c_732076.hdr.mark = gc_color_red; - c_732076.hdr.grayed = 0; -c_732076.tag = closureN_tag; - c_732076.fn = (function_type)__lambda_151; -c_732076.num_args = 1; -c_732076.num_elements = 2; -c_732076.elements = (object *)alloca(sizeof(object) * 2); -c_732076.elements[0] = ((closureN)self_731070)->elements[0]; -c_732076.elements[1] = ((closureN)self_731070)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732076, ((closureN)self_731070)->elements[1]);; -} - -static void __lambda_151(void *data, int argc, object self_731071, object r_73627) { - -closureN_type c_732078; -c_732078.hdr.mark = gc_color_red; - c_732078.hdr.grayed = 0; -c_732078.tag = closureN_tag; - c_732078.fn = (function_type)__lambda_150; -c_732078.num_args = 1; -c_732078.num_elements = 1; -c_732078.elements = (object *)alloca(sizeof(object) * 1); -c_732078.elements[0] = ((closureN)self_731071)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732078, r_73627, ((closureN)self_731071)->elements[1]);; -} - -static void __lambda_150(void *data, int argc, object self_731072, object r_73626) { - return_closcall1(data, ((closureN)self_731072)->elements[0], car(r_73626));; -} - -static void __lambda_149(void *data, int argc, object self_731073, object k_73634) { - if( (boolean_f != ((closureN)self_731073)->elements[0]) ){ - return_closcall1(data, k_73634, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73634, Cyc_is_null(((closureN)self_731073)->elements[1]));} -; -} - -static void __lambda_148(void *data, int argc, object self_731074, object r_73613) { - if( (boolean_f != r_73613) ){ - -closureN_type c_732026; -c_732026.hdr.mark = gc_color_red; - c_732026.hdr.grayed = 0; -c_732026.tag = closureN_tag; - c_732026.fn = (function_type)__lambda_143; -c_732026.num_args = 1; -c_732026.num_elements = 3; -c_732026.elements = (object *)alloca(sizeof(object) * 3); -c_732026.elements[0] = ((closureN)self_731074)->elements[1]; -c_732026.elements[1] = ((closureN)self_731074)->elements[4]; -c_732026.elements[2] = ((closureN)self_731074)->elements[5]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732026, ((closureN)self_731074)->elements[3], ((closureN)self_731074)->elements[0]); -} else { - -closureN_type c_732040; -c_732040.hdr.mark = gc_color_red; - c_732040.hdr.grayed = 0; -c_732040.tag = closureN_tag; - c_732040.fn = (function_type)__lambda_147; -c_732040.num_args = 1; -c_732040.num_elements = 4; -c_732040.elements = (object *)alloca(sizeof(object) * 4); -c_732040.elements[0] = ((closureN)self_731074)->elements[1]; -c_732040.elements[1] = ((closureN)self_731074)->elements[3]; -c_732040.elements[2] = ((closureN)self_731074)->elements[4]; -c_732040.elements[3] = ((closureN)self_731074)->elements[5]; - - -object c_732059 = Cyc_num_eq(data,(closure)&c_732040,2,((closureN)self_731074)->elements[2], obj_int2obj(0)); -return_closcall1(data,(closure)&c_732040, c_732059);} -; -} - -static void __lambda_147(void *data, int argc, object self_731075, object r_73617) { - if( (boolean_f != r_73617) ){ - -closureN_type c_732042; -c_732042.hdr.mark = gc_color_red; - c_732042.hdr.grayed = 0; -c_732042.tag = closureN_tag; - c_732042.fn = (function_type)__lambda_145; -c_732042.num_args = 1; -c_732042.num_elements = 2; -c_732042.elements = (object *)alloca(sizeof(object) * 2); -c_732042.elements[0] = ((closureN)self_731075)->elements[0]; -c_732042.elements[1] = ((closureN)self_731075)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732042, ((closureN)self_731075)->elements[1]); -} else { - -closureN_type c_732052; -c_732052.hdr.mark = gc_color_red; - c_732052.hdr.grayed = 0; -c_732052.tag = closureN_tag; - c_732052.fn = (function_type)__lambda_146; -c_732052.num_args = 1; -c_732052.num_elements = 1; -c_732052.elements = (object *)alloca(sizeof(object) * 1); -c_732052.elements[0] = ((closureN)self_731075)->elements[0]; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_732052, ((closureN)self_731075)->elements[2], ((closureN)self_731075)->elements[3]);} -; -} - -static void __lambda_146(void *data, int argc, object self_731076, object r_73620) { - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731076)->elements[0], r_73620);; -} - -static void __lambda_145(void *data, int argc, object self_731077, object r_73618) { - -closureN_type c_732044; -c_732044.hdr.mark = gc_color_red; - c_732044.hdr.grayed = 0; -c_732044.tag = closureN_tag; - c_732044.fn = (function_type)__lambda_144; -c_732044.num_args = 1; -c_732044.num_elements = 2; -c_732044.elements = (object *)alloca(sizeof(object) * 2); -c_732044.elements[0] = ((closureN)self_731077)->elements[0]; -c_732044.elements[1] = r_73618; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732044, ((closureN)self_731077)->elements[1]);; -} - -static void __lambda_144(void *data, int argc, object self_731078, object r_73619) { - -make_string(c_732047, "unexpected closing parenthesis"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731078)->elements[0], &c_732047, ((closureN)self_731078)->elements[1], r_73619);; -} - -static void __lambda_143(void *data, int argc, object self_731079, object r_73614) { - -closureN_type c_732028; -c_732028.hdr.mark = gc_color_red; - c_732028.hdr.grayed = 0; -c_732028.tag = closureN_tag; - c_732028.fn = (function_type)__lambda_142; -c_732028.num_args = 1; -c_732028.num_elements = 2; -c_732028.elements = (object *)alloca(sizeof(object) * 2); -c_732028.elements[0] = ((closureN)self_731079)->elements[0]; -c_732028.elements[1] = ((closureN)self_731079)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_732028, ((closureN)self_731079)->elements[1]);; -} - -static void __lambda_142(void *data, int argc, object self_731080, object r_73616) { - -closureN_type c_732030; -c_732030.hdr.mark = gc_color_red; - c_732030.hdr.grayed = 0; -c_732030.tag = closureN_tag; - c_732030.fn = (function_type)__lambda_141; -c_732030.num_args = 1; -c_732030.num_elements = 1; -c_732030.elements = (object *)alloca(sizeof(object) * 1); -c_732030.elements[0] = ((closureN)self_731080)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_732030, r_73616, ((closureN)self_731080)->elements[1]);; -} - -static void __lambda_141(void *data, int argc, object self_731081, object r_73615) { - return_closcall1(data, ((closureN)self_731081)->elements[0], car(r_73615));; -} - -static void __lambda_140(void *data, int argc, object self_731082, object k_73621) { - if( (boolean_f != ((closureN)self_731082)->elements[0]) ){ - return_closcall1(data, k_73621, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73621, Cyc_is_null(((closureN)self_731082)->elements[1]));} -; -} - -static void __lambda_139(void *data, int argc, object self_731083, object r_73593) { - if( (boolean_f != r_73593) ){ - -closureN_type c_731925; -c_731925.hdr.mark = gc_color_red; - c_731925.hdr.grayed = 0; -c_731925.tag = closureN_tag; - c_731925.fn = (function_type)__lambda_123; -c_731925.num_args = 1; -c_731925.num_elements = 3; -c_731925.elements = (object *)alloca(sizeof(object) * 3); -c_731925.elements[0] = ((closureN)self_731083)->elements[3]; -c_731925.elements[1] = ((closureN)self_731083)->elements[6]; -c_731925.elements[2] = ((closureN)self_731083)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731925, ((closureN)self_731083)->elements[5], ((closureN)self_731083)->elements[1]); -} else { - -closureN_type c_731939; -c_731939.hdr.mark = gc_color_red; - c_731939.hdr.grayed = 0; -c_731939.tag = closureN_tag; - c_731939.fn = (function_type)__lambda_138; -c_731939.num_args = 1; -c_731939.num_elements = 7; -c_731939.elements = (object *)alloca(sizeof(object) * 7); -c_731939.elements[0] = ((closureN)self_731083)->elements[0]; -c_731939.elements[1] = ((closureN)self_731083)->elements[2]; -c_731939.elements[2] = ((closureN)self_731083)->elements[3]; -c_731939.elements[3] = ((closureN)self_731083)->elements[4]; -c_731939.elements[4] = ((closureN)self_731083)->elements[5]; -c_731939.elements[5] = ((closureN)self_731083)->elements[6]; -c_731939.elements[6] = ((closureN)self_731083)->elements[7]; - -return_closcall1(data,(closure)&c_731939, NULL);} -; -} - -static void __lambda_138(void *data, int argc, object self_731084, object r_73607) { - -closureN_type c_731941; -c_731941.hdr.mark = gc_color_red; - c_731941.hdr.grayed = 0; -c_731941.tag = closureN_tag; - c_731941.fn = (function_type)__lambda_137; -c_731941.num_args = 1; -c_731941.num_elements = 8; -c_731941.elements = (object *)alloca(sizeof(object) * 8); -c_731941.elements[0] = ((closureN)self_731084)->elements[0]; -c_731941.elements[1] = ((closureN)self_731084)->elements[1]; -c_731941.elements[2] = ((closureN)self_731084)->elements[2]; -c_731941.elements[3] = ((closureN)self_731084)->elements[3]; -c_731941.elements[4] = ((closureN)self_731084)->elements[4]; -c_731941.elements[5] = r_73607; -c_731941.elements[6] = ((closureN)self_731084)->elements[5]; -c_731941.elements[7] = ((closureN)self_731084)->elements[6]; - -return_closcall1(data,(closure)&c_731941, NULL);; -} - -static void __lambda_137(void *data, int argc, object self_731085, object r_73608) { - -closureN_type c_731943; -c_731943.hdr.mark = gc_color_red; - c_731943.hdr.grayed = 0; -c_731943.tag = closureN_tag; - c_731943.fn = (function_type)__lambda_136; -c_731943.num_args = 1; -c_731943.num_elements = 9; -c_731943.elements = (object *)alloca(sizeof(object) * 9); -c_731943.elements[0] = ((closureN)self_731085)->elements[0]; -c_731943.elements[1] = ((closureN)self_731085)->elements[1]; -c_731943.elements[2] = ((closureN)self_731085)->elements[2]; -c_731943.elements[3] = ((closureN)self_731085)->elements[3]; -c_731943.elements[4] = ((closureN)self_731085)->elements[4]; -c_731943.elements[5] = ((closureN)self_731085)->elements[5]; -c_731943.elements[6] = r_73608; -c_731943.elements[7] = ((closureN)self_731085)->elements[6]; -c_731943.elements[8] = ((closureN)self_731085)->elements[7]; - - -object c_732011 = Cyc_sum(data,(closure)&c_731943,2,((closureN)self_731085)->elements[3], obj_int2obj(1)); -return_closcall1(data,(closure)&c_731943, c_732011);; -} - -static void __lambda_136(void *data, int argc, object self_731086, object r_73609) { - -closureN_type c_731945; -c_731945.hdr.mark = gc_color_red; - c_731945.hdr.grayed = 0; -c_731945.tag = closureN_tag; - c_731945.fn = (function_type)__lambda_135; -c_731945.num_args = 1; -c_731945.num_elements = 7; -c_731945.elements = (object *)alloca(sizeof(object) * 7); -c_731945.elements[0] = ((closureN)self_731086)->elements[0]; -c_731945.elements[1] = ((closureN)self_731086)->elements[1]; -c_731945.elements[2] = ((closureN)self_731086)->elements[2]; -c_731945.elements[3] = ((closureN)self_731086)->elements[3]; -c_731945.elements[4] = ((closureN)self_731086)->elements[4]; -c_731945.elements[5] = ((closureN)self_731086)->elements[7]; -c_731945.elements[6] = ((closureN)self_731086)->elements[8]; - -return_closcall8(data, __glo_parse_scheme_read, &c_731945, ((closureN)self_731086)->elements[1], ((closureN)self_731086)->elements[5], ((closureN)self_731086)->elements[6], boolean_t, boolean_f, r_73609, ((closureN)self_731086)->elements[4]);; -} - -static void __lambda_135(void *data, int argc, object self_731087, object r_73597) { - -closureN_type c_731947; -c_731947.hdr.mark = gc_color_red; - c_731947.hdr.grayed = 0; -c_731947.tag = closureN_tag; - c_731947.fn = (function_type)__lambda_134; -c_731947.num_args = 1; -c_731947.num_elements = 6; -c_731947.elements = (object *)alloca(sizeof(object) * 6); -c_731947.elements[0] = ((closureN)self_731087)->elements[0]; -c_731947.elements[1] = ((closureN)self_731087)->elements[1]; -c_731947.elements[2] = ((closureN)self_731087)->elements[2]; -c_731947.elements[3] = ((closureN)self_731087)->elements[3]; -c_731947.elements[4] = ((closureN)self_731087)->elements[4]; -c_731947.elements[5] = r_73597; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731947, ((closureN)self_731087)->elements[5], ((closureN)self_731087)->elements[6]);; -} - -static void __lambda_134(void *data, int argc, object self_731088, object r_73598) { - -closureN_type c_731949; -c_731949.hdr.mark = gc_color_red; - c_731949.hdr.grayed = 0; -c_731949.tag = closureN_tag; - c_731949.fn = (function_type)__lambda_133; -c_731949.num_args = 2; -c_731949.num_elements = 5; -c_731949.elements = (object *)alloca(sizeof(object) * 5); -c_731949.elements[0] = ((closureN)self_731088)->elements[0]; -c_731949.elements[1] = ((closureN)self_731088)->elements[1]; -c_731949.elements[2] = ((closureN)self_731088)->elements[2]; -c_731949.elements[3] = ((closureN)self_731088)->elements[3]; -c_731949.elements[4] = ((closureN)self_731088)->elements[4]; - -return_closcall2(data,(closure)&c_731949, ((closureN)self_731088)->elements[5], r_73598);; -} - -static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) { - -closureN_type c_731951; -c_731951.hdr.mark = gc_color_red; - c_731951.hdr.grayed = 0; -c_731951.tag = closureN_tag; - c_731951.fn = (function_type)__lambda_132; -c_731951.num_args = 1; -c_731951.num_elements = 7; -c_731951.elements = (object *)alloca(sizeof(object) * 7); -c_731951.elements[0] = ((closureN)self_731089)->elements[0]; -c_731951.elements[1] = ((closureN)self_731089)->elements[1]; -c_731951.elements[2] = ((closureN)self_731089)->elements[2]; -c_731951.elements[3] = ((closureN)self_731089)->elements[3]; -c_731951.elements[4] = ((closureN)self_731089)->elements[4]; -c_731951.elements[5] = sub_73223; -c_731951.elements[6] = toks_85_73222; - -return_closcall1(data,(closure)&c_731951, boolean_f);; -} - -static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) { - -closureN_type c_731953; -c_731953.hdr.mark = gc_color_red; - c_731953.hdr.grayed = 0; -c_731953.tag = closureN_tag; - c_731953.fn = (function_type)__lambda_131; -c_731953.num_args = 1; -c_731953.num_elements = 7; -c_731953.elements = (object *)alloca(sizeof(object) * 7); -c_731953.elements[0] = ((closureN)self_731090)->elements[0]; -c_731953.elements[1] = ((closureN)self_731090)->elements[1]; -c_731953.elements[2] = ((closureN)self_731090)->elements[2]; -c_731953.elements[3] = ((closureN)self_731090)->elements[3]; -c_731953.elements[4] = ((closureN)self_731090)->elements[4]; -c_731953.elements[5] = ((closureN)self_731090)->elements[5]; -c_731953.elements[6] = ((closureN)self_731090)->elements[6]; - - -make_cell(c_732001,new_91toks_73224); -return_closcall1(data,(closure)&c_731953, &c_732001);; -} - -static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) { - -closureN_type c_731955; -c_731955.hdr.mark = gc_color_red; - c_731955.hdr.grayed = 0; -c_731955.tag = closureN_tag; - c_731955.fn = (function_type)__lambda_126; -c_731955.num_args = 0; -c_731955.num_elements = 1; -c_731955.elements = (object *)alloca(sizeof(object) * 1); -c_731955.elements[0] = ((closureN)self_731091)->elements[5]; - - -closureN_type c_731971; -c_731971.hdr.mark = gc_color_red; - c_731971.hdr.grayed = 0; -c_731971.tag = closureN_tag; - c_731971.fn = (function_type)__lambda_130; -c_731971.num_args = 1; -c_731971.num_elements = 7; -c_731971.elements = (object *)alloca(sizeof(object) * 7); -c_731971.elements[0] = ((closureN)self_731091)->elements[0]; -c_731971.elements[1] = ((closureN)self_731091)->elements[1]; -c_731971.elements[2] = ((closureN)self_731091)->elements[2]; -c_731971.elements[3] = new_91toks_73224; -c_731971.elements[4] = ((closureN)self_731091)->elements[3]; -c_731971.elements[5] = ((closureN)self_731091)->elements[4]; -c_731971.elements[6] = ((closureN)self_731091)->elements[6]; - -return_closcall1(data,(closure)&c_731955, &c_731971);; -} - -static void __lambda_130(void *data, int argc, object self_731092, object r_73602) { - -closureN_type c_731973; -c_731973.hdr.mark = gc_color_red; - c_731973.hdr.grayed = 0; -c_731973.tag = closureN_tag; - c_731973.fn = (function_type)__lambda_129; -c_731973.num_args = 1; -c_731973.num_elements = 6; -c_731973.elements = (object *)alloca(sizeof(object) * 6); -c_731973.elements[0] = ((closureN)self_731092)->elements[0]; -c_731973.elements[1] = ((closureN)self_731092)->elements[1]; -c_731973.elements[2] = ((closureN)self_731092)->elements[2]; -c_731973.elements[3] = ((closureN)self_731092)->elements[3]; -c_731973.elements[4] = ((closureN)self_731092)->elements[4]; -c_731973.elements[5] = ((closureN)self_731092)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731973, r_73602, ((closureN)self_731092)->elements[6]);; -} - -static void __lambda_129(void *data, int argc, object self_731093, object r_73601) { - -closureN_type c_731975; -c_731975.hdr.mark = gc_color_red; - c_731975.hdr.grayed = 0; -c_731975.tag = closureN_tag; - c_731975.fn = (function_type)__lambda_128; -c_731975.num_args = 1; -c_731975.num_elements = 6; -c_731975.elements = (object *)alloca(sizeof(object) * 6); -c_731975.elements[0] = ((closureN)self_731093)->elements[0]; -c_731975.elements[1] = ((closureN)self_731093)->elements[1]; -c_731975.elements[2] = ((closureN)self_731093)->elements[2]; -c_731975.elements[3] = ((closureN)self_731093)->elements[3]; -c_731975.elements[4] = ((closureN)self_731093)->elements[4]; -c_731975.elements[5] = ((closureN)self_731093)->elements[5]; - -return_closcall1(data,(closure)&c_731975, Cyc_set_car(data, ((closureN)self_731093)->elements[3], r_73601));; -} - -static void __lambda_128(void *data, int argc, object self_731094, object r_73599) { - if( (boolean_f != ((closureN)self_731094)->elements[0]) ){ - -closureN_type c_731978; -c_731978.hdr.mark = gc_color_red; - c_731978.hdr.grayed = 0; -c_731978.tag = closureN_tag; - c_731978.fn = (function_type)__lambda_127; -c_731978.num_args = 1; -c_731978.num_elements = 6; -c_731978.elements = (object *)alloca(sizeof(object) * 6); -c_731978.elements[0] = ((closureN)self_731094)->elements[0]; -c_731978.elements[1] = ((closureN)self_731094)->elements[1]; -c_731978.elements[2] = ((closureN)self_731094)->elements[2]; -c_731978.elements[3] = ((closureN)self_731094)->elements[3]; -c_731978.elements[4] = ((closureN)self_731094)->elements[4]; -c_731978.elements[5] = ((closureN)self_731094)->elements[5]; - -return_closcall1(data,(closure)&c_731978, NULL); -} else { - return_closcall1(data, ((closureN)self_731094)->elements[2], car(cell_get(((closureN)self_731094)->elements[3])));} -; -} - -static void __lambda_127(void *data, int argc, object self_731095, object r_73600) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731095)->elements[2], ((closureN)self_731095)->elements[1], r_73600, cell_get(((closureN)self_731095)->elements[3]), ((closureN)self_731095)->elements[0], boolean_f, ((closureN)self_731095)->elements[4], ((closureN)self_731095)->elements[5]);; -} - -static void __lambda_126(void *data, int argc, object self_731096, object k_73603) { - -closureN_type c_731957; -c_731957.hdr.mark = gc_color_red; - c_731957.hdr.grayed = 0; -c_731957.tag = closureN_tag; - c_731957.fn = (function_type)__lambda_124; -c_731957.num_args = 0; -c_731957.num_elements = 1; -c_731957.elements = (object *)alloca(sizeof(object) * 1); -c_731957.elements[0] = ((closureN)self_731096)->elements[0]; - - -closureN_type c_731964; -c_731964.hdr.mark = gc_color_red; - c_731964.hdr.grayed = 0; -c_731964.tag = closureN_tag; - c_731964.fn = (function_type)__lambda_125; -c_731964.num_args = 1; -c_731964.num_elements = 2; -c_731964.elements = (object *)alloca(sizeof(object) * 2); -c_731964.elements[0] = k_73603; -c_731964.elements[1] = ((closureN)self_731096)->elements[0]; - -return_closcall1(data,(closure)&c_731957, &c_731964);; -} - -static void __lambda_125(void *data, int argc, object self_731097, object r_73604) { - if( (boolean_f != r_73604) ){ - return_closcall2(data, __glo__91_125dotted_91list_scheme_read, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]);} -; -} - -static void __lambda_124(void *data, int argc, object self_731098, object k_73605) { - if( (boolean_f != Cyc_is_pair(((closureN)self_731098)->elements[0])) ){ - return_closcall2(data, __glo_dotted_127_scheme_read, k_73605, ((closureN)self_731098)->elements[0]); -} else { - return_closcall1(data, k_73605, boolean_f);} -; -} - -static void __lambda_123(void *data, int argc, object self_731099, object r_73594) { - -closureN_type c_731927; -c_731927.hdr.mark = gc_color_red; - c_731927.hdr.grayed = 0; -c_731927.tag = closureN_tag; - c_731927.fn = (function_type)__lambda_122; -c_731927.num_args = 1; -c_731927.num_elements = 2; -c_731927.elements = (object *)alloca(sizeof(object) * 2); -c_731927.elements[0] = ((closureN)self_731099)->elements[0]; -c_731927.elements[1] = ((closureN)self_731099)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731927, ((closureN)self_731099)->elements[1]);; -} - -static void __lambda_122(void *data, int argc, object self_731100, object r_73596) { - -closureN_type c_731929; -c_731929.hdr.mark = gc_color_red; - c_731929.hdr.grayed = 0; -c_731929.tag = closureN_tag; - c_731929.fn = (function_type)__lambda_121; -c_731929.num_args = 1; -c_731929.num_elements = 1; -c_731929.elements = (object *)alloca(sizeof(object) * 1); -c_731929.elements[0] = ((closureN)self_731100)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731929, r_73596, ((closureN)self_731100)->elements[1]);; -} - -static void __lambda_121(void *data, int argc, object self_731101, object r_73595) { - return_closcall1(data, ((closureN)self_731101)->elements[0], car(r_73595));; -} - -static void __lambda_120(void *data, int argc, object self_731102, object k_73610) { - if( (boolean_f != ((closureN)self_731102)->elements[0]) ){ - return_closcall1(data, k_73610, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73610, Cyc_is_null(((closureN)self_731102)->elements[1]));} -; -} - -static void __lambda_119(void *data, int argc, object self_731103, object r_73563) { - if( (boolean_f != r_73563) ){ - -closureN_type c_731756; -c_731756.hdr.mark = gc_color_red; - c_731756.hdr.grayed = 0; -c_731756.tag = closureN_tag; - c_731756.fn = (function_type)__lambda_93; -c_731756.num_args = 1; -c_731756.num_elements = 3; -c_731756.elements = (object *)alloca(sizeof(object) * 3); -c_731756.elements[0] = ((closureN)self_731103)->elements[3]; -c_731756.elements[1] = ((closureN)self_731103)->elements[6]; -c_731756.elements[2] = ((closureN)self_731103)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731756, ((closureN)self_731103)->elements[5], ((closureN)self_731103)->elements[1]); -} else { - -closureN_type c_731770; -c_731770.hdr.mark = gc_color_red; - c_731770.hdr.grayed = 0; -c_731770.tag = closureN_tag; - c_731770.fn = (function_type)__lambda_118; -c_731770.num_args = 4; -c_731770.num_elements = 7; -c_731770.elements = (object *)alloca(sizeof(object) * 7); -c_731770.elements[0] = ((closureN)self_731103)->elements[0]; -c_731770.elements[1] = ((closureN)self_731103)->elements[2]; -c_731770.elements[2] = ((closureN)self_731103)->elements[3]; -c_731770.elements[3] = ((closureN)self_731103)->elements[4]; -c_731770.elements[4] = ((closureN)self_731103)->elements[5]; -c_731770.elements[5] = ((closureN)self_731103)->elements[6]; -c_731770.elements[6] = ((closureN)self_731103)->elements[7]; - -return_closcall4(data,(closure)&c_731770, boolean_f, boolean_f, boolean_f, boolean_f);} -; -} - -static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) { - -closureN_type c_731772; -c_731772.hdr.mark = gc_color_red; - c_731772.hdr.grayed = 0; -c_731772.tag = closureN_tag; - c_731772.fn = (function_type)__lambda_117; -c_731772.num_args = 1; -c_731772.num_elements = 10; -c_731772.elements = (object *)alloca(sizeof(object) * 10); -c_731772.elements[0] = ((closureN)self_731104)->elements[0]; -c_731772.elements[1] = ((closureN)self_731104)->elements[1]; -c_731772.elements[2] = ((closureN)self_731104)->elements[2]; -c_731772.elements[3] = new_91toks_73225; -c_731772.elements[4] = next_91c_73227; -c_731772.elements[5] = ((closureN)self_731104)->elements[3]; -c_731772.elements[6] = ((closureN)self_731104)->elements[4]; -c_731772.elements[7] = ((closureN)self_731104)->elements[5]; -c_731772.elements[8] = ((closureN)self_731104)->elements[6]; -c_731772.elements[9] = unquote_91sym_73226; - - -make_cell(c_731911,sub_73228); -return_closcall1(data,(closure)&c_731772, &c_731911);; -} - -static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) { - -closureN_type c_731774; -c_731774.hdr.mark = gc_color_red; - c_731774.hdr.grayed = 0; -c_731774.tag = closureN_tag; - c_731774.fn = (function_type)__lambda_116; -c_731774.num_args = 1; -c_731774.num_elements = 10; -c_731774.elements = (object *)alloca(sizeof(object) * 10); -c_731774.elements[0] = ((closureN)self_731105)->elements[0]; -c_731774.elements[1] = ((closureN)self_731105)->elements[1]; -c_731774.elements[2] = ((closureN)self_731105)->elements[2]; -c_731774.elements[3] = ((closureN)self_731105)->elements[3]; -c_731774.elements[4] = ((closureN)self_731105)->elements[5]; -c_731774.elements[5] = ((closureN)self_731105)->elements[6]; -c_731774.elements[6] = sub_73228; -c_731774.elements[7] = ((closureN)self_731105)->elements[7]; -c_731774.elements[8] = ((closureN)self_731105)->elements[8]; -c_731774.elements[9] = ((closureN)self_731105)->elements[9]; - - -make_cell(c_731907,((closureN)self_731105)->elements[4]); -return_closcall1(data,(closure)&c_731774, &c_731907);; -} - -static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) { - -closureN_type c_731776; -c_731776.hdr.mark = gc_color_red; - c_731776.hdr.grayed = 0; -c_731776.tag = closureN_tag; - c_731776.fn = (function_type)__lambda_115; -c_731776.num_args = 1; -c_731776.num_elements = 10; -c_731776.elements = (object *)alloca(sizeof(object) * 10); -c_731776.elements[0] = ((closureN)self_731106)->elements[0]; -c_731776.elements[1] = ((closureN)self_731106)->elements[1]; -c_731776.elements[2] = ((closureN)self_731106)->elements[2]; -c_731776.elements[3] = ((closureN)self_731106)->elements[3]; -c_731776.elements[4] = next_91c_73227; -c_731776.elements[5] = ((closureN)self_731106)->elements[4]; -c_731776.elements[6] = ((closureN)self_731106)->elements[5]; -c_731776.elements[7] = ((closureN)self_731106)->elements[6]; -c_731776.elements[8] = ((closureN)self_731106)->elements[7]; -c_731776.elements[9] = ((closureN)self_731106)->elements[8]; - - -make_cell(c_731903,((closureN)self_731106)->elements[9]); -return_closcall1(data,(closure)&c_731776, &c_731903);; -} - -static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) { - -closureN_type c_731778; -c_731778.hdr.mark = gc_color_red; - c_731778.hdr.grayed = 0; -c_731778.tag = closureN_tag; - c_731778.fn = (function_type)__lambda_114; -c_731778.num_args = 1; -c_731778.num_elements = 10; -c_731778.elements = (object *)alloca(sizeof(object) * 10); -c_731778.elements[0] = ((closureN)self_731107)->elements[0]; -c_731778.elements[1] = ((closureN)self_731107)->elements[1]; -c_731778.elements[2] = ((closureN)self_731107)->elements[2]; -c_731778.elements[3] = ((closureN)self_731107)->elements[4]; -c_731778.elements[4] = ((closureN)self_731107)->elements[5]; -c_731778.elements[5] = ((closureN)self_731107)->elements[6]; -c_731778.elements[6] = ((closureN)self_731107)->elements[7]; -c_731778.elements[7] = ((closureN)self_731107)->elements[8]; -c_731778.elements[8] = ((closureN)self_731107)->elements[9]; -c_731778.elements[9] = unquote_91sym_73226; - - -make_cell(c_731899,((closureN)self_731107)->elements[3]); -return_closcall1(data,(closure)&c_731778, &c_731899);; -} - -static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) { - -closureN_type c_731780; -c_731780.hdr.mark = gc_color_red; - c_731780.hdr.grayed = 0; -c_731780.tag = closureN_tag; - c_731780.fn = (function_type)__lambda_113; -c_731780.num_args = 1; -c_731780.num_elements = 11; -c_731780.elements = (object *)alloca(sizeof(object) * 11); -c_731780.elements[0] = ((closureN)self_731108)->elements[0]; -c_731780.elements[1] = ((closureN)self_731108)->elements[1]; -c_731780.elements[2] = ((closureN)self_731108)->elements[2]; -c_731780.elements[3] = new_91toks_73225; -c_731780.elements[4] = ((closureN)self_731108)->elements[3]; -c_731780.elements[5] = ((closureN)self_731108)->elements[4]; -c_731780.elements[6] = ((closureN)self_731108)->elements[5]; -c_731780.elements[7] = ((closureN)self_731108)->elements[6]; -c_731780.elements[8] = ((closureN)self_731108)->elements[7]; -c_731780.elements[9] = ((closureN)self_731108)->elements[8]; -c_731780.elements[10] = ((closureN)self_731108)->elements[9]; - -return_closcall1(data,(closure)&c_731780, Cyc_set_car(data, ((closureN)self_731108)->elements[6], boolean_f));; -} - -static void __lambda_113(void *data, int argc, object self_731109, object r_73567) { - -closureN_type c_731782; -c_731782.hdr.mark = gc_color_red; - c_731782.hdr.grayed = 0; -c_731782.tag = closureN_tag; - c_731782.fn = (function_type)__lambda_112; -c_731782.num_args = 1; -c_731782.num_elements = 11; -c_731782.elements = (object *)alloca(sizeof(object) * 11); -c_731782.elements[0] = ((closureN)self_731109)->elements[0]; -c_731782.elements[1] = ((closureN)self_731109)->elements[1]; -c_731782.elements[2] = ((closureN)self_731109)->elements[2]; -c_731782.elements[3] = ((closureN)self_731109)->elements[3]; -c_731782.elements[4] = ((closureN)self_731109)->elements[4]; -c_731782.elements[5] = ((closureN)self_731109)->elements[5]; -c_731782.elements[6] = ((closureN)self_731109)->elements[6]; -c_731782.elements[7] = ((closureN)self_731109)->elements[7]; -c_731782.elements[8] = ((closureN)self_731109)->elements[8]; -c_731782.elements[9] = ((closureN)self_731109)->elements[9]; -c_731782.elements[10] = ((closureN)self_731109)->elements[10]; - - -object c_731892 = Cyc_io_read_char(data,(closure)&c_731782,((closureN)self_731109)->elements[1]); -return_closcall1(data,(closure)&c_731782, c_731892);; -} - -static void __lambda_112(void *data, int argc, object self_731110, object r_73589) { - -closureN_type c_731784; -c_731784.hdr.mark = gc_color_red; - c_731784.hdr.grayed = 0; -c_731784.tag = closureN_tag; - c_731784.fn = (function_type)__lambda_111; -c_731784.num_args = 1; -c_731784.num_elements = 11; -c_731784.elements = (object *)alloca(sizeof(object) * 11); -c_731784.elements[0] = ((closureN)self_731110)->elements[0]; -c_731784.elements[1] = ((closureN)self_731110)->elements[1]; -c_731784.elements[2] = ((closureN)self_731110)->elements[2]; -c_731784.elements[3] = ((closureN)self_731110)->elements[3]; -c_731784.elements[4] = ((closureN)self_731110)->elements[4]; -c_731784.elements[5] = ((closureN)self_731110)->elements[5]; -c_731784.elements[6] = ((closureN)self_731110)->elements[6]; -c_731784.elements[7] = ((closureN)self_731110)->elements[7]; -c_731784.elements[8] = ((closureN)self_731110)->elements[8]; -c_731784.elements[9] = ((closureN)self_731110)->elements[9]; -c_731784.elements[10] = ((closureN)self_731110)->elements[10]; - -return_closcall1(data,(closure)&c_731784, Cyc_set_car(data, ((closureN)self_731110)->elements[4], r_73589));; -} - -static void __lambda_111(void *data, int argc, object self_731111, object r_73568) { - -closureN_type c_731786; -c_731786.hdr.mark = gc_color_red; - c_731786.hdr.grayed = 0; -c_731786.tag = closureN_tag; - c_731786.fn = (function_type)__lambda_94; -c_731786.num_args = 0; -c_731786.num_elements = 1; -c_731786.elements = (object *)alloca(sizeof(object) * 1); -c_731786.elements[0] = ((closureN)self_731111)->elements[4]; - - -closureN_type c_731794; -c_731794.hdr.mark = gc_color_red; - c_731794.hdr.grayed = 0; -c_731794.tag = closureN_tag; - c_731794.fn = (function_type)__lambda_110; -c_731794.num_args = 1; -c_731794.num_elements = 11; -c_731794.elements = (object *)alloca(sizeof(object) * 11); -c_731794.elements[0] = ((closureN)self_731111)->elements[0]; -c_731794.elements[1] = ((closureN)self_731111)->elements[1]; -c_731794.elements[2] = ((closureN)self_731111)->elements[2]; -c_731794.elements[3] = ((closureN)self_731111)->elements[3]; -c_731794.elements[4] = ((closureN)self_731111)->elements[4]; -c_731794.elements[5] = ((closureN)self_731111)->elements[5]; -c_731794.elements[6] = ((closureN)self_731111)->elements[6]; -c_731794.elements[7] = ((closureN)self_731111)->elements[7]; -c_731794.elements[8] = ((closureN)self_731111)->elements[8]; -c_731794.elements[9] = ((closureN)self_731111)->elements[9]; -c_731794.elements[10] = ((closureN)self_731111)->elements[10]; - -return_closcall1(data,(closure)&c_731786, &c_731794);; -} - -static void __lambda_110(void *data, int argc, object self_731112, object r_73586) { - -closureN_type c_731796; -c_731796.hdr.mark = gc_color_red; - c_731796.hdr.grayed = 0; -c_731796.tag = closureN_tag; - c_731796.fn = (function_type)__lambda_109; -c_731796.num_args = 1; -c_731796.num_elements = 11; -c_731796.elements = (object *)alloca(sizeof(object) * 11); -c_731796.elements[0] = ((closureN)self_731112)->elements[0]; -c_731796.elements[1] = ((closureN)self_731112)->elements[1]; -c_731796.elements[2] = ((closureN)self_731112)->elements[2]; -c_731796.elements[3] = ((closureN)self_731112)->elements[3]; -c_731796.elements[4] = ((closureN)self_731112)->elements[4]; -c_731796.elements[5] = ((closureN)self_731112)->elements[5]; -c_731796.elements[6] = ((closureN)self_731112)->elements[6]; -c_731796.elements[7] = ((closureN)self_731112)->elements[7]; -c_731796.elements[8] = ((closureN)self_731112)->elements[8]; -c_731796.elements[9] = ((closureN)self_731112)->elements[9]; -c_731796.elements[10] = ((closureN)self_731112)->elements[10]; - -return_closcall1(data,(closure)&c_731796, Cyc_set_car(data, ((closureN)self_731112)->elements[10], r_73586));; -} - -static void __lambda_109(void *data, int argc, object self_731113, object r_73569) { - -closureN_type c_731798; -c_731798.hdr.mark = gc_color_red; - c_731798.hdr.grayed = 0; -c_731798.tag = closureN_tag; - c_731798.fn = (function_type)__lambda_108; -c_731798.num_args = 1; -c_731798.num_elements = 11; -c_731798.elements = (object *)alloca(sizeof(object) * 11); -c_731798.elements[0] = ((closureN)self_731113)->elements[0]; -c_731798.elements[1] = ((closureN)self_731113)->elements[1]; -c_731798.elements[2] = ((closureN)self_731113)->elements[2]; -c_731798.elements[3] = ((closureN)self_731113)->elements[3]; -c_731798.elements[4] = ((closureN)self_731113)->elements[4]; -c_731798.elements[5] = ((closureN)self_731113)->elements[5]; -c_731798.elements[6] = ((closureN)self_731113)->elements[6]; -c_731798.elements[7] = ((closureN)self_731113)->elements[7]; -c_731798.elements[8] = ((closureN)self_731113)->elements[8]; -c_731798.elements[9] = ((closureN)self_731113)->elements[9]; -c_731798.elements[10] = ((closureN)self_731113)->elements[10]; - -return_closcall1(data,(closure)&c_731798, Cyc_set_car(data, ((closureN)self_731113)->elements[3], boolean_f));; -} - -static void __lambda_108(void *data, int argc, object self_731114, object r_73570) { - -closureN_type c_731800; -c_731800.hdr.mark = gc_color_red; - c_731800.hdr.grayed = 0; -c_731800.tag = closureN_tag; - c_731800.fn = (function_type)__lambda_97; -c_731800.num_args = 0; -c_731800.num_elements = 2; -c_731800.elements = (object *)alloca(sizeof(object) * 2); -c_731800.elements[0] = ((closureN)self_731114)->elements[4]; -c_731800.elements[1] = ((closureN)self_731114)->elements[6]; - - -closureN_type c_731827; -c_731827.hdr.mark = gc_color_red; - c_731827.hdr.grayed = 0; -c_731827.tag = closureN_tag; - c_731827.fn = (function_type)__lambda_107; -c_731827.num_args = 1; -c_731827.num_elements = 10; -c_731827.elements = (object *)alloca(sizeof(object) * 10); -c_731827.elements[0] = ((closureN)self_731114)->elements[0]; -c_731827.elements[1] = ((closureN)self_731114)->elements[1]; -c_731827.elements[2] = ((closureN)self_731114)->elements[2]; -c_731827.elements[3] = ((closureN)self_731114)->elements[3]; -c_731827.elements[4] = ((closureN)self_731114)->elements[5]; -c_731827.elements[5] = ((closureN)self_731114)->elements[6]; -c_731827.elements[6] = ((closureN)self_731114)->elements[7]; -c_731827.elements[7] = ((closureN)self_731114)->elements[8]; -c_731827.elements[8] = ((closureN)self_731114)->elements[9]; -c_731827.elements[9] = ((closureN)self_731114)->elements[10]; - -return_closcall1(data,(closure)&c_731800, &c_731827);; -} - -static void __lambda_107(void *data, int argc, object self_731115, object r_73571) { - -closureN_type c_731829; -c_731829.hdr.mark = gc_color_red; - c_731829.hdr.grayed = 0; -c_731829.tag = closureN_tag; - c_731829.fn = (function_type)__lambda_106; -c_731829.num_args = 1; -c_731829.num_elements = 10; -c_731829.elements = (object *)alloca(sizeof(object) * 10); -c_731829.elements[0] = ((closureN)self_731115)->elements[0]; -c_731829.elements[1] = ((closureN)self_731115)->elements[1]; -c_731829.elements[2] = ((closureN)self_731115)->elements[2]; -c_731829.elements[3] = ((closureN)self_731115)->elements[3]; -c_731829.elements[4] = ((closureN)self_731115)->elements[4]; -c_731829.elements[5] = ((closureN)self_731115)->elements[5]; -c_731829.elements[6] = ((closureN)self_731115)->elements[6]; -c_731829.elements[7] = ((closureN)self_731115)->elements[7]; -c_731829.elements[8] = ((closureN)self_731115)->elements[8]; -c_731829.elements[9] = ((closureN)self_731115)->elements[9]; - -return_closcall1(data,(closure)&c_731829, NULL);; -} - -static void __lambda_106(void *data, int argc, object self_731116, object r_73579) { - -closureN_type c_731831; -c_731831.hdr.mark = gc_color_red; - c_731831.hdr.grayed = 0; -c_731831.tag = closureN_tag; - c_731831.fn = (function_type)__lambda_105; -c_731831.num_args = 1; -c_731831.num_elements = 11; -c_731831.elements = (object *)alloca(sizeof(object) * 11); -c_731831.elements[0] = ((closureN)self_731116)->elements[0]; -c_731831.elements[1] = ((closureN)self_731116)->elements[1]; -c_731831.elements[2] = ((closureN)self_731116)->elements[2]; -c_731831.elements[3] = ((closureN)self_731116)->elements[3]; -c_731831.elements[4] = ((closureN)self_731116)->elements[4]; -c_731831.elements[5] = ((closureN)self_731116)->elements[5]; -c_731831.elements[6] = r_73579; -c_731831.elements[7] = ((closureN)self_731116)->elements[6]; -c_731831.elements[8] = ((closureN)self_731116)->elements[7]; -c_731831.elements[9] = ((closureN)self_731116)->elements[8]; -c_731831.elements[10] = ((closureN)self_731116)->elements[9]; - -return_closcall1(data,(closure)&c_731831, NULL);; -} - -static void __lambda_105(void *data, int argc, object self_731117, object r_73580) { - -closureN_type c_731833; -c_731833.hdr.mark = gc_color_red; - c_731833.hdr.grayed = 0; -c_731833.tag = closureN_tag; - c_731833.fn = (function_type)__lambda_104; -c_731833.num_args = 1; -c_731833.num_elements = 10; -c_731833.elements = (object *)alloca(sizeof(object) * 10); -c_731833.elements[0] = ((closureN)self_731117)->elements[0]; -c_731833.elements[1] = ((closureN)self_731117)->elements[1]; -c_731833.elements[2] = ((closureN)self_731117)->elements[2]; -c_731833.elements[3] = ((closureN)self_731117)->elements[3]; -c_731833.elements[4] = ((closureN)self_731117)->elements[4]; -c_731833.elements[5] = ((closureN)self_731117)->elements[5]; -c_731833.elements[6] = ((closureN)self_731117)->elements[7]; -c_731833.elements[7] = ((closureN)self_731117)->elements[8]; -c_731833.elements[8] = ((closureN)self_731117)->elements[9]; -c_731833.elements[9] = ((closureN)self_731117)->elements[10]; - -return_closcall8(data, __glo_parse_scheme_read, &c_731833, ((closureN)self_731117)->elements[1], ((closureN)self_731117)->elements[6], r_73580, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731117)->elements[5]);; -} - -static void __lambda_104(void *data, int argc, object self_731118, object r_73578) { - -closureN_type c_731835; -c_731835.hdr.mark = gc_color_red; - c_731835.hdr.grayed = 0; -c_731835.tag = closureN_tag; - c_731835.fn = (function_type)__lambda_103; -c_731835.num_args = 1; -c_731835.num_elements = 10; -c_731835.elements = (object *)alloca(sizeof(object) * 10); -c_731835.elements[0] = ((closureN)self_731118)->elements[0]; -c_731835.elements[1] = ((closureN)self_731118)->elements[1]; -c_731835.elements[2] = ((closureN)self_731118)->elements[2]; -c_731835.elements[3] = ((closureN)self_731118)->elements[3]; -c_731835.elements[4] = ((closureN)self_731118)->elements[4]; -c_731835.elements[5] = ((closureN)self_731118)->elements[5]; -c_731835.elements[6] = ((closureN)self_731118)->elements[6]; -c_731835.elements[7] = ((closureN)self_731118)->elements[7]; -c_731835.elements[8] = ((closureN)self_731118)->elements[8]; -c_731835.elements[9] = ((closureN)self_731118)->elements[9]; - -return_closcall1(data,(closure)&c_731835, Cyc_set_car(data, ((closureN)self_731118)->elements[6], r_73578));; -} - -static void __lambda_103(void *data, int argc, object self_731119, object r_73572) { - -closureN_type c_731837; -c_731837.hdr.mark = gc_color_red; - c_731837.hdr.grayed = 0; -c_731837.tag = closureN_tag; - c_731837.fn = (function_type)__lambda_102; -c_731837.num_args = 1; -c_731837.num_elements = 8; -c_731837.elements = (object *)alloca(sizeof(object) * 8); -c_731837.elements[0] = ((closureN)self_731119)->elements[0]; -c_731837.elements[1] = ((closureN)self_731119)->elements[1]; -c_731837.elements[2] = ((closureN)self_731119)->elements[2]; -c_731837.elements[3] = ((closureN)self_731119)->elements[3]; -c_731837.elements[4] = ((closureN)self_731119)->elements[4]; -c_731837.elements[5] = ((closureN)self_731119)->elements[5]; -c_731837.elements[6] = ((closureN)self_731119)->elements[7]; -c_731837.elements[7] = ((closureN)self_731119)->elements[8]; - -return_closcall3(data, __glo__list_scheme_base, &c_731837, cell_get(((closureN)self_731119)->elements[9]), cell_get(((closureN)self_731119)->elements[6]));; -} - -static void __lambda_102(void *data, int argc, object self_731120, object r_73576) { - -closureN_type c_731839; -c_731839.hdr.mark = gc_color_red; - c_731839.hdr.grayed = 0; -c_731839.tag = closureN_tag; - c_731839.fn = (function_type)__lambda_101; -c_731839.num_args = 1; -c_731839.num_elements = 7; -c_731839.elements = (object *)alloca(sizeof(object) * 7); -c_731839.elements[0] = ((closureN)self_731120)->elements[0]; -c_731839.elements[1] = ((closureN)self_731120)->elements[1]; -c_731839.elements[2] = ((closureN)self_731120)->elements[2]; -c_731839.elements[3] = ((closureN)self_731120)->elements[3]; -c_731839.elements[4] = ((closureN)self_731120)->elements[4]; -c_731839.elements[5] = ((closureN)self_731120)->elements[5]; -c_731839.elements[6] = r_73576; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731839, ((closureN)self_731120)->elements[6], ((closureN)self_731120)->elements[7]);; -} - -static void __lambda_101(void *data, int argc, object self_731121, object r_73577) { - -closureN_type c_731841; -c_731841.hdr.mark = gc_color_red; - c_731841.hdr.grayed = 0; -c_731841.tag = closureN_tag; - c_731841.fn = (function_type)__lambda_100; -c_731841.num_args = 1; -c_731841.num_elements = 6; -c_731841.elements = (object *)alloca(sizeof(object) * 6); -c_731841.elements[0] = ((closureN)self_731121)->elements[0]; -c_731841.elements[1] = ((closureN)self_731121)->elements[1]; -c_731841.elements[2] = ((closureN)self_731121)->elements[2]; -c_731841.elements[3] = ((closureN)self_731121)->elements[3]; -c_731841.elements[4] = ((closureN)self_731121)->elements[4]; -c_731841.elements[5] = ((closureN)self_731121)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731841, ((closureN)self_731121)->elements[6], r_73577);; -} - -static void __lambda_100(void *data, int argc, object self_731122, object r_73575) { - -closureN_type c_731843; -c_731843.hdr.mark = gc_color_red; - c_731843.hdr.grayed = 0; -c_731843.tag = closureN_tag; - c_731843.fn = (function_type)__lambda_99; -c_731843.num_args = 1; -c_731843.num_elements = 6; -c_731843.elements = (object *)alloca(sizeof(object) * 6); -c_731843.elements[0] = ((closureN)self_731122)->elements[0]; -c_731843.elements[1] = ((closureN)self_731122)->elements[1]; -c_731843.elements[2] = ((closureN)self_731122)->elements[2]; -c_731843.elements[3] = ((closureN)self_731122)->elements[3]; -c_731843.elements[4] = ((closureN)self_731122)->elements[4]; -c_731843.elements[5] = ((closureN)self_731122)->elements[5]; - -return_closcall1(data,(closure)&c_731843, Cyc_set_car(data, ((closureN)self_731122)->elements[3], r_73575));; -} - -static void __lambda_99(void *data, int argc, object self_731123, object r_73573) { - if( (boolean_f != ((closureN)self_731123)->elements[0]) ){ - -closureN_type c_731846; -c_731846.hdr.mark = gc_color_red; - c_731846.hdr.grayed = 0; -c_731846.tag = closureN_tag; - c_731846.fn = (function_type)__lambda_98; -c_731846.num_args = 1; -c_731846.num_elements = 6; -c_731846.elements = (object *)alloca(sizeof(object) * 6); -c_731846.elements[0] = ((closureN)self_731123)->elements[0]; -c_731846.elements[1] = ((closureN)self_731123)->elements[1]; -c_731846.elements[2] = ((closureN)self_731123)->elements[2]; -c_731846.elements[3] = ((closureN)self_731123)->elements[3]; -c_731846.elements[4] = ((closureN)self_731123)->elements[4]; -c_731846.elements[5] = ((closureN)self_731123)->elements[5]; - -return_closcall1(data,(closure)&c_731846, NULL); -} else { - return_closcall1(data, ((closureN)self_731123)->elements[2], car(cell_get(((closureN)self_731123)->elements[3])));} -; -} - -static void __lambda_98(void *data, int argc, object self_731124, object r_73574) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731124)->elements[2], ((closureN)self_731124)->elements[1], r_73574, cell_get(((closureN)self_731124)->elements[3]), ((closureN)self_731124)->elements[0], boolean_f, ((closureN)self_731124)->elements[4], ((closureN)self_731124)->elements[5]);; -} - -static void __lambda_97(void *data, int argc, object self_731125, object k_73581) { - if( (boolean_f != Cyc_is_eof_object(cell_get(((closureN)self_731125)->elements[0]))) ){ - -closureN_type c_731807; -c_731807.hdr.mark = gc_color_red; - c_731807.hdr.grayed = 0; -c_731807.tag = closureN_tag; - c_731807.fn = (function_type)__lambda_96; -c_731807.num_args = 1; -c_731807.num_elements = 2; -c_731807.elements = (object *)alloca(sizeof(object) * 2); -c_731807.elements[0] = k_73581; -c_731807.elements[1] = ((closureN)self_731125)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731807, ((closureN)self_731125)->elements[1]); -} else { - if( (boolean_f != equalp(cell_get(((closureN)self_731125)->elements[0]), obj_char2obj(64))) ){ - return_closcall1(data, k_73581, boolean_f); -} else { - return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, k_73581, ((closureN)self_731125)->elements[1], cell_get(((closureN)self_731125)->elements[0]));} -} -; -} - -static void __lambda_96(void *data, int argc, object self_731126, object r_73583) { - -closureN_type c_731809; -c_731809.hdr.mark = gc_color_red; - c_731809.hdr.grayed = 0; -c_731809.tag = closureN_tag; - c_731809.fn = (function_type)__lambda_95; -c_731809.num_args = 1; -c_731809.num_elements = 2; -c_731809.elements = (object *)alloca(sizeof(object) * 2); -c_731809.elements[0] = ((closureN)self_731126)->elements[0]; -c_731809.elements[1] = r_73583; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731809, ((closureN)self_731126)->elements[1]);; -} - -static void __lambda_95(void *data, int argc, object self_731127, object r_73584) { - -make_string(c_731812, "unexpected end of file"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731127)->elements[0], &c_731812, ((closureN)self_731127)->elements[1], r_73584);; -} - -static void __lambda_94(void *data, int argc, object self_731128, object k_73587) { - if( (boolean_f != equalp(cell_get(((closureN)self_731128)->elements[0]), obj_char2obj(64))) ){ - return_closcall1(data, k_73587, quote_unquote_91splicing); -} else { - return_closcall1(data, k_73587, quote_unquote);} -; -} - -static void __lambda_93(void *data, int argc, object self_731129, object r_73564) { - -closureN_type c_731758; -c_731758.hdr.mark = gc_color_red; - c_731758.hdr.grayed = 0; -c_731758.tag = closureN_tag; - c_731758.fn = (function_type)__lambda_92; -c_731758.num_args = 1; -c_731758.num_elements = 2; -c_731758.elements = (object *)alloca(sizeof(object) * 2); -c_731758.elements[0] = ((closureN)self_731129)->elements[0]; -c_731758.elements[1] = ((closureN)self_731129)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731758, ((closureN)self_731129)->elements[1]);; -} - -static void __lambda_92(void *data, int argc, object self_731130, object r_73566) { - -closureN_type c_731760; -c_731760.hdr.mark = gc_color_red; - c_731760.hdr.grayed = 0; -c_731760.tag = closureN_tag; - c_731760.fn = (function_type)__lambda_91; -c_731760.num_args = 1; -c_731760.num_elements = 1; -c_731760.elements = (object *)alloca(sizeof(object) * 1); -c_731760.elements[0] = ((closureN)self_731130)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731760, r_73566, ((closureN)self_731130)->elements[1]);; -} - -static void __lambda_91(void *data, int argc, object self_731131, object r_73565) { - return_closcall1(data, ((closureN)self_731131)->elements[0], car(r_73565));; -} - -static void __lambda_90(void *data, int argc, object self_731132, object k_73590) { - if( (boolean_f != ((closureN)self_731132)->elements[0]) ){ - return_closcall1(data, k_73590, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73590, Cyc_is_null(((closureN)self_731132)->elements[1]));} -; -} - -static void __lambda_89(void *data, int argc, object self_731133, object r_73547) { - if( (boolean_f != r_73547) ){ - -closureN_type c_731678; -c_731678.hdr.mark = gc_color_red; - c_731678.hdr.grayed = 0; -c_731678.tag = closureN_tag; - c_731678.fn = (function_type)__lambda_77; -c_731678.num_args = 1; -c_731678.num_elements = 3; -c_731678.elements = (object *)alloca(sizeof(object) * 3); -c_731678.elements[0] = ((closureN)self_731133)->elements[3]; -c_731678.elements[1] = ((closureN)self_731133)->elements[6]; -c_731678.elements[2] = ((closureN)self_731133)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731678, ((closureN)self_731133)->elements[5], ((closureN)self_731133)->elements[1]); -} else { - -closureN_type c_731692; -c_731692.hdr.mark = gc_color_red; - c_731692.hdr.grayed = 0; -c_731692.tag = closureN_tag; - c_731692.fn = (function_type)__lambda_88; -c_731692.num_args = 1; -c_731692.num_elements = 7; -c_731692.elements = (object *)alloca(sizeof(object) * 7); -c_731692.elements[0] = ((closureN)self_731133)->elements[0]; -c_731692.elements[1] = ((closureN)self_731133)->elements[2]; -c_731692.elements[2] = ((closureN)self_731133)->elements[3]; -c_731692.elements[3] = ((closureN)self_731133)->elements[4]; -c_731692.elements[4] = ((closureN)self_731133)->elements[5]; -c_731692.elements[5] = ((closureN)self_731133)->elements[6]; -c_731692.elements[6] = ((closureN)self_731133)->elements[7]; - -return_closcall1(data,(closure)&c_731692, NULL);} -; -} - -static void __lambda_88(void *data, int argc, object self_731134, object r_73558) { - -closureN_type c_731694; -c_731694.hdr.mark = gc_color_red; - c_731694.hdr.grayed = 0; -c_731694.tag = closureN_tag; - c_731694.fn = (function_type)__lambda_87; -c_731694.num_args = 1; -c_731694.num_elements = 8; -c_731694.elements = (object *)alloca(sizeof(object) * 8); -c_731694.elements[0] = ((closureN)self_731134)->elements[0]; -c_731694.elements[1] = ((closureN)self_731134)->elements[1]; -c_731694.elements[2] = ((closureN)self_731134)->elements[2]; -c_731694.elements[3] = ((closureN)self_731134)->elements[3]; -c_731694.elements[4] = ((closureN)self_731134)->elements[4]; -c_731694.elements[5] = r_73558; -c_731694.elements[6] = ((closureN)self_731134)->elements[5]; -c_731694.elements[7] = ((closureN)self_731134)->elements[6]; - -return_closcall1(data,(closure)&c_731694, NULL);; -} - -static void __lambda_87(void *data, int argc, object self_731135, object r_73559) { - -closureN_type c_731696; -c_731696.hdr.mark = gc_color_red; - c_731696.hdr.grayed = 0; -c_731696.tag = closureN_tag; - c_731696.fn = (function_type)__lambda_86; -c_731696.num_args = 1; -c_731696.num_elements = 7; -c_731696.elements = (object *)alloca(sizeof(object) * 7); -c_731696.elements[0] = ((closureN)self_731135)->elements[0]; -c_731696.elements[1] = ((closureN)self_731135)->elements[1]; -c_731696.elements[2] = ((closureN)self_731135)->elements[2]; -c_731696.elements[3] = ((closureN)self_731135)->elements[3]; -c_731696.elements[4] = ((closureN)self_731135)->elements[4]; -c_731696.elements[5] = ((closureN)self_731135)->elements[6]; -c_731696.elements[6] = ((closureN)self_731135)->elements[7]; - -return_closcall8(data, __glo_parse_scheme_read, &c_731696, ((closureN)self_731135)->elements[1], ((closureN)self_731135)->elements[5], r_73559, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731135)->elements[4]);; -} - -static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) { - -closureN_type c_731698; -c_731698.hdr.mark = gc_color_red; - c_731698.hdr.grayed = 0; -c_731698.tag = closureN_tag; - c_731698.fn = (function_type)__lambda_85; -c_731698.num_args = 1; -c_731698.num_elements = 8; -c_731698.elements = (object *)alloca(sizeof(object) * 8); -c_731698.elements[0] = ((closureN)self_731136)->elements[0]; -c_731698.elements[1] = ((closureN)self_731136)->elements[1]; -c_731698.elements[2] = ((closureN)self_731136)->elements[2]; -c_731698.elements[3] = ((closureN)self_731136)->elements[3]; -c_731698.elements[4] = ((closureN)self_731136)->elements[4]; -c_731698.elements[5] = sub_73229; -c_731698.elements[6] = ((closureN)self_731136)->elements[5]; -c_731698.elements[7] = ((closureN)self_731136)->elements[6]; - -return_closcall1(data,(closure)&c_731698, boolean_f);; -} - -static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) { - -closureN_type c_731700; -c_731700.hdr.mark = gc_color_red; - c_731700.hdr.grayed = 0; -c_731700.tag = closureN_tag; - c_731700.fn = (function_type)__lambda_84; -c_731700.num_args = 1; -c_731700.num_elements = 8; -c_731700.elements = (object *)alloca(sizeof(object) * 8); -c_731700.elements[0] = ((closureN)self_731137)->elements[0]; -c_731700.elements[1] = ((closureN)self_731137)->elements[1]; -c_731700.elements[2] = ((closureN)self_731137)->elements[2]; -c_731700.elements[3] = ((closureN)self_731137)->elements[3]; -c_731700.elements[4] = ((closureN)self_731137)->elements[4]; -c_731700.elements[5] = ((closureN)self_731137)->elements[5]; -c_731700.elements[6] = ((closureN)self_731137)->elements[6]; -c_731700.elements[7] = ((closureN)self_731137)->elements[7]; - - -make_cell(c_731739,new_91toks_73230); -return_closcall1(data,(closure)&c_731700, &c_731739);; -} - -static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) { - -closureN_type c_731702; -c_731702.hdr.mark = gc_color_red; - c_731702.hdr.grayed = 0; -c_731702.tag = closureN_tag; - c_731702.fn = (function_type)__lambda_83; -c_731702.num_args = 1; -c_731702.num_elements = 9; -c_731702.elements = (object *)alloca(sizeof(object) * 9); -c_731702.elements[0] = ((closureN)self_731138)->elements[0]; -c_731702.elements[1] = ((closureN)self_731138)->elements[1]; -c_731702.elements[2] = ((closureN)self_731138)->elements[2]; -c_731702.elements[3] = new_91toks_73230; -c_731702.elements[4] = ((closureN)self_731138)->elements[3]; -c_731702.elements[5] = ((closureN)self_731138)->elements[4]; -c_731702.elements[6] = ((closureN)self_731138)->elements[5]; -c_731702.elements[7] = ((closureN)self_731138)->elements[6]; -c_731702.elements[8] = ((closureN)self_731138)->elements[7]; - -return_closcall1(data,(closure)&c_731702, quote_quasiquote);; -} - -static void __lambda_83(void *data, int argc, object self_731139, object r_73557) { - -closureN_type c_731704; -c_731704.hdr.mark = gc_color_red; - c_731704.hdr.grayed = 0; -c_731704.tag = closureN_tag; - c_731704.fn = (function_type)__lambda_82; -c_731704.num_args = 1; -c_731704.num_elements = 8; -c_731704.elements = (object *)alloca(sizeof(object) * 8); -c_731704.elements[0] = ((closureN)self_731139)->elements[0]; -c_731704.elements[1] = ((closureN)self_731139)->elements[1]; -c_731704.elements[2] = ((closureN)self_731139)->elements[2]; -c_731704.elements[3] = ((closureN)self_731139)->elements[3]; -c_731704.elements[4] = ((closureN)self_731139)->elements[4]; -c_731704.elements[5] = ((closureN)self_731139)->elements[5]; -c_731704.elements[6] = ((closureN)self_731139)->elements[7]; -c_731704.elements[7] = ((closureN)self_731139)->elements[8]; - -return_closcall3(data, __glo__list_scheme_base, &c_731704, r_73557, ((closureN)self_731139)->elements[6]);; -} - -static void __lambda_82(void *data, int argc, object self_731140, object r_73555) { - -closureN_type c_731706; -c_731706.hdr.mark = gc_color_red; - c_731706.hdr.grayed = 0; -c_731706.tag = closureN_tag; - c_731706.fn = (function_type)__lambda_81; -c_731706.num_args = 1; -c_731706.num_elements = 7; -c_731706.elements = (object *)alloca(sizeof(object) * 7); -c_731706.elements[0] = ((closureN)self_731140)->elements[0]; -c_731706.elements[1] = ((closureN)self_731140)->elements[1]; -c_731706.elements[2] = ((closureN)self_731140)->elements[2]; -c_731706.elements[3] = ((closureN)self_731140)->elements[3]; -c_731706.elements[4] = ((closureN)self_731140)->elements[4]; -c_731706.elements[5] = ((closureN)self_731140)->elements[5]; -c_731706.elements[6] = r_73555; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731706, ((closureN)self_731140)->elements[6], ((closureN)self_731140)->elements[7]);; -} - -static void __lambda_81(void *data, int argc, object self_731141, object r_73556) { - -closureN_type c_731708; -c_731708.hdr.mark = gc_color_red; - c_731708.hdr.grayed = 0; -c_731708.tag = closureN_tag; - c_731708.fn = (function_type)__lambda_80; -c_731708.num_args = 1; -c_731708.num_elements = 6; -c_731708.elements = (object *)alloca(sizeof(object) * 6); -c_731708.elements[0] = ((closureN)self_731141)->elements[0]; -c_731708.elements[1] = ((closureN)self_731141)->elements[1]; -c_731708.elements[2] = ((closureN)self_731141)->elements[2]; -c_731708.elements[3] = ((closureN)self_731141)->elements[3]; -c_731708.elements[4] = ((closureN)self_731141)->elements[4]; -c_731708.elements[5] = ((closureN)self_731141)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731708, ((closureN)self_731141)->elements[6], r_73556);; -} - -static void __lambda_80(void *data, int argc, object self_731142, object r_73554) { - -closureN_type c_731710; -c_731710.hdr.mark = gc_color_red; - c_731710.hdr.grayed = 0; -c_731710.tag = closureN_tag; - c_731710.fn = (function_type)__lambda_79; -c_731710.num_args = 1; -c_731710.num_elements = 6; -c_731710.elements = (object *)alloca(sizeof(object) * 6); -c_731710.elements[0] = ((closureN)self_731142)->elements[0]; -c_731710.elements[1] = ((closureN)self_731142)->elements[1]; -c_731710.elements[2] = ((closureN)self_731142)->elements[2]; -c_731710.elements[3] = ((closureN)self_731142)->elements[3]; -c_731710.elements[4] = ((closureN)self_731142)->elements[4]; -c_731710.elements[5] = ((closureN)self_731142)->elements[5]; - -return_closcall1(data,(closure)&c_731710, Cyc_set_car(data, ((closureN)self_731142)->elements[3], r_73554));; -} - -static void __lambda_79(void *data, int argc, object self_731143, object r_73552) { - if( (boolean_f != ((closureN)self_731143)->elements[0]) ){ - -closureN_type c_731713; -c_731713.hdr.mark = gc_color_red; - c_731713.hdr.grayed = 0; -c_731713.tag = closureN_tag; - c_731713.fn = (function_type)__lambda_78; -c_731713.num_args = 1; -c_731713.num_elements = 6; -c_731713.elements = (object *)alloca(sizeof(object) * 6); -c_731713.elements[0] = ((closureN)self_731143)->elements[0]; -c_731713.elements[1] = ((closureN)self_731143)->elements[1]; -c_731713.elements[2] = ((closureN)self_731143)->elements[2]; -c_731713.elements[3] = ((closureN)self_731143)->elements[3]; -c_731713.elements[4] = ((closureN)self_731143)->elements[4]; -c_731713.elements[5] = ((closureN)self_731143)->elements[5]; - -return_closcall1(data,(closure)&c_731713, NULL); -} else { - return_closcall1(data, ((closureN)self_731143)->elements[2], car(cell_get(((closureN)self_731143)->elements[3])));} -; -} - -static void __lambda_78(void *data, int argc, object self_731144, object r_73553) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731144)->elements[2], ((closureN)self_731144)->elements[1], r_73553, cell_get(((closureN)self_731144)->elements[3]), ((closureN)self_731144)->elements[0], boolean_f, ((closureN)self_731144)->elements[4], ((closureN)self_731144)->elements[5]);; -} - -static void __lambda_77(void *data, int argc, object self_731145, object r_73548) { - -closureN_type c_731680; -c_731680.hdr.mark = gc_color_red; - c_731680.hdr.grayed = 0; -c_731680.tag = closureN_tag; - c_731680.fn = (function_type)__lambda_76; -c_731680.num_args = 1; -c_731680.num_elements = 2; -c_731680.elements = (object *)alloca(sizeof(object) * 2); -c_731680.elements[0] = ((closureN)self_731145)->elements[0]; -c_731680.elements[1] = ((closureN)self_731145)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731680, ((closureN)self_731145)->elements[1]);; -} - -static void __lambda_76(void *data, int argc, object self_731146, object r_73550) { - -closureN_type c_731682; -c_731682.hdr.mark = gc_color_red; - c_731682.hdr.grayed = 0; -c_731682.tag = closureN_tag; - c_731682.fn = (function_type)__lambda_75; -c_731682.num_args = 1; -c_731682.num_elements = 1; -c_731682.elements = (object *)alloca(sizeof(object) * 1); -c_731682.elements[0] = ((closureN)self_731146)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731682, r_73550, ((closureN)self_731146)->elements[1]);; -} - -static void __lambda_75(void *data, int argc, object self_731147, object r_73549) { - return_closcall1(data, ((closureN)self_731147)->elements[0], car(r_73549));; -} - -static void __lambda_74(void *data, int argc, object self_731148, object k_73560) { - if( (boolean_f != ((closureN)self_731148)->elements[0]) ){ - return_closcall1(data, k_73560, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73560, Cyc_is_null(((closureN)self_731148)->elements[1]));} -; -} - -static void __lambda_73(void *data, int argc, object self_731149, object r_73531) { - if( (boolean_f != r_73531) ){ - -closureN_type c_731600; -c_731600.hdr.mark = gc_color_red; - c_731600.hdr.grayed = 0; -c_731600.tag = closureN_tag; - c_731600.fn = (function_type)__lambda_61; -c_731600.num_args = 1; -c_731600.num_elements = 3; -c_731600.elements = (object *)alloca(sizeof(object) * 3); -c_731600.elements[0] = ((closureN)self_731149)->elements[3]; -c_731600.elements[1] = ((closureN)self_731149)->elements[6]; -c_731600.elements[2] = ((closureN)self_731149)->elements[7]; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731600, ((closureN)self_731149)->elements[5], ((closureN)self_731149)->elements[1]); -} else { - -closureN_type c_731614; -c_731614.hdr.mark = gc_color_red; - c_731614.hdr.grayed = 0; -c_731614.tag = closureN_tag; - c_731614.fn = (function_type)__lambda_72; -c_731614.num_args = 1; -c_731614.num_elements = 7; -c_731614.elements = (object *)alloca(sizeof(object) * 7); -c_731614.elements[0] = ((closureN)self_731149)->elements[0]; -c_731614.elements[1] = ((closureN)self_731149)->elements[2]; -c_731614.elements[2] = ((closureN)self_731149)->elements[3]; -c_731614.elements[3] = ((closureN)self_731149)->elements[4]; -c_731614.elements[4] = ((closureN)self_731149)->elements[5]; -c_731614.elements[5] = ((closureN)self_731149)->elements[6]; -c_731614.elements[6] = ((closureN)self_731149)->elements[7]; - -return_closcall1(data,(closure)&c_731614, NULL);} -; -} - -static void __lambda_72(void *data, int argc, object self_731150, object r_73542) { - -closureN_type c_731616; -c_731616.hdr.mark = gc_color_red; - c_731616.hdr.grayed = 0; -c_731616.tag = closureN_tag; - c_731616.fn = (function_type)__lambda_71; -c_731616.num_args = 1; -c_731616.num_elements = 8; -c_731616.elements = (object *)alloca(sizeof(object) * 8); -c_731616.elements[0] = ((closureN)self_731150)->elements[0]; -c_731616.elements[1] = ((closureN)self_731150)->elements[1]; -c_731616.elements[2] = ((closureN)self_731150)->elements[2]; -c_731616.elements[3] = ((closureN)self_731150)->elements[3]; -c_731616.elements[4] = ((closureN)self_731150)->elements[4]; -c_731616.elements[5] = r_73542; -c_731616.elements[6] = ((closureN)self_731150)->elements[5]; -c_731616.elements[7] = ((closureN)self_731150)->elements[6]; - -return_closcall1(data,(closure)&c_731616, NULL);; -} - -static void __lambda_71(void *data, int argc, object self_731151, object r_73543) { - -closureN_type c_731618; -c_731618.hdr.mark = gc_color_red; - c_731618.hdr.grayed = 0; -c_731618.tag = closureN_tag; - c_731618.fn = (function_type)__lambda_70; -c_731618.num_args = 1; -c_731618.num_elements = 7; -c_731618.elements = (object *)alloca(sizeof(object) * 7); -c_731618.elements[0] = ((closureN)self_731151)->elements[0]; -c_731618.elements[1] = ((closureN)self_731151)->elements[1]; -c_731618.elements[2] = ((closureN)self_731151)->elements[2]; -c_731618.elements[3] = ((closureN)self_731151)->elements[3]; -c_731618.elements[4] = ((closureN)self_731151)->elements[4]; -c_731618.elements[5] = ((closureN)self_731151)->elements[6]; -c_731618.elements[6] = ((closureN)self_731151)->elements[7]; - -return_closcall8(data, __glo_parse_scheme_read, &c_731618, ((closureN)self_731151)->elements[1], ((closureN)self_731151)->elements[5], r_73543, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731151)->elements[4]);; -} - -static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) { - -closureN_type c_731620; -c_731620.hdr.mark = gc_color_red; - c_731620.hdr.grayed = 0; -c_731620.tag = closureN_tag; - c_731620.fn = (function_type)__lambda_69; -c_731620.num_args = 1; -c_731620.num_elements = 8; -c_731620.elements = (object *)alloca(sizeof(object) * 8); -c_731620.elements[0] = ((closureN)self_731152)->elements[0]; -c_731620.elements[1] = ((closureN)self_731152)->elements[1]; -c_731620.elements[2] = ((closureN)self_731152)->elements[2]; -c_731620.elements[3] = ((closureN)self_731152)->elements[3]; -c_731620.elements[4] = ((closureN)self_731152)->elements[4]; -c_731620.elements[5] = sub_73231; -c_731620.elements[6] = ((closureN)self_731152)->elements[5]; -c_731620.elements[7] = ((closureN)self_731152)->elements[6]; - -return_closcall1(data,(closure)&c_731620, boolean_f);; -} - -static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) { - -closureN_type c_731622; -c_731622.hdr.mark = gc_color_red; - c_731622.hdr.grayed = 0; -c_731622.tag = closureN_tag; - c_731622.fn = (function_type)__lambda_68; -c_731622.num_args = 1; -c_731622.num_elements = 8; -c_731622.elements = (object *)alloca(sizeof(object) * 8); -c_731622.elements[0] = ((closureN)self_731153)->elements[0]; -c_731622.elements[1] = ((closureN)self_731153)->elements[1]; -c_731622.elements[2] = ((closureN)self_731153)->elements[2]; -c_731622.elements[3] = ((closureN)self_731153)->elements[3]; -c_731622.elements[4] = ((closureN)self_731153)->elements[4]; -c_731622.elements[5] = ((closureN)self_731153)->elements[5]; -c_731622.elements[6] = ((closureN)self_731153)->elements[6]; -c_731622.elements[7] = ((closureN)self_731153)->elements[7]; - - -make_cell(c_731661,new_91toks_73232); -return_closcall1(data,(closure)&c_731622, &c_731661);; -} - -static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) { - -closureN_type c_731624; -c_731624.hdr.mark = gc_color_red; - c_731624.hdr.grayed = 0; -c_731624.tag = closureN_tag; - c_731624.fn = (function_type)__lambda_67; -c_731624.num_args = 1; -c_731624.num_elements = 9; -c_731624.elements = (object *)alloca(sizeof(object) * 9); -c_731624.elements[0] = ((closureN)self_731154)->elements[0]; -c_731624.elements[1] = ((closureN)self_731154)->elements[1]; -c_731624.elements[2] = ((closureN)self_731154)->elements[2]; -c_731624.elements[3] = new_91toks_73232; -c_731624.elements[4] = ((closureN)self_731154)->elements[3]; -c_731624.elements[5] = ((closureN)self_731154)->elements[4]; -c_731624.elements[6] = ((closureN)self_731154)->elements[5]; -c_731624.elements[7] = ((closureN)self_731154)->elements[6]; -c_731624.elements[8] = ((closureN)self_731154)->elements[7]; - -return_closcall1(data,(closure)&c_731624, quote_quote);; -} - -static void __lambda_67(void *data, int argc, object self_731155, object r_73541) { - -closureN_type c_731626; -c_731626.hdr.mark = gc_color_red; - c_731626.hdr.grayed = 0; -c_731626.tag = closureN_tag; - c_731626.fn = (function_type)__lambda_66; -c_731626.num_args = 1; -c_731626.num_elements = 8; -c_731626.elements = (object *)alloca(sizeof(object) * 8); -c_731626.elements[0] = ((closureN)self_731155)->elements[0]; -c_731626.elements[1] = ((closureN)self_731155)->elements[1]; -c_731626.elements[2] = ((closureN)self_731155)->elements[2]; -c_731626.elements[3] = ((closureN)self_731155)->elements[3]; -c_731626.elements[4] = ((closureN)self_731155)->elements[4]; -c_731626.elements[5] = ((closureN)self_731155)->elements[5]; -c_731626.elements[6] = ((closureN)self_731155)->elements[7]; -c_731626.elements[7] = ((closureN)self_731155)->elements[8]; - -return_closcall3(data, __glo__list_scheme_base, &c_731626, r_73541, ((closureN)self_731155)->elements[6]);; -} - -static void __lambda_66(void *data, int argc, object self_731156, object r_73539) { - -closureN_type c_731628; -c_731628.hdr.mark = gc_color_red; - c_731628.hdr.grayed = 0; -c_731628.tag = closureN_tag; - c_731628.fn = (function_type)__lambda_65; -c_731628.num_args = 1; -c_731628.num_elements = 7; -c_731628.elements = (object *)alloca(sizeof(object) * 7); -c_731628.elements[0] = ((closureN)self_731156)->elements[0]; -c_731628.elements[1] = ((closureN)self_731156)->elements[1]; -c_731628.elements[2] = ((closureN)self_731156)->elements[2]; -c_731628.elements[3] = ((closureN)self_731156)->elements[3]; -c_731628.elements[4] = ((closureN)self_731156)->elements[4]; -c_731628.elements[5] = ((closureN)self_731156)->elements[5]; -c_731628.elements[6] = r_73539; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731628, ((closureN)self_731156)->elements[6], ((closureN)self_731156)->elements[7]);; -} - -static void __lambda_65(void *data, int argc, object self_731157, object r_73540) { - -closureN_type c_731630; -c_731630.hdr.mark = gc_color_red; - c_731630.hdr.grayed = 0; -c_731630.tag = closureN_tag; - c_731630.fn = (function_type)__lambda_64; -c_731630.num_args = 1; -c_731630.num_elements = 6; -c_731630.elements = (object *)alloca(sizeof(object) * 6); -c_731630.elements[0] = ((closureN)self_731157)->elements[0]; -c_731630.elements[1] = ((closureN)self_731157)->elements[1]; -c_731630.elements[2] = ((closureN)self_731157)->elements[2]; -c_731630.elements[3] = ((closureN)self_731157)->elements[3]; -c_731630.elements[4] = ((closureN)self_731157)->elements[4]; -c_731630.elements[5] = ((closureN)self_731157)->elements[5]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731630, ((closureN)self_731157)->elements[6], r_73540);; -} - -static void __lambda_64(void *data, int argc, object self_731158, object r_73538) { - -closureN_type c_731632; -c_731632.hdr.mark = gc_color_red; - c_731632.hdr.grayed = 0; -c_731632.tag = closureN_tag; - c_731632.fn = (function_type)__lambda_63; -c_731632.num_args = 1; -c_731632.num_elements = 6; -c_731632.elements = (object *)alloca(sizeof(object) * 6); -c_731632.elements[0] = ((closureN)self_731158)->elements[0]; -c_731632.elements[1] = ((closureN)self_731158)->elements[1]; -c_731632.elements[2] = ((closureN)self_731158)->elements[2]; -c_731632.elements[3] = ((closureN)self_731158)->elements[3]; -c_731632.elements[4] = ((closureN)self_731158)->elements[4]; -c_731632.elements[5] = ((closureN)self_731158)->elements[5]; - -return_closcall1(data,(closure)&c_731632, Cyc_set_car(data, ((closureN)self_731158)->elements[3], r_73538));; -} - -static void __lambda_63(void *data, int argc, object self_731159, object r_73536) { - if( (boolean_f != ((closureN)self_731159)->elements[0]) ){ - -closureN_type c_731635; -c_731635.hdr.mark = gc_color_red; - c_731635.hdr.grayed = 0; -c_731635.tag = closureN_tag; - c_731635.fn = (function_type)__lambda_62; -c_731635.num_args = 1; -c_731635.num_elements = 6; -c_731635.elements = (object *)alloca(sizeof(object) * 6); -c_731635.elements[0] = ((closureN)self_731159)->elements[0]; -c_731635.elements[1] = ((closureN)self_731159)->elements[1]; -c_731635.elements[2] = ((closureN)self_731159)->elements[2]; -c_731635.elements[3] = ((closureN)self_731159)->elements[3]; -c_731635.elements[4] = ((closureN)self_731159)->elements[4]; -c_731635.elements[5] = ((closureN)self_731159)->elements[5]; - -return_closcall1(data,(closure)&c_731635, NULL); -} else { - return_closcall1(data, ((closureN)self_731159)->elements[2], car(cell_get(((closureN)self_731159)->elements[3])));} -; -} - -static void __lambda_62(void *data, int argc, object self_731160, object r_73537) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731160)->elements[2], ((closureN)self_731160)->elements[1], r_73537, cell_get(((closureN)self_731160)->elements[3]), ((closureN)self_731160)->elements[0], boolean_f, ((closureN)self_731160)->elements[4], ((closureN)self_731160)->elements[5]);; -} - -static void __lambda_61(void *data, int argc, object self_731161, object r_73532) { - -closureN_type c_731602; -c_731602.hdr.mark = gc_color_red; - c_731602.hdr.grayed = 0; -c_731602.tag = closureN_tag; - c_731602.fn = (function_type)__lambda_60; -c_731602.num_args = 1; -c_731602.num_elements = 2; -c_731602.elements = (object *)alloca(sizeof(object) * 2); -c_731602.elements[0] = ((closureN)self_731161)->elements[0]; -c_731602.elements[1] = ((closureN)self_731161)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731602, ((closureN)self_731161)->elements[1]);; -} - -static void __lambda_60(void *data, int argc, object self_731162, object r_73534) { - -closureN_type c_731604; -c_731604.hdr.mark = gc_color_red; - c_731604.hdr.grayed = 0; -c_731604.tag = closureN_tag; - c_731604.fn = (function_type)__lambda_59; -c_731604.num_args = 1; -c_731604.num_elements = 1; -c_731604.elements = (object *)alloca(sizeof(object) * 1); -c_731604.elements[0] = ((closureN)self_731162)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731604, r_73534, ((closureN)self_731162)->elements[1]);; -} - -static void __lambda_59(void *data, int argc, object self_731163, object r_73533) { - return_closcall1(data, ((closureN)self_731163)->elements[0], car(r_73533));; -} - -static void __lambda_58(void *data, int argc, object self_731164, object k_73544) { - if( (boolean_f != ((closureN)self_731164)->elements[0]) ){ - return_closcall1(data, k_73544, boolean_f); -} else { - return_closcall2(data, __glo_not_scheme_base, k_73544, Cyc_is_null(((closureN)self_731164)->elements[1]));} -; -} - -static void __lambda_57(void *data, int argc, object self_731165, object r_73521) { - -closureN_type c_731558; -c_731558.hdr.mark = gc_color_red; - c_731558.hdr.grayed = 0; -c_731558.tag = closureN_tag; - c_731558.fn = (function_type)__lambda_55; -c_731558.num_args = 0; -c_731558.num_elements = 2; -c_731558.elements = (object *)alloca(sizeof(object) * 2); -c_731558.elements[0] = ((closureN)self_731165)->elements[1]; -c_731558.elements[1] = ((closureN)self_731165)->elements[5]; - - -closureN_type c_731565; -c_731565.hdr.mark = gc_color_red; - c_731565.hdr.grayed = 0; -c_731565.tag = closureN_tag; - c_731565.fn = (function_type)__lambda_56; -c_731565.num_args = 1; -c_731565.num_elements = 8; -c_731565.elements = (object *)alloca(sizeof(object) * 8); -c_731565.elements[0] = ((closureN)self_731165)->elements[0]; -c_731565.elements[1] = ((closureN)self_731165)->elements[1]; -c_731565.elements[2] = ((closureN)self_731165)->elements[2]; -c_731565.elements[3] = ((closureN)self_731165)->elements[3]; -c_731565.elements[4] = ((closureN)self_731165)->elements[4]; -c_731565.elements[5] = ((closureN)self_731165)->elements[5]; -c_731565.elements[6] = ((closureN)self_731165)->elements[6]; -c_731565.elements[7] = ((closureN)self_731165)->elements[7]; - -return_closcall1(data,(closure)&c_731558, &c_731565);; -} - -static void __lambda_56(void *data, int argc, object self_731166, object r_73522) { - return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731166)->elements[3], ((closureN)self_731166)->elements[2], ((closureN)self_731166)->elements[6], ((closureN)self_731166)->elements[7], ((closureN)self_731166)->elements[0], boolean_f, ((closureN)self_731166)->elements[4], ((closureN)self_731166)->elements[5], ((closureN)self_731166)->elements[1]);; -} - -static void __lambda_55(void *data, int argc, object self_731167, object k_73523) { - if( (boolean_f != equalp(((closureN)self_731167)->elements[0], obj_char2obj(10))) ){ - return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, k_73523, ((closureN)self_731167)->elements[1], obj_int2obj(0)); -} else { - return_closcall1(data, k_73523, boolean_f);} -; -} - -static void __lambda_54(void *data, int argc, object self_731168, object k_73525) { - if( (boolean_f != equalp(((closureN)self_731168)->elements[0], obj_char2obj(10))) ){ - -closureN_type c_731545; -c_731545.hdr.mark = gc_color_red; - c_731545.hdr.grayed = 0; -c_731545.tag = closureN_tag; - c_731545.fn = (function_type)__lambda_53; -c_731545.num_args = 1; -c_731545.num_elements = 2; -c_731545.elements = (object *)alloca(sizeof(object) * 2); -c_731545.elements[0] = k_73525; -c_731545.elements[1] = ((closureN)self_731168)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731545, ((closureN)self_731168)->elements[1]); -} else { - return_closcall1(data, k_73525, boolean_f);} -; -} - -static void __lambda_53(void *data, int argc, object self_731169, object r_73528) { - -closureN_type c_731547; -c_731547.hdr.mark = gc_color_red; - c_731547.hdr.grayed = 0; -c_731547.tag = closureN_tag; - c_731547.fn = (function_type)__lambda_52; -c_731547.num_args = 1; -c_731547.num_elements = 2; -c_731547.elements = (object *)alloca(sizeof(object) * 2); -c_731547.elements[0] = ((closureN)self_731169)->elements[0]; -c_731547.elements[1] = ((closureN)self_731169)->elements[1]; - - -object c_731553 = Cyc_sum(data,(closure)&c_731547,2,obj_int2obj(1), r_73528); -return_closcall1(data,(closure)&c_731547, c_731553);; -} - -static void __lambda_52(void *data, int argc, object self_731170, object r_73527) { - return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, ((closureN)self_731170)->elements[0], ((closureN)self_731170)->elements[1], r_73527);; -} - -static void __lambda_51(void *data, int argc, object self_731171, object r_73519) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731171)->elements[2], ((closureN)self_731171)->elements[1], r_73519, ((closureN)self_731171)->elements[5], ((closureN)self_731171)->elements[0], boolean_t, ((closureN)self_731171)->elements[3], ((closureN)self_731171)->elements[4]);; -} - -static void __lambda_50(void *data, int argc, object self_731172, object r_73518) { - -closureN_type c_731508; -c_731508.hdr.mark = gc_color_red; - c_731508.hdr.grayed = 0; -c_731508.tag = closureN_tag; - c_731508.fn = (function_type)__lambda_49; -c_731508.num_args = 1; -c_731508.num_elements = 6; -c_731508.elements = (object *)alloca(sizeof(object) * 6); -c_731508.elements[0] = ((closureN)self_731172)->elements[0]; -c_731508.elements[1] = ((closureN)self_731172)->elements[1]; -c_731508.elements[2] = ((closureN)self_731172)->elements[2]; -c_731508.elements[3] = ((closureN)self_731172)->elements[3]; -c_731508.elements[4] = ((closureN)self_731172)->elements[4]; -c_731508.elements[5] = ((closureN)self_731172)->elements[5]; - - -object c_731526 = Cyc_sum(data,(closure)&c_731508,2,obj_int2obj(1), r_73518); -return_closcall1(data,(closure)&c_731508, c_731526);; -} - -static void __lambda_49(void *data, int argc, object self_731173, object r_73517) { - -closureN_type c_731510; -c_731510.hdr.mark = gc_color_red; - c_731510.hdr.grayed = 0; -c_731510.tag = closureN_tag; - c_731510.fn = (function_type)__lambda_48; -c_731510.num_args = 1; -c_731510.num_elements = 6; -c_731510.elements = (object *)alloca(sizeof(object) * 6); -c_731510.elements[0] = ((closureN)self_731173)->elements[0]; -c_731510.elements[1] = ((closureN)self_731173)->elements[1]; -c_731510.elements[2] = ((closureN)self_731173)->elements[2]; -c_731510.elements[3] = ((closureN)self_731173)->elements[3]; -c_731510.elements[4] = ((closureN)self_731173)->elements[4]; -c_731510.elements[5] = ((closureN)self_731173)->elements[5]; - -return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, &c_731510, ((closureN)self_731173)->elements[4], r_73517);; -} - -static void __lambda_48(void *data, int argc, object self_731174, object r_73514) { - -closureN_type c_731512; -c_731512.hdr.mark = gc_color_red; - c_731512.hdr.grayed = 0; -c_731512.tag = closureN_tag; - c_731512.fn = (function_type)__lambda_47; -c_731512.num_args = 1; -c_731512.num_elements = 6; -c_731512.elements = (object *)alloca(sizeof(object) * 6); -c_731512.elements[0] = ((closureN)self_731174)->elements[0]; -c_731512.elements[1] = ((closureN)self_731174)->elements[1]; -c_731512.elements[2] = ((closureN)self_731174)->elements[2]; -c_731512.elements[3] = ((closureN)self_731174)->elements[3]; -c_731512.elements[4] = ((closureN)self_731174)->elements[4]; -c_731512.elements[5] = ((closureN)self_731174)->elements[5]; - -return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731512, ((closureN)self_731174)->elements[4], obj_int2obj(0));; -} - -static void __lambda_47(void *data, int argc, object self_731175, object r_73515) { - -closureN_type c_731514; -c_731514.hdr.mark = gc_color_red; - c_731514.hdr.grayed = 0; -c_731514.tag = closureN_tag; - c_731514.fn = (function_type)__lambda_46; -c_731514.num_args = 1; -c_731514.num_elements = 6; -c_731514.elements = (object *)alloca(sizeof(object) * 6); -c_731514.elements[0] = ((closureN)self_731175)->elements[0]; -c_731514.elements[1] = ((closureN)self_731175)->elements[1]; -c_731514.elements[2] = ((closureN)self_731175)->elements[2]; -c_731514.elements[3] = ((closureN)self_731175)->elements[3]; -c_731514.elements[4] = ((closureN)self_731175)->elements[4]; -c_731514.elements[5] = ((closureN)self_731175)->elements[5]; - -return_closcall1(data,(closure)&c_731514, NULL);; -} - -static void __lambda_46(void *data, int argc, object self_731176, object r_73516) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731176)->elements[2], ((closureN)self_731176)->elements[1], r_73516, ((closureN)self_731176)->elements[5], ((closureN)self_731176)->elements[0], boolean_f, ((closureN)self_731176)->elements[3], ((closureN)self_731176)->elements[4]);; -} - -static void __lambda_45(void *data, int argc, object self_731177, object r_73504) { - if( (boolean_f != ((closureN)self_731177)->elements[0]) ){ - -closureN_type c_731477; -c_731477.hdr.mark = gc_color_red; - c_731477.hdr.grayed = 0; -c_731477.tag = closureN_tag; - c_731477.fn = (function_type)__lambda_42; -c_731477.num_args = 1; -c_731477.num_elements = 1; -c_731477.elements = (object *)alloca(sizeof(object) * 1); -c_731477.elements[0] = ((closureN)self_731177)->elements[2]; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731477, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]); -} else { - -closureN_type c_731483; -c_731483.hdr.mark = gc_color_red; - c_731483.hdr.grayed = 0; -c_731483.tag = closureN_tag; - c_731483.fn = (function_type)__lambda_44; -c_731483.num_args = 1; -c_731483.num_elements = 2; -c_731483.elements = (object *)alloca(sizeof(object) * 2); -c_731483.elements[0] = ((closureN)self_731177)->elements[1]; -c_731483.elements[1] = ((closureN)self_731177)->elements[2]; - -return_closcall3(data, __glo_get_91toks_scheme_read, &c_731483, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]);} -; -} - -static void __lambda_44(void *data, int argc, object self_731178, object last_73233) { - -closureN_type c_731485; -c_731485.hdr.mark = gc_color_red; - c_731485.hdr.grayed = 0; -c_731485.tag = closureN_tag; - c_731485.fn = (function_type)__lambda_43; -c_731485.num_args = 1; -c_731485.num_elements = 3; -c_731485.elements = (object *)alloca(sizeof(object) * 3); -c_731485.elements[0] = ((closureN)self_731178)->elements[0]; -c_731485.elements[1] = ((closureN)self_731178)->elements[1]; -c_731485.elements[2] = last_73233; - - -object c_731496 = Cyc_num_gt(data,(closure)&c_731485,2,Cyc_length(data, last_73233), obj_int2obj(0)); -return_closcall1(data,(closure)&c_731485, c_731496);; -} - -static void __lambda_43(void *data, int argc, object self_731179, object r_73507) { - if( (boolean_f != r_73507) ){ - return_closcall1(data, ((closureN)self_731179)->elements[1], car(((closureN)self_731179)->elements[2])); -} else { - return_closcall1(data, ((closureN)self_731179)->elements[1], ((closureN)self_731179)->elements[0]);} -; -} - -static void __lambda_42(void *data, int argc, object self_731180, object r_73505) { - return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731180)->elements[0], r_73505);; -} - -static void __lambda_41(void *data, int argc, object self_731181, object k_73509) { - -closureN_type c_731457; -c_731457.hdr.mark = gc_color_red; - c_731457.hdr.grayed = 0; -c_731457.tag = closureN_tag; - c_731457.fn = (function_type)__lambda_40; -c_731457.num_args = 1; -c_731457.num_elements = 2; -c_731457.elements = (object *)alloca(sizeof(object) * 2); -c_731457.elements[0] = k_73509; -c_731457.elements[1] = ((closureN)self_731181)->elements[1]; - - -object c_731472 = Cyc_num_gt(data,(closure)&c_731457,2,((closureN)self_731181)->elements[0], obj_int2obj(0)); -return_closcall1(data,(closure)&c_731457, c_731472);; -} - -static void __lambda_40(void *data, int argc, object self_731182, object r_73510) { - if( (boolean_f != r_73510) ){ - -closureN_type c_731459; -c_731459.hdr.mark = gc_color_red; - c_731459.hdr.grayed = 0; -c_731459.tag = closureN_tag; - c_731459.fn = (function_type)__lambda_39; -c_731459.num_args = 1; -c_731459.num_elements = 2; -c_731459.elements = (object *)alloca(sizeof(object) * 2); -c_731459.elements[0] = ((closureN)self_731182)->elements[0]; -c_731459.elements[1] = ((closureN)self_731182)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731459, ((closureN)self_731182)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731182)->elements[0], boolean_f);} -; -} - -static void __lambda_39(void *data, int argc, object self_731183, object r_73511) { - -closureN_type c_731461; -c_731461.hdr.mark = gc_color_red; - c_731461.hdr.grayed = 0; -c_731461.tag = closureN_tag; - c_731461.fn = (function_type)__lambda_38; -c_731461.num_args = 1; -c_731461.num_elements = 2; -c_731461.elements = (object *)alloca(sizeof(object) * 2); -c_731461.elements[0] = ((closureN)self_731183)->elements[0]; -c_731461.elements[1] = r_73511; - -return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731461, ((closureN)self_731183)->elements[1]);; -} - -static void __lambda_38(void *data, int argc, object self_731184, object r_73512) { - -make_string(c_731464, "missing closing parenthesis"); -return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731184)->elements[0], &c_731464, ((closureN)self_731184)->elements[1], r_73512);; -} - -static void __lambda_37(void *data, int argc, object self_731185, object k_73745) { - -closureN_type c_731427; -c_731427.hdr.mark = gc_color_red; - c_731427.hdr.grayed = 0; -c_731427.tag = closureN_tag; - c_731427.fn = (function_type)__lambda_36; -c_731427.num_args = 1; -c_731427.num_elements = 3; -c_731427.elements = (object *)alloca(sizeof(object) * 3); -c_731427.elements[0] = ((closureN)self_731185)->elements[0]; -c_731427.elements[1] = k_73745; -c_731427.elements[2] = ((closureN)self_731185)->elements[1]; - -return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_731427, ((closureN)self_731185)->elements[1]);; -} - -static void __lambda_36(void *data, int argc, object self_731186, object r_73746) { - if( (boolean_f != r_73746) ){ - return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_731186)->elements[1], ((closureN)self_731186)->elements[2]); -} else { - -object c_731435 = Cyc_io_read_char(data, ((closureN)self_731186)->elements[1],((closureN)self_731186)->elements[0]); -return_closcall1(data, ((closureN)self_731186)->elements[1], c_731435);} -; -} - -static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) { - Cyc_st_add(data, "scheme/read.sld:parse/tok"); -if( (boolean_f != Cyc_is_null(tok_73240)) ){ - -closureN_type c_731380; -c_731380.hdr.mark = gc_color_red; - c_731380.hdr.grayed = 0; -c_731380.tag = closureN_tag; - c_731380.fn = (function_type)__lambda_28; -c_731380.num_args = 1; -c_731380.num_elements = 7; -c_731380.elements = (object *)alloca(sizeof(object) * 7); -c_731380.elements[0] = all_127_73238; -c_731380.elements[1] = comment_127_73237; -c_731380.elements[2] = fp_73241; -c_731380.elements[3] = k_73751; -c_731380.elements[4] = parens_73236; -c_731380.elements[5] = ptbl_73235; -c_731380.elements[6] = toks_73239; - -return_closcall1(data,(closure)&c_731380, NULL); -} else { - if( (boolean_f != all_127_73238) ){ - -closureN_type c_731390; -c_731390.hdr.mark = gc_color_red; - c_731390.hdr.grayed = 0; -c_731390.tag = closureN_tag; - c_731390.fn = (function_type)__lambda_31; -c_731390.num_args = 1; -c_731390.num_elements = 8; -c_731390.elements = (object *)alloca(sizeof(object) * 8); -c_731390.elements[0] = all_127_73238; -c_731390.elements[1] = comment_127_73237; -c_731390.elements[2] = fp_73241; -c_731390.elements[3] = k_73751; -c_731390.elements[4] = parens_73236; -c_731390.elements[5] = ptbl_73235; -c_731390.elements[6] = tok_73240; -c_731390.elements[7] = toks_73239; - -return_closcall1(data,(closure)&c_731390, NULL); -} else { - -closureN_type c_731406; -c_731406.hdr.mark = gc_color_red; - c_731406.hdr.grayed = 0; -c_731406.tag = closureN_tag; - c_731406.fn = (function_type)__lambda_34; -c_731406.num_args = 1; -c_731406.num_elements = 3; -c_731406.elements = (object *)alloca(sizeof(object) * 3); -c_731406.elements[0] = k_73751; -c_731406.elements[1] = tok_73240; -c_731406.elements[2] = toks_73239; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731406, ptbl_73235, curr_91char_73234);} -} -; -} - -static void __lambda_34(void *data, int argc, object self_731187, object r_73757) { - -closureN_type c_731408; -c_731408.hdr.mark = gc_color_red; - c_731408.hdr.grayed = 0; -c_731408.tag = closureN_tag; - c_731408.fn = (function_type)__lambda_33; -c_731408.num_args = 1; -c_731408.num_elements = 2; -c_731408.elements = (object *)alloca(sizeof(object) * 2); -c_731408.elements[0] = ((closureN)self_731187)->elements[0]; -c_731408.elements[1] = ((closureN)self_731187)->elements[2]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731408, ((closureN)self_731187)->elements[1]);; -} - -static void __lambda_33(void *data, int argc, object self_731188, object r_73759) { - -closureN_type c_731410; -c_731410.hdr.mark = gc_color_red; - c_731410.hdr.grayed = 0; -c_731410.tag = closureN_tag; - c_731410.fn = (function_type)__lambda_32; -c_731410.num_args = 1; -c_731410.num_elements = 1; -c_731410.elements = (object *)alloca(sizeof(object) * 1); -c_731410.elements[0] = ((closureN)self_731188)->elements[0]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731410, r_73759, ((closureN)self_731188)->elements[1]);; -} - -static void __lambda_32(void *data, int argc, object self_731189, object r_73758) { - return_closcall1(data, ((closureN)self_731189)->elements[0], car(r_73758));; -} - -static void __lambda_31(void *data, int argc, object self_731190, object r_73754) { - -closureN_type c_731392; -c_731392.hdr.mark = gc_color_red; - c_731392.hdr.grayed = 0; -c_731392.tag = closureN_tag; - c_731392.fn = (function_type)__lambda_30; -c_731392.num_args = 1; -c_731392.num_elements = 8; -c_731392.elements = (object *)alloca(sizeof(object) * 8); -c_731392.elements[0] = ((closureN)self_731190)->elements[0]; -c_731392.elements[1] = ((closureN)self_731190)->elements[1]; -c_731392.elements[2] = ((closureN)self_731190)->elements[2]; -c_731392.elements[3] = ((closureN)self_731190)->elements[3]; -c_731392.elements[4] = ((closureN)self_731190)->elements[4]; -c_731392.elements[5] = ((closureN)self_731190)->elements[5]; -c_731392.elements[6] = r_73754; -c_731392.elements[7] = ((closureN)self_731190)->elements[7]; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731392, ((closureN)self_731190)->elements[6]);; -} - -static void __lambda_30(void *data, int argc, object self_731191, object r_73756) { - -closureN_type c_731394; -c_731394.hdr.mark = gc_color_red; - c_731394.hdr.grayed = 0; -c_731394.tag = closureN_tag; - c_731394.fn = (function_type)__lambda_29; -c_731394.num_args = 1; -c_731394.num_elements = 7; -c_731394.elements = (object *)alloca(sizeof(object) * 7); -c_731394.elements[0] = ((closureN)self_731191)->elements[0]; -c_731394.elements[1] = ((closureN)self_731191)->elements[1]; -c_731394.elements[2] = ((closureN)self_731191)->elements[2]; -c_731394.elements[3] = ((closureN)self_731191)->elements[3]; -c_731394.elements[4] = ((closureN)self_731191)->elements[4]; -c_731394.elements[5] = ((closureN)self_731191)->elements[5]; -c_731394.elements[6] = ((closureN)self_731191)->elements[6]; - -return_closcall3(data, __glo_add_91tok_scheme_read, &c_731394, r_73756, ((closureN)self_731191)->elements[7]);; -} - -static void __lambda_29(void *data, int argc, object self_731192, object r_73755) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731192)->elements[3], ((closureN)self_731192)->elements[2], ((closureN)self_731192)->elements[6], r_73755, ((closureN)self_731192)->elements[0], ((closureN)self_731192)->elements[1], ((closureN)self_731192)->elements[4], ((closureN)self_731192)->elements[5]);; -} - -static void __lambda_28(void *data, int argc, object self_731193, object r_73753) { - return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731193)->elements[3], ((closureN)self_731193)->elements[2], r_73753, ((closureN)self_731193)->elements[6], ((closureN)self_731193)->elements[0], ((closureN)self_731193)->elements[1], ((closureN)self_731193)->elements[4], ((closureN)self_731193)->elements[5]);; -} - -static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) { - Cyc_st_add(data, "scheme/read.sld:parse-error"); - -closureN_type c_731354; -c_731354.hdr.mark = gc_color_red; - c_731354.hdr.grayed = 0; -c_731354.tag = closureN_tag; - c_731354.fn = (function_type)__lambda_26; -c_731354.num_args = 1; -c_731354.num_elements = 3; -c_731354.elements = (object *)alloca(sizeof(object) * 3); -c_731354.elements[0] = cnum_73242; -c_731354.elements[1] = k_73762; -c_731354.elements[2] = msg_73244; - - -object c_731375 = Cyc_number2string2(data,(closure)&c_731354,1,lnum_73243); -return_closcall1(data,(closure)&c_731354, c_731375);; -} - -static void __lambda_26(void *data, int argc, object self_731194, object r_73764) { - -closureN_type c_731356; -c_731356.hdr.mark = gc_color_red; - c_731356.hdr.grayed = 0; -c_731356.tag = closureN_tag; - c_731356.fn = (function_type)__lambda_25; -c_731356.num_args = 1; -c_731356.num_elements = 3; -c_731356.elements = (object *)alloca(sizeof(object) * 3); -c_731356.elements[0] = ((closureN)self_731194)->elements[1]; -c_731356.elements[1] = ((closureN)self_731194)->elements[2]; -c_731356.elements[2] = r_73764; - - -object c_731371 = Cyc_number2string2(data,(closure)&c_731356,1,((closureN)self_731194)->elements[0]); -return_closcall1(data,(closure)&c_731356, c_731371);; -} - -static void __lambda_25(void *data, int argc, object self_731195, object r_73765) { - -closureN_type c_731358; -c_731358.hdr.mark = gc_color_red; - c_731358.hdr.grayed = 0; -c_731358.tag = closureN_tag; - c_731358.fn = (function_type)__lambda_24; -c_731358.num_args = 1; -c_731358.num_elements = 1; -c_731358.elements = (object *)alloca(sizeof(object) * 1); -c_731358.elements[0] = ((closureN)self_731195)->elements[0]; - - -make_string(c_731364, "Error (line "); - -make_string(c_731366, ", char "); - -make_string(c_731367, "): "); - -object c_731363 = Cyc_string_append(data,(closure)&c_731358,6,&c_731364, ((closureN)self_731195)->elements[2], &c_731366, r_73765, &c_731367, ((closureN)self_731195)->elements[1]); -return_closcall1(data,(closure)&c_731358, c_731363);; -} - -static void __lambda_24(void *data, int argc, object self_731196, object r_73763) { - return_closcall2(data, __glo_error_scheme_base, ((closureN)self_731196)->elements[0], r_73763);; -} - -static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) { - Cyc_st_add(data, "scheme/read.sld:->dotted-list"); -if( (boolean_f != Cyc_is_null(lst_73245)) ){ - return_closcall1(data, k_73768, NULL); -} else { - make_string(c_731336, "."); -if( (boolean_f != equalp(car(lst_73245), Cyc_string2symbol(data, &c_731336))) ){ - return_closcall1(data, k_73768, cadr(lst_73245)); -} else { - -closureN_type c_731341; -c_731341.hdr.mark = gc_color_red; - c_731341.hdr.grayed = 0; -c_731341.tag = closureN_tag; - c_731341.fn = (function_type)__lambda_22; -c_731341.num_args = 1; -c_731341.num_elements = 2; -c_731341.elements = (object *)alloca(sizeof(object) * 2); -c_731341.elements[0] = k_73768; -c_731341.elements[1] = lst_73245; - -return_closcall2(data, __glo__91_125dotted_91list_scheme_read, &c_731341, cdr(lst_73245));} -} -; -} - -static void __lambda_22(void *data, int argc, object self_731197, object r_73772) { - -make_pair(c_731346,car(((closureN)self_731197)->elements[1]), r_73772); -return_closcall1(data, ((closureN)self_731197)->elements[0], &c_731346);; -} - -static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) { - Cyc_st_add(data, "scheme/read.sld:dotted?"); - -closureN_type c_731306; -c_731306.hdr.mark = gc_color_red; - c_731306.hdr.grayed = 0; -c_731306.tag = closureN_tag; - c_731306.fn = (function_type)__lambda_20; -c_731306.num_args = 1; -c_731306.num_elements = 2; -c_731306.elements = (object *)alloca(sizeof(object) * 2); -c_731306.elements[0] = k_73778; -c_731306.elements[1] = lst_73246; - - -object c_731323 = Cyc_num_gt(data,(closure)&c_731306,2,Cyc_length(data, lst_73246), obj_int2obj(2)); -return_closcall1(data,(closure)&c_731306, c_731323);; -} - -static void __lambda_20(void *data, int argc, object self_731198, object r_73779) { - if( (boolean_f != r_73779) ){ - -closureN_type c_731308; -c_731308.hdr.mark = gc_color_red; - c_731308.hdr.grayed = 0; -c_731308.tag = closureN_tag; - c_731308.fn = (function_type)__lambda_19; -c_731308.num_args = 1; -c_731308.num_elements = 1; -c_731308.elements = (object *)alloca(sizeof(object) * 1); -c_731308.elements[0] = ((closureN)self_731198)->elements[0]; - -return_closcall2(data, __glo_reverse_scheme_base, &c_731308, ((closureN)self_731198)->elements[1]); -} else { - return_closcall1(data, ((closureN)self_731198)->elements[0], boolean_f);} -; -} - -static void __lambda_19(void *data, int argc, object self_731199, object r_73782) { - -make_string(c_731317, "."); -return_closcall1(data, ((closureN)self_731199)->elements[0], equalp(cadr(r_73782), Cyc_string2symbol(data, &c_731317)));; -} - -static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) { - Cyc_st_add(data, "scheme/read.sld:->tok"); - -closureN_type c_731301; -c_731301.hdr.mark = gc_color_red; - c_731301.hdr.grayed = 0; -c_731301.tag = closureN_tag; - c_731301.fn = (function_type)__lambda_17; -c_731301.num_args = 1; -c_731301.num_elements = 1; -c_731301.elements = (object *)alloca(sizeof(object) * 1); -c_731301.elements[0] = k_73786; - -return_closcall2(data, __glo_reverse_scheme_base, &c_731301, lst_73247);; -} - -static void __lambda_17(void *data, int argc, object self_731200, object r_73787) { - return_closcall2(data, __glo_parse_91atom_scheme_read, ((closureN)self_731200)->elements[0], r_73787);; -} - -static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) { - Cyc_st_add(data, "scheme/read.sld:get-toks"); -if( (boolean_f != Cyc_is_null(tok_73249)) ){ - return_closcall1(data, k_73790, toks_73248); -} else { - -closureN_type c_731295; -c_731295.hdr.mark = gc_color_red; - c_731295.hdr.grayed = 0; -c_731295.tag = closureN_tag; - c_731295.fn = (function_type)__lambda_15; -c_731295.num_args = 1; -c_731295.num_elements = 2; -c_731295.elements = (object *)alloca(sizeof(object) * 2); -c_731295.elements[0] = k_73790; -c_731295.elements[1] = toks_73248; - -return_closcall2(data, __glo__91_125tok_scheme_read, &c_731295, tok_73249);} -; -} - -static void __lambda_15(void *data, int argc, object self_731201, object r_73792) { - return_closcall3(data, __glo_add_91tok_scheme_read, ((closureN)self_731201)->elements[0], r_73792, ((closureN)self_731201)->elements[1]);; -} - -static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) { - Cyc_st_add(data, "scheme/read.sld:add-tok"); - -make_pair(c_731289,tok_73251, toks_73250); -return_closcall1(data, k_73795, &c_731289);; -} - -static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) { - Cyc_st_add(data, "scheme/read.sld:in-port:set-cnum!"); -return_closcall1(data, k_73798, Cyc_set_car(data, cdddr(ptbl_73253), cnum_73252));; -} - -static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) { - Cyc_st_add(data, "scheme/read.sld:in-port:get-cnum"); -return_closcall1(data, k_73802, cadddr(ptbl_73254));; -} - -static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) { - Cyc_st_add(data, "scheme/read.sld:in-port:set-lnum!"); -return_closcall1(data, k_73805, Cyc_set_car(data, cddr(ptbl_73256), lnum_73255));; -} - -static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) { - Cyc_st_add(data, "scheme/read.sld:in-port:get-lnum"); -return_closcall1(data, k_73809, caddr(ptbl_73257));; -} - -static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) { - Cyc_st_add(data, "scheme/read.sld:in-port:set-buf!"); -return_closcall1(data, k_73812, Cyc_set_car(data, cdr(ptbl_73259), buf_73258));; -} - -static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) { - Cyc_st_add(data, "scheme/read.sld:in-port:get-buf"); -return_closcall1(data, k_73816, cadr(ptbl_73260));; -} - -static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) { - Cyc_st_add(data, "scheme/read.sld:in-port:read-buf!"); - -closureN_type c_731249; -c_731249.hdr.mark = gc_color_red; - c_731249.hdr.grayed = 0; -c_731249.tag = closureN_tag; - c_731249.fn = (function_type)__lambda_6; -c_731249.num_args = 1; -c_731249.num_elements = 2; -c_731249.elements = (object *)alloca(sizeof(object) * 2); -c_731249.elements[0] = k_73819; -c_731249.elements[1] = ptbl_73261; - -return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731249, ptbl_73261, boolean_f);; -} - -static void __lambda_6(void *data, int argc, object self_731202, object r_73821) { - return_closcall1(data, ((closureN)self_731202)->elements[0], cadr(((closureN)self_731202)->elements[1]));; -} - -static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) { - Cyc_st_add(data, "scheme/read.sld:reg-port"); - -closureN_type c_731210; -c_731210.hdr.mark = gc_color_red; - c_731210.hdr.grayed = 0; -c_731210.tag = closureN_tag; - c_731210.fn = (function_type)__lambda_4; -c_731210.num_args = 1; -c_731210.num_elements = 2; -c_731210.elements = (object *)alloca(sizeof(object) * 2); -c_731210.elements[0] = fp_73263; -c_731210.elements[1] = k_73824; - -return_closcall1(data,(closure)&c_731210, assoc(data, fp_73263, __glo__85in_91port_91table_85_scheme_read));; -} - -static void __lambda_4(void *data, int argc, object self_731203, object r_73264) { - -closureN_type c_731212; -c_731212.hdr.mark = gc_color_red; - c_731212.hdr.grayed = 0; -c_731212.tag = closureN_tag; - c_731212.fn = (function_type)__lambda_3; -c_731212.num_args = 1; -c_731212.num_elements = 2; -c_731212.elements = (object *)alloca(sizeof(object) * 2); -c_731212.elements[0] = ((closureN)self_731203)->elements[0]; -c_731212.elements[1] = ((closureN)self_731203)->elements[1]; - - -make_cell(c_731244,r_73264); -return_closcall1(data,(closure)&c_731212, &c_731244);; -} - -static void __lambda_3(void *data, int argc, object self_731204, object r_73264) { - if( (boolean_f != cell_get(r_73264)) ){ - return_closcall1(data, ((closureN)self_731204)->elements[1], cell_get(r_73264)); -} else { - -closureN_type c_731220; -c_731220.hdr.mark = gc_color_red; - c_731220.hdr.grayed = 0; -c_731220.tag = closureN_tag; - c_731220.fn = (function_type)__lambda_2; -c_731220.num_args = 1; -c_731220.num_elements = 2; -c_731220.elements = (object *)alloca(sizeof(object) * 2); -c_731220.elements[0] = ((closureN)self_731204)->elements[1]; -c_731220.elements[1] = r_73264; - -return_closcall5(data, __glo__list_scheme_base, &c_731220, ((closureN)self_731204)->elements[0], boolean_f, obj_int2obj(1), obj_int2obj(0));} -; -} - -static void __lambda_2(void *data, int argc, object self_731205, object r_73829) { - -closureN_type c_731222; -c_731222.hdr.mark = gc_color_red; - c_731222.hdr.grayed = 0; -c_731222.tag = closureN_tag; - c_731222.fn = (function_type)__lambda_1; -c_731222.num_args = 1; -c_731222.num_elements = 2; -c_731222.elements = (object *)alloca(sizeof(object) * 2); -c_731222.elements[0] = ((closureN)self_731205)->elements[0]; -c_731222.elements[1] = ((closureN)self_731205)->elements[1]; - -return_closcall1(data,(closure)&c_731222, Cyc_set_car(data, ((closureN)self_731205)->elements[1], r_73829));; -} - -static void __lambda_1(void *data, int argc, object self_731206, object r_73826) { - -closureN_type c_731224; -c_731224.hdr.mark = gc_color_red; - c_731224.hdr.grayed = 0; -c_731224.tag = closureN_tag; - c_731224.fn = (function_type)__lambda_0; -c_731224.num_args = 1; -c_731224.num_elements = 2; -c_731224.elements = (object *)alloca(sizeof(object) * 2); -c_731224.elements[0] = ((closureN)self_731206)->elements[0]; -c_731224.elements[1] = ((closureN)self_731206)->elements[1]; - - -make_pair(c_731234,cell_get(((closureN)self_731206)->elements[1]), __glo__85in_91port_91table_85_scheme_read); -return_closcall1(data,(closure)&c_731224, global_set(__glo__85in_91port_91table_85_scheme_read, &c_731234));; -} - -static void __lambda_0(void *data, int argc, object self_731207, object r_73827) { - return_closcall1(data, ((closureN)self_731207)->elements[0], cell_get(((closureN)self_731207)->elements[1]));; -} - -void c_schemeread_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ - quote_DEBUG = find_or_add_symbol("DEBUG"); - quote_read = find_or_add_symbol("read"); - quote_unquote = find_or_add_symbol("unquote"); - quote_unquote_91splicing = find_or_add_symbol("unquote-splicing"); - quote_quasiquote = find_or_add_symbol("quasiquote"); - quote_quote = find_or_add_symbol("quote"); - - add_global((object *) &__glo_lib_91init_117schemeread_scheme_read); - add_global((object *) &__glo_read_91all_scheme_read); - add_global((object *) &__glo_cyc_91read_scheme_read); - add_global((object *) &__glo_hex_91digit_127_scheme_read); - add_global((object *) &__glo_parse_91number_91rec_scheme_read); - add_global((object *) &__glo_parse_91number_scheme_read); - add_global((object *) &__glo_parse_91li_91rec_scheme_read); - add_global((object *) &__glo_parse_91literal_91identifier_scheme_read); - add_global((object *) &__glo_read_91block_91terminator_scheme_read); - add_global((object *) &__glo_read_91block_91comment_scheme_read); - add_global((object *) &__glo_get_91next_91char_scheme_read); - add_global((object *) &__glo_parse_91atom_scheme_read); - add_global((object *) &__glo_token_91numeric_127_scheme_read); - add_global((object *) &__glo_sign_127_scheme_read); - add_global((object *) &__glo_read_91str_91esc_scheme_read); - add_global((object *) &__glo_read_91str_scheme_read); - add_global((object *) &__glo_read_91pound_scheme_read); - add_global((object *) &__glo_parse_scheme_read); - add_global((object *) &__glo_parse_95tok_scheme_read); - add_global((object *) &__glo_parse_91error_scheme_read); - add_global((object *) &__glo__91_125dotted_91list_scheme_read); - add_global((object *) &__glo_dotted_127_scheme_read); - add_global((object *) &__glo__91_125tok_scheme_read); - add_global((object *) &__glo_get_91toks_scheme_read); - add_global((object *) &__glo_add_91tok_scheme_read); - add_global((object *) &__glo_in_91port_117set_91cnum_67_scheme_read); - add_global((object *) &__glo_in_91port_117get_91cnum_scheme_read); - add_global((object *) &__glo_in_91port_117set_91lnum_67_scheme_read); - add_global((object *) &__glo_in_91port_117get_91lnum_scheme_read); - add_global((object *) &__glo_in_91port_117set_91buf_67_scheme_read); - add_global((object *) &__glo_in_91port_117get_91buf_scheme_read); - add_global((object *) &__glo_in_91port_117read_91buf_67_scheme_read); - add_global((object *) &__glo_reg_91port_scheme_read); - add_global((object *) &__glo__85in_91port_91table_85_scheme_read); - add_global((object *) &__glo_read_scheme_read); - add_symbol(quote_DEBUG); - add_symbol(quote_read); - add_symbol(quote_unquote); - add_symbol(quote_unquote_91splicing); - add_symbol(quote_quasiquote); - add_symbol(quote_quote); - mclosure0(c_733648, (function_type)__lambda_406);c_733648.num_args = 0; - __glo_lib_91init_117schemeread_scheme_read = &c_733648; - mclosure0(c_733596, (function_type)__lambda_403);c_733596.num_args = 0; - __glo_read_91all_scheme_read = &c_733596; - mclosure0(c_733572, (function_type)__lambda_393);c_733572.num_args = 0; - __glo_cyc_91read_scheme_read = &c_733572; - mclosure0(c_733550, (function_type)__lambda_387);c_733550.num_args = 1; - __glo_hex_91digit_127_scheme_read = &c_733550; - mclosure0(c_733442, (function_type)__lambda_382);c_733442.num_args = 4; - __glo_parse_91number_91rec_scheme_read = &c_733442; - mclosure0(c_733369, (function_type)__lambda_361);c_733369.num_args = 7; - __glo_parse_91number_scheme_read = &c_733369; - mclosure0(c_733317, (function_type)__lambda_349);c_733317.num_args = 3; - __glo_parse_91li_91rec_scheme_read = &c_733317; - mclosure0(c_733294, (function_type)__lambda_339);c_733294.num_args = 5; - __glo_parse_91literal_91identifier_scheme_read = &c_733294; - mclosure0(c_733277, (function_type)__lambda_335);c_733277.num_args = 2; - __glo_read_91block_91terminator_scheme_read = &c_733277; - mclosure0(c_733264, (function_type)__lambda_333);c_733264.num_args = 2; - __glo_read_91block_91comment_scheme_read = &c_733264; - mclosure0(c_733252, (function_type)__lambda_331);c_733252.num_args = 2; - __glo_get_91next_91char_scheme_read = &c_733252; - mclosure0(c_733228, (function_type)__lambda_329);c_733228.num_args = 1; - __glo_parse_91atom_scheme_read = &c_733228; - mclosure0(c_733160, (function_type)__lambda_325);c_733160.num_args = 1; - __glo_token_91numeric_127_scheme_read = &c_733160; - mclosure0(c_733151, (function_type)__lambda_316);c_733151.num_args = 1; - __glo_sign_127_scheme_read = &c_733151; - mclosure0(c_733078, (function_type)__lambda_315);c_733078.num_args = 3; - __glo_read_91str_91esc_scheme_read = &c_733078; - mclosure0(c_733031, (function_type)__lambda_304);c_733031.num_args = 3; - __glo_read_91str_scheme_read = &c_733031; - mclosure0(c_732719, (function_type)__lambda_298);c_732719.num_args = 2; - __glo_read_91pound_scheme_read = &c_732719; - mclosure0(c_731417, (function_type)__lambda_256);c_731417.num_args = 7; - __glo_parse_scheme_read = &c_731417; - mclosure0(c_731376, (function_type)__lambda_35);c_731376.num_args = 8; - __glo_parse_95tok_scheme_read = &c_731376; - mclosure0(c_731352, (function_type)__lambda_27);c_731352.num_args = 3; - __glo_parse_91error_scheme_read = &c_731352; - mclosure0(c_731326, (function_type)__lambda_23);c_731326.num_args = 1; - __glo__91_125dotted_91list_scheme_read = &c_731326; - mclosure0(c_731304, (function_type)__lambda_21);c_731304.num_args = 1; - __glo_dotted_127_scheme_read = &c_731304; - mclosure0(c_731299, (function_type)__lambda_18);c_731299.num_args = 1; - __glo__91_125tok_scheme_read = &c_731299; - mclosure0(c_731290, (function_type)__lambda_16);c_731290.num_args = 2; - __glo_get_91toks_scheme_read = &c_731290; - mclosure0(c_731285, (function_type)__lambda_14);c_731285.num_args = 2; - __glo_add_91tok_scheme_read = &c_731285; - mclosure0(c_731279, (function_type)__lambda_13);c_731279.num_args = 2; - __glo_in_91port_117set_91cnum_67_scheme_read = &c_731279; - mclosure0(c_731275, (function_type)__lambda_12);c_731275.num_args = 1; - __glo_in_91port_117get_91cnum_scheme_read = &c_731275; - mclosure0(c_731269, (function_type)__lambda_11);c_731269.num_args = 2; - __glo_in_91port_117set_91lnum_67_scheme_read = &c_731269; - mclosure0(c_731265, (function_type)__lambda_10);c_731265.num_args = 1; - __glo_in_91port_117get_91lnum_scheme_read = &c_731265; - mclosure0(c_731259, (function_type)__lambda_9);c_731259.num_args = 2; - __glo_in_91port_117set_91buf_67_scheme_read = &c_731259; - mclosure0(c_731255, (function_type)__lambda_8);c_731255.num_args = 1; - __glo_in_91port_117get_91buf_scheme_read = &c_731255; - mclosure0(c_731247, (function_type)__lambda_7);c_731247.num_args = 1; - __glo_in_91port_117read_91buf_67_scheme_read = &c_731247; - mclosure0(c_731208, (function_type)__lambda_5);c_731208.num_args = 1; - __glo_reg_91port_scheme_read = &c_731208; - __glo__85in_91port_91table_85_scheme_read = boolean_f; - __glo_read_scheme_read = boolean_f; - - make_cvar(cvar_733659, (object *)&__glo_lib_91init_117schemeread_scheme_read);make_pair(pair_733660, find_or_add_symbol("lib-init:schemeread"), &cvar_733659); - make_cvar(cvar_733661, (object *)&__glo_read_91all_scheme_read);make_pair(pair_733662, find_or_add_symbol("read-all"), &cvar_733661); - make_cvar(cvar_733663, (object *)&__glo_cyc_91read_scheme_read);make_pair(pair_733664, find_or_add_symbol("cyc-read"), &cvar_733663); - make_cvar(cvar_733665, (object *)&__glo_hex_91digit_127_scheme_read);make_pair(pair_733666, find_or_add_symbol("hex-digit?"), &cvar_733665); - make_cvar(cvar_733667, (object *)&__glo_parse_91number_91rec_scheme_read);make_pair(pair_733668, find_or_add_symbol("parse-number-rec"), &cvar_733667); - make_cvar(cvar_733669, (object *)&__glo_parse_91number_scheme_read);make_pair(pair_733670, find_or_add_symbol("parse-number"), &cvar_733669); - make_cvar(cvar_733671, (object *)&__glo_parse_91li_91rec_scheme_read);make_pair(pair_733672, find_or_add_symbol("parse-li-rec"), &cvar_733671); - make_cvar(cvar_733673, (object *)&__glo_parse_91literal_91identifier_scheme_read);make_pair(pair_733674, find_or_add_symbol("parse-literal-identifier"), &cvar_733673); - make_cvar(cvar_733675, (object *)&__glo_read_91block_91terminator_scheme_read);make_pair(pair_733676, find_or_add_symbol("read-block-terminator"), &cvar_733675); - make_cvar(cvar_733677, (object *)&__glo_read_91block_91comment_scheme_read);make_pair(pair_733678, find_or_add_symbol("read-block-comment"), &cvar_733677); - make_cvar(cvar_733679, (object *)&__glo_get_91next_91char_scheme_read);make_pair(pair_733680, find_or_add_symbol("get-next-char"), &cvar_733679); - make_cvar(cvar_733681, (object *)&__glo_parse_91atom_scheme_read);make_pair(pair_733682, find_or_add_symbol("parse-atom"), &cvar_733681); - make_cvar(cvar_733683, (object *)&__glo_token_91numeric_127_scheme_read);make_pair(pair_733684, find_or_add_symbol("token-numeric?"), &cvar_733683); - make_cvar(cvar_733685, (object *)&__glo_sign_127_scheme_read);make_pair(pair_733686, find_or_add_symbol("sign?"), &cvar_733685); - make_cvar(cvar_733687, (object *)&__glo_read_91str_91esc_scheme_read);make_pair(pair_733688, find_or_add_symbol("read-str-esc"), &cvar_733687); - make_cvar(cvar_733689, (object *)&__glo_read_91str_scheme_read);make_pair(pair_733690, find_or_add_symbol("read-str"), &cvar_733689); - make_cvar(cvar_733691, (object *)&__glo_read_91pound_scheme_read);make_pair(pair_733692, find_or_add_symbol("read-pound"), &cvar_733691); - make_cvar(cvar_733693, (object *)&__glo_parse_scheme_read);make_pair(pair_733694, find_or_add_symbol("parse"), &cvar_733693); - make_cvar(cvar_733695, (object *)&__glo_parse_95tok_scheme_read);make_pair(pair_733696, find_or_add_symbol("parse/tok"), &cvar_733695); - make_cvar(cvar_733697, (object *)&__glo_parse_91error_scheme_read);make_pair(pair_733698, find_or_add_symbol("parse-error"), &cvar_733697); - make_cvar(cvar_733699, (object *)&__glo__91_125dotted_91list_scheme_read);make_pair(pair_733700, find_or_add_symbol("->dotted-list"), &cvar_733699); - make_cvar(cvar_733701, (object *)&__glo_dotted_127_scheme_read);make_pair(pair_733702, find_or_add_symbol("dotted?"), &cvar_733701); - make_cvar(cvar_733703, (object *)&__glo__91_125tok_scheme_read);make_pair(pair_733704, find_or_add_symbol("->tok"), &cvar_733703); - make_cvar(cvar_733705, (object *)&__glo_get_91toks_scheme_read);make_pair(pair_733706, find_or_add_symbol("get-toks"), &cvar_733705); - make_cvar(cvar_733707, (object *)&__glo_add_91tok_scheme_read);make_pair(pair_733708, find_or_add_symbol("add-tok"), &cvar_733707); - make_cvar(cvar_733709, (object *)&__glo_in_91port_117set_91cnum_67_scheme_read);make_pair(pair_733710, find_or_add_symbol("in-port:set-cnum!"), &cvar_733709); - make_cvar(cvar_733711, (object *)&__glo_in_91port_117get_91cnum_scheme_read);make_pair(pair_733712, find_or_add_symbol("in-port:get-cnum"), &cvar_733711); - make_cvar(cvar_733713, (object *)&__glo_in_91port_117set_91lnum_67_scheme_read);make_pair(pair_733714, find_or_add_symbol("in-port:set-lnum!"), &cvar_733713); - make_cvar(cvar_733715, (object *)&__glo_in_91port_117get_91lnum_scheme_read);make_pair(pair_733716, find_or_add_symbol("in-port:get-lnum"), &cvar_733715); - make_cvar(cvar_733717, (object *)&__glo_in_91port_117set_91buf_67_scheme_read);make_pair(pair_733718, find_or_add_symbol("in-port:set-buf!"), &cvar_733717); - make_cvar(cvar_733719, (object *)&__glo_in_91port_117get_91buf_scheme_read);make_pair(pair_733720, find_or_add_symbol("in-port:get-buf"), &cvar_733719); - make_cvar(cvar_733721, (object *)&__glo_in_91port_117read_91buf_67_scheme_read);make_pair(pair_733722, find_or_add_symbol("in-port:read-buf!"), &cvar_733721); - make_cvar(cvar_733723, (object *)&__glo_reg_91port_scheme_read);make_pair(pair_733724, find_or_add_symbol("reg-port"), &cvar_733723); - make_cvar(cvar_733725, (object *)&__glo__85in_91port_91table_85_scheme_read);make_pair(pair_733726, find_or_add_symbol("*in-port-table*"), &cvar_733725); - make_cvar(cvar_733727, (object *)&__glo_read_scheme_read);make_pair(pair_733728, find_or_add_symbol("read"), &cvar_733727); -make_pair(c_733729, &pair_733660,Cyc_global_variables); -make_pair(c_733730, &pair_733662, &c_733729); -make_pair(c_733731, &pair_733664, &c_733730); -make_pair(c_733732, &pair_733666, &c_733731); -make_pair(c_733733, &pair_733668, &c_733732); -make_pair(c_733734, &pair_733670, &c_733733); -make_pair(c_733735, &pair_733672, &c_733734); -make_pair(c_733736, &pair_733674, &c_733735); -make_pair(c_733737, &pair_733676, &c_733736); -make_pair(c_733738, &pair_733678, &c_733737); -make_pair(c_733739, &pair_733680, &c_733738); -make_pair(c_733740, &pair_733682, &c_733739); -make_pair(c_733741, &pair_733684, &c_733740); -make_pair(c_733742, &pair_733686, &c_733741); -make_pair(c_733743, &pair_733688, &c_733742); -make_pair(c_733744, &pair_733690, &c_733743); -make_pair(c_733745, &pair_733692, &c_733744); -make_pair(c_733746, &pair_733694, &c_733745); -make_pair(c_733747, &pair_733696, &c_733746); -make_pair(c_733748, &pair_733698, &c_733747); -make_pair(c_733749, &pair_733700, &c_733748); -make_pair(c_733750, &pair_733702, &c_733749); -make_pair(c_733751, &pair_733704, &c_733750); -make_pair(c_733752, &pair_733706, &c_733751); -make_pair(c_733753, &pair_733708, &c_733752); -make_pair(c_733754, &pair_733710, &c_733753); -make_pair(c_733755, &pair_733712, &c_733754); -make_pair(c_733756, &pair_733714, &c_733755); -make_pair(c_733757, &pair_733716, &c_733756); -make_pair(c_733758, &pair_733718, &c_733757); -make_pair(c_733759, &pair_733720, &c_733758); -make_pair(c_733760, &pair_733722, &c_733759); -make_pair(c_733761, &pair_733724, &c_733760); -make_pair(c_733762, &pair_733726, &c_733761); -make_pair(c_733763, &pair_733728, &c_733762); -Cyc_global_variables = &c_733763; -cont = ((closure1_type *)cont)->element; -(((closure)__glo_lib_91init_117schemeread_scheme_read)->fn)(data, 1, cont, cont); -}