test/test.scm

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