From cdf87641c53e72b1753ba24846cbb4438bdb863a Mon Sep 17 00:00:00 2001
From: Tom Alexander <tom@fizz.buzz>
Date: Fri, 29 Dec 2023 21:59:45 -0500
Subject: [PATCH] Implement comment.

---
 src/wasm/comment.rs | 8 +++-----
 src/wasm/keyword.rs | 2 +-
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/wasm/comment.rs b/src/wasm/comment.rs
index c73f1386..b16845ec 100644
--- a/src/wasm/comment.rs
+++ b/src/wasm/comment.rs
@@ -4,15 +4,13 @@ use serde::Serialize;
 use super::ast_node::WasmAstNode;
 use super::macros::to_wasm;
 use super::to_wasm::ToWasm;
-use super::AdditionalProperties;
 use crate::compare::ElispFact;
 use crate::types::Comment;
 use crate::wasm::to_wasm::ToWasmStandardProperties;
 
 #[derive(Debug, Serialize, Deserialize)]
 pub struct WasmComment {
-    #[serde(flatten)]
-    pub(crate) additional_properties: AdditionalProperties,
+    pub(crate) value: String,
 }
 
 to_wasm!(
@@ -21,12 +19,12 @@ to_wasm!(
     original,
     wasm_context,
     { WasmAstNode::Comment(original) },
-    { "TODO".into() },
+    { "comment".into() },
     {
         Ok((
             Vec::new(),
             WasmComment {
-                additional_properties: AdditionalProperties::default(),
+                value: original.get_value(),
             },
         ))
     }
diff --git a/src/wasm/keyword.rs b/src/wasm/keyword.rs
index f9afadab..0108059f 100644
--- a/src/wasm/keyword.rs
+++ b/src/wasm/keyword.rs
@@ -34,7 +34,7 @@ to_wasm!(
             Vec::new(),
             WasmKeyword {
                 additional_properties,
-                key: original.key.to_owned(),
+                key: original.key.to_uppercase(),
                 value: original.value.to_owned(),
             },
         ))