From cc99c9c508fffb1ab05a6084cc1d199ee1b148cf Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 1995 02:49:52 +0000
Subject: [PATCH] Corrections so that this information matches existing files.

---
 v7/src/runtime/ed-ffi.scm | 40 +++++++++++++++++++++++----------------
 1 file changed, 24 insertions(+), 16 deletions(-)

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index ddd905c90..2fbf1d7f4 100644
--- a/v7/src/runtime/ed-ffi.scm
+++ b/v7/src/runtime/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*- Scheme -*-
 
-$Id: ed-ffi.scm,v 1.12 1995/04/13 22:24:43 cph Exp $
+$Id: ed-ffi.scm,v 1.13 1995/10/25 02:49:52 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -40,12 +40,14 @@ MIT in each case. |#
  '#(
     ("advice"	(runtime advice)
 		syntax-table/system-internal)
+    ("apply"	(runtime apply)
+		syntax-table/system-internal)
+    ("apropos"	(runtime apropos)
+		syntax-table/system-internal)
     ("arith"	(runtime number)
 		syntax-table/system-internal)
     ("bitstr"	()
 		syntax-table/system-internal)
-    ("binut"	(runtime pc-sample)
-		syntax-table/system-internal)
     ("boole"	()
 		syntax-table/system-internal)
     ("boot"	()
@@ -62,21 +64,25 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("cpoint"	(runtime control-point)
 		syntax-table/system-internal)
+    ("cpress"	(runtime compress)
+		syntax-table/system-internal)
     ("datime"	(runtime date/time)
 		syntax-table/system-internal)
     ("dbgcmd"	(runtime debugger-command-loop)
 		syntax-table/system-internal)
     ("dbgutl"	(runtime debugger-utilities)
 		syntax-table/system-internal)
+    ("debug"	(runtime debugger)
+		syntax-table/system-internal)
+    ("defstr"	(runtime defstruct)
+		syntax-table/system-internal)
     ("dosdir"	(runtime directory)
 		syntax-table/system-internal)
     ("dosprm"	()
 		syntax-table/system-internal)
-    ("dospth"	(runtime pathname dos)
-		syntax-table/system-internal)
-    ("debug"	(runtime debugger)
+    ("dosproc"	()
 		syntax-table/system-internal)
-    ("defstr"	(runtime defstruct)
+    ("dospth"	(runtime pathname dos)
 		syntax-table/system-internal)
     ("dragon4"	(runtime number)
 		syntax-table/system-internal)
@@ -134,6 +140,8 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("krypt"	(runtime krypt)
 		syntax-table/system-internal)
+    ("kryptdum"	(runtime krypt)
+		syntax-table/system-internal)
     ("lambda"	(runtime lambda-abstraction)
 		syntax-table/system-internal)
     ("lambdx"	()
@@ -152,6 +160,8 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("option"	(runtime options)
 		syntax-table/system-internal)
+    ("ordvec"	(runtime ordered-vector)
+		syntax-table/system-internal)
     ("os2ctype"	(runtime os2-graphics)
 		syntax-table/system-internal)
     ("os2dir"	(runtime directory)
@@ -172,14 +182,6 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("pathnm"	(runtime pathname)
 		syntax-table/system-internal)
-    ("pcsample" (runtime pc-sample)
-		syntax-table/system-internal)
-    ("pcscobl"  (runtime pc-sample  code-blocks)
-		syntax-table/system-internal)
-    ("pcsdisp"  (runtime pc-sample display)
-		syntax-table/system-internal)
-    ("pcsiproc" (runtime pc-sample interp-procs)
-		syntax-table/system-internal)
     ("poplat"	(runtime population)
 		syntax-table/system-internal)
     ("port"	(runtime port)
@@ -200,6 +202,8 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("random"	(runtime random-number)
 		syntax-table/system-internal)
+    ("rbtree"	(runtime rb-tree)
+		syntax-table/system-internal)
     ("record"	(runtime record)
 		syntax-table/system-internal)
     ("rep"	(runtime rep)
@@ -230,6 +234,8 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("strout"	(runtime string-output)
 		syntax-table/system-internal)
+    ("symbol"	()
+		syntax-table/system-internal)
     ("syntab"	(runtime syntax-table)
 		syntax-table/system-internal)
     ("syntax"	(runtime syntaxer)
@@ -280,9 +286,11 @@ MIT in each case. |#
 		syntax-table/system-internal)
     ("wrkdir"	(runtime working-directory)
 		syntax-table/system-internal)
+    ("wttree"	(runtime wt-tree)
+		syntax-table/system-internal)
     ("x11graph"	(runtime X-graphics)
 		syntax-table/system-internal)
     ("xeval"	(runtime extended-scode-eval)
 		syntax-table/system-internal)
-    ("xeval"	(runtime stepper)
+    ("ystep"	(runtime stepper)
 		syntax-table/system-internal)))
\ No newline at end of file
-- 
2.25.1