up previous next

3.7.10 Another Example Using Tags

Here is one more example using tags. Note that CoCoA commands that do not have to do with printing ignore tags.

example

    
N := Tagged(4,"Dots");
N;
4
-------------------------------
Define Print_Dots(X)
  For I := 1 To X Do
    Print "."
  EndFor
EndDefine;
N;
....
-------------------------------
N+N;  -- As long as printing is not involved, N is treated as if
      -- it has no tag.  In this case, the sum of two tagged objects
      -- returns an integer, not another tagged object.
8
-------------------------------
M := Tagged(12,"Dots");
M;
............
-------------------------------