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

(define-structure scheme.misc (export 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 %load-suffixes) ((open rep scheme.utils rep.io.files rep.data.datums) (access rep.io.streams)) (%define procedure? (run-byte-code "	v" [make-predicate functionp] 2)) (defun map #["ÉË01 Mý  L†vI D23Lü '†°K†23û €v" [car cdr] 4195331]) (defun for-each #["ÉË01 Mý  L‡v D2Lþ #†°H†2û v" [car cdr] 3146755]) (defun force #["ÉF0v" [] 1048578]) (defun \#make-promise #["ÉUIFDUUCv" [#["8]þ :D08]þ J( F)EH9v" [] 1049602]] 1026]) (defun eval #["ÉË01b	v" [rep eval] 2097154]) (defun scheme-report-environment #["É0v" [#f] 1048577]) (defun null-environment #["É0v" [#f] 1048577]) (defun interaction-environment #["v" [#f] 1]) (defun call-with-input-file #["ÉÉ01	D2 	D3	Hv" [open-input-file close-file] 4196354]) (defun call-with-output-file #["ÉÉ01	D2 	D3	Hv" [open-output-file close-file] 4196354]) (%define input-port? (run-byte-code "b	v" [make-predicate rep.io.streams input-stream-p] 3)) (%define output-port? (run-byte-code "b	v" [make-predicate rep.io.streams output-stream-p] 3)) (defun current-input-port #["@v" [standard-input] 1]) (defun current-output-port #["@v" [standard-output] 1]) (defun with-input-from-file #["ÉÉ01	DÇ D2@	Hv" [open-input-file standard-input close-file] 3147778]) (defun with-output-to-file #["ÉÉ01	DÇ D2@	Hv" [open-output-file standard-output close-file] 3147778]) (defun open-input-file #["É0 
v" [open-file read] 1048579]) (defun open-output-file #["É0 
v" [open-file write] 1048579]) (defun close-input-port #["É0 	þ  	]]þ v" [filep file-binding close-file] 1048578]) (%define close-output-port close-input-port) (%define eof-object (run-byte-code "I
v" [make-datum scheme-eof-object] 3)) (run-byte-code "C
v" [define-datum-printer scheme-eof-object #["ÉÉ01b 
v" [rep.io.streams write "#<scheme-eof>"] 2097155]] 3) (defun read #["Ê0û |ø 
v¡ ub 	v" [end-of-stream eof-object rep.io.streams read] 1049602]) (defun read-char #["Ê0b ÿ @	ÿ v" [rep.io.streams read-char standard-input eof-object] 1048578]) (defun peek-char #["Ê0b ÿ @	ÿ v" [rep.io.streams peek-char standard-input eof-object] 1048578]) (%define eof-object? (run-byte-code "C	v" [make-predicate #["ÉF0av" [eof-object] 1048579]] 2)) (defun write #["ÉÊ01b ÿ @v" [rep.io.streams format standard-output "%S"] 2097156]) (defun display #["ÉÊ01b ÿ @v" [rep.io.streams format standard-output "%s"] 2097156]) (defun newline #["Ê0b ÿ @Ÿ

v" [rep.io.streams write standard-output] 1048579]) (defun write-char #["ÉÊ01b ÿ @
v" [rep.io.streams write standard-output] 2097155]) (%define load load-file) (%define %load-suffixes (quote (".scm" . ".scmc"))))