klisp

commit f9f3fdc53469d08641e5048f104d6dbb9beb60e2
parent 6d517487676285570090eede1d29c6709b8de283
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 21 Oct 2011 13:28:46 -0300

Merged the last batch of bugfixes, tests, and additions by Oto Havle.

Diffstat:
M
src/kscript.c
 | 
2
++
M
src/tests/test-all.k
 | 
3
+--

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/kscript.c b/src/kscript.c
@@ -259,6 +259,8 @@ int kscript_eat_directive(FILE *fr)
     return 1;
   } else {
     ungetc(c, fr);
+    /* XXX/Temp notice that the standard doesn't guarantee that more than one
+       ungetc in a row will be honored. Andres Navarro */
     while (n > 0)
       ungetc(pattern[--n], fr);
     return 0;
diff --git a/src/tests/test-all.k b/src/tests/test-all.k
@@ -17,4 +17,4 @@
 (load "tests/numbers.k")
 (load "tests/ports.k")
 
-(check-report)
-\ No newline at end of file
+(check-report)