include-file

Name

include-file -- Return the literal content of fileref

Synopsis

(include-file fileref)

Description

Opens and loads fileref with (read-entity); returns the content of fileref as a (literal). Trims the last trailing newline off the file so that "the right thing" happens in asis environments.

Author

Norman Walsh, <ndw@nwalsh.com>

Source Code

(define (include-file fileref)
  ;; Return the literal content of fileref
  (literal (include-characters fileref)))