projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
638016e
)
Allow booleans as line items, and translate them to C booleans.
author
Chris Hanson
<org/chris-hanson/cph>
Thu, 5 Oct 2006 19:14:39 +0000
(19:14 +0000)
committer
Chris Hanson
<org/chris-hanson/cph>
Thu, 5 Oct 2006 19:14:39 +0000
(19:14 +0000)
v7/src/compiler/machines/C/cout.scm
patch
|
blob
|
history
diff --git
a/v7/src/compiler/machines/C/cout.scm
b/v7/src/compiler/machines/C/cout.scm
index f2a35faa632e556da6d6d6eceb040d407180f854..32179217d9a1c14d6779aa3c520b841d4313020f 100644
(file)
--- 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.2
6 2006/10/05 04:55:54
cph Exp $
+$Id: cout.scm,v 1.2
7 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)