Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
14c222e7
Commit
14c222e7
authored
Sep 22, 2011
by
bp
Browse files
Fixed substitute
git-svn-id:
https://forth-ev.de/repos/bigforth@2120
3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent
2a580f66
Changes
3
Hide whitespace changes
Inline
Side-by-side
Makefile.in
View file @
14c222e7
...
...
@@ -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 \
...
...
substitute.fs
View file @
14c222e7
...
...
@@ -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
--
)
2
dup
&
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
;
...
...
theseus-save.fs
View file @
14c222e7
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment