From 016b1fe5a34a90bfd9be998efde6d03a9d7a6020 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 21 Oct 1993 15:04:31 +0000 Subject: [PATCH] Fix typos. --- v7/src/runtime/unpars.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm index bb8eb8091..e0f969416 100644 --- a/v7/src/runtime/unpars.scm +++ b/v7/src/runtime/unpars.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: unpars.scm,v 14.32 1993/10/21 13:57:33 cph Exp $ +$Id: unpars.scm,v 14.33 1993/10/21 15:04:31 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -145,14 +145,14 @@ MIT in each case. |# (define (guarantee-unparser-state state procedure) (if (not (unparser-state? state)) - (error:wrong-type-argument table state "unparser state" procedure)) + (error:wrong-type-argument state "unparser state" procedure)) state) (define (with-current-unparser-state state procedure) (guarantee-unparser-state state 'WITH-CURRENT-UNPARSER-STATE) (fluid-let ((*default-list-depth* (unparser-state/list-depth state)) - (*current-unparser-table* (unparser-state/list-unparser-table state))) + (*current-unparser-table* (unparser-state/unparser-table state))) (procedure (unparser-state/port state)))) ;;;; Top Level -- 2.25.1