Hi ,
I tried to learn th. about writing dialects. So I did the following code, to
begin with.
I exspected it to putput the following:
<HTML><HEAD><TITLE>Titel</TITLE></HEAD><BODY>Das ist ein Text
!</BODY></HTML>
but I got an error msg of type: stack overflow , though I had increased
stack to 3.000.000 Bytes.
Here's my program:
REBOL []
;definition part
html: func [block1] [join "<HTML>" [block1 "</HTML>"]]
head: func [block2] [join "<HEAD>" [block2 "</HEAD>"]]
body: func [block3] [join "<BODY>" [block3 "</BODY>"]]
title: func [block4] [join "<TITLE>" [block4 "</TITLE>"]]
;test part
a: html
[
head
[
title "Titel"
]
body
[
"Das ist ein Text !"
]
]
print a
<<myhtml.r>>
myhtml.r