From a96b6faa93c5930a351e1f0058e8559c0fef2265 Mon Sep 17 00:00:00 2001
From: Pekka Laiho <pekka.i.laiho@gmail.com>
Date: Sat, 5 Dec 2020 09:57:54 +0700
Subject: [PATCH] allow function arguments as a vector (Clojure style)

---
 README.md       | 2 +-
 src/Evaller.php | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 9e1a89f..3331bfd 100644
--- a/README.md
+++ b/README.md
@@ -149,7 +149,7 @@ def   | `(def addOne (fn (a) (+ a 1)))` | `<function>` | Define a value in the c
 do    | `(do (print 1) 2)` | `12` | Evaluate multiple expressions and return the value of the last.
 env   | `(env +)` | `<function>` | Return a definition from the current environment represented by argument. Without arguments return the current environment as a hash-map.
 eval  | `(eval (quote (+ 1 2)))` | `3` | Evaluate the argument.
-fn    | `(fn (a b) (+ a b))` | `<function>` | Create a function.
+fn    | `(fn (a b) (+ a b))` | `<function>` | Create a function. Arguments can also be given as a vector instead of a list.
 if    | `(if (< 1 2) "yes" "no")` | `"yes"` | If the first argument evaluates to true, evaluate and return the second argument, otherwise the third argument. If the third argument is omitted return `null` in its place.
 let   | `(let (a (+ 1 2)) a)` | `3` | Create a new local environment using the first argument (list) to define values. Odd arguments are treated as keys and even arguments are treated as values. The last argument is the body of the let-expression which is evaluated using this new environment.
 load  | `(load "file.mad")` | | Read and evaluate a file. The contents are implicitly wrapped in a `do` expression.
diff --git a/src/Evaller.php b/src/Evaller.php
index e430bd0..9da791d 100644
--- a/src/Evaller.php
+++ b/src/Evaller.php
@@ -138,8 +138,8 @@ class Evaller
                         throw new MadLispException("fn requires exactly 2 arguments");
                     }
 
-                    if (!($astData[1] instanceof MList)) {
-                        throw new MadLispException("first argument to fn is not list");
+                    if (!($astData[1] instanceof Seq)) {
+                        throw new MadLispException("first argument to fn is not seq");
                     }
 
                     $bindings = $astData[1]->getData();