Example: PUSH

> (define-macro (push element stack)

(list

'if

(list 'null? stack)

(list 'set!

stack

(list 'quote (list element)))

(list 'set!

stack

(list 'cons element stack)) ) )

Previous slide

Next slide

Back to first slide

View graphic version