X-Git-Url: https://git.hcoop.net/clinton/guile-figl.git/blobdiff_plain/9a4a8803c3d641af8a954ee3b6046d03562d4c61..940b3bea6a7d1ac5f388bdb9a402aab94f211f0c:/figl/parse.scm

diff --git a/figl/parse.scm b/figl/parse.scm
index a31836f..132615a 100644
--- a/figl/parse.scm
+++ b/figl/parse.scm
@@ -716,9 +716,9 @@
                              (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)))))
@@ -727,9 +727,9 @@
                                  (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)))))