Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-06-01 00:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions
cyclone/debug/read/read-cps-opt.c
Justin Ethier 230ecbb65b Initial file
2016-06-06 23:00:09 -04:00

3567 lines
330 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

((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)))))))
Reference in a new issue View git blame Copy permalink