From f6b3d28ba49aebd644f1849a78a98eb28655469f Mon Sep 17 00:00:00 2001
From: Hugo <hugo.hornquist@gmail.com>
Date: Mon, 9 May 2016 18:35:49 +0200
Subject: added small comment about what an invalid expression is

---
 math-parser.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/math-parser.scm b/math-parser.scm
index b9ef4b9..1006926 100644
--- a/math-parser.scm
+++ b/math-parser.scm
@@ -61,5 +61,7 @@
   ; in order, from outermost to innermost.
   (let* ((expr (string->list str))
          (trace ((create-trace expr '(#\+ #\- #\* #\/ #\^)) expr)))
+    ; If any operator is more than once in a row in the input, then a element becomes false 
+    ; This makes the function return false if any of the inputs are false
     (if (contains-false? trace)
       #f trace)))
-- 
cgit v1.2.3