Lines Matching refs:phase
1 (module phase+space '#%kernel
4 (#%provide phase?
6 phase+space
7 phase+space?
8 phase+space-shift?
9 phase+space-phase
10 phase+space-space
11 phase+space+
12 phase+space-shift+)
14 (define-values (phase?)
29 (define-values (phase+space?)
31 (or (phase? v)
34 (phase? (car v))))))
36 (define-values (phase+space)
37 (lambda (phase space)
41 (if (phase? phase)
43 (raise-argument-error 'phase+space "phase?" phase))
46 (raise-argument-error 'phase+space "space?" space))))
48 (cons phase space)
49 phase)))
51 (define-values (phase+space-shift?)
53 (or (phase? v)
57 (phase? (car v))))))
59 (define-values (phase+space-phase)
63 (if (phase+space? p+s)
65 (raise-argument-error 'phase+space-phase "phase+space?" p+s)))
68 (define-values (phase+space-space)
72 (if (phase+space? p+s)
74 (raise-argument-error 'phase+space-space "phase+space?" p+s)))
77 (define-values (phase+space+)
82 (if (phase+space? p+s)
84 (raise-argument-error 'phase+space+ "phase+space?" p+s))
85 (if (phase+space-shift? s)
87 (raise-argument-error 'phase+space+ "phase+space-shift?" s))))
97 (define-values (phase+space-shift+)
102 (if (phase+space-shift? s1)
104 (raise-argument-error 'phase+space+ "phase+space-shift?" s1))
105 (if (phase+space-shift? s2)
107 (raise-argument-error 'phase+space+ "phase+space-shift?" s2))))