Define `primitive-procedure-documentation'.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index c81eb98ac6f18bf50e9bde4cd34ff14946ef89aa..694331f8e9161254cf7d5caa0a64cbdc0a91f352 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.6 1988/08/05 20:57:12 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.7 1988/08/15 21:58:20 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -43,7 +43,8 @@ MIT in each case. |#
   scode-eval force error-procedure
   set-interrupt-enables! enable-interrupts! with-interrupt-mask
   get-fixed-objects-vector with-history-disabled
-  primitive-procedure-arity
+  (primitive-procedure-arity 1)
+  (primitive-procedure-documentation 1)
 
   ;; Environment
   lexical-reference lexical-assignment local-assignment

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 7c663acfcfce469385556244212f0112d9dc15a3..3cdc09a431bb2bc3d31e142ac53f1356dc3bbed4 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.6 1988/08/05 20:57:12 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.7 1988/08/15 21:58:20 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -43,7 +43,8 @@ MIT in each case. |#
   scode-eval force error-procedure
   set-interrupt-enables! enable-interrupts! with-interrupt-mask
   get-fixed-objects-vector with-history-disabled
-  primitive-procedure-arity
+  (primitive-procedure-arity 1)
+  (primitive-procedure-documentation 1)
 
   ;; Environment
   lexical-reference lexical-assignment local-assignment