66b53669f8
* 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.
16 lines
505 B
Scheme
16 lines
505 B
Scheme
;;; -*-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"
|