From ff73a5037b3a7cbca9cb0406f65dafc9c82142e1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 25 Mar 2018 08:49:44 -0700 Subject: [PATCH] Tweak CASE to use new keyword pattern. --- src/runtime/mit-macros.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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)) -- 2.25.1