Implement till 4.30

misc/evaluator.scm

@@ -305,9 +305,8 @@
                      '<procedure-env>))
       (display object)))
 
-(define (eval-verbose exp env)
-  (let ((output (eval exp env)))
-      (user-print output) (newline)
+(define (eval-force exp env)
+  (let ((output (actual-value exp env)))
       output))