From e020e16e456677660eb2e4424bfcec55fabc2ca7 Mon Sep 17 00:00:00 2001
From: stucco <haraldsteinlechner@gmail.com>
Date: Sun, 16 Jan 2011 13:14:45 +0100
Subject: [PATCH] fixed stupid enumeration implementation

---
 presentation.fs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/presentation.fs b/presentation.fs
index 935f205..8a28e8f 100755
--- a/presentation.fs
+++ b/presentation.fs
@@ -161,20 +161,19 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
 : </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ;
 
 variable enumerationCount ( -- addr )
-: {||}  ( addr -- addr )
-        enumerationCount @ 1+ enumerationCount !
-        s"   " type enumerationCount @ 0 U.R s" ) " type
+: {||}  ( addr -- addr )                \ increments enumeration count and prints prefix
+        enumerationCount dup @ 1+ dup rot !
+        s"   " type 0 U.R s" ) " type
 	5 ptype-lenl !
-        cell+
 ;
-: <||>  ( -- addr u0 , xt-{||} 0 ) ['] {||} , here 0 , 0 ;
+: <||>  ( -- , xt-{||} 0 ) ['] {||} ,  ;
 : {/||} ( addr -- addr ) cr ;
-: </||> ( addr len -- , xt-{/||} ) ['] {/||} , swap ! ;
+: </||> ( -- , xt-{/||} ) ['] {/||} , ;
 
-: {en}  ( -- )  ;
-: <en>  ( -- , xt-{en} )  ['] {en} , ;
+: {en}  ( -- )  0 enumerationCount ! ;   \ resets enumeration count
+: <en>  ( -- , xt-{en}  )  ['] {en} , ;
 : {/en} ( -- ) ;
-: </en> ( -- , xt-{/en} ) ['] {en} , ;
+: </en> ( -- , xt-{/en} )  ['] {en} , ;
 
 
 : {np} ( -- )