Am 04.12.20 um 11:51 schrieb Dr. Jürgen
Sauermann:
Hi Hans-Peter,
thanks, see below.
Best Regards,
Jürgen
On 12/4/20 10:54 AM, Hans-Peter Sorge
wrote:
Hi,
⎕FX 'library_function' should probably return 'Domain
Error'
No. It defines a niladic function named library_function with an
empty function body.
'libedif2.so' ⎕fx 'edif2'
edif2
⍝ just happened to be an accident ...
⎕fx 'edif2'
==============================================================================
Assertion failed: old_ufun
in Function: fix
in file: UserFunction.cc:1107
Call stack:
----------------------------------------
-- Stack trace at UserFunction.cc:1107
----------------------------------------
0x7FE67C931042 __libc_start_main
0x4EC976 main
0x68686B Workspace::immediate_execution(bool)
0x548F48 Command::process_line()
0x5490F4 Command::process_line(UCS_string&)
0x54B47D Command::do_APL_expression(UCS_string&)
0x54B7FC Command::finish_context()
0x5697CF Executable::execute_body() const
0x62D3F6 StateIndicator::run()
0x59E814 Prefix::reduce_statements()
0x59F3C0 Prefix::reduce_MISC_F_B_()
0x5F48AA Quad_FX::eval_B(Value_P) const
0x5F55EB Quad_FX::do_quad_FX(int const*, Value_P,
UTF8_string const&, bool)
0x5F5725 Quad_FX::do_quad_FX(int const*, UCS_string
const&, UTF8_string const&, bool)
0x66C016 UserFunction::fix(UCS_string const&,
int&, bool, char const*, UTF8_string const&, bool)
0x509DE9 do_Assert(char const*, char const*, char
const*, int)
========================================
SI stack:
Depth: 0
Exec: 0x1b6ace0
Safe exec: 0
Pmode: ◊ ⎕fx 'edif2'
PC: 3 (4) RETURN_STATS
Stat: ⎕fx 'edif2'
err_code: 0x0
==============================================================================
fixed in SVN 1369.
Best
Regards
Hans-Peter