#25 Embrace package activation error

[Chris Skeels]

Selecting Embrace as a global feature throws a package activation error (see attached pdf). The package does not load. The contents of the log file referred to in the eror are given below:

Tue May 10 08:39:05 AEST 2016
wrong # args: should be "proc name args body"
while executing
"proc embrace::text replace {pos0 pos1 args} {
eval ::text replace [list $pos0 $pos1] $args
switch -exact -- $::embrace::cursorAdjust {
select..."
(file "/Users/cls/Documents/AlphaCocoa/Current/build/Debug/AlphaCocoa.app/Contents/Resources/Libraries/AlphaTcl/Tcl/Packages/embrace.tcl" line 515)
invoked from within
"::__enc_source -encoding macRoman /Users/cls/Documents/AlphaCocoa/Current/build/Debug/AlphaCocoa.app/Contents/Resources/Libraries/AlphaTcl/Tcl/Package..."
("uplevel" body line 1)
invoked from within
"uplevel 1 [list ::__enc_source -encoding $enc $fileName]"
(procedure "source" line 16)
invoked from within
"source /Users/cls/Documents/AlphaCocoa/Current/build/Debug/AlphaCocoa.app/Contents/Resources/Libraries/AlphaTcl/Tcl/Packages/embrace.tcl"
(in namespace eval "::" script line 1)
invoked from within
"namespace eval :: $auto_index($name)"
(procedure "auto_load" line 13)
invoked from within
"auto_load $name [uplevel 1 {::namespace current}]"
(autoloading "embrace.tcl")
(procedure "::unknown" line 22)
invoked from within
"embrace.tcl"
("uplevel" body line 3)
invoked from within
"uplevel #0 {
# Initialization script
embrace.tcl
}"

[Chris Skeels]

This is 9.0a2 (which is not currently a Milestone optionin the Bug tracker).

[Bernard Desgraupes]

This is caused by an accidental Find and Replace. This is fixed now.
I have revised the embrace package entirely and the prefixBinding core command also had a bug when used with the -infix option.

All fixes committed to svn (rev. 1018).