unoidl2

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/unoidl2.git/
Log | Files | Refs

commit 5e36fa7d4c51988107c91770a2e72644934550f7
parent e3d6411fcbf70f92473ff3d6ae464e445acc3227
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu,  8 Dec 2011 00:01:47 +0100

code formatting

Diffstat:
Munoidl2.c | 15+++++----------
1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/unoidl2.c b/unoidl2.c @@ -48,18 +48,15 @@ char *token(Any x) {return x->u.t.token;} Any cons3(Any a, Any b, Any c) {return cons(a, cons(b, c));} Any cons4(Any a, Any b, Any c, Any d) {return cons(a, cons(b, cons(c, d)));} -Any cons5(Any a, Any b, Any c, Any d, Any e) -{ +Any cons5(Any a, Any b, Any c, Any d, Any e) { return cons(a, cons(b, cons(c, cons(d, e)))); } -Any cons6(Any a, Any b, Any c, Any d, Any e, Any f) -{ +Any cons6(Any a, Any b, Any c, Any d, Any e, Any f) { return cons(a, cons(b, cons(c, cons(d, cons(e, f))))); } -Any cons7(Any a, Any b, Any c, Any d, Any e, Any f, Any g) -{ +Any cons7(Any a, Any b, Any c, Any d, Any e, Any f, Any g) { return cons(a, cons(b, cons(c, cons(d, cons(e, cons(f, g)))))); } @@ -69,13 +66,11 @@ Any list3(Any a, Any b, Any c) {return cons4(a, b, c, NIL);} Any list4(Any a, Any b, Any c, Any d) {return cons5(a, b, c, d, NIL);} Any list5(Any a, Any b, Any c, Any d, Any e) {return cons6(a, b, c, d, e, NIL);} -Any list6(Any a, Any b, Any c, Any d, Any e, Any f) -{ +Any list6(Any a, Any b, Any c, Any d, Any e, Any f) { return cons7(a, b, c, d, e, f, NIL); } -Any nconc2(Any a, Any b) -{ +Any nconc2(Any a, Any b) { if(null(a)) return b; Any x, d;