Work on 5.39

misc/sicp-eceval-compiler.scm

@@ -64,7 +64,7 @@
 (define eceval-operations
   (list
    ;;primitive Scheme operations
-   (list 'read read)			;used by eceval
+   (list 'read read)      ;used by eceval
 
    ;;used by compiled code
    (list 'list list)
@@ -102,7 +102,7 @@
 
    ;;operations in eceval-support.scm
    (list 'true? true?)
-   (list 'false? false?)		;for compiled code
+   (list 'false? false?)    ;for compiled code
    (list 'make-procedure make-procedure)
    (list 'compound-procedure? compound-procedure?)
    (list 'procedure-parameters procedure-parameters)
@@ -120,7 +120,7 @@
    (list 'empty-arglist empty-arglist)
    (list 'adjoin-arg adjoin-arg)
    (list 'last-operand? last-operand?)
-   (list 'no-more-exps? no-more-exps?)	;for non-tail-recursive machine
+   (list 'no-more-exps? no-more-exps?)  ;for non-tail-recursive machine
    (list 'get-global-environment get-global-environment)
 
    ;;for compiled code (also in eceval-support.scm)
@@ -133,8 +133,8 @@
 (define eceval
   (make-machine
    '(exp env val proc argl continue unev
-	 compapp			;*for compiled to call interpreted
-	 )
+   compapp      ;*for compiled to call interpreted
+   )
    eceval-operations
   '(
 ;;SECTION 5.4.4, as modified in 5.5.7
@@ -259,10 +259,10 @@ ev-appl-accum-last-arg
 apply-dispatch
   (test (op primitive-procedure?) (reg proc))
   (branch (label primitive-apply))
-  (test (op compound-procedure?) (reg proc))  
+  (test (op compound-procedure?) (reg proc))
   (branch (label compound-apply))
 ;;*next added to call compiled code from evaluator (section 5.5.7)
-  (test (op compiled-procedure?) (reg proc))  
+  (test (op compiled-procedure?) (reg proc))
   (branch (label compiled-apply))
   (goto (label unknown-procedure-type))
 
@@ -367,4 +367,4 @@ ev-definition-1
   (goto (reg continue))
    )))
 
-'(EXPLICIT CONTROL EVALUATOR FOR COMPILER LOADED)
+'(EXPLICIT CONTROL EVALUATOR FOR COMPILER LOADED)