(let ((ttl "Programming Paradigms")
(max 5)
(current 3)
)
`(course-home-page
(name ,ttl)
(number-of-lectures ,max)
,(cons
'lecture-names
(map downcase-string
(list "intr" "scheme" "HIGHER-ORDER-FN"
"eval-order" "lisp-languages")))
(current-lecture ,current)
(links
"schemers.org" "http://www.schemers.org/"
"LAML" "http://www.cs.auc.dk/~normark/laml/"
"Haskell" "http://haskell.org/"
)
)
) |
| | A sample embedding of a course home document in a Scheme program. We use a quasiquotation to provide for a representation of the course home page as a list structure in the Scheme context.
|