Merge pull request #245 from k-okada/undefined_function

show warning when undefined function found
euslisp · Sep 8, 2017 · 08fa27d · 08fa27d
2 parents 6d14fc7 + 8f25350
commit 08fa27d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lisp/comp/trans.l b/lisp/comp/trans.l
@@ -247,6 +247,9 @@
        (if (null entry) (setq entry (get sym 'builtin-function-entry)))
        (send self :clearpush)
        (send self :reset-vsp)
+       (unless (functionp sym)
+         (format *error-output* "; ~C[34;7m~S~C[0;34m is assumed to be undefined function~C[0m~%"
+                 #x1b sym #x1b #x1b))
        (if entry
 	   (format cfile "	w=(pointer)~A(ctx,~d,local+~d); /*~A*/~%"
 		     entry n (- pushcount n) sym)