From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 5 Oct 2006 19:14:39 +0000 (+0000)
Subject: Allow booleans as line items, and translate them to C booleans.
X-Git-Tag: 20090517-FFI~909
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=536fabf3bda370fb09270b6e2643d88ef352ac40;p=mit-scheme.git

Allow booleans as line items, and translate them to C booleans.
---

diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm
index f2a35faa6..32179217d 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.26 2006/10/05 04:55:54 cph Exp $
+$Id: cout.scm,v 1.27 2006/10/05 19:14:39 cph Exp $
 
 Copyright 1993,1998,2006 Massachusetts Institute of Technology
 
@@ -1040,6 +1040,8 @@ USA.
 	((symbol? item) (symbol-name item))
 	((number? item) (number->string item))
 	((decoded-time? item) (decoded-time->iso8601-string item))
+	((not item) "false")
+	((eq? item #t) "true")
 	(else (error:wrong-type-argument item "C line item" 'C:LINE-ITEM))))
 
 (define (c:make-line indentation text)