Fix an error that gsingle() can only apply to variables. gsingle(1) would return error and gsingle(single(1)) is OK.