2 ; Used by "test-m2.krn".
7 ($cond ((not? ($binds? (get-current-environment) module-parameters))
8 (display "no parameters")
10 ((not? ($binds? module-parameters quux))
11 (display "parameters, but no quux")
14 (display "parameters")
16 ($import! module-parameters quux)