Commit ca4efa96 authored by Bernd Paysan's avatar Bernd Paysan

Remove prelude from startup.fs, not active by default

parent c6ec8b47
Pipeline #864 passed with stage
in 10 minutes and 12 seconds
......@@ -17,10 +17,17 @@
\ You should have received a copy of the GNU General Public License
\ along with this program. If not, see http://www.gnu.org/licenses/.
Defer prelude-execute ( ... xt -- ... )
\G execute a prelude, only active in the outer interpreter
: prelude ( xt -- )
\G prelude adds a prelude to the current definition without special
\G compilation semantics. The prelude @i{xt} is executed by the outer
\G interpreter before the words compilation or interpretation semantics is
\G performed.
dup [n:d execute ;] set->int
[n:d execute default-name>comp ;] set->comp ;
dup [n:d prelude-execute ;] set->int
[n:d prelude-execute default-name>comp ;] set->comp ;
:noname ( -- )
[: execute ['] drop is prelude-execute ;] is prelude-execute
r> { r } defers int-execute r >r ; is int-execute
......@@ -67,7 +67,6 @@ require debug.fs
require dis-gdb.fs
require struct0x.fs
require libcc.fs
require prelude.fs
require str-exec.fs
require gforthrc.fs
require ansi.fs
......
......@@ -115,7 +115,8 @@ $004 Constant POLLOUT
[defined] int-execute [if]
variable saved-errno 0 saved-errno !
:noname r> { r } saved-errno @ ->errno execute errno saved-errno ! r >r ;
:noname r> { r } saved-errno @ ->errno defers int-execute
errno saved-errno ! r >r ;
is int-execute
[then]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment