15 lines
285 B
Scheme
15 lines
285 B
Scheme
|
; Copyright (c) 1994 by Richard Kelsey. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(define (foo x y)
|
||
|
|
(let ((bar (lambda (y)
|
||
|
|
(let ((baz (lambda (a b)
|
||
|
|
(foo (- a 2) (+ 3 b)))))
|
||
|
|
(+ (baz y 1) (baz (+ y 1) 2))))))
|
||
|
|
(if (= x 0)
|
||
|
|
(goto bar 10)
|
||
|
|
(goto bar 4))))
|
||
|
|
|
||
|
|
(define (test)
|
||
|
|
(foo 30 40))
|