Add: "Malum consilium quod mutari non potest"

Author: codybartfast

src/version.h

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

test/code/ch5/ex5.50/ex5.50-cbf.sicp

@@ -1,3 +1,5 @@
+; (%ambeval)
+
 (load "machine-50")
 (load "compiler-50")
 (load "ec-evaluator-50")

test/code/ch5/ex5.50/mc-evaluator-50-exp.sicp

@@ -1,14 +1,14 @@
 ; #lang sicp
 
-;; Everything from mc-evaluator-50, except provide, in one big begin 
+;; Everything from mc-evaluator-50, except provide, in one big begin
 ;; expression which can be passed the compiler.
 
 ; (#%provide mc-evaluator-exp)
 
 (define mc-evaluator-exp
   '(begin
 
-     
+
      ;; 4.1.1  The Core of the Evaluator
      ;; ================================
 
@@ -23,7 +23,7 @@
               (make-procedure (lambda-parameters exp)
                               (lambda-body exp)
                               env))
-             ((begin? exp) 
+             ((begin? exp)
               (eval-sequence (begin-actions exp) env))
              ((cond? exp) (eval (cond->if exp) env))
              ((application? exp)
@@ -289,7 +289,7 @@
              (list 'list list)
              (list 'equal? equal?)
              ))
-         
+
      (define (primitive-procedure-names)
        (map car
             primitive-procedures))
@@ -322,10 +322,15 @@
      (define (driver-loop)
        (prompt-for-input input-prompt)
        (let ((input (read)))
-         (let ((output (eval input the-global-environment)))
-           (announce-output output-prompt)
-           (user-print output)))
-       (driver-loop))
+         (cond
+           ((equal? input (list 'exit))
+             (display "Malum consilium quod mutari non potest")
+             (newline))
+           (else
+             (let ((output (eval input the-global-environment)))
+               (announce-output output-prompt)
+               (user-print output)
+               (driver-loop))))))
      (define (prompt-for-input string)
        (newline) (newline) (display string) (newline))
 
@@ -341,5 +346,5 @@
            (display object)))
 
      (driver-loop)
-     
+
      ))

test/runall

@@ -13,5 +13,5 @@ run() {
 
 export -f run
 
-find $source_dir -type f -name 'ex*.sicp' | sort | while read line ; do run $line ; done
-# find $source_dir -type f -name 'ex*.sicp' -exec bash -c 'run $0' {} \;
+find $source_dir -type f -regex '.*[1234]/.*/ex.*sicp' | sort | while read line ; do run $line ; done
+# find $source_dir -type f -regex '.*[1234]/.*/ex.*sicp' -exec bash -c 'run $0' {} \;

www/build

@@ -1,4 +1,5 @@
 ../emsdk/upstream/emscripten/emcc 		\
+	../sicp-scheme/src/ambeval.c 		\
 	../sicp-scheme/src/aneval.c 		\
 	../sicp-scheme/src/bitmap.c             \
 	../sicp-scheme/src/character.c 		\