* figl/parse.scm (string->directions, string->transfer-types): Fix what
appear to be a couple of typos. Please revert if this is not
correct.
(expansion valid-directions))
(let ((direction (string->symbol str)))
(cond
- ((and (eq? direction '*) expansion)
+ ((eq? direction '*)
expansion)
- ((memq direction valid-directions)
+ ((memq direction expansion)
(list direction))
(else
(error "unknown direction" str)))))
(expansion valid-transfer-types))
(let ((trans (string->symbol str)))
(cond
- ((and (eq? trans '*) expansion)
+ ((eq? trans '*)
expansion)
- ((memq trans valid-transfer-types)
+ ((memq trans expansion)
(list trans))
(else
(error "unknown transfer-type" str)))))