10 lines
191 B
Text
10 lines
191 B
Text
to swap :s1 :s2
|
|
localmake "t thing :s1
|
|
make :s1 thing :s2
|
|
make :s2 :t
|
|
end
|
|
|
|
make "a 4
|
|
make "b "dog
|
|
swap "a "b ; pass the names of the variables to swap
|
|
show list :a :b ; [dog 4]
|