From: Chris Hanson Date: Mon, 15 Aug 1988 21:58:20 +0000 (+0000) Subject: Define `primitive-procedure-documentation'. X-Git-Tag: 20090517-FFI~12612 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0c1ca75436c407b87b79b3123dc499cd8a8b3ea;p=mit-scheme.git Define `primitive-procedure-documentation'. --- diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm index c81eb98ac..694331f8e 100644 --- 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 7c663acfc..3cdc09a43 100644 --- 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