--- gforth/stuff.fs	2002/08/12 16:39:34	1.21
+++ gforth/stuff.fs	2002/12/26 19:16:17	1.23
@@ -66,8 +66,10 @@ AUser CSP
     \G equivalent to @code{] literal}
     ] postpone literal ;
 
+[ifundef] in-dictionary?
 : in-dictionary? ( x -- f )
     forthstart dictionary-end within ;
+[endif]
 
 : in-return-stack? ( addr -- f )
     rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;
@@ -126,10 +128,3 @@ AUser CSP
 	2drop
     repeat
     - + dup >r resize throw r> ;
-
-: str= ( c-addr1 u1 c-addr2 u2 -- f )
-    compare 0= ;
-
-: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f )
-    \G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?
-    tuck 2>r min 2r> compare 0= ;