test-m1.krn

   1 ;
   2 ; Used by "test-m2.krn".
   3 ;
   4
   5 ($define! foo
   6    ($lambda ()
   7       ($cond ((not? ($binds? (get-current-environment) module-parameters))
   8                 (display "no parameters")
   9                 (newline))
  10              ((not? ($binds? module-parameters quux))
  11                 (display "parameters, but no quux")
  12                 (newline))
  13              (#t
  14                 (display "parameters")
  15                 (newline)
  16                 ($import! module-parameters quux)
  17                 quux))))