From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Nov 1990 06:16:39 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~11116
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c199ef88fad6ea881cf43b6b60c880ceb06f521;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/microcode/prosterm.c b/v7/src/microcode/prosterm.c
index 9622519b0..e645f2c32 100644
--- a/v7/src/microcode/prosterm.c
+++ b/v7/src/microcode/prosterm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.3 1990/11/01 04:33:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.4 1990/11/01 06:16:39 cph Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -120,7 +120,7 @@ DEFINE_PRIMITIVE ("TERMINAL-SET-STATE", Prim_terminal_set_state, 2, 2, 0)
     SCHEME_OBJECT state = (ARG_REF (2));
     if ((STRING_LENGTH (state)) != (OS_terminal_state_size ()))
       error_bad_range_arg (2);
-    OS_terminal_get_state ((arg_terminal (1)), (STRING_LOC (state, 0)));
+    OS_terminal_set_state ((arg_terminal (1)), (STRING_LOC (state, 0)));
   }
   PRIMITIVE_RETURN (UNSPECIFIC);
 }