unoidl2

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/unoidl2.git/
Log | Files | Refs
commit ab063078e9647bdd654d7afa1c833d1dba2bd815
parent 3a9fb8c8ff466de012cadf37bf34caf5cee84029
Author: Tomas Hlavaty <tom@logand.com>
Date:   Tue,  6 Dec 2011 20:43:57 +0100

print ast top level forms separately

Diffstat:

Munoidl2ast.c | 10+++++++++-


1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/unoidl2ast.c b/unoidl2ast.c
@@ -7,9 +7,17 @@ extern int yyparse();
 
 extern Any ast;
 
+void pr_all(Any x) {
+  for(; !null(x); x = cdr(x)) {
+    print(car(x));
+    printf("\n\n");
+  }
+}
+
 int main() {
   yyparse();
-  print(ast);
+  pr_all(ast);
+  //print(ast);
   printf("\n");
   return 0;
 }