← Back to branch summary

~ubuntu-branches/ubuntu/trusty/picolisp/trusty

« back to all changes in this revision

Viewing changes to ersatz/sys.src

  • Committer: Bazaar Package Importer
  • Author(s): Kan-Ru Chen
  • Date: 2011-07-11 17:48:35 UTC
  • Revision ID: james.westby@ubuntu.com-20110711174835-dwmwfgj6yfpny222
Tags: 3.0.7.2-2
* Sync to upstream tip.
* Drop two unused patches.

Show diffs side-by-side

added added

removed removed

Lines of Context:
ersatz/sys.src
1
 
// 01mar11abu
 
1
// 09jul11abu
2
2
// (c) Software Lab. Alexander Burger
3
3
 
4
4
import java.util.*;
243
243
               n += b[i];
244
244
         }
245
245
      }
246
 
      return n;
 
246
      return n>=0? n*2 : -n*2+1;
247
247
   }
248
248
 
249
249
   final static Any date(int y, int m, int d) {
574
574
      return null;
575
575
   }
576
576
 
577
 
   final static Any mkChar(char c) {return new Symbol(null, "" + c);}
 
577
   final static Any mkChar(int c) {return new Symbol(null, "" + (char)(c >= 0x10000? 0xFFFF : c));}
578
578
   final static Any mkStr(String nm) {return nm == null || nm.length() == 0? Nil : new Symbol(null, nm);}
579
579
   final static Any mkStr(StringBuilder sb) {return mkStr(sb.toString());}
580
580
   final static Symbol mkSymbol(Any val) {return new Symbol(val, null);}