From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 25 Mar 2018 15:49:44 +0000 (-0700)
Subject: Tweak CASE to use new keyword pattern.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~179
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff73a5037b3a7cbca9cb0406f65dafc9c82142e1;p=mit-scheme.git

Tweak CASE to use new keyword pattern.
---

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 3f1dbe8be..b12cc9f19 100644
--- 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))