Allow booleans as line items, and translate them to C booleans.
authorChris Hanson <org/chris-hanson/cph>
Thu, 5 Oct 2006 19:14:39 +0000 (19:14 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 5 Oct 2006 19:14:39 +0000 (19:14 +0000)
v7/src/compiler/machines/C/cout.scm

index f2a35faa632e556da6d6d6eceb040d407180f854..32179217d9a1c14d6779aa3c520b841d4313020f 100644 (file)
@@ -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)