aux-libs.scm 228 B

12345678910111213
  1. (define-library (lib2)
  2. (import (scheme base))
  3. (export twice)
  4. (begin
  5. (define (twice n)
  6. (* n 2))))
  7. (define-library (lib3)
  8. (import (scheme base))
  9. (export thrice)
  10. (begin
  11. (define (thrice n)
  12. (* n 3))))