Raise errors on 'assert'

euslisp · Feb 27, 2019 · 2622b82 · 2622b82
1 parent 9cfd655
commit 2622b82
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/lisp/l/eusdebug.l b/lisp/l/eusdebug.l
@@ -23,11 +23,9 @@
 	*remote-port*
 	remote-error reval *server-streams* remote-port))
 
-(defmacro assert (pred &optional (message "") &rest args)
-    `(while (not ,pred)
-	(format *error-output* ,message ,@args)
-        (finish-output *error-output*)
-	(reploop "ass: " )))
+(defun assert (pred &optional (message "Assertation Error") &rest args)
+  (if (not pred)
+      (apply #'error message args)))
 
 (defun warning-message (color format &rest mesg)
    (format *error-output* "~C[3~Cm" #x1b (+ color 48))