;;; -*-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
;;;
;;; 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
;;; 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
;;;; Error System
(declare (usual-integrations)
- (compilable-primitive-functions set-fixed-objects-vector!))
+ (integrate-primitive-procedures set-fixed-objects-vector!))
\f
(define error-procedure
(make-primitive-procedure 'ERROR-PROCEDURE))
identity-procedure)
;;; end ERROR-SYSTEM package.
-))
))
\ No newline at end of file
;;; -*-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
;;;
;;;; 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
ie)))))
;;; end GARBAGE-COLLECTOR-PACKAGE.
-))
;;; -*-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
;;;
;;; 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
;;; 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
(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)
;;; -*-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
;;;
;;; 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
;;; 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
(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)
(define (history-untransform history)
(car history))
-\f
;;; end HISTORY-PACKAGE.
-))
-
(the-environment)))
\ No newline at end of file
;;; -*-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
;;;
;;; 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
;;; 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
;;;; Interrupt System
(declare (usual-integrations)
- (compilable-primitive-functions set-fixed-objects-vector!))
-
+ (integrate-primitive-procedures set-fixed-objects-vector!))
+\f
(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"))))
(vector-ref interrupt-vector CHARACTER-SLOT)))))))
;;; end INTERRUPT-SYSTEM package.
-))
(the-environment)))
\ No newline at end of file
;;; -*-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
;;;
;;; 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
;;; 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
(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!)
(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,
(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)
))) ;; 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
;;; -*-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
;;;
(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))
(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
;;; -*-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
;;;
;;; 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
;;; 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
;;;; State Space Model
(declare (usual-integrations)
- (compilable-primitive-functions
- set-fixed-objects-vector!))
+ (integrate-primitive-procedures set-fixed-objects-vector!))
\f
(vector-set! (get-fixed-objects-vector)
(fixed-objects-vector-slot 'STATE-SPACE-TAG)
(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
;;; 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)))
(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
projects / mit-scheme.git / commitdiff