summaryrefslogtreecommitdiffstats
path: root/db2html.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
commit237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 (patch)
tree9832fbdd6fbeedf3fc7f0e7923fe20b7d35b1499 /db2html.scm
parent5145dd3aa0c02c9fc496d1432fc4410674206e1d (diff)
downloadslib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.tar.gz
slib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.zip
Import Upstream version 3a3upstream/3a3
Diffstat (limited to 'db2html.scm')
-rw-r--r--db2html.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/db2html.scm b/db2html.scm
index 8ad97e1..9b4709f 100644
--- a/db2html.scm
+++ b/db2html.scm
@@ -356,7 +356,7 @@
(case (string-ref dstr len)
((#\*) 'nary)
((#\+) 'nary1)
- (else 'single)))
+ (else (if (eq? 'boolean type) 'boolean 'single))))
(case (string-ref dstr len)
((#\* #\+)
(set! type (string->symbol (substring dstr 0 len)))