From 940b3bea6a7d1ac5f388bdb9a402aab94f211f0c Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 8 Feb 2013 18:52:36 +0100
Subject: [PATCH] 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.
---
 figl/parse.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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