Commit 14c222e7 authored by bp's avatar bp
Browse files

Fixed substitute 

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

Makefile.in

+1 −1
Original line number Diff line number Diff line
@@ -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

+3 −3
Original line number Diff line number Diff line
@@ -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

+2 −2
Original line number Diff line number Diff line
@@ -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