From 165df46ca72b41bb8be525aab3eacaee82e15efa Mon Sep 17 00:00:00 2001 From: Denis Knauf Date: Fri, 21 Jan 2011 15:37:37 +0100 Subject: [PATCH] doch kein enum --- presentation.fs | 2 +- presentation.p.fs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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

!" Beliebige Wörter können Inhalte erzeugen!!" -

!" So kann man Aufzaehlungen erstellen"

+ (

!" So kann man Aufzaehlungen erstellen"

<||> !" Das erstellen von Präsentationen und Formatierungen wirkt natürlich" <||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich." <||> !" Makros generieren Inhalte" -

+

)

s" presentation.p.fs" 112 116

!" Die Operatoren sehen so aus:"

s" presentation.fs" 214 221