Artifact 9b4fa0d5ba725cc0bda32b39c2ba65c79fd148f53a748d40bef0334988c02aba:

• File psl-1983/3-1/kernel/type-errors.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1881) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/kernel/type-errors.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1881) [annotate] [blame] [check-ins using]

%
% TYPE-ERRORS.RED - Error handlers for common type mismatches
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        15 September 1981
% Copyright (c) 1981 University of Utah
%

% Edit by Cris Perdue, 27 Jan 1983 1621-PST
% Added NonIOChannelError
%  <PSL.INTERP>TYPE-ERRORS.RED.6, 20-Jan-82 03:10:00, Edit by GRISS
%  Added NonWords Error

lisp procedure TypeError(Offender, Fn, Typ);
    StdError BldMsg("An attempt was made to do %p on %r, which is not %w",
						Fn, Offender,	      Typ);

lisp procedure UsageTypeError(Offender, Fn, Typ, Usage);
    StdError
	BldMsg("An attempt was made to use %r as %w in %p, where %w is needed",
					Offender, Usage, Fn,	Typ);

lisp procedure IndexError(Offender, Fn);
    UsageTypeError(Offender, Fn, "an integer", "an index");

lisp procedure NonPairError(Offender, Fn);
    TypeError(Offender, Fn, "a pair");

lisp procedure NonIDError(Offender, Fn);
    TypeError(Offender, Fn, "an identifier");

lisp procedure NonNumberError(Offender, Fn);
    TypeError(Offender, Fn, "a number");

lisp procedure NonIntegerError(Offender, Fn);
    TypeError(Offender, Fn, "an integer");

lisp procedure NonPositiveIntegerError(Offender, Fn);
    TypeError(Offender, Fn, "a non-negative integer");

lisp procedure NonCharacterError(Offender, Fn);
    TypeError(Offender, Fn, "a character");

lisp procedure NonStringError(Offender, Fn);
    TypeError(Offender, Fn, "a string");

lisp procedure NonVectorError(Offender, Fn);
    TypeError(Offender, Fn, "a vector");

lisp procedure NonWords(Offender, Fn);
    TypeError(Offender, Fn, "a words vector");

lisp procedure NonSequenceError(Offender, Fn);
    TypeError(Offender, Fn, "a sequence");

lisp procedure NonIOChannelError(Offender, Fn);
    TypeError(Offender, Fn, "a legal I/O channel");

END;