about summary refs log tree commit diff stats
path: root/counters.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-13 10:03:26 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-13 10:03:26 -0700
commit5497090aa1e708c22cd240913a53dda32bb067aa (patch)
tree5a9eb76d447736a8199230c9386bd0a374b325dd /counters.mu
parent01caf342d072115c27926b1a61c2fc75ab9fbee0 (diff)
downloadmu-5497090aa1e708c22cd240913a53dda32bb067aa.tar.gz
1363 - rename 'integer' to 'number'
..now that we support non-integers.
Diffstat (limited to 'counters.mu')
-rw-r--r--counters.mu14
1 files changed, 7 insertions, 7 deletions
diff --git a/counters.mu b/counters.mu
index ef841400..71d9cfc9 100644
--- a/counters.mu
+++ b/counters.mu
@@ -3,16 +3,16 @@
 
 recipe init-counter [
   default-space:address:array:location <- new location:type, 30:literal
-  n:integer <- next-ingredient
+  n:number <- next-ingredient
   reply default-space:address:space
 ]
 
 recipe increment-counter [
   default-space:address:array:location <- new location:type, 30:literal
   0:address:array:location/names:init-counter <- next-ingredient  # setup outer space; it *must* come from 'init-counter'
-  x:integer <- next-ingredient
-  n:integer/space:1 <- add n:integer/space:1, x:integer
-  reply n:integer/space:1
+  x:number <- next-ingredient
+  n:number/space:1 <- add n:number/space:1, x:number
+  reply n:number/space:1
 ]
 
 recipe main [
@@ -23,12 +23,12 @@ recipe main [
   b:address:space <- init-counter 23:literal
   # increment both by 2 but in different ways
   increment-counter a:address:space, 1:literal
-  b-value:integer <- increment-counter b:address:space, 2:literal
-  a-value:integer <- increment-counter a:address:space, 1:literal
+  b-value:number <- increment-counter b:address:space, 2:literal
+  a-value:number <- increment-counter a:address:space, 1:literal
   # check results
   $print [Contents of counters
 ]
   # trailing space in next line is to help with syntax highlighting
-  $print [a: ], a-value:integer, [ b: ], b-value:integer, [ 
+  $print [a: ], a-value:number, [ b: ], b-value:number, [ 
 ]
 ]