From: Andy Wingo <wingo@pobox.com>
Date: Fri, 8 Feb 2013 17:52:36 +0000 (+0100)
Subject: typo fixes in parse.scm
X-Git-Url: https://git.hcoop.net/clinton/guile-figl.git/commitdiff_plain/940b3bea6a7d1ac5f388bdb9a402aab94f211f0c

typo fixes in parse.scm

* figl/parse.scm (string->directions, string->transfer-types): Fix what
  appear to be a couple of typos.  Please revert if this is not
  correct.
---

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)))))