From bad99b5e12211a11353526f0e98692cd12ecd6e3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 5 Feb 2002 17:34:04 +0000 Subject: [PATCH] Fix bug: top-level syntax definition was being loaded into global environment. --- v7/src/microcode/utabmd.scm | 33 +++++++++++++++------------------ 1 file changed, 15 insertions(+), 18 deletions(-) diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 394de31e5..c8df98849 100644 --- a/v7/src/microcode/utabmd.scm +++ b/v7/src/microcode/utabmd.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: utabmd.scm,v 9.83 2002/02/03 03:38:55 cph Exp $ +;;; $Id: utabmd.scm,v 9.84 2002/02/05 17:34:04 cph Exp $ ;;; ;;; Copyright (c) 1987-2002 Massachusetts Institute of Technology ;;; @@ -572,23 +572,20 @@ BAD-BACK-OUT ;20 )) -;;; [] System-call names - -(define-syntax ucode-primitive - (sc-macro-transformer - (lambda (form environment) - environment - (apply make-primitive-procedure (cdr form))))) - -(vector-set! (get-fixed-objects-vector) - #x09 ;(fixed-objects-vector-slot 'SYSTEM-CALL-NAMES) - ((ucode-primitive microcode-system-call-names 0))) +;;; [] System-call names and errors -;;; [] System-call errors - -(vector-set! (get-fixed-objects-vector) - #x0A ;(fixed-objects-vector-slot 'SYSTEM-CALL-ERRORS) - ((ucode-primitive microcode-system-error-names 0))) +(let-syntax + ((ucode-primitive + (sc-macro-transformer + (lambda (form environment) + environment + (apply make-primitive-procedure (cdr form)))))) + (vector-set! (get-fixed-objects-vector) + #x09 ;(fixed-objects-vector-slot 'SYSTEM-CALL-NAMES) + ((ucode-primitive microcode-system-call-names 0))) + (vector-set! (get-fixed-objects-vector) + #x0A ;(fixed-objects-vector-slot 'SYSTEM-CALL-ERRORS) + ((ucode-primitive microcode-system-error-names 0)))) ;;; [] Identification @@ -609,4 +606,4 @@ ;;; This identification string is saved by the system. -"$Id: utabmd.scm,v 9.83 2002/02/03 03:38:55 cph Exp $" +"$Id: utabmd.scm,v 9.84 2002/02/05 17:34:04 cph Exp $" -- 2.25.1