add missing commas in initializer for .d and .h macros,

which appear to have broken the intended behavior of those.
This commit is contained in:
lukem 2009-04-12 03:15:35 +00:00
parent 77e8a794aa
commit bc44ec3e93
1 changed files with 4 additions and 4 deletions

View File

@ -1,5 +1,5 @@
%{ %{
/* $NetBSD: fgen.l,v 1.28 2009/04/12 03:13:09 lukem Exp $ */ /* $NetBSD: fgen.l,v 1.29 2009/04/12 03:15:35 lukem Exp $ */
/* FLEX input for FORTH input file scanner */ /* FLEX input for FORTH input file scanner */
/* /*
* Copyright (c) 1998 Eduardo Horvath. * Copyright (c) 1998 Eduardo Horvath.
@ -47,7 +47,7 @@
#endif #endif
#if defined(__RCSID) && !defined(lint) #if defined(__RCSID) && !defined(lint)
__RCSID("$NetBSD: fgen.l,v 1.28 2009/04/12 03:13:09 lukem Exp $"); __RCSID("$NetBSD: fgen.l,v 1.29 2009/04/12 03:15:35 lukem Exp $");
#endif #endif
%} %}
@ -704,13 +704,13 @@ struct macro macros[] = {
{ "/c*", "chars" }, { "/c*", "chars" },
{ "ca1+", "char+" }, { "ca1+", "char+" },
{ "carret", "b(lit) 00 00 00 0x0d" }, { "carret", "b(lit) 00 00 00 0x0d" },
{ ".d" "base @ swap 0x0a base ! . base !" }, { ".d", "base @ swap 0x0a base ! . base !" },
{ "decode-bytes", ">r over r@ + swap r@ - rot r>" }, { "decode-bytes", ">r over r@ + swap r@ - rot r>" },
{ "3drop", "drop 2drop" }, { "3drop", "drop 2drop" },
{ "3dup", "2 pick 2 pick 2 pick" }, { "3dup", "2 pick 2 pick 2 pick" },
{ "erase", "0 fill" }, { "erase", "0 fill" },
{ "false", "0" }, { "false", "0" },
{ ".h" "base @ swap 0x10 base ! . base !" }, { ".h", "base @ swap 0x10 base ! . base !" },
{ "linefeed", "b(lit) 00 00 00 0x0a" }, { "linefeed", "b(lit) 00 00 00 0x0a" },
{ "/n*", "cells" }, { "/n*", "cells" },
{ "na1+", "cell+", }, { "na1+", "cell+", },