mkfasl 869 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. #!/bin/csh -f
  2. # mkfasl --- Make a fasl file.
  3. # Author: Anthony C. Hearn.
  4. rm -f $reduce/log/mk$1.log
  5. $reduce/reduce >& $reduce/log/mk$1.log << EOF
  6. symbolic;
  7. % Compiler loading and modifications.
  8. dskin "$reduce/src/symget.dat"; % Fast symprp access
  9. load compiler;
  10. remprop('wplus2,'one); % For hilbertp.
  11. remprop('log,'no!-side!-effects!?); % So that math can be fasled.
  12. remprop('atan,'no!-side!-effects!?); % So that math can be fasled.
  13. load fast!-vector; % To use IGETV, etc.
  14. dskin "$reduce/src/compat.sl"; % Some improvements ?!
  15. !*verboseload := t; % To help debugging.
  16. !*fastcar := t; % Since we assume all car/cdr calls are correct.
  17. for each x in '( $3 ) do eval list('load, x); % $3 is normally null.
  18. faslout "$reduce/fasl/$1";
  19. in "$reduce/src/$1.red"\$
  20. faslend;
  21. showtime;
  22. bye;
  23. EOF