pt - pt::peg - B - Fix typo in error return. Version bumped to 1.1.1

Author: andreas-kupries

embedded/md/tcllib/files/modules/pt/pt_pegrammar.md

@@ -2,7 +2,7 @@
 [//000000001]: # (pt::peg \- Parser Tools)
 [//000000002]: # (Generated from file 'pt\_pegrammar\.man' by tcllib/doctools with format 'markdown')
 [//000000003]: # (Copyright &copy; 2009 Andreas Kupries <andreas\_kupries@users\.sourceforge\.net>)
-[//000000004]: # (pt::peg\(n\) 1\.1 tcllib "Parser Tools")
+[//000000004]: # (pt::peg\(n\) 1\.1\.1 tcllib "Parser Tools")
 
 <hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
 href="../../../toc.md">Table Of Contents</a> &#124; <a

idoc/man/files/modules/pt/pt_pegrammar.n

@@ -2,7 +2,7 @@
 '\" Generated from file 'pt_pegrammar\&.man' by tcllib/doctools with format 'nroff'
 '\" Copyright (c) 2009 Andreas Kupries <andreas_kupries@users\&.sourceforge\&.net>
 '\"
-.TH "pt::peg" n 1\&.1 tcllib "Parser Tools"
+.TH "pt::peg" n 1\&.1\&.1 tcllib "Parser Tools"
 .\" The -*- nroff -*- definitions below are for supplemental macros used
 .\" in Tcl/Tk manual entries.
 .\"

idoc/www/tcllib/files/modules/pt/pt_pegrammar.html

@@ -109,7 +109,7 @@
 &#124; <a href="../../../../toc2.html">Applications</a>
  ] <hr>
 <div class="doctools">
-<h1 class="doctools_title">pt::peg(n) 1.1 tcllib &quot;Parser Tools&quot;</h1>
+<h1 class="doctools_title">pt::peg(n) 1.1.1 tcllib &quot;Parser Tools&quot;</h1>
 <div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
 <p>pt::peg - Parsing Expression Grammar Serialization</p>
 </div>

modules/pt/pkgIndex.tcl

@@ -16,8 +16,8 @@ package ifneeded pt::pe        1.0.3 [list source [file join $dir pt_pexpression
 package ifneeded pt::pe::op    1.0.2 [list source [file join $dir pt_pexpr_op.tcl]]
 
 # Parsing Expression Grammar support.
-package ifneeded pt::peg                1.1 [list source [file join $dir pt_pegrammar.tcl]]
-package ifneeded pt::peg::container     1.1 [list source [file join $dir pt_peg_container.tcl]]
+package ifneeded pt::peg            1.1.1 [list source [file join $dir pt_pegrammar.tcl]]
+package ifneeded pt::peg::container 1.1   [list source [file join $dir pt_peg_container.tcl]]
 package ifneeded pt::peg::interp    1.0.2 [list source [file join $dir pt_peg_interp.tcl]]
 package ifneeded pt::peg::op        1.2.0 [list source [file join $dir pt_peg_op.tcl]]
 package ifneeded pt::parse::peg     1.0.3 [list source [file join $dir pt_parse_peg.tcl]]

modules/pt/pt_pegrammar.man

@@ -1,5 +1,5 @@
 [comment {-*- text -*- doctools manpage}]
-[manpage_begin pt::peg n 1.1]
+[manpage_begin pt::peg n 1.1.1]
 [include include/module.inc]
 [titledesc {Parsing Expression Grammar Serialization}]
 [require pt::peg [opt 1.1]]

modules/pt/pt_pegrammar.tcl

@@ -1,5 +1,5 @@
 # -*- tcl -*-
-# Copyright (c) 2009 Andreas Kupries <andreas_kupries@sourceforge.net>
+# Copyright (c) 2009,2024 Andreas Kupries <andreas_kupries@sourceforge.net>
 
 # Verification of serialized PEGs, and conversion between
 # serializations and other data structures.
@@ -201,7 +201,7 @@ proc ::pt::peg::merge {seriala serialb} {
 	    array set sdb $rb($symbol)
 
 	    if {$sda(mode) ne $sdb(mode)} {
-		return -code "Merge error for nonterminal \"$symbol\", semantic mode mismatch"
+		return -code error "Merge error for nonterminal \"$symbol\", semantic mode mismatch"
 	    }
 
 	    # Merge parsing expressions, if not identical ...
@@ -376,5 +376,5 @@ namespace eval ::pt::peg {
 # # ## ### ##### ######## ############# #####################
 ## Ready
 
-package provide pt::peg 1.1
+package provide pt::peg 1.1.1
 return