[comp.sys.handhelds] 2 Vectors -> Array

sburke@jarthur.Claremont.EDU (Scott Burke) (03/10/91)

Hey, while we're at it, here's an even _shorter_ version, which saves 10 more
bytes:

<<
  SWAP OBJ-> EVAL     @ EVAL replaces OBJ-> DROP
  1 + ROLL OBJ->
  2 SWAP + ->ARRY     @ why blow up the list if you're going to re-make it?
>>

Checksum # 52064d; 37.5 bytes for the program object


Scott.
sburke@jarthur.claremont.edu