Verified Commit 5ae78afe authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Use new header for prelude

parent 916f2c1f
Loading
Loading
Loading
Loading
Loading
+6 −6
Original line number Diff line number Diff line
\ prelude  higher-level words

\ Copyright (C) 2009 Free Software Foundation, Inc.
\ Copyright (C) 2019 Free Software Foundation, Inc.

\ This file is part of Gforth.

@@ -17,9 +17,9 @@
\ You should have received a copy of the GNU General Public License
\ along with this program. If not, see http://www.gnu.org/licenses/.

[defined] next-prelude [if]

: prelude ( xt -- )
    next-prelude ! ;

[then]
    \G prelude adds a prelude to the current definition without special
    \G compilation semantics.  a prelude is executed in the interpreter before
    \G the words compilation or interpretation or postpone semantics is used.
    dup [n:d execute ;] set->int
    [n:d execute default-name>comp ;] set->comp ;