Tweak CASE to use new keyword pattern.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 3f1dbe8be6f690c7d6a26b2580dd127f6af39223..b12cc9f1967d58a8f5263181d589627e599d6931 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -371,10 +371,9 @@ USA.
    (delay
      (scons-rule
         (let ((action-pattern
-               '(if (noise-keyword =>)
-                    (and (values apply)
-                         any)
-                    (and (values eval)
+               '(if (keyword =>)
+                    any
+                    (and (values begin)
                          (+ any)))))
           `(any
             (list (* (list (elt (list (elt (* any)))
@@ -416,8 +415,8 @@ USA.
                         items)))
 
           (define (process-action type exprs)
-            (cond ((eq? type 'eval) (apply scons-begin exprs))
-                  ((eq? type 'apply) (scons-call (car exprs) temp))
+            (cond ((eq? type 'begin) (apply scons-begin exprs))
+                  ((eq? type '=>) (scons-call (car exprs) temp))
                   (else (error "Unrecognized action type:" type))))
 
           (scons-let (list (list temp expr))