X-Git-Url: https://git.gag.com/?p=debian%2Fyforth;a=blobdiff_plain;f=coree.h;h=0f17df672408fd3029052baf8b2a2c3ace373c36;hp=c43a185c2d2270e37204100893da41a915447996;hb=1f159338ae285680863150605167fea32aa74aca;hpb=ef65b7aa8aa9801818dfe1de1f4a434719cc62e1

diff --git a/coree.h b/coree.h
index c43a185..0f17df6 100644
--- a/coree.h
+++ b/coree.h
@@ -1,8 +1,18 @@
-/* yForth? - Written by Luca Padovani (C) 1996/97
- * ------------------------------------------------------------------------
- * This software is FreeWare as long as it comes with this header in each
- * source file, anyway you can use it or any part of it whatever
- * you want. It comes without any warranty, so use it at your own risk.
+/* yForth? - A Forth interpreter written in ANSI C
+ * Copyright (C) 2012 Luca Padovani
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  * ------------------------------------------------------------------------
  * Module name:     coree.h
  * Abstract:        Include file for "core-extension" word set
@@ -67,6 +77,7 @@ code(u_greater_than,                "u>",                   0)
 code(unused,                        "unused",               0)
 code(within,                        "within",               0)
 code(backslash,                     "\\",                   IMMEDIATE)
+code(backslash,                     "#!",                   IMMEDIATE)
 code(bracket_compile,               "[compile]",            COMP_ONLY)
 code(value,							"value",				0)
 code(to,							"to",					IMMEDIATE)