aop-r7rs/aop/3.sld

(define-library (aop 3)
  (import (scheme base))
  (export add1 sub1)
  (begin
    (define (add1 n)
      (+ n 1))

    (define (sub1 n)
      (- n 1))))