#include "forth.h"
/* Some dictionary primitives. */

PRIMITIVE ("last", Flast, Slast, NON_IMMEDIATE, ( -- a ) )
{
  /* Push the address of the CFA of the last entry. */
  PUSH ((unsigned long) ENTRY_CFA (last_dp));
}


PRIMITIVE ("print_dict", Fprint_dict, Sprint_dict, NON_IMMEDIATE, ( -- ) )
{
  /* Print the contents of the dictionary. */
  display_dictionary ();
}