home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / RiscPc / programmation / scm4e2.arc / !Scm / scm / ScmInit < prev    next >
Text File  |  1995-01-02  |  755b  |  33 lines
  1. ;;; ScmInit - user startup files.
  2. ;;; put anything in here if you want it executed on every startup.
  3. ;;; note that SCM does not echo the fact it is loading this...
  4.  
  5. (define (ed fname)
  6.     (system (string-append "vi <scm$dir>." fname))
  7. )
  8.  
  9. (define shut
  10.     (lambda ()(system "shut")))
  11. ;
  12. ; Set the gfx origin then call the turtle setup to point it due north,
  13. ; and move the gfx pen to where we asked the origin to be.
  14. ;
  15. (define (go)
  16.     (begin
  17.         (mode 12)
  18.         (graphics-origin! 320 200)
  19.         (init-turtle 320 200 90)
  20.     ))
  21.  
  22. ; load in the archi extensions.
  23. (load "<scm$dir>.arc_ext")
  24.  
  25. ; load in Common Lisp compatibility list functions
  26. (require 'common-list-functions)
  27.  
  28. (define (user-interrupt)
  29.     (abort))
  30.  
  31. ; comment this out if you like.
  32. (display "Loaded ScmInit.")(newline)
  33.