one/five.scm


1
2
3
4
5
6
7
8
9
10
11
12
13

;;; Under Creative Commons Attribution-ShareAlike 4.0
;;; International. See
;;; <https://creativecommons.org/licenses/by-sa/4.0/>.

(define-module (one five)
  #:export (p test))

(define (p) (p))

(define (test x y)
  (if (= x 0)
      0
      y))