--- gforth/extend.fs	2000/09/23 15:46:56	1.45
+++ gforth/extend.fs	2002/12/04 10:42:58	1.47
@@ -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
@@ -132,6 +127,7 @@ decimal
 
 \ SOURCE-ID SAVE-INPUT RESTORE-INPUT                    11jun93jaw
 
+[IFUNDEF] source-id
 : source-id ( -- 0 | -1 | fileid ) \ core-ext,file source-i-d
     \G Return 0 (the input source is the user input device), -1 (the
     \G input source is a string being processed by @code{evaluate}) or
@@ -181,7 +177,7 @@ decimal
     r> loadline !
     >in !
     false ;
-
+[THEN]
 \ This things we don't need, but for being complete... jaw
 
 \ EXPECT SPAN                                           17may93jaw