Fixed all tests

pyldin601 · Oct 26, 2017 · 6f6fda1 · 6f6fda1
1 parent c480fc4
commit 6f6fda1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/src/eval.ts b/src/eval.ts
@@ -96,9 +96,7 @@ const applyExpression = (expression: any, env: Env) => {
 const callMethod = (env: Env, method: string, object: any, args: any[]): any => {
   const patchedArgs = args.map(arg => {
     if (arg instanceof Lambda && !isLMType(object)) {
-      return (...innerArgs) => {
-        return evalExpression([arg, ['quote', ...innerArgs]], env);
-      };
+      return (...innerArgs) => evalExpression([arg, [new LMSymbol('quote'), ...innerArgs]], env);
     }
     return arg;
   });

diff --git a/src/list.ts b/src/list.ts
@@ -4,6 +4,7 @@ import optimizeTailCall from './optimizeTailCall';
 import { QUOTE } from './special';
 import { APOSTROPHE, CLOSE_PARENTHESIS, IToken, OPEN_PARENTHESIS } from './tokens';
 import { isList } from './util';
+import LMSymbol from "./types/LMSymbol";
 
 type IList = IToken | IToken[];
 
@@ -64,7 +65,7 @@ const postProcess = (list: IList[]): IList[] => {
     }
 
     if (head === APOSTROPHE) {
-      return iter(_.tail(tail), [...acc, [QUOTE, _.head(tail)]]);
+      return iter(_.tail(tail), [...acc, [new LMSymbol(QUOTE), _.head(tail)]]);
     }
 
     return iter(tail, [...acc, head]);