From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 26 May 2016 08:26:09 +0000 (+0100)
Subject: src/pset-parse.lisp: Export the `parse-property' function.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/b944e68b291d56a561c8797e138b95f1b1092d0a

src/pset-parse.lisp: Export the `parse-property' function.
---

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 0d8549f..f6ece85 100644
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -598,6 +598,7 @@ output-proto.lisp
   sequencer-table                               generic
 
 pset-parse.lisp
+  parse-property                                function
   parse-property-set                            function
 
 pset-proto.lisp
diff --git a/doc/misc.tex b/doc/misc.tex
index 16337a9..68fba6d 100644
--- a/doc/misc.tex
+++ b/doc/misc.tex
@@ -519,6 +519,11 @@ These symbols are defined in the @!optparse| package.
       @<default-form>^*}
 \end{describe}
 
+\begin{describe}{fun}
+    {parse-property @<scanner> @<pset>
+      @> @<result> @<success-flag> @<consumed-flag>}
+\end{describe}
+
 \begin{describe}{fun}
     {parse-property-set @<scanner>
       @> @<result> @<success-flag> @<consumed-flag>}
diff --git a/src/pset-parse.lisp b/src/pset-parse.lisp
index ddc34e0..6619e1b 100644
--- a/src/pset-parse.lisp
+++ b/src/pset-parse.lisp
@@ -133,6 +133,7 @@     (defun parse-expression (scanner)
 ;;;--------------------------------------------------------------------------
 ;;; Parsing property sets.
 
+(export 'parse-property)
 (defun parse-property (scanner pset)
   "Parse a single property using the SCANNER; add it to the PSET."
   ;; property ::= id `=' expression