--- freem/mlib/%SYSINIT.m 2025/05/01 17:02:30 1.5
+++ freem/mlib/%SYSINIT.m 2025/05/03 04:05:23 1.7
@@ -1,7 +1,7 @@
%SYSINIT ;VCL/SNW-FREEM STARTUP ROUTINE; 5/1/2025 11:00 AM
;0.0;FreeM;****FREEM**;Serena Willis @2020
;
- ; $Id: %SYSINIT.m,v 1.5 2025/05/01 17:02:30 snw Exp $
+ ; $Id: %SYSINIT.m,v 1.7 2025/05/03 04:05:23 snw Exp $
; FreeM Startup Routine
;
;
@@ -26,6 +26,12 @@
; along with FreeM. If not, see .
;
; $Log: %SYSINIT.m,v $
+ ; Revision 1.7 2025/05/03 04:05:23 snw
+ ; Fix %SYSINIT
+ ;
+ ; Revision 1.6 2025/05/02 12:44:48 snw
+ ; Documentation updates
+ ;
; Revision 1.5 2025/05/01 17:02:30 snw
; Further debugging improvements
;
@@ -40,16 +46,16 @@
; SPDX-License-Identifier: AGPL-3.0-or-later
S %DIA=$DIALECT
S $DIALECT="FREEM"
- CONST %MATHPI=3.141592653589793238462
- CONST %MATHE=2.71828182845904523536
- CONST %MATHGAMMA=0.57721566490153286060
- CONST %MATHDEGPERRAD=57.29577951308232087680
- CONST %MATHPHI=1.61803398874989484820
- CONST %IOCRLF=$C(13,10)
- CONST %SYSSIGNALHUP=1
- CONST %SYSSIGNALINT=2
- CONST %SYSSIGNALKILL=9
- CONST %SYSSIGNALTERM=15
+ CONST %MATH("PI")=3.141592653589793238462
+ CONST %MATH("E")=2.71828182845904523536
+ CONST %MATH("GAMMA")=0.57721566490153286060
+ CONST %MATH("DEGPERRAD")=57.29577951308232087680
+ CONST %MATH("PHI")=1.61803398874989484820
+ CONST %IO("CRLF")=$C(13,10)
+ CONST %SYS("SIGNAL","HUP")=1
+ CONST %SYS("SIGNAL","INIT")=2
+ CONST %SYS("SIGNAL","KILL")=9
+ CONST %SYS("SIGNAL","TERM")=15
ASTART "TRIGGER"
S $ZTRAP="NOLS^%SYSINIT"
D ^LCLINIT
@@ -66,7 +72,7 @@ COPYRIGHT ;
S %DIA=$DIALECT
S $DIALECT="FREEM"
W "Coherent Logic Development ",$ZVERSION,!
- W "Copyright (C) 2014, 2020, 2021 Coherent Logic Development LLC",!,!
+ W "Copyright (C) 2014, 2025 Coherent Logic Development LLC",!,!
W "License AGPLv3+: GNU AGPL version 3 or later ",!
W "This is free software: you are free to change and redistribute it.",!
W "There is NO WARRANTY, to the extent permitted by law.",!,!