--- gforth/extend.fs	2000/10/29 20:27:02	1.46
+++ gforth/extend.fs	2003/03/09 15:16:49	1.55
@@ -1,6 +1,6 @@
 \ EXTEND.FS    CORE-EXT Word not fully tested!         12may93jaw
 
-\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1998,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -25,7 +25,7 @@ decimal
 
 \ .(                                                    12may93jaw
 
-: .(   ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren
+: .(   ( compilation&interpretation "ccc<paren>" -- ) \ core-ext dot-paren
   \G Compilation and interpretation semantics: Parse a string @i{ccc}
   \G delimited by a @code{)} (right parenthesis). Display the
   \G string. This is often used to display progress information during
@@ -73,11 +73,6 @@ decimal
 
 \ C"                                                    17may93jaw
 
-: (c")     "lit ;
-
-: CLiteral
-    postpone (c") here over char+ allot  place align ; immediate restrict
-
 : C" ( compilation "ccc<quote>" -- ; run-time  -- c-addr ) \ core-ext c-quote
     \G Compilation: parse a string @i{ccc} delimited by a @code{"}
     \G (double quote). At run-time, return @i{c-addr} which
@@ -123,7 +118,7 @@ decimal
     begin
 	dup r@ >=
     while
-	over 2r@ swap -text 0= if
+	2dup 2r@ string-prefix? if
 	    2swap 2drop 2r> 2drop true exit
 	endif
 	1 /string
@@ -241,7 +236,9 @@ variable span ( -- c-addr ) \ core-ext
     REPEAT
     drop
     \ remember udp
-    udp @ , ;
+    udp @ ,
+    \ remember dyncode-ptr
+    here ['] noop , compile-prim1 finish-code ;
 
 : marker! ( mark -- )
     \ reset included files count; resize will happen on next add-included-file
@@ -268,6 +265,9 @@ variable span ( -- c-addr ) \ core-ext
     REPEAT
     drop
     \ restore udp and dp
+[IFDEF] forget-dyncode
+    dup cell+ @ forget-dyncode drop
+[THEN]
     @ udp !  dp !
     \ clean up vocabulary stack
     0 vp @ 0