Commit 14c222e7 authored by bp's avatar bp

Fixed substitute

git-svn-id: https://forth-ev.de/repos/bigforth@2120 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 2a580f66
......@@ -54,7 +54,7 @@ XSRC = startx.fs minos.fs oof.fb x11.fs xpm.fs locals.fs editor.fs \
ediwind.fs edit.fs opengl.fs xstyle.fs status.fb \
pipes.fb ptty.fs login.fs pixmap.fs png.fs browser.fs \
points.fs qsort.fs string.fs sincos.fs utf-8.fs xrender.fs \
$(XINI) xft-font.fs imlib.fs Estyle.fs i18n.fs i18n-months.fs \
$(XINI) xft-font.fs imlib.fs Estyle.fs substitute.fs i18n.fs i18n-months.fs \
minos-base.fs displays.fs minos-fonts.fs vdisplays.fs \
actors.fs widgets.fs minos-boxes.fs minos-buttons.fs \
minos-viewport.fs minos-windows.fs minos-complex.fs \
......
......@@ -4,15 +4,15 @@ Vocabulary macros
L" <>" AConstant delimiters
also macros definitions
\ also macros definitions
: macro: ( addr u -- ) Create here 0 , $! DOES> $@ ;
previous Forth definitions
\ previous Forth definitions
: replaces ( addr1 len1 addr2 len2 -- )
2dup & macros search-wordlist IF nip nip >body $!
ELSE
get-current >r & macros set-current
s" macro:" execute-parsing
['] macro: execute-parsing
r> set-current
THEN ;
......
......@@ -141,8 +141,8 @@ also dos also float
6 set-precision stubs off
r/w exe output-file
." #! " 0 arg type cr
." \ automatic generated code" cr
." \ do not edit" cr
." \ code generated by theseus, call 'theseus <file>' to edit" cr
." \ do not edit manually if you don't know what you are doing" cr
cr
." also editor also minos also forth" cr
dump-all
......
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