home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / swat / scheme / swat.cbf < prev    next >
Text File  |  1995-08-02  |  1KB  |  45 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. ;;(define (cf-conditionally filename)
  4. ;;  (sf-conditionally filename)
  5. ;;  (if (not (file-processed? filename "bin" "com"))
  6. ;;      (compile-bin-file filename)))
  7. ;;
  8. ;;
  9. ;;(fluid-let ((sf/default-syntax-table syntax-table/system-internal)
  10. ;;        (sf/default-declarations (cons '(usual-integrations)
  11. ;;                       sf/default-declarations)))
  12. ;;  (cf-conditionally "scc-macros")
  13. ;;  (load "scc-macros")
  14. ;;  (cf-conditionally "uitk-macros")
  15. ;;  (load "uitk-macros")
  16. ;;  (cf-conditionally "control-floating-errors")
  17. ;;  (cf-conditionally "structures")
  18. ;;  (cf-conditionally "structures2")
  19. ;;  (cf-conditionally "generics")
  20. ;;  (cf-conditionally "widget-mit")
  21. ;;  (cf-conditionally "tk-mit")
  22. ;;  (cf-conditionally "uitk")
  23. ;;  (cf-conditionally "xlibCONSTANTS")
  24. ;;  (cf-conditionally "mit-xlib")
  25. ;;  (cf-conditionally "mit-xhooks")
  26. ;;  (cf-conditionally "baseobj")
  27. ;;  (cf-conditionally "widget")
  28. ;;  (cf-conditionally "geometry")
  29. ;;  (cf-conditionally "simple")
  30. ;;  (cf-conditionally "canvas")
  31. ;;  (cf-conditionally "menu")
  32. ;;  (cf-conditionally "text")
  33. ;;
  34. ;;  )
  35. ;;
  36.  
  37.  
  38.  
  39. (compile-directory ".")
  40.  
  41. ;; For `make install':
  42.  
  43. (with-output-to-file "compiled"
  44.   (lambda ()
  45.     (write "Scheme compiled")))