Concatenating strings

[Programmingkid]

Could someone provide me with a code example on how to combine two strings together in
forth please. Here is my attempt. For some reason it doesn't work. Any help would be
great.

\ (addr len -- )

: loadLocalVariable 
dup
9 +
dup
 r
alloc-mem
" variable "
rot  
dup  
 r
swap   
move   
r>			
r>
+		
swap 
3dup  
move
9      
+
dup   
 r
-   
r>   
eval
drop
;


All this code does this basically

sprintf(defineVariableCommandString, "variable %s", variableString);
feval(defineVariableCommandString);

Boy I love C.

[Tarl Neustaedter]

  On 2010-8-31 8:06 PM, Programmingkid wrote:
  Could someone provide me with a code example on how to
combine two strings 
 together in forth please. Here is my attempt. For some reason it doesn't 
 work. Any help would be great.
The below takes two strings of the form (addr len), allocates a chunk of 
memory for them, and concatenates them into that allocated memory, returning 
addr len.

: $cat2  ( $1 $2 -- $3 )
    2 pick over +  dup >r alloc-mem >r
    2swap tuck  r@ swap move           ( $2 $1-len )
    r@ + swap move                     ( )
    r> r>
;