;; Source file: ../lisp/scheme.jl
(validate-byte-code 11 0)

(define-structure scheme (export #f #t quote lambda if set! cond case and or let let* letrec begin do delay define not eqv? eq? equal? boolean? pair? cons car cdr set-car! set-cdr! caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr null? list? list length append reverse list-tail list-ref memq memv member assq assv assoc symbol? symbol->string string->symbol number? complex? real? rational? integer? exact? inexact? = < > <= >= zero? positive? negative? odd? even? max min + * - / abs quotient remainder modulo gcd lcm numerator denominator floor ceiling truncate round rationalize exp log sin cos tan asin acos atan sqrt expt exact->inexact inexact->exact string->number number->string char? char=? char<? char>? char<=? char>=? char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=? char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char->integer integer->char char-upcase char-downcase string? make-string string string-length string-ref string-set! string=? string-ci=? string<? string>? string<=? string>=? string-ci<? string-ci>? string-ci<=? string-ci>=? substring string-append string->list list->string string-copy string-fill! vector? make-vector vector vector-length vector-ref vector-set! vector->list list->vector vector-fill! procedure? apply map for-each force \#make-promise call-with-current-continuation call/cc dynamic-wind eval scheme-report-environment null-environment interaction-environment call-with-input-file call-with-output-file input-port? output-port? current-input-port current-output-port with-input-from-file with-output-to-file open-input-file open-output-file close-input-port close-output-port read read-char peek-char eof-object? write display newline write-char load \#cond \#setq \#define \#progn \#test \#lambda backquote list* %load-suffixes) ((access rep) (open scheme.utils scheme.syntax scheme.data scheme.misc)) ((structure-ref rep %define) \#cond (structure-ref rep cond)) ((structure-ref rep %define) \#setq (structure-ref rep setq)) ((structure-ref rep %define) \#define (structure-ref rep %define)) ((structure-ref rep %define) \#progn (structure-ref rep progn)) ((structure-ref rep %define) \#lambda (structure-ref rep lambda)) ((structure-ref rep %define) backquote (structure-ref rep backquote)) ((structure-ref rep %define) list* (structure-ref rep list*)))
