[Lists work (again)
Adrian Prantl <adrian@complang.tuwien.ac.at>**20081208150826] {
hunk ./compiler.fs 103
+: lowermode drop3rd x-mode -rot ;
+
hunk ./compiler.fs 107
-: cons' ( mode addr u -- ... mode addr u )
+: cons' { mode addr u  -- ... mode addr u }
+    mode addr u
hunk ./compiler.fs 110
-    drop3rd x-mode -rot 
hunk ./compiler.fs 113
-	term skip-ws ~~
+	drop3rd x-mode -rot
+	term skip-ws
hunk ./compiler.fs 120
-	2>r 2 s" ."  ~~ structure 2r> 
-    endif ~~
+	2>r drop mode 2 s" ." structure mode 2r> 
+     endif
}