From 4b1b0222ebbdcd86bddf82392c7908ea78a8e921 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 6 Apr 2015 10:21:28 -0700
Subject: 1022 - make room for a 'scenario' command handler

---
 cpp/031string.mu | 29 -----------------------------
 cpp/032string.mu | 29 +++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+), 29 deletions(-)
 delete mode 100644 cpp/031string.mu
 create mode 100644 cpp/032string.mu

diff --git a/cpp/031string.mu b/cpp/031string.mu
deleted file mode 100644
index eff288eb..00000000
--- a/cpp/031string.mu
+++ /dev/null
@@ -1,29 +0,0 @@
-recipe string-equal [
-  default-space:address:space <- new location:type, 30:literal
-  a:address:array:character <- next-ingredient
-  a-len:integer <- length a:address:array:character/deref
-  b:address:array:character <- next-ingredient
-  b-len:integer <- length b:address:array:character/deref
-  # compare lengths
-  {
-    length-equal?:boolean <- equal a-len:integer, b-len:integer
-    break-if length-equal?:boolean
-    reply 0:literal
-  }
-  # compare each corresponding character
-  i:integer <- copy 0:literal
-  {
-    done?:boolean <- greater-or-equal i:integer, a-len:integer
-    break-if done?:boolean
-    a2:character <- index a:address:array:character/deref, i:integer
-    b2:character <- index b:address:array:character/deref, i:integer
-    {
-      chars-match?:boolean <- equal a2:character, b2:character
-      break-if chars-match?:boolean
-      reply 0:literal
-    }
-    i:integer <- add i:integer, 1:literal
-    loop
-  }
-  reply 1:literal
-]
diff --git a/cpp/032string.mu b/cpp/032string.mu
new file mode 100644
index 00000000..eff288eb
--- /dev/null
+++ b/cpp/032string.mu
@@ -0,0 +1,29 @@
+recipe string-equal [
+  default-space:address:space <- new location:type, 30:literal
+  a:address:array:character <- next-ingredient
+  a-len:integer <- length a:address:array:character/deref
+  b:address:array:character <- next-ingredient
+  b-len:integer <- length b:address:array:character/deref
+  # compare lengths
+  {
+    length-equal?:boolean <- equal a-len:integer, b-len:integer
+    break-if length-equal?:boolean
+    reply 0:literal
+  }
+  # compare each corresponding character
+  i:integer <- copy 0:literal
+  {
+    done?:boolean <- greater-or-equal i:integer, a-len:integer
+    break-if done?:boolean
+    a2:character <- index a:address:array:character/deref, i:integer
+    b2:character <- index b:address:array:character/deref, i:integer
+    {
+      chars-match?:boolean <- equal a2:character, b2:character
+      break-if chars-match?:boolean
+      reply 0:literal
+    }
+    i:integer <- add i:integer, 1:literal
+    loop
+  }
+  reply 1:literal
+]
-- 
cgit 1.4.1-2-gfad0