From 90714dd6c40832504f65ccd2325a3ef3b7d878c1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 1 Jan 1987 16:55:28 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/compiler/base/macros.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/base/macros.scm b/v7/src/compiler/base/macros.scm index 19c74be02..0b0d67598 100644 --- a/v7/src/compiler/base/macros.scm +++ b/v7/src/compiler/base/macros.scm @@ -37,7 +37,7 @@ ;;;; Compiler Macros -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 1.54 1986/12/21 14:52:26 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 1.55 1987/01/01 16:55:28 cph Exp $ (declare (usual-integrations)) @@ -244,8 +244,7 @@ (syntax-table-define (access compiler-syntax-table compiler-package) 'UCODE-TYPE (macro (name) - (or (microcode-type name) - (error "Unknown type code" name)))) + (microcode-type name))) (syntax-table-define (access compiler-syntax-table compiler-package) 'UCODE-PRIMITIVE -- 2.25.1