diff --git a/presentation.fs b/presentation.fs index ac2dab7..2f71565 100755 --- a/presentation.fs +++ b/presentation.fs @@ -235,7 +235,7 @@ variable enumerationCount ( -- addr ) 2 cursor> 0 u.r ." ." space 5 ptype-curx ! 0 ; -: <||> ( -- , xt-{||} ) block? <> throw ['] {||} , ; +: <||> ( -- , xt-{||} ) block? ['] {||} , ; : {/||} ( -- ) cr ; : ||> ( -- , xt-{/||} ) ['] {/||} , block? ; diff --git a/presentation.p.fs b/presentation.p.fs index d9218bc..4a8fbbf 100644 --- a/presentation.p.fs +++ b/presentation.p.fs @@ -174,14 +174,14 @@
farbendemo
!" So kann man Aufzaehlungen erstellen"
+ (!" So kann man Aufzaehlungen erstellen"
s" presentation.p.fs" 112 116
!" Die Operatoren sehen so aus:"
s" presentation.fs" 214 221