--- gforth/stuff.fs	2008/12/31 15:29:14	1.59
+++ gforth/stuff.fs	2009/10/05 15:54:28	1.62
@@ -155,7 +155,9 @@ AUser CSP
 
 [ifdef] compiler1
 : postponer1 ( c-addr u -- ... xt )
-    2dup find-name dup if ( c-addr u nt )
+    2dup find-name
+    [ifdef] run-prelude run-prelude [then]
+    dup if ( c-addr u nt )
 	nip nip name>comp
 	2dup [comp'] [[ d= if
 	    2drop ['] compiler1 is parser1 ['] noop
@@ -391,3 +393,11 @@ previous
 
 : th ( addr1 u -- addr2 )
     cells + ;
+
+\ \\\ - skip to end of file
+
+: \\\ ( -- ) \ gforth
+    \G skip remaining source file
+    source-id dup 0> IF
+	>r r@ file-size throw r> reposition-file throw
+	BEGIN  refill 0= UNTIL  postpone \  THEN ; immediate