about summary refs log tree commit diff stats
path: root/edit.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-05 21:17:24 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-05 21:17:24 -0700
commitb96af395b9af2ff9df94b3e82213171f30827c8d (patch)
tree17c8c12648ccc25625e2534ec8d74fbe8f1542cc /edit.mu
parent2e3b597fe85b654e82b891c22d50754fa5a26156 (diff)
downloadmu-b96af395b9af2ff9df94b3e82213171f30827c8d.tar.gz
1276 - make C++ version the default
I've tried to update the Readme, but there are at least a couple of issues.
Diffstat (limited to 'edit.mu')
-rw-r--r--edit.mu18
1 files changed, 0 insertions, 18 deletions
diff --git a/edit.mu b/edit.mu
deleted file mode 100644
index ebf43161..00000000
--- a/edit.mu
+++ /dev/null
@@ -1,18 +0,0 @@
-; a screen is an array of pointers to lines, in turn arrays of characters
-
-(function new-screen [
-  (default-space:space-address <- new space:literal 30:literal)
-  (nrows:integer <- next-input)
-  (ncols:integer <- next-input)
-  (result:screen-address <- new screen:literal nrows:integer)
-  (rowidx:integer <- copy 0:literal)
-  { begin
-    (curr-line-address-address:line-address-address <- index-address result:screen-address/deref rowidx:integer)
-    (curr-line-address-address:line-address-address/deref <- new line:literal ncols:integer)
-    (curr-line-address:line-address <- copy curr-line-address-address:line-address-address/deref)
-    (rowidx:integer <- add rowidx:integer 1:literal)
-    (x:boolean <- not-equal rowidx:integer nrows:integer)
-    (loop-if x:boolean)
-  }
-  (reply result:screen-address)
-])