Artifact a830b6229af8724c119a8c41199a81185c026bbaf9421b8c7a702f6c60af408b:

• Executable file r37/lisp/csl/cslbase/i86.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

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

• Executable file r38/lisp/csl/cslbase/i86.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

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

lisp;
on comp;

in "i86comp.red"$

on backtrace;

!*genlisting := t;

symbolic procedure foo x; if x then 'one else 'two;

i86!-compile '(de foo (x) (if x 'one 'two));

symbolic procedure fact n;
  if n = 0 then 1 else n * fact sub1 n;

i86!-compile '(de fact (n) (if (equal n 0) 1 (times n (fact (sub1 n)))));

symbol!-env 'fact;

fact 0;
fact 1;
fact 2;
fact 5;
fact 10;

preserve();

end;