Partially revert "typo fixes in parse.scm"

This reverts commit 940b3bea6a7d1ac5f388bdb9a402aab94f211f0c.

* figl/parse.scm (string->directions, string->transfer-types): If
  input is not a wildcard it must be within the valid-directions
  (valid-transfer-types), "expansion" is unrelated to this.

diff --git a/figl/parse.scm b/figl/parse.scm
index 132615a..a31836f 100644 (file)
--- a/figl/parse.scm
+++ b/figl/parse.scm
@@ -716,9 +716,9 @@
                              (expansion valid-directions))
   (let ((direction (string->symbol str)))
     (cond
-     ((eq? direction '*)
+     ((and (eq? direction '*) expansion)
       expansion)
-     ((memq direction expansion)
+     ((memq direction valid-directions)
       (list direction))
      (else
       (error "unknown direction" str)))))
@@ -727,9 +727,9 @@
                                  (expansion valid-transfer-types))
   (let ((trans (string->symbol str)))
     (cond
-     ((eq? trans '*)
+     ((and (eq? trans '*) expansion)
       expansion)
-     ((memq trans expansion)
+     ((memq trans valid-transfer-types)
       (list trans))
      (else
       (error "unknown transfer-type" str)))))