Commit 0f93c583 authored by bp's avatar bp
Browse files

Regexp replacement improved

git-svn-id: https://forth-ev.de/repos/bigforth@1679 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent bd1d5a36
......@@ -192,5 +192,5 @@ Variable >>string
: >>next ( -- addr u ) <<ptr end$ over - ;
: >>rest ( -- ) >>next >>string $+! ;
: s// ( addr u -- ptr ) ]] (( // >> [[ ; immediate
: // ( ptr addr u -- addr' u' ) ]] << )) drop >>rest >>string@ [[ ; immediate
: //o ( ptr addr u -- addr' u' ) ]] << )) drop >>rest >>string@ [[ ; immediate
: //g ( ptr addr u -- addr' u' ) ]] << LEAVE )) drop >>string@ [[ ; immediate
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment