+++ /dev/null
-/* assert.c
- *
- * (C) Copyright Dec 20 1998, Edmond J. Breen.
- * ALL RIGHTS RESERVED.
- * This code may be copied for personal, non-profit use only.
- *
- */
-
-#ifndef NO_ASSERT
-#include <stdio.h>
-#include <stdlib.h>
-
-#include "eic.h"
-#include "stdliblocal.h"
-/*#include "assert.h"*/
-
-
-/* ASSERT.H STUFF */
-val_t eic_assert()
-{
- val_t v;
- fputs(arg(0,getargs(),ptr_t).p, stderr);
- fputs(" -- assert failed\n",stderr);
- return v;
-}
-#endif
-/******************************************************************/
-void module_assert(void)
-{
-#ifndef NO_ASSERT
- /* ASSERT.H STUFF */
- EiC_add_builtinfunc("_Assert",eic_assert);
-#endif
-}
-
-
-
-
-
-
-
-