Back to slide -- Keyboard shortcut: 'u'              Annotated program -- Keyboard shortcut: 't'    fine-grained-ling-abstr.scm - An almost empty outline of the functions that implement the course home page language.Lecture 6 - slide 5 : 22
Program 1

(define (course-home-page name-form number-form lecture-list current-form
                          link-form process-form)

  ; The real implementation of
  ; the course home page language


(define (name nm) 
 (list 'name nm))

(define (number-of-lectures n) 
 (list 'number-of-lectures n))

(define (lecture-names . name-lst) 
 (cons 'lecture-names name-lst))

(define (current-lecture n) 
 (list 'current-lecture n))

(define (links . lnk-list) 
 (cons 'links lnk-list))