[irc/thales.git] / test / test.scm

(define-module (test)
    #:export (frap))
(use-modules (seal))

(sealed frap
    (frap 1 => 9))
(define (frap x)
    (+ (bar x) 8))


(sealed bar
    (& 5 => 1)
    (& 3 => 9))
(define (bar y)
    (* y y))
Commit	Line	Data
9ac70e65 DB	1	(define-module (test)
	2	#:export (frap))
	3	(use-modules (seal))
1cd31c6d	4
9ac70e65 DB	5	(sealed frap
9ac70e65 DB	6	(frap 1 => 9))
1cd31c6d DB	7	(define (frap x)
	8	(+ (bar x) 8))
	9
9ac70e65 DB	10
	11
	12	(sealed bar
	13	(& 5 => 1)
	14	(& 3 => 9))
1cd31c6d DB	15	(define (bar y)
1cd31c6d DB	16	(* y y))