outdated
xxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxx
kill program with error message
may be used like Assert in some languages.
- define %HaltActive for test code
- un-define for production code
changed: 10/31/2009
xxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxx
kill program with error message
may be used like Assert in some languages.
- define %HaltActive for test code
- un-define for production code
changed: 10/31/2009
Code:
' ' won't execute unless %HaltActive is defined ' Sub Halt(ByVal message As String) #If %Def(%HaltActive) ? message !HLT #EndIf End Sub '
Comment