From f206e98cadfd98841693a7b89ea420e76e3fc7f5 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 15 Feb 1987 15:46:23 +0000 Subject: [PATCH] Change name of `compilable-primitive-functions' and `compilable-primitive-variables' to be `integrate-primitive-procedures'. --- v7/src/runtime/error.scm | 13 ++++++------- v7/src/runtime/gc.scm | 5 ++--- v7/src/runtime/hash.scm | 12 ++++++------ v7/src/runtime/histry.scm | 15 ++++++--------- v7/src/runtime/intrpt.scm | 17 ++++++++--------- v7/src/runtime/io.scm | 20 +++++++++----------- v7/src/runtime/output.scm | 5 ++--- v7/src/runtime/wind.scm | 20 ++++++++------------ 8 files changed, 47 insertions(+), 60 deletions(-) diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm index 0b5422e9f..65c86e988 100644 --- a/v7/src/runtime/error.scm +++ b/v7/src/runtime/error.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 13.42 1987/02/02 14:18:35 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 13.43 1987/02/15 15:42:08 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -20,9 +20,9 @@ ;;; future releases; and (b) to inform MIT of noteworthy uses of ;;; this software. ;;; -;;; 3. All materials developed as a consequence of the use of -;;; this software shall duly acknowledge such use, in accordance -;;; with the usual standards of acknowledging credit in academic +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with +;;; the usual standards of acknowledging credit in academic ;;; research. ;;; ;;; 4. MIT has made no warrantee or representation that the @@ -30,7 +30,7 @@ ;;; under no obligation to provide any services, by way of ;;; maintenance, update, or otherwise. ;;; -;;; 5. In conjunction with products arising from the use of this +;;; 5. In conjunction with products arising from the use of this ;;; material, there shall be no use of the name of the ;;; Massachusetts Institute of Technology nor of any adaptation ;;; thereof in any advertising, promotional, or sales literature @@ -40,7 +40,7 @@ ;;;; Error System (declare (usual-integrations) - (compilable-primitive-functions set-fixed-objects-vector!)) + (integrate-primitive-procedures set-fixed-objects-vector!)) (define error-procedure (make-primitive-procedure 'ERROR-PROCEDURE)) @@ -472,5 +472,4 @@ using the current read-eval-print environment.")) identity-procedure) ;;; end ERROR-SYSTEM package. -)) )) \ No newline at end of file diff --git a/v7/src/runtime/gc.scm b/v7/src/runtime/gc.scm index 5ee0115d7..460845c2a 100644 --- a/v7/src/runtime/gc.scm +++ b/v7/src/runtime/gc.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gc.scm,v 13.41 1987/01/23 00:13:25 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gc.scm,v 13.42 1987/02/15 15:42:33 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -40,7 +40,7 @@ ;;;; Garbage Collector (declare (usual-integrations) - (compilable-primitive-functions + (integrate-primitive-procedures garbage-collect primitive-purify primitive-impurify primitive-fasdump set-interrupt-enables! enable-interrupts! primitive-gc-type pure? get-next-constant call-with-current-continuation hunk3-cons @@ -200,4 +200,3 @@ ie))))) ;;; end GARBAGE-COLLECTOR-PACKAGE. -)) diff --git a/v7/src/runtime/hash.scm b/v7/src/runtime/hash.scm index 4c2ba7704..77991cbce 100644 --- a/v7/src/runtime/hash.scm +++ b/v7/src/runtime/hash.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/hash.scm,v 13.44 1987/02/12 09:30:28 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/hash.scm,v 13.45 1987/02/15 15:43:06 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -20,9 +20,9 @@ ;;; future releases; and (b) to inform MIT of noteworthy uses of ;;; this software. ;;; -;;; 3. All materials developed as a consequence of the use of -;;; this software shall duly acknowledge such use, in accordance -;;; with the usual standards of acknowledging credit in academic +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with +;;; the usual standards of acknowledging credit in academic ;;; research. ;;; ;;; 4. MIT has made no warrantee or representation that the @@ -30,7 +30,7 @@ ;;; under no obligation to provide any services, by way of ;;; maintenance, update, or otherwise. ;;; -;;; 5. In conjunction with products arising from the use of this +;;; 5. In conjunction with products arising from the use of this ;;; material, there shall be no use of the name of the ;;; Massachusetts Institute of Technology nor of any adaptation ;;; thereof in any advertising, promotional, or sales literature @@ -114,7 +114,7 @@ (weak-cons-type (microcode-type 'WEAK-CONS)) (snmv-type (microcode-type 'MANIFEST-SPECIAL-NM-VECTOR)) (&make-object (make-primitive-procedure '&MAKE-OBJECT))) - (declare (compilable-primitive-functions &make-object)) + (declare (integrate-primitive-procedures &make-object)) (define next-hash-number) (define hash-table-size) diff --git a/v7/src/runtime/histry.scm b/v7/src/runtime/histry.scm index 8be8a314b..acb25be16 100644 --- a/v7/src/runtime/histry.scm +++ b/v7/src/runtime/histry.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/histry.scm,v 13.41 1987/01/23 00:14:15 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/histry.scm,v 13.42 1987/02/15 15:43:36 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -20,9 +20,9 @@ ;;; future releases; and (b) to inform MIT of noteworthy uses of ;;; this software. ;;; -;;; 3. All materials developed as a consequence of the use of -;;; this software shall duly acknowledge such use, in accordance -;;; with the usual standards of acknowledging credit in academic +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with +;;; the usual standards of acknowledging credit in academic ;;; research. ;;; ;;; 4. MIT has made no warrantee or representation that the @@ -30,7 +30,7 @@ ;;; under no obligation to provide any services, by way of ;;; maintenance, update, or otherwise. ;;; -;;; 5. In conjunction with products arising from the use of this +;;; 5. In conjunction with products arising from the use of this ;;; material, there shall be no use of the name of the ;;; Massachusetts Institute of Technology nor of any adaptation ;;; thereof in any advertising, promotional, or sales literature @@ -72,7 +72,7 @@ (set-next-reduction! system-hunk3-set-cxr2!) ) -(declare (compilable-primitive-functions +(declare (integrate-primitive-procedures (make-vertebra hunk3-cons) (vertebra-rib system-hunk3-cxr0) (deeper-vertebra system-hunk3-cxr1) @@ -251,8 +251,5 @@ (define (history-untransform history) (car history)) - ;;; end HISTORY-PACKAGE. -)) - (the-environment))) \ No newline at end of file diff --git a/v7/src/runtime/intrpt.scm b/v7/src/runtime/intrpt.scm index 88173cda5..456533936 100644 --- a/v7/src/runtime/intrpt.scm +++ b/v7/src/runtime/intrpt.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/intrpt.scm,v 13.41 1987/01/23 00:14:50 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/intrpt.scm,v 13.42 1987/02/15 15:43:59 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -20,9 +20,9 @@ ;;; future releases; and (b) to inform MIT of noteworthy uses of ;;; this software. ;;; -;;; 3. All materials developed as a consequence of the use of -;;; this software shall duly acknowledge such use, in accordance -;;; with the usual standards of acknowledging credit in academic +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with +;;; the usual standards of acknowledging credit in academic ;;; research. ;;; ;;; 4. MIT has made no warrantee or representation that the @@ -30,7 +30,7 @@ ;;; under no obligation to provide any services, by way of ;;; maintenance, update, or otherwise. ;;; -;;; 5. In conjunction with products arising from the use of this +;;; 5. In conjunction with products arising from the use of this ;;; material, there shall be no use of the name of the ;;; Massachusetts Institute of Technology nor of any adaptation ;;; thereof in any advertising, promotional, or sales literature @@ -40,13 +40,13 @@ ;;;; Interrupt System (declare (usual-integrations) - (compilable-primitive-functions set-fixed-objects-vector!)) - + (integrate-primitive-procedures set-fixed-objects-vector!)) + (define with-external-interrupts-handler) (define timer-interrupt (let ((setup-timer-interrupt - (make-primitive-procedure 'setup-timer-interrupt #!TRUE))) + (make-primitive-procedure 'setup-timer-interrupt #T))) (named-lambda (timer-interrupt) (setup-timer-interrupt '() '()) (error "Unhandled Timer interrupt received")))) @@ -253,5 +253,4 @@ (vector-ref interrupt-vector CHARACTER-SLOT))))))) ;;; end INTERRUPT-SYSTEM package. -)) (the-environment))) \ No newline at end of file diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm index 716ccfdf7..d7a056577 100644 --- a/v7/src/runtime/io.scm +++ b/v7/src/runtime/io.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 13.42 1987/02/02 14:17:12 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 13.43 1987/02/15 15:44:21 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -20,9 +20,9 @@ ;;; future releases; and (b) to inform MIT of noteworthy uses of ;;; this software. ;;; -;;; 3. All materials developed as a consequence of the use of -;;; this software shall duly acknowledge such use, in accordance -;;; with the usual standards of acknowledging credit in academic +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with +;;; the usual standards of acknowledging credit in academic ;;; research. ;;; ;;; 4. MIT has made no warrantee or representation that the @@ -30,7 +30,7 @@ ;;; under no obligation to provide any services, by way of ;;; maintenance, update, or otherwise. ;;; -;;; 5. In conjunction with products arising from the use of this +;;; 5. In conjunction with products arising from the use of this ;;; material, there shall be no use of the name of the ;;; Massachusetts Institute of Technology nor of any adaptation ;;; thereof in any advertising, promotional, or sales literature @@ -58,7 +58,7 @@ (make-environment -(declare (compilable-primitive-functions +(declare (integrate-primitive-procedures (make-physical-channel hunk3-cons) (channel-descriptor system-hunk3-cxr0) (set-channel-descriptor! system-hunk3-set-cxr0!) @@ -101,8 +101,8 @@ (cdr open-files-list))))) channel)))))) -(define open-input-channel (open-channel-wrapper #!FALSE)) -(define open-output-channel (open-channel-wrapper #!TRUE)) +(define open-input-channel (open-channel-wrapper #F)) +(define open-output-channel (open-channel-wrapper #T)) ;; This is locked from interrupts, but GC can occur since the ;; procedure itself hangs on to the channel until the last moment, @@ -117,7 +117,7 @@ (lambda () (if (eq? closed-direction (set-channel-direction! channel closed-direction)) - #!TRUE ;Already closed! + #T ;Already closed! (begin (primitive (channel-descriptor channel)) (let loop ((l1 open-files-list) @@ -183,6 +183,4 @@ ))) ;; End of PRIMITIVE-IO package. ((access initialize primitive-io)) -(add-gc-daemon! (access close-lost-open-files-daemon primitive-io)) - (add-gc-daemon! (access close-lost-open-files-daemon primitive-io)) \ No newline at end of file diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm index e66798cde..7f2764d4b 100644 --- a/v7/src/runtime/output.scm +++ b/v7/src/runtime/output.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 13.41 1987/01/23 00:16:55 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 13.42 1987/02/15 15:45:07 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -144,7 +144,7 @@ (define open-output-file) (let () #| -(declare (compilable-primitive-functions file-write-char file-write-string)) +(declare (integrate-primitive-procedures file-write-char file-write-string)) |# (define file-write-char (make-primitive-procedure 'FILE-WRITE-CHAR)) @@ -323,5 +323,4 @@ (define (non-printing-object? object) (and (not (future? object)) - (eq? object *the-non-printing-object*))) ((access :flush-output port)))))) \ No newline at end of file diff --git a/v7/src/runtime/wind.scm b/v7/src/runtime/wind.scm index d88e50fdc..ab5d64ce1 100644 --- a/v7/src/runtime/wind.scm +++ b/v7/src/runtime/wind.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/wind.scm,v 13.41 1987/01/23 00:22:29 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/wind.scm,v 13.42 1987/02/15 15:46:23 cph Rel $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -20,9 +20,9 @@ ;;; future releases; and (b) to inform MIT of noteworthy uses of ;;; this software. ;;; -;;; 3. All materials developed as a consequence of the use of -;;; this software shall duly acknowledge such use, in accordance -;;; with the usual standards of acknowledging credit in academic +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with +;;; the usual standards of acknowledging credit in academic ;;; research. ;;; ;;; 4. MIT has made no warrantee or representation that the @@ -30,7 +30,7 @@ ;;; under no obligation to provide any services, by way of ;;; maintenance, update, or otherwise. ;;; -;;; 5. In conjunction with products arising from the use of this +;;; 5. In conjunction with products arising from the use of this ;;; material, there shall be no use of the name of the ;;; Massachusetts Institute of Technology nor of any adaptation ;;; thereof in any advertising, promotional, or sales literature @@ -40,8 +40,7 @@ ;;;; State Space Model (declare (usual-integrations) - (compilable-primitive-functions - set-fixed-objects-vector!)) + (integrate-primitive-procedures set-fixed-objects-vector!)) (vector-set! (get-fixed-objects-vector) (fixed-objects-vector-slot 'STATE-SPACE-TAG) @@ -56,7 +55,7 @@ (define make-state-space (let ((prim (make-primitive-procedure 'MAKE-STATE-SPACE))) (named-lambda (make-state-space #!optional mutable?) - (if (unassigned? mutable?) (set! mutable? #!true)) + (if (unassigned? mutable?) (set! mutable? #T)) (prim mutable?)))) (define execute-at-new-state-point @@ -69,7 +68,7 @@ ;;; a special case of the more general concept. (define system-state-space - (make-state-space #!false)) + (make-state-space #F)) (define current-dynamic-state (let ((prim (make-primitive-procedure 'current-dynamic-state))) @@ -97,7 +96,4 @@ (vector-set! fov (fixed-objects-vector-slot 'STATE-SPACE-ROOT) (current-dynamic-state)) - (set-fixed-objects-vector! fov)) - - (set-fixed-objects-vector! fov)) \ No newline at end of file -- 2.25.1