From 31187dc40eccc19d8caa4803adc21912e971784f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 20 Dec 2001 20:38:29 +0000 Subject: [PATCH] Eliminate definition of SCODE-QUOTE. --- v7/src/runtime/syntax.scm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm index 38dfe238e..775cbdb03 100644 --- a/v7/src/runtime/syntax.scm +++ b/v7/src/runtime/syntax.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: syntax.scm,v 14.43 2001/12/20 18:05:34 cph Exp $ +$Id: syntax.scm,v 14.44 2001/12/20 20:38:29 cph Exp $ Copyright (c) 1988-2001 Massachusetts Institute of Technology @@ -78,8 +78,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA (DECLARE ,syntax/declare) (FLUID-LET ,syntax/fluid-let) (LOCAL-DECLARE ,syntax/local-declare) - (NAMED-LAMBDA ,syntax/named-lambda) - (SCODE-QUOTE ,syntax/scode-quote)))) + (NAMED-LAMBDA ,syntax/named-lambda)))) ;;;; Top Level Syntaxers @@ -274,10 +273,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ;;;; Basic Syntax -(define (syntax/scode-quote top-level? expression) - top-level? - (make-quotation (syntax-subexpression expression))) - (define (syntax/quote top-level? expression) top-level? expression) -- 2.25.1