#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.37 1992/05/26 19:34:04 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.38 1992/07/21 04:24:07 cph Exp $
Copyright (c) 1988-92 Massachusetts Institute of Technology
(define (undefined-value? object)
;; Note: the unparser takes advantage of the fact that objects
;; satisfying this predicate also satisfy:
- ;; (object-type? (microcode-type 'TRUE) object)
+ ;; (object-type? (microcode-type 'CONSTANT) object)
(or (eq? object undefined-conditional-branch)
;; same as `undefined-conditional-branch'.
;; (eq? object *the-non-printing-object*)
;; (eq? object unspecific)
(eq? object (microcode-object/unassigned))))
-(define *the-non-printing-object*
- (object-new-type (ucode-type true) 1))
-
(define unspecific
- (object-new-type (ucode-type true) 1))
+ (object-new-type (microcode-type 'CONSTANT) 1))
+
+(define *the-non-printing-object*
+ unspecific)
(define (obarray->list #!optional obarray)
(let ((table (if (default-object? obarray)
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 14.17 1991/11/26 07:06:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 14.18 1992/07/21 04:24:43 cph Exp $
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
(char-set #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9
#\+ #\- #\. #\#)))
- (set! lambda-optional-tag (object-new-type (ucode-type true) 3))
- (set! lambda-rest-tag (object-new-type (ucode-type true) 4))
+ (set! lambda-optional-tag (object-new-type (microcode-type 'CONSTANT) 3))
+ (set! lambda-rest-tag (object-new-type (microcode-type 'CONSTANT) 4))
(set! dot-symbol (intern "."))
(set! named-objects
`((NULL . ,(list))
(define (collect-list/list-close)
(discard-char)
- '())
+ (list))
(define ignore-extra-list-closes
true)
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 14.10 1991/02/15 18:07:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 14.11 1992/07/21 04:25:13 cph Exp $
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
(object-type? (ucode-type conditional) object))
(define undefined-conditional-branch
- (object-new-type (ucode-type true) 1))
+ (object-new-type (microcode-type 'CONSTANT) 1))
(define-integrable (conditional-predicate conditional)
(&triple-first conditional))
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.25 1991/10/29 13:31:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.26 1992/07/21 04:25:47 cph Exp $
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
(ic-environment/set-parent! environment null-environment))
(define null-environment
- (object-new-type (ucode-type null) 1))
+ (object-new-type (microcode-type 'NULL) 1))
(define (make-null-interpreter-environment)
(let ((environment (let () (the-environment))))
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.26 1992/03/25 21:58:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.27 1992/07/21 04:26:40 cph Exp $
Copyright (c) 1988-92 Massachusetts Institute of Technology
(CHARACTER ,unparse/character)
(COMPILED-ENTRY ,unparse/compiled-entry)
(COMPLEX ,unparse/number)
+ (CONSTANT ,unparse/constant)
(ENTITY ,unparse/entity)
(ENVIRONMENT ,unparse/environment)
(EXTENDED-PROCEDURE ,unparse/compound-procedure)
- (FIXNUM ,unparse/number)
(FLONUM ,unparse/flonum)
(FUTURE ,unparse/future)
(INTERNED-SYMBOL ,unparse/interned-symbol)
(LIST ,unparse/pair)
+ (NEGATIVE-FIXNUM ,unparse/number)
(NULL ,unparse/null)
+ (POSITIVE-FIXNUM ,unparse/number)
(PRIMITIVE ,unparse/primitive-procedure)
(PROCEDURE ,unparse/compound-procedure)
(RATNUM ,unparse/number)
(RETURN-ADDRESS ,unparse/return-address)
(STRING ,unparse/string)
- (TRUE ,unparse/true)
(UNINTERNED-SYMBOL ,unparse/uninterned-symbol)
(VARIABLE ,unparse/variable)
(VECTOR ,unparse/vector)
type-name)))
(define renamed-user-object-types
- '((FIXNUM . NUMBER)
+ '((NEGATIVE-FIXNUM . NUMBER)
+ (POSITIVE-FIXNUM . NUMBER)
(BIGNUM . NUMBER)
(FLONUM . NUMBER)
(COMPLEX . NUMBER)
(*unparse-string "#f")
(unparse/default object))))
-(define (unparse/true object)
- (cond ((eq? object #t) (*unparse-string "#t"))
+(define (unparse/constant object)
+ (cond ((not object) (*unparse-string "#f"))
+ ((null? object) (*unparse-string "()"))
+ ((eq? object #t) (*unparse-string "#t"))
((undefined-value? object) (*unparse-string "#[undefined-value]"))
((eq? object lambda-optional-tag) (*unparse-string "#!optional"))
((eq? object lambda-rest-tag) (*unparse-string "#!rest"))
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.37 1992/05/26 19:34:04 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.38 1992/07/21 04:24:07 cph Exp $
Copyright (c) 1988-92 Massachusetts Institute of Technology
(define (undefined-value? object)
;; Note: the unparser takes advantage of the fact that objects
;; satisfying this predicate also satisfy:
- ;; (object-type? (microcode-type 'TRUE) object)
+ ;; (object-type? (microcode-type 'CONSTANT) object)
(or (eq? object undefined-conditional-branch)
;; same as `undefined-conditional-branch'.
;; (eq? object *the-non-printing-object*)
;; (eq? object unspecific)
(eq? object (microcode-object/unassigned))))
-(define *the-non-printing-object*
- (object-new-type (ucode-type true) 1))
-
(define unspecific
- (object-new-type (ucode-type true) 1))
+ (object-new-type (microcode-type 'CONSTANT) 1))
+
+(define *the-non-printing-object*
+ unspecific)
(define (obarray->list #!optional obarray)
(let ((table (if (default-object? obarray)
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.25 1991/10/29 13:31:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.26 1992/07/21 04:25:47 cph Exp $
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
(ic-environment/set-parent! environment null-environment))
(define null-environment
- (object-new-type (ucode-type null) 1))
+ (object-new-type (microcode-type 'NULL) 1))
(define (make-null-interpreter-environment)
(let ((environment (let () (the-environment))))
projects / mit-scheme.git / commitdiff