wl

Unnamed repository; edit this file 'description' to name the repository.
git clone https://logand.com/git/wl.git/
Log | Files | Refs | LICENSE

commit a4a75a9ec2204d6f1132fa6781988a9947278c11
parent 4e5a57e516f9e20336cf7afe3101fe864977b2bd
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 14 Oct 2010 22:11:40 +0200

mess up fix

Diffstat:
Mwl.java | 60++++++++++++++++++++++++++++++------------------------------
1 file changed, 30 insertions(+), 30 deletions(-)

diff --git a/wl.java b/wl.java @@ -1344,36 +1344,6 @@ class wl implements Runnable { Any L = eval(I.cdr().car()); return X.prop(L); }}); - } - - class Exc extends RuntimeException { - Any C, M; - public Exc(Any c, Any m) {C = c; M = m;} - public String toString() {return str(C) + " -- " + str(M);} - public Any cnd() {return C;} - public Any msg() {return M;} - } - - void print(Any E) { - PrintStream S = (PrintStream) Out.val().obj(); - if(E.isCons()) { - Any X = E; - if(Qte == X.car()) { - S.print('\''); - print(X.cdr()); - } else { - S.print('('); - while(X.isCons()) { - print(X.car()); - X = X.cdr(); - if(NIL != X) S.print(' '); - if(E == X) { - S.print('.'); - break; - } - } - if(NIL != X && E != X) { - S.print(". "); // optimization by native code rewrite // @@ -1473,6 +1443,36 @@ class wl implements Runnable { Any N = eval(E.cdr().car()); return mkObj(fibo((BigInteger) N.obj())); } + } + + class Exc extends RuntimeException { + Any C, M; + public Exc(Any c, Any m) {C = c; M = m;} + public String toString() {return str(C) + " -- " + str(M);} + public Any cnd() {return C;} + public Any msg() {return M;} + } + + void print(Any E) { + PrintStream S = (PrintStream) Out.val().obj(); + if(E.isCons()) { + Any X = E; + if(Qte == X.car()) { + S.print('\''); + print(X.cdr()); + } else { + S.print('('); + while(X.isCons()) { + print(X.car()); + X = X.cdr(); + if(NIL != X) S.print(' '); + if(E == X) { + S.print('.'); + break; + } + } + if(NIL != X && E != X) { + S.print(". "); print(X); } S.print(')');