;; The code that generates self 2 : (define x 1) (define ref '(ref~: (list "self" x) "self" x)) (define p '( p: (yellow: (b: ";; The code that generates " (eval ref) ":")) newline (format "(define x ~s)" (- 3 x)) newline (format "(define ref '~s)" ref) newline "(define p" newline " '(" (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))