blob: f3879192deaeb6239840ac3e02c4951d7ba6cfba (
plain) (
blame)
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 (net ricketyspace sicp one five)
#:export (p test))
(define (p) (p))
(define (test x y)
(if (= x 0)
0
y))
|