Corrections so that this information matches existing files.

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index ddd905c9004b5b716b7aab17469991eac85acfe5..2fbf1d7f4e79c5e1bb9ab37b6293a427e7ff3a34 100644 (file)
--- 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