separate (Compilation_Unit)
function Peek (From : in Ada_Compilation_Unit; Offset : in Integer := 1)
              return Token_Package.Token is
    --=================================================================
    -- Peek allows a user to peek forward or backward from current   ==
    -- position (values of Offset determines direction of Peek). If  ==
    -- a user tries to peek to a non-existent token, exception       ==
    -- SYNTAX_ERROR will be raised.                                  ==
    -- Peek will return the Nth significant token in front of/behind ==
    -- the current token location denoted by Origin (N = Offset)     ==
    --=================================================================

begin
    -- Peek

    return New_List.Content_Of (New_List.List
                                   (Seek (Origin => From, Offset => Offset)));
    -- SYNTAX_ERROR is raised in Seek if trying to peek
    -- at non-existent token.

end Peek;