From 5e32c6492091e68c1265b6200802ff9081bda9de Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 21 Jun 2002 02:04:22 +0000 Subject: [PATCH] Fix pagination. --- v7/src/runtime/mit-syntax.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/mit-syntax.scm b/v7/src/runtime/mit-syntax.scm index 7f138d27b..f64414c39 100644 --- a/v7/src/runtime/mit-syntax.scm +++ b/v7/src/runtime/mit-syntax.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: mit-syntax.scm,v 14.6 2002/04/17 15:02:21 cph Exp $ +;;; $Id: mit-syntax.scm,v 14.7 2002/06/21 02:04:22 cph Exp $ ;;; ;;; Copyright (c) 1989-1991, 2001, 2002 Massachusetts Institute of Technology ;;; @@ -264,16 +264,14 @@ item))) (if (not (keyword-item? item)) (let ((history (item/history item))) - (syntax-error history - "Syntactic binding value must be a keyword:" + (syntax-error history "Syntactic binding value must be a keyword:" (history/original-form history)))) (overloaded-binding-theory environment name item history))) (define (variable-binding-theory environment name item history) (if (keyword-item? item) (let ((history (item/history item))) - (syntax-error history - "Binding value may not be a keyword:" + (syntax-error history "Binding value may not be a keyword:" (history/original-form history)))) (overloaded-binding-theory environment name item history)) -- 2.25.1