(define (sussman-alert)
(if (sussman-is-needed)
(sussman needed)
(sussman-alert)))(define (sussman why?)
(if (eq? why? needed)
(dispatch sussman schemeworld)
'not-needed)
(if (eq? why? new-standards)
(dispatch sussman secret-mountain-base-in-lambda-mountain)
'not-needed))