From c8334c494a5b787865a67999d9dcbdeafe92897f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 21 Dec 2001 18:28:31 +0000 Subject: [PATCH] Store macro definitions in environments rather than in syntax tables. --- v7/src/compiler/machines/vax/dsyn.scm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/v7/src/compiler/machines/vax/dsyn.scm b/v7/src/compiler/machines/vax/dsyn.scm index d231fe3d4..4db52d7d0 100644 --- a/v7/src/compiler/machines/vax/dsyn.scm +++ b/v7/src/compiler/machines/vax/dsyn.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dsyn.scm,v 1.9 2001/12/19 21:39:30 cph Exp $ +$Id: dsyn.scm,v 1.10 2001/12/21 18:28:31 cph Exp $ Copyright (c) 1987, 1989, 1999, 2001 Massachusetts Institute of Technology @@ -24,19 +24,17 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (declare (usual-integrations)) ;;;; Instruction decoding - +#| (define (initialize-package!) - (set-environment-syntax-table! - (->environment '(COMPILER DISASSEMBLER)) - (make-syntax-table (->environment '(COMPILER)))) - (syntax-table/define (->environment '(COMPILER DISASSEMBLER)) - 'DEFINE-INSTRUCTION - transform/define-instruction)) + (environment-define-macro (->environment '(COMPILER DISASSEMBLER)) + 'DEFINE-INSTRUCTION + transform/define-instruction)) +|# (define instructions-disassembled-specially '(BYTE WORD LONG BUG B BR BSB)) -(define transform/define-instruction +(define-syntax define-instruction (lambda (name . patterns) (if (memq name instructions-disassembled-specially) ''() -- 2.25.1