From: Chris Hanson Date: Thu, 10 Aug 1989 11:05:29 +0000 (+0000) Subject: Change unparsers so that type names are printed in the standard case X-Git-Tag: 20090517-FFI~11853 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a892a3d50fa7abdcb19c8b9dda35928fb938a4a6;p=mit-scheme.git Change unparsers so that type names are printed in the standard case for symbols. --- diff --git a/v7/src/compiler/base/blocks.scm b/v7/src/compiler/base/blocks.scm index 13065a2cb..0a9167ee8 100644 --- a/v7/src/compiler/base/blocks.scm +++ b/v7/src/compiler/base/blocks.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/blocks.scm,v 4.10 1989/04/21 16:58:46 markf Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/blocks.scm,v 4.11 1989/08/10 11:05:07 cph Exp $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -110,7 +110,8 @@ from the continuation, and then "glued" into place afterwards. (define-vector-tag-unparser block-tag (lambda (state block) ((standard-unparser - "BLOCK" (lambda (state block) + (symbol->string 'BLOCK) + (lambda (state block) (unparse-object state (enumeration/index->name block-types (block-type block))) diff --git a/v7/src/compiler/base/ctypes.scm b/v7/src/compiler/base/ctypes.scm index db9fbdaae..5491f7c74 100644 --- a/v7/src/compiler/base/ctypes.scm +++ b/v7/src/compiler/base/ctypes.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.12 1989/05/08 22:20:17 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.13 1989/08/10 11:05:10 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -71,13 +71,14 @@ MIT in each case. |# (lambda (state application) ((case (application-type application) ((COMBINATION) - (standard-unparser "COMBINATION" false)) + (standard-unparser (symbol->string 'COMBINATION) false)) ((RETURN) - (standard-unparser "RETURN" + (standard-unparser (symbol->string 'RETURN) (lambda (state return) (unparse-object state (return/operand return))))) (else - (standard-unparser "APPLICATION" (lambda (state application) + (standard-unparser (symbol->string 'APPLICATION) + (lambda (state application) (unparse-object state (application-type application)))))) state application))) diff --git a/v7/src/compiler/base/enumer.scm b/v7/src/compiler/base/enumer.scm index 624239d4e..339e29131 100644 --- a/v7/src/compiler/base/enumer.scm +++ b/v7/src/compiler/base/enumer.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/enumer.scm,v 4.2 1988/06/14 08:32:00 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/enumer.scm,v 4.3 1989/08/10 11:05:13 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -46,7 +46,8 @@ MIT in each case. |# (define-structure (enumerand (conc-name enumerand/) (print-procedure - (standard-unparser "ENUMERAND" (lambda (state enumerand) + (standard-unparser (symbol->string 'ENUMERAND) + (lambda (state enumerand) (unparse-object state (enumerand/name enumerand)))))) (enumeration false read-only true) (name false read-only true) diff --git a/v7/src/compiler/base/lvalue.scm b/v7/src/compiler/base/lvalue.scm index 668c24f81..a3ee48871 100644 --- a/v7/src/compiler/base/lvalue.scm +++ b/v7/src/compiler/base/lvalue.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/lvalue.scm,v 4.14 1989/04/21 17:04:12 markf Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/lvalue.scm,v 4.15 1989/08/10 11:05:16 cph Exp $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -104,7 +104,8 @@ MIT in each case. |# (variable-normal-offset variable))) (define-vector-tag-unparser variable-tag - (standard-unparser "VARIABLE" (lambda (state variable) + (standard-unparser (symbol->string 'VARIABLE) + (lambda (state variable) (unparse-object state (variable-name variable))))) (define-integrable (lvalue/variable? lvalue) diff --git a/v7/src/compiler/base/object.scm b/v7/src/compiler/base/object.scm index 45802b101..cfe335652 100644 --- a/v7/src/compiler/base/object.scm +++ b/v7/src/compiler/base/object.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/object.scm,v 4.6 1988/12/16 13:24:22 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/object.scm,v 4.7 1989/08/10 11:05:19 cph Exp $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -146,7 +146,8 @@ MIT in each case. |# (error "Not a tagged vector" object)))) (define (standard-unparser name unparser) - (let ((name (string-append "LIAR " name))) (if unparser + (let ((name (string-append (symbol->string 'LIAR) ":" name))) + (if unparser (unparser/standard-method name unparser) (unparser/standard-method name)))) diff --git a/v7/src/compiler/base/proced.scm b/v7/src/compiler/base/proced.scm index 1a8682272..4b27ca9f5 100644 --- a/v7/src/compiler/base/proced.scm +++ b/v7/src/compiler/base/proced.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/proced.scm,v 4.13 1989/05/08 22:20:50 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/proced.scm,v 4.14 1989/08/10 11:05:23 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -100,7 +100,7 @@ MIT in each case. |# (enumeration/index->name continuation-types (procedure-type procedure)))) (if (eq? type 'PROCEDURE) - (standard-unparser "PROCEDURE" + (standard-unparser (symbol->string 'PROCEDURE) (lambda (state procedure) (unparse-label state (procedure-label procedure)))) (standard-unparser (symbol->string (procedure-label procedure)) diff --git a/v7/src/compiler/base/rvalue.scm b/v7/src/compiler/base/rvalue.scm index a1ca4088a..c06a3af7b 100644 --- a/v7/src/compiler/base/rvalue.scm +++ b/v7/src/compiler/base/rvalue.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/rvalue.scm,v 4.5 1988/12/16 13:36:35 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/rvalue.scm,v 4.6 1989/08/10 11:05:26 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -103,7 +103,7 @@ MIT in each case. |# constant)))) (define-vector-tag-unparser constant-tag - (standard-unparser "CONSTANT" + (standard-unparser (symbol->string 'CONSTANT) (lambda (state constant) (unparse-object state (constant-value constant))))) @@ -121,7 +121,7 @@ MIT in each case. |# (make-rvalue reference-tag block lvalue safe?)) (define-vector-tag-unparser reference-tag - (standard-unparser "REFERENCE" + (standard-unparser (symbol->string 'REFERENCE) (lambda (state reference) (unparse-object state (variable-name (reference-lvalue reference)))))) @@ -157,7 +157,8 @@ MIT in each case. |# (make-rvalue unassigned-test-tag block lvalue)) (define-vector-tag-unparser unassigned-test-tag - (standard-unparser "UNASSIGNED-TEST" (lambda (state unassigned-test) + (standard-unparser (symbol->string 'UNASSIGNED-TEST) + (lambda (state unassigned-test) (unparse-object state (unassigned-test-lvalue unassigned-test))))) (define-integrable (rvalue/unassigned-test? rvalue) diff --git a/v7/src/compiler/base/subprb.scm b/v7/src/compiler/base/subprb.scm index 9c0f3a524..ef9331fe5 100644 --- a/v7/src/compiler/base/subprb.scm +++ b/v7/src/compiler/base/subprb.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/subprb.scm,v 4.6 1989/01/06 20:50:41 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/subprb.scm,v 4.7 1989/08/10 11:05:29 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -122,7 +122,8 @@ known that the continuation need not be used. (constructor virtual-continuation/%make) (conc-name virtual-continuation/) (print-procedure - (standard-unparser "VIRTUAL-CONTINUATION" (lambda (state continuation) + (standard-unparser (symbol->string 'VIRTUAL-CONTINUATION) + (lambda (state continuation) (let ((type (virtual-continuation/type continuation))) (if type (unparse-object