Commit ac38d2f0 authored by Bernd Paysan's avatar Bernd Paysan

Better version of +place now also in cross

parent c31ce74b
......@@ -402,9 +402,7 @@ Create NoFile ," #load-file#"
[IFUNDEF] +place
: +place ( adr len adr )
2dup >r >r
dup c@ char+ + swap move
r> r> dup c@ rot + swap c! ;
2dup c@ dup >r + over c! r> char+ + swap move ;
[IFUNDEF] place
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment