Commit c31ce74b authored by Bernd Paysan's avatar Bernd Paysan

Fixed +place (thanks to Marcos Cruz)

parent c94486c2
......@@ -50,15 +50,13 @@
include string.fs
[IFUNDEF] +place
: +place ( adr len adr )
2dup >r >r
dup c@ char+ + swap move
r> r> dup c@ rot + swap c! ;
: +place ( adr len adr -- )
2dup c@ dup >r + over c! r> char+ + swap move ;
[THEN]
[IFUNDEF] place
: place ( c-addr1 u c-addr2 )
2dup c! char+ swap move ;
2dup c! char+ swap move ;
[THEN]
Variable fpath ( -- path-addr ) \ gforth
......
......@@ -27,11 +27,10 @@
: name bl word ;
: on true swap ! ;
: off false swap ! ;
: place ( adr len adr )
2dup c! char+ swap move ;
: +place ( adr len adr )
2dup c@ + over c!
dup c@ char+ + swap move ;
: place ( adr len adr -- )
2dup c! char+ swap move ;
: +place ( adr len adr -- )
2dup c@ dup >r + over c! r> char+ + swap move ;
: -rot rot rot ;
include toolsext.fs
......
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