Fixed substitute

git-svn-id: https://forth-ev.de/repos/bigforth@2120 3b8d8251-53f3-0310-8f3b-fd1cb8370982

Makefile.in

@@ -54,7 +54,7 @@ XSRC	= startx.fs minos.fs oof.fb x11.fs xpm.fs locals.fs editor.fs \
 	  ediwind.fs edit.fs opengl.fs xstyle.fs status.fb \
 	  pipes.fb ptty.fs login.fs pixmap.fs png.fs browser.fs \
 	  points.fs qsort.fs string.fs sincos.fs utf-8.fs xrender.fs \
-	  $(XINI) xft-font.fs imlib.fs Estyle.fs i18n.fs i18n-months.fs \
+	  $(XINI) xft-font.fs imlib.fs Estyle.fs substitute.fs i18n.fs i18n-months.fs \
 	  minos-base.fs displays.fs minos-fonts.fs vdisplays.fs \
 	  actors.fs widgets.fs minos-boxes.fs minos-buttons.fs \
 	  minos-viewport.fs minos-windows.fs minos-complex.fs \

substitute.fs

@@ -4,15 +4,15 @@ Vocabulary macros
 
 L" <>" AConstant delimiters
 
-also macros definitions
+\ also macros definitions
 : macro: ( addr u -- ) Create here 0 , $! DOES> $@ ;
-previous Forth definitions
+\ previous Forth definitions
 
 : replaces ( addr1 len1 addr2 len2 -- )
     2dup & macros search-wordlist IF  nip nip >body $!
     ELSE
 	get-current >r & macros set-current
-	s" macro:" execute-parsing
+	['] macro: execute-parsing
 	r> set-current
     THEN ;
 

theseus-save.fs

@@ -141,8 +141,8 @@ also dos also float
     6 set-precision  stubs off
     r/w exe output-file
     ." #! " 0 arg type cr
-    ." \ automatic generated code" cr
-    ." \ do not edit" cr
+    ." \ code generated by theseus, call 'theseus <file>' to edit" cr
+    ." \ do not edit manually if you don't know what you are doing" cr
     cr
     ." also editor also minos also forth" cr
     dump-all