From 2a4088119cf41175457414dfa59bd4064b8f0562 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Wed, 1 Jan 2020 17:04:37 -0800
Subject: 5852

---
 archive/2.vm/counters.mu | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 archive/2.vm/counters.mu

(limited to 'archive/2.vm/counters.mu')

diff --git a/archive/2.vm/counters.mu b/archive/2.vm/counters.mu
deleted file mode 100644
index ea2fa77d..00000000
--- a/archive/2.vm/counters.mu
+++ /dev/null
@@ -1,29 +0,0 @@
-# example program: maintain multiple counters with isolated lexical scopes
-# (spaces)
-
-def new-counter n:num -> default-space:space [
-  default-space <- new location:type, 30
-  load-inputs  # initialize n
-]
-
-def increment-counter outer:space/names:new-counter, x:num -> n:num/space:1 [
-  local-scope
-  load-inputs
-  0:space/names:new-counter <- copy outer  # setup outer space; it *must* come from 'new-counter'
-  n/space:1 <- add n/space:1, x
-]
-
-def main [
-  local-scope
-  # counter A
-  a:space/names:new-counter <- new-counter 34
-  # counter B
-  b:space/names:new-counter <- new-counter 23
-  # increment both by 2 but in different ways
-  increment-counter a, 1
-  b-value:num <- increment-counter b, 2
-  a-value:num <- increment-counter a, 1
-  # check results
-  $print [Contents of counters], 10/newline
-  $print [a: ], a-value, [ b: ], b-value, 10/newline
-]
-- 
cgit 1.4.1-2-gfad0