From f6a395bdda2011e09206dbdc53a36bf6a77d5ebf Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 20 Aug 1987 19:13:58 +0000 Subject: [PATCH] Fix expansion of DEFINE-INSTRUCTION. --- v7/src/compiler/machines/vax/dsyn.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/vax/dsyn.scm b/v7/src/compiler/machines/vax/dsyn.scm index 644781578..3189d6e59 100644 --- a/v7/src/compiler/machines/vax/dsyn.scm +++ b/v7/src/compiler/machines/vax/dsyn.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dsyn.scm,v 1.2 1987/08/20 18:03:45 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dsyn.scm,v 1.3 1987/08/20 19:13:58 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -48,9 +48,9 @@ MIT in each case. |# (macro (name . cases) (if (memq name instructions-handled-specially) ''() - (map (lambda (case) - (process-instruction-definition name case)) - cases)))) + `(begin ,@(map (lambda (case) + (process-instruction-definition name case)) + cases))))) (define (process-instruction-definition name case) (let ((prefix (cons name (find-pattern-prefix (car case)))) -- 2.25.1