Fix a bug with unparsing keywords

They do not need quotes.

Author: mkantor

src/language/compiling/unparsing.test.ts

@@ -24,6 +24,7 @@ testCases(
   [{}, either.makeRight('{}')],
   ['a', either.makeRight('a')],
   ['Hello, world!', either.makeRight('"Hello, world!"')],
+  ['@test', either.makeRight('@test')],
   [{ 0: 'a' }, either.makeRight('{ a }')],
   [{ 1: 'a' }, either.makeRight('{ 1: a }')],
   [
@@ -67,6 +68,7 @@ testCases(
   [{}, either.makeRight('{}')],
   ['a', either.makeRight('a')],
   ['Hello, world!', either.makeRight('"Hello, world!"')],
+  ['@test', either.makeRight('@test')],
   [{ 0: 'a' }, either.makeRight('{\n  a\n}')],
   [{ 1: 'a' }, either.makeRight('{\n  1: a\n}')],
   [
@@ -115,6 +117,7 @@ testCases(
   [{}, either.makeRight('{}')],
   ['a', either.makeRight('"a"')],
   ['Hello, world!', either.makeRight('"Hello, world!"')],
+  ['@test', either.makeRight('"@test"')],
   [{ 0: 'a' }, either.makeRight('{\n  "0": "a"\n}')],
   [{ 1: 'a' }, either.makeRight('{\n  "1": "a"\n}')],
   [

src/language/unparsing/plz-utilities.ts

@@ -113,9 +113,9 @@ export const sugarFreeMoleculeAsKeyValuePairStrings = (
 
 export const unparseAtom = (atom: string): Right<string> =>
   either.makeRight(
-    quoteIfNecessary(
-      /^@[^@]/.test(atom) ? kleur.bold(kleur.underline(atom)) : atom,
-    ),
+    /^@[^@]/.test(atom)
+      ? kleur.bold(kleur.underline(quoteIfNecessary(atom)))
+      : quoteIfNecessary(atom),
   )
 
 type UnparseAtomOrMolecule = (