--- gforth/extend.fs	1994/02/11 16:30:46	1.1
+++ gforth/extend.fs	1994/05/07 14:55:48	1.3
@@ -10,12 +10,17 @@ decimal
 
 \ VALUE 2>R 2R> 2R@                                     17may93jaw
 
-: value ( n -- )  (constant) , ;
+: value ( n -- )
+  (constant) , ;
+\ !! 2value
 
 : 2>r   postpone >r postpone >r ; immediate restrict
 : 2r>   postpone r> postpone r> ; immediate restrict
 : 2r@   postpone 2r> postpone 2dup postpone 2>r ; immediate restrict
 
+: 2Literal  swap postpone Literal  postpone Literal ;
+  immediate restrict
+
 \ CASE OF ENDOF ENDCASE                                 17may93jaw
 
 \ just as described in dpANS5
@@ -64,7 +69,8 @@ decimal
 
 \ ERASE                                                 17may93jaw
 
-: erase 0 1 chars um/mod nip 0 fill ;
+: erase ( 0 1 chars um/mod nip )  0 fill ;
+: blank ( 0 1 chars um/mod nip ) bl fill ;
 
 \ ROLL                                                  17may93jaw