![]() | Slide 9 : 26 Program 1 |
(load (string-append laml-dir "laml.scm")) (lib-load "html4.0-loose/basis.scm") (lib-load "html4.0-loose/surface.scm") (lib-load "file-read.scm") (define (html-write html-string) (write-text-file html-string (string-append (startup-directory) (source-filename-without-extension) "." "html") ) ) |