test: Split-up Mescc scaffold test.
[mes.git] / scaffold / b-0.mes
1 ;;; -*-scheme-*-
2 (define (newline) (core:display "\n"))
3 (core:display "b-00\n")
4 (define save (current-input-port))
5 (core:display "save=")(core:display save)(newline)
6 (core:display "b-0111\n")
7 (set-current-input-port (open-input-file "scaffold/t-0.mes"))
8 ;;(set-current-input-port (open-input-file "mes/t-0.mes"))
9 (core:display "ipp=")(core:display (current-input-port))(newline)
10 (core:display "b-02\n")
11 (primitive-load)
12 (core:display "b-03\n")
13 (set-current-input-port save)
14 (core:display "b-04\n")
15 "42\n"