-- SegmentsExtra.Mesa
-- last edited 30-Jul-81  8:47:08 by Paul Rovner

DIRECTORY
  Space USING[Handle],
  Segments USING[Access, DefaultAccess, SHandle];

SegmentsExtra: DEFINITIONS =
 { OPEN Space, Segments;

   NewSegmentForSpace: PROC[space: Handle, access: Access ← DefaultAccess]
        RETURNS[SHandle];  -- exported by PilotSSImpl

 }.