summaryrefslogtreecommitdiffstats
path: root/t/t4034/scheme/post
blob: 450cc234f75aeafc06a344530167c3b799b56433 (plain)
1
2
3
4
5
6
7
(define (my-func first second)
  ; This is a (moderately) cool function.
  (that\place (+ 3 4))
  (define |a \greeting| |hello there|)
  ({(([(func-n)]))})
  (let ((c (add1 first)))
    (format "one more than the total is %d" (+ c second))))