[ unify_void
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090127153215] {
hunk ./compiler.fs 357
-: var? peek vALPHA? over _? or ;
-: reg? over 0 = ;
+: var? peek vALPHA? ;
hunk ./compiler.fs 364
+: reg? over 0 = ;
+: void? over 1 = ;
hunk ./compiler.fs 427
-: getunify-nil   ( -- ) getunify s" nil"    push-xt ;
+: getunify-nil   ( -- ) getunify s" nil"   push-xt ;
+: getunify-void  ( -- )     s" unify_void" push-xt ;
hunk ./compiler.fs 468
+    void? if getunify-void 3drop push-cr else
hunk ./compiler.fs 472
-    endif endif endif
+    endif endif endif endif
hunk ./compiler.fs 478
+    void? if 3drop else
hunk ./compiler.fs 483
-    endif endif endif endif
+    endif endif endif endif endif
hunk ./compiler.fs 492
-     1 postpone literal postpone A postpone ! \  FIXME do something better
+    1 postpone literal postpone A postpone ! \  FIXME do something better
hunk ./compiler.fs 576
+: void { mode addr u -- 1 u mode addr u }
+    1 u mode addr u
+    next-char
+;
+
hunk ./compiler.fs 589
+    peek _?                      if void else
hunk ./compiler.fs 595
-    endif endif endif endif
+    endif endif endif endif endif
}