내장함수 재정의

기본적으로 내장함수는(ge*, hi*등) redefine이 금지되어 있음. 

이를 해제하기 위해서는 다음과 같이 사용하면 된다.

 

; 함수 재정의 금지 해제
sstatus(debugMode t)

; 기존 함수 
g_fn_leHiMove = getd('leHiMove)

; 변경하고자 하는 함수 정의
procedure(leHiMove()
let( ()
  ; 하고 싶은 동작
  printf("My leHiMove()\n")

  ; 기존 함수 실행
  apply(g_fn_leHiMove list())
)
)

; 함수 재정의 금지 적용
sstatus(debugMode nil)