From 536fabf3bda370fb09270b6e2643d88ef352ac40 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 5 Oct 2006 19:14:39 +0000 Subject: [PATCH] Allow booleans as line items, and translate them to C booleans. --- v7/src/compiler/machines/C/cout.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.25.1