Better version of +place now also in cross

ac38d2f0 · Bernd Paysan · c31ce74b · ac38d2f0
Commit ac38d2f0 authored Nov 10, 2013 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

cross.fs cross.fs +2 -4

No files found.
--- a/cross.fs
+++ b/cross.fs
@@ -402,14 +402,12 @@ 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 ;
 [THEN]

 [IFUNDEF] place
 : place ( c-addr1 u c-addr2 )
-        2dup c! char+ swap move ;
+    2dup c! char+ swap move ;
 [THEN]

 \ if we have path handling, use this and the setup of it