;; The code that generates this page: (define p '( p: (yellow: (b: ";; The code that generates this page:")) newline "(define p '(" (map (lambda (x) (format "~s~% " x)) p) "))" newline "(define html (eval p))" newline (b: "(thunk (send-auto-html html)) ") )) (define html (eval p)) (thunk (send-auto-html html))