[skribilo-users] Compiling a skribilo document within Guile

[Roger Mason]

Hell,

I have this simple document from the documentation

(document #:title "Some Title"
             (chapter #:title "The Chapter"
                (p "The paragraph...  "
                   "Text consists of "
                   "a list of strings.")))

contained in a file called 'test.scm'.

I have this Guile script (compile.scm) that is intended to process documents 
like
'test.scm'

#! /usr/local/bin/guile -s
!#

(use-modules (skribilo engine)       ;; provides `find-engine'
              (skribilo evaluator)    ;; provides `evaluate-document'
              (skribilo package base) ;; provides `chapter', etc.
              (skribilo utils syntax) ;; `set-correct-file-encoding!'
              (srfi srfi-1)
              (ice-9 rdelim))           ;read-line

(let* (;; infile, outfile, engine
      (infile (list-ref (command-line) 1))
      (outfile (list-ref (command-line) 2))
      (eng (string->symbol (list-ref (command-line) 3)))
      (e (find-engine eng))

      ;; The (document ...) bit wast pasted in from the file
      ;; It compiles fine using this text
      ;; There must be something odd about the (document ...) returned by 
with-input-from-file...
      (result (with-input-from-file infile
         (lambda ()
           (set-correct-file-encoding!)
           (let loop ((line   (read-line))
                      (result '()))
             (if (eof-object? line)
                 (string-join (reverse result)
                              (string #\newline))
                 (loop (read-line)
                       (cons line result)))))))
      (d result))

  ;; "Evaluate" the document to a file.
  (with-output-to-file (string-append outfile "." (symbol->string eng))
    (lambda ()
      (evaluate-document d e))))

When I invoke 'compile.scm' like this:

./compile.scm test.scm test context

the output document (test.context) looks like this:

(document \type{#}:title "Some Title"
             (chapter \type{#}:title "The Chapter"
                (p "The paragraph...  "
                   "Text consists of "
                   "a list of strings.")))

rather than being a context document written by Skribilo.

Can someone please tell me how to get this to work?

Thanks,
Roger