deac
/
presentation.fs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

doch kein enum

master
Denis Knauf 2011-01-21 15:37:37 +01:00
parent 8b62691da5
commit 165df46ca7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
presentation.fs
View File

@ -235,7 +235,7 @@ variable enumerationCount ( -- addr )
2 cursor> 0 u.r ." ." space 2 cursor> 0 u.r ." ." space
5 ptype-curx ! 0 5 ptype-curx ! 0
; ;
: <||> ( -- , xt-{||} ) block? <> throw ['] {||} , ; : <||> ( -- , xt-{||} ) block? ['] {||} , ;
: {/||} ( -- ) cr ; : {/||} ( -- ) cr ;
: </||> ( -- , xt-{/||} ) ['] {/||} , block? ; : </||> ( -- , xt-{/||} ) ['] {/||} , block? ;

4
presentation.p.fs
View File

@ -174,14 +174,14 @@
<p> farbendemo </p> <p> farbendemo </p>
<np> <np>
<h> !" Beliebige Wörter können Inhalte erzeugen!!" </h> <h> !" Beliebige Wörter können Inhalte erzeugen!!" </h>
<p> <b> !" So kann man Aufzaehlungen erstellen" </b> </p> ( <p> <b> !" So kann man Aufzaehlungen erstellen" </b> </p>
<p> <p>
<en> <en>
<||> !" Das erstellen von Präsentationen und Formatierungen wirkt natürlich" </||> <||> !" Das erstellen von Präsentationen und Formatierungen wirkt natürlich" </||>
<||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich." </||> <||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich." </||>
<||> !" Makros generieren Inhalte" </||> <||> !" Makros generieren Inhalte" </||>
</en> </en>
</p> </p> )
<p> s" presentation.p.fs" 112 116 <source> </p> <p> s" presentation.p.fs" 112 116 <source> </p>
<p> !" Die Operatoren sehen so aus:" </p> <p> !" Die Operatoren sehen so aus:" </p>
<p> s" presentation.fs" 214 221 <source> </p> <p> s" presentation.fs" 214 221 <source> </p>