Miscellaneous minor improvements

.prettierrc.json

@@ -1,5 +1,6 @@
 {
   "arrowParens": "avoid",
+  "proseWrap": "always",
   "semi": false,
   "singleQuote": true,
   "trailingComma": "all"

README.md

@@ -49,7 +49,7 @@ data representation implied by the fact that a value is an atom (e.g. the atom
 `2` may be an integer in memory).
 
 Bare words not containing any
-[reserved character sequences](./src/language/parsing/atom.ts#L54-L76) are
+[reserved character sequences](./src/language/parsing/atom.ts#L32-L54) are
 atoms:
 
 ```

src/language/parsing/atom.ts

@@ -22,32 +22,10 @@ export const isAtom = (value: unknown): value is Atom =>
 export const unit = '' as const
 
 export const atomParser: Parser<Atom> = optionallySurroundedByParentheses(
-  lazy(() => oneOf([quotedAtom, unquotedAtom])),
+  lazy(() => oneOf([unquotedAtomParser, quotedAtomParser])),
 )
 
-const quotedAtom = map(
-  sequence([
-    as(literal('"'), ''),
-    map(
-      zeroOrMore(
-        oneOf([
-          butNot(
-            anySingleCharacter,
-            oneOf([literal('"'), literal('\\')]),
-            '`"` or `\\`',
-          ),
-          as(literal('\\"'), '"'),
-          as(literal('\\\\'), '\\'),
-        ]),
-      ),
-      output => output.join(''),
-    ),
-    as(literal('"'), ''),
-  ]),
-  ([_1, contents, _2]) => contents,
-)
-
-const unquotedAtom = map(
+export const unquotedAtomParser = map(
   oneOrMore(
     butNot(
       anySingleCharacter,
@@ -80,4 +58,25 @@ const unquotedAtom = map(
   characters => characters.join(''),
 )
 
-export { unquotedAtom as unquotedAtomParser }
+const quotedAtomParser = map(
+  sequence([
+    literal('"'),
+    map(
+      zeroOrMore(
+        oneOf([
+          // `"` and `\` need to be escaped
+          butNot(
+            anySingleCharacter,
+            oneOf([literal('"'), literal('\\')]),
+            '`"` or `\\`',
+          ),
+          as(literal('\\"'), '"'),
+          as(literal('\\\\'), '\\'),
+        ]),
+      ),
+      output => output.join(''),
+    ),
+    literal('"'),
+  ]),
+  ([_1, contents, _2]) => contents,
+)

src/language/semantics.ts

@@ -61,6 +61,8 @@ export {
   applyKeyPathToSemanticGraph,
   containsAnyUnelaboratedNodes,
   isSemanticGraph,
+  isUnelaborated,
+  matchSemanticGraph,
   serialize,
   stringifySemanticGraphForEndUser,
   updateValueAtKeyPathInSemanticGraph,

src/language/semantics/expression-elaboration.ts

@@ -161,7 +161,10 @@ const handleObjectNodeWhichMayBeAExpression = (
   const { 0: possibleKeyword, ...possibleArguments } = node
   return isKeyword(possibleKeyword)
     ? context.keywordHandlers[possibleKeyword](
-        makeObjectNode({ ...possibleArguments, 0: possibleKeyword }),
+        makeUnelaboratedObjectNode({
+          ...possibleArguments,
+          0: possibleKeyword,
+        }),
         context,
       )
     : /^@[^@]/.test(possibleKeyword)