finis coronat opus

Author: codybartfast

CMakeLists.txt

@@ -27,6 +27,7 @@ set (SRC_CORE
 	src/parser.c
 	src/pict.c
 	src/primproc.c
+	src/register.c
 	src/storage.c
 	src/strbldr.c
 	)

README.md

@@ -1,2 +1,7 @@
-# sicp-scheme
-Perhaps, eventually, a SICP Scheme interpreter.
+# SICP Exercise 5.51
+
+A solution for [SICP Exercise 5.51][ex5.51] - an interpreter that  
+supports the scheme syntax and code from the [book][book].
+
+[ex5.51]: https://mitpress.mit.edu/sites/default/files/sicp/full-text/book/book-Z-H-35.html#%_thm_5.51
+[book]: https://mitpress.mit.edu/sites/default/files/sicp/full-text/book/book.html

src/eceval.c

@@ -518,7 +518,7 @@ static obj parallel_execute(obj procs, obj env)
 	return parallel_eval(actions, env);
 }
 
-static int rand_clicks(int n)
+static int rndslices(int n)
 {
 	Integer r = plat_rand();
 	return ((r % 16) > 11) ? (r % n) + 1 : 0;
@@ -548,23 +548,20 @@ static obj parallel_eval(obj actions, obj env)
 	}
 
 	runcount = free;
-
 	while (runcount) {
 		for (i = 1; i <= free; i++) {
 			if (!running[i]) {
 				continue;
 			}
-			int clicks = rand_clicks(2);
-			for (j = 0; j < clicks; j++) {
-				obj r = ecevalgoto(getcore(i), true);
-				if (!is_yielded(r)) {
+			int nslices = rndslices(2);
+			for (j = 0; j < nslices; j++) {
+				if (!is_yielded(ecevalgoto(getcore(i), true))) {
 					running[i] = false;
 					runcount--;
 					break;
 				}
 			}
 		}
 	}
-
 	return finished;
 }

src/version.h

@@ -1 +1 @@
-#define SICP_VERSION "5.5.7.0"
+#define SICP_VERSION "5.5.7.1"

www/build

@@ -21,6 +21,7 @@
 	../sicp-scheme/src/pict.c 		\
 	../sicp-scheme/src/primproc.c 		\
 	../sicp-scheme/src/sicp.c 		\
+	../sicp-scheme/src/register.c 		\
 	../sicp-scheme/src/storage.c 		\
 	../sicp-scheme/src/strbldr.c 		\
 						\