commit a4a75a9ec2204d6f1132fa6781988a9947278c11
parent 4e5a57e516f9e20336cf7afe3101fe864977b2bd
Author: Tomas Hlavaty <tom@logand.com>
Date: Thu, 14 Oct 2010 22:11:40 +0200
mess up fix
Diffstat:
M | wl.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(')');