examples/passBy.spl

   1 //modify1(s) :: [Char] -> [Char] {
   2 //    //s.hd = 'a';
   3 //    s.tl = [];
   4 //    return s;
   5 //}//
   6
   7 //modify2(c) :: Char -> Void {
   8 //    c = 'a';
   9 //}//
  10
  11 //main() {
  12 //    var zs = "bar";
  13 //    var zc = 'b';
  14 //    var zss = modify1(zs);
  15 //    modify2(zc);//
  16
  17 //    print("zs was bar, is now: ");
  18 //    print(zs);
  19 //    print(", m1 returned: ");
  20 //    print(zss);
  21 //    print("\n");
  22 //    print("zc was 'b', is now: ", zc, "\n");
  23 //}
  24
  25 modi(t) :: (Int,Int) -> Void {
  26     t.fst = 1;
  27 }
  28
  29 main() {
  30     var x = (2,3);
  31     print(x.fst);
  32     modi(x);
  33     print(x.fst);
  34 }