home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / b116_1 / jacal / scl < prev    next >
Text File  |  1993-06-08  |  798b  |  27 lines
  1. ;;; JACAL: Symbolic Mathematics System.        -*-scheme-*-
  2. ;;; Copyright 1989, 1990, 1991, 1992, 1993 Aubrey Jaffer.
  3. ;;; See the file "COPYING" for terms applying to this program.
  4.  
  5. (require 'rev3-procedures)
  6. (require 'rev4-optional-procedures)
  7. (require 'with-file)
  8. (require 'transcript)
  9. (require 'dynamic-wind)
  10. (require 'common-list-functions)
  11. (require 'sort)
  12. (require 'alist)
  13. ;(require 'hash-table)
  14. (define (copy-vector v)
  15.   (let* ((vl (vector-length v))
  16.      (iv (make-vector vl)))
  17.     (do ((i (+ -1 (vector-length iv)) (+ -1 i)))
  18.     ((negative? i))
  19.       (vector-set! iv i (vector-ref v i)))
  20.     iv))
  21.  
  22. (define base-language 'scheme)
  23. ;;; The rest define dummy functions for common-lisp compatability
  24. ;(define char-code-limit 256)
  25. (define (funcall p . args) (apply p args))
  26. (define proclaim identity)
  27.