From 70ece841bbd22e6b9fb115492361d534da37368f Mon Sep 17 00:00:00 2001 From: Jason Wilson Date: Thu, 10 Jun 1993 01:06:19 +0000 Subject: [PATCH] Handle random non-pointers with TRUE and FALSE tags. --- v7/src/compiler/machines/C/cout.scm | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm index e4cfac101..d06458e30 100644 --- a/v7/src/compiler/machines/C/cout.scm +++ b/v7/src/compiler/machines/C/cout.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: cout.scm,v 1.3 1993/06/10 00:11:59 jawilson Exp $ +$Id: cout.scm,v 1.4 1993/06/10 01:06:19 jawilson Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -659,10 +659,6 @@ MIT in each case. |# "SHARP_F") ((eq? #t object) "SHARP_T") - ((null? object) - "NIL") - ((eq? object unspecific) - "UNSPECIFIC") ((primitive-procedure? object) (let ((arity (primitive-procedure-arity object))) (if (< arity -1) @@ -690,6 +686,20 @@ MIT in each case. |# (number->string (string-length string)) "L, \"" (string-reverse string) "\"))"))) + ((null? object) + "NIL") + ((eq? object unspecific) + "UNSPECIFIC") + ((or (object-type? (ucode-type true) object) + (object-type? (ucode-type false) object)) + ;; Random assorted objects, e.g.: #!rest, #!optional + (string-append "(MAKE_OBJECT (" + (if (object-type? (ucode-type true) object) + "TC_TRUE" + "TC_FALSE") + ", " + (number->string (object-datum object)) + "L))")) ;; Note: The following are here because of the Scode interpreter ;; and the runtime system. ;; They are not necessary for ordinary code. -- 2.25.1