From 8a9a653d5a800125e0e7d845b5f483cbce966c56 Mon Sep 17 00:00:00 2001 From: devans Date: Wed, 5 Aug 2009 20:30:36 +0000 Subject: [PATCH] (-attr-read): Add some fixmes. --- cgen/attr.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cgen/attr.scm b/cgen/attr.scm index ae8b29a273..ca2fd5ea46 100644 --- a/cgen/attr.scm +++ b/cgen/attr.scm @@ -402,17 +402,17 @@ (set! default #f)) ; really a nop, but for consistency (if (eq? values #f) (set! values '(#f #t)))) - ((bitset-attribute>) + ((bitset-attribute>) ;; FIXME (if (eq? default #f) (parse-error errtxt "bitset-attribute default not specified")) (if (eq? values #f) (parse-error errtxt "bitset-attribute values not specified"))) - ((integer-attribute>) + ((integer-attribute>) ;; FIXME (if (eq? default #f) (set! default 0)) (if (eq? values #f) (set! values #f))) ; really a nop, but for consistency - ((enum-attribute>) + ((enum-attribute>) ;; FIXME (if (eq? default #f) (parse-error errtxt "enum-attribute default not specified")) (if (eq? values #f) -- 2.11.0