\ cpairs    10/04/97  gwj
\ compile-time versions of the pair
\ words; requires pairs be loaded
require pairs

: (open.pair)  ( addr -- pair# ) 
    dup cell+ >r @ execute r> @ ;

\ compile-time pair words
: cpair{:  ( pair# ; name exec -- )
   (make.pair) , , does> (open.pair) ;
: }cpair{:  
( c.pair# o.pair# ; name exec -- )
   (make.pair) rot , , , 
    does> (close.pair) (open.pair) ;
: }cpair:  ( pair# ; name exec -- )
   (make.pair) swap , , 
   does> (close.pair) @ execute ;