t/t4034/scheme/pre


1
2
3
4
5
6

(define (myfunc a b)
  ; This is a really cool function.
  (this\place (+ 3 4))
  (define some-text "hello")
  (let ((c (+ a b)))
    (format "one more than the total is %d" (add1 c))))