/** ** 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); }