\ gpairs    10/04/97   gwj
\ group-aware pairs
require pairs
require group

: gpair{:   ( pair# ; name exe -- )
    (make.pair) , ,
    does> ,open.pair postpone group{ ;

: }gpair:   ( pair# ; name exe -- )
    (make.pair) swap , ,
    does> >r postpone }group r>
    (close.pair) @ compile, 
    postpone reregroup  ;