Imported Upstream version 0.2.0+beta

[debian/yforth] / coree.h

diff --git a/coree.h b/coree.h
index c43a185c2d2270e37204100893da41a915447996..0f17df672408fd3029052baf8b2a2c3ace373c36 100644 (file)
--- 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)