conlaw.red 395 B

1234567891011121314151617
  1. module conlaw; % Conservation laws using CRACK
  2. % This header file by FJW, 28 July 1998
  3. create!-package('(conlaw conlaw0 conlaw1 conlaw2 conlaw3), nil);
  4. % FJW: Load support packages, but not when compiling:
  5. !#if (getd 'packages_to_load)
  6. packages_to_load crack;
  7. !#else % for REDUCE 3.6
  8. apply1('load!-package, 'crack);
  9. !#endif
  10. endmodule;
  11. end;