11 lines
191 B
Text
11 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]
|