--- gforth/kernel/cond.fs	2003/03/09 15:17:05	1.17
+++ gforth/kernel/cond.fs	2007/10/29 15:56:31	1.20
@@ -1,6 +1,6 @@
 \ Structural Conditionals                              12dec92py
 
-\ Copyright (C) 1995,1996,1997,2000,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,2000,2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -105,10 +105,13 @@ variable backedge-locals
 
 \ Structural Conditionals                              12dec92py
 
+defer other-control-flow ( -- )
+\ hook for control-flow stuff that's not handled by begin-like etc.
+
 : ?struc      ( flag -- )       abort" unstructured " ;
 : sys?        ( sys -- )        dup 0= ?struc ;
 : >mark ( -- orig )
- cs-push-orig 0 , ;
+ cs-push-orig 0 , other-control-flow ;
 : >resolve    ( addr -- )
     here swap !
     basic-block-end ;
@@ -148,7 +151,7 @@ immediate restrict
 \ people who have not been brought up with Forth (or who have been
 \ brought up with fig-Forth).
 
-: ELSE ( compilation orig1 -- orig2 ; run-time f -- ) \ core
+: ELSE ( compilation orig1 -- orig2 ; run-time -- ) \ core
     POSTPONE ahead
     1 cs-roll
     POSTPONE then ; immediate restrict