From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 Oct 1993 15:04:31 +0000 (+0000)
Subject: Fix typos.
X-Git-Tag: 20090517-FFI~7712
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=016b1fe5a34a90bfd9be998efde6d03a9d7a6020;p=mit-scheme.git

Fix typos.
---

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