Commit a5e6c3a7 authored by Bernd Paysan's avatar Bernd Paysan

add interpretative UADDR/UTO to cross.fs

parent bfd9de4b
Pipeline #569 passed with stage
in 8 minutes and 13 seconds
......@@ -3859,8 +3859,9 @@ Cond: IS cross-record-name T ' >body H compile ALiteral compile ! ;Cond
Cond: TO T ' >body H compile ALiteral compile ! ;Cond
: TO T ' >body ! H ;
Cond: UTO compile useraddr T ' >body @ , H compile ! ;Cond
: UTO T ' >body @ H tup@ + X ! ;
Cond: UADDR compile useraddr T ' >body @ , H ;Cond
: UADDR T ' >body @ H tup@ + ;
: UTO UADDR X ! ;
[THEN]
Cond: defers T ' >body @ compile, H ;Cond
......
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