mes/scaffold/b-0.mes

;;; -*-scheme-*-
(define (newline) (core:display "\n"))
(core:display "b-00\n")
(define save (current-input-port))
(core:display "save=")(core:display save)(newline)
(core:display "b-0111\n")
(set-current-input-port (open-input-file "scaffold/t-0.mes"))
;;(set-current-input-port (open-input-file "mes/t-0.mes"))
(core:display "ipp=")(core:display (current-input-port))(newline)
(core:display "b-02\n")
(primitive-load)
(core:display "b-03\n")
(set-current-input-port save)
(core:display "b-04\n")
"42\n"
mescc: Run module/base-0.mes. * gc.c: New file. * vector.c: New file. * mes.c: Remove vector and gc functions, include vector.c, gc.c. * GNUmakefile (mes.o): Add gc, vector dependencies. * scaffold/mini-mes.c (eval_apply): Support primitive-load through read_input_file. (getenv_, open_input_file, current_input_port, set_current_input_port force_output, exit_, values, arity_, xassq, is_p, minus, plus, divide, modulo multiply, logior, ash): New function. (mes_symbols): Add symbols %gnuc, %mesc. * scaffold/mini-mes.c (): New functions. * scaffold/b-0.mes: New file. * scaffold/t-0.mes: New file. 2017-03-26 19:13:01 +00:00			`;;; --scheme--`
			`(define (newline) (core:display "\n"))`
			`(core:display "b-00\n")`
			`(define save (current-input-port))`
			`(core:display "save=")(core:display save)(newline)`
			`(core:display "b-0111\n")`
			`(set-current-input-port (open-input-file "scaffold/t-0.mes"))`
			`;;(set-current-input-port (open-input-file "mes/t-0.mes"))`
			`(core:display "ipp=")(core:display (current-input-port))(newline)`
			`(core:display "b-02\n")`
			`(primitive-load)`
			`(core:display "b-03\n")`
			`(set-current-input-port save)`
			`(core:display "b-04\n")`
			`"42\n"`