Artifact 2715c12271c9a68974e99db684bacf0f2d287a9bd5909066256c5592f809dea8:

• File psl-1983/3-1/util/if-system.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: 546) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/util/if-system.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: 546) [annotate] [blame] [check-ins using]

%
% IF-SYSTEM.RED - Conditional compilation for system-dependent code
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        10 March 1982
% Copyright (c) 1982 University of Utah
%

fluid '(system_list!*);

macro procedure if_system U;
    do_if_system(cadr U, caddr U, if cdddr U then cadddr U else NIL);

expr procedure do_if_system(system_name, true_case, false_case);
    if system_name memq system_list!* then true_case else false_case;

END;