more v4-isms

svn: r8523

collects/swindle/base.ss

@@ -3,7 +3,7 @@
 ;;> The `base' module defines some basic low-level syntactic extensions to
 ;;> MzScheme.  It can be used by itself to get these extensions.
 
-(module base mzscheme
+#lang mzscheme
 
 (provide (all-from-except mzscheme
           #%module-begin #%top #%app define let let* letrec lambda
@@ -19,16 +19,15 @@
       (datum->syntax-object
        (quote-syntax here)
        (list* (quote-syntax #%plain-module-begin)
-              (datum->syntax-object stx
-                                    (list (quote-syntax require-for-syntax)
-                                          '(lib "base.ss" "swindle")))
+              (datum->syntax-object
+               stx (list (quote-syntax require-for-syntax) 'swindle/base))
               (cdr e))
        stx)
       (raise-syntax-error #f "bad syntax" stx)))
   ;; This doesn't work anymore (from 203.4)
   ;; (syntax-rules ()
   ;;   [(_ . body) (#%plain-module-begin
-  ;;                (require-for-syntax (lib "base.ss" "swindle")) . body)])
+  ;;                (require-for-syntax swindle/base) . body)])
   )
 
 ;;>> (#%top . id)
@@ -593,5 +592,3 @@
           [else
            (loop (cddr as)
                  (if (memq (car as) outs) r (list* (cadr as) (car as) r)))])))
-
-)

collects/swindle/clos.ss

@@ -3,10 +3,10 @@
 ;;> This module contains only syntax definitions, which makes Swindle closer
 ;;> to CLOS -- making the object system much more convenient to use.
 
-(module clos (lib "turbo.ss" "swindle")
+#lang s-exp swindle/turbo
 
-(require (lib "tiny-clos.ss" "swindle"))
-(provide (all-from (lib "tiny-clos.ss" "swindle")))
+(require swindle/tiny-clos)
+(provide (all-from swindle/tiny-clos))
 
 ;;; ---------------------------------------------------------------------------
 ;;; General helpers
@@ -730,5 +730,3 @@
 (provide defgeneric*)     (make-provide-syntax defgeneric     defgeneric*)
 (provide defclass*)       (make-provide-syntax defclass       defclass*)
 (provide defentityclass*) (make-provide-syntax defentityclass defentityclass*)
-
-)

collects/swindle/custom.ss

@@ -24,15 +24,16 @@
 ;;; not things that can be made into a module -- a teachpack is better for
 ;;; those.
 
-(module custom (lib "swindle.ss" "swindle")
-  ;; provide all swindle, minus `lambda' which is overriden to `method'
-  (provide (all-from-except (lib "swindle.ss" "swindle") lambda))
-  (provide (rename lambda~ lambda))
-  (defsubst lambda~ method)
-  ;; some default customizations
-  (*make-safely* #t)
-  ;; set some syntax parameters -- must use eval!
-  (eval #'(begin
+#lang swindle
+
+;; provide all swindle, minus `lambda' which is overriden to `method'
+(provide (all-from-except swindle lambda))
+(provide (rename lambda~ lambda))
+(defsubst lambda~ method)
+;; some default customizations
+(*make-safely* #t)
+;; set some syntax parameters -- must use eval!
+(eval #'(begin
           ;; simple defclass forms:
           (-defclass-auto-initargs-
            (;; auto acccessors, constructors, and predicates
@@ -47,9 +48,9 @@
           (-defmethod-create-generics- #f)
           ;; use defgeneric + add-method for accessors (since defmethod now
           ;; wouldn't create the generic)
-            (-defclass-accessor-mode- :defgeneric))))
+          (-defclass-accessor-mode- :defgeneric)))
 
-;;; To make thins even better, it is best to change preferences so Swindle
+;;; To make things even better, it is best to change preferences so Swindle
 ;;; syntax get indented correctly.  For this, create the default preference
 ;;; file "plt/collects/defaults/plt-prefs.ss", and in it you can put any
 ;;; specific preferences you want as the defaults for people who run the system

collects/swindle/extra.ss

@@ -1,9 +1,9 @@
-(module extra (lib "turbo.ss" "swindle")
+#lang s-exp swindle/turbo
 
 ;;> This module defines some additional useful functionality which requires
 ;;> Swindle.
 
-(require (lib "clos.ss" "swindle"))
+(require swindle/clos)
 
 ;;; ---------------------------------------------------------------------------
 ;;; A convenient `defstruct'
@@ -969,5 +969,3 @@
   (ui-question str args "Ok/Cancel" 'ok '(ok-cancel) #\o #\c))
 (define* (yes/no? str . args)
   (ui-question str args "Yes/No" 'yes '(yes-no) #\y #\n))
-
-)

collects/swindle/info.ss

@@ -3,14 +3,10 @@
 (module info setup/infotab
   ;;
   (define name "Swindle")
-  (define blurb
-    '("Swindle extensions for MzScheme -- CLOS and more."))
-  (define help-desk-message
-    "Mz/Mr: (require (lib \"swindle.ss\" \"swindle\"))")
+  (define blurb '("Swindle extensions for MzScheme -- CLOS and more."))
+  (define help-desk-message "Mz/Mr: (require (lib \"swindle.ss\" \"swindle\"))")
   (define mzscheme-launcher-names '("swindle"))
-  (define mzscheme-launcher-flags
-    '(("-me"
-       "(namespace-require/copy (quote (lib \"swindle.ss\" \"swindle\")))")))
+  (define mzscheme-launcher-flags '(("-li" "swindle")))
   ;;
   ;; This simple interface is not enough, use tool.ss instead
   ;; (define drscheme-language-modules

collects/swindle/lang/reader.ss

@@ -0,0 +1,2 @@
+#lang s-exp syntax/module-reader
+swindle

collects/swindle/main.ss

@@ -0,0 +1,17 @@
+;;; Written by Eli Barzilay: Maze is Life!  (eli@barzilay.org)
+
+;;> This module combines all modules to form the Swindle language module.
+;;>
+;;> Note that it does not re-define `#%module-begin', so the language used
+;;> for transformers is still the one defined by `turbo'.
+
+#lang s-exp swindle/turbo
+
+(require swindle/clos swindle/extra)
+(provide (all-from swindle/turbo)
+         (all-from swindle/clos)
+         (all-from swindle/extra))
+(current-prompt-read
+ (let ([old-prompt-read (current-prompt-read)])
+   (lambda () (display "=") (flush-output) (old-prompt-read))))
+(install-swindle-printer)

collects/swindle/misc.ss

@@ -3,14 +3,11 @@
 ;;> A lot of miscellaneous functionality that is needed for Swindle, or
 ;;> useful by itself.
 
-(module misc (lib "base.ss" "swindle")
+#lang s-exp swindle/base
 
-(require (lib "list.ss"))
-(provide (all-from (lib "list.ss")))
-(require (lib "etc.ss"))
-(provide (all-from (lib "etc.ss")))
-(require (all-except (lib "string.ss")))
-(provide (all-from (lib "string.ss")))
+(require mzlib/list)   (provide (all-from mzlib/list))
+(require mzlib/etc)    (provide (all-from mzlib/etc))
+(require mzlib/string) (provide (all-from mzlib/string))
 
 ;; ----------------------------------------------------------------------------
 ;;>>... Convenient syntax definitions
@@ -157,7 +154,7 @@
 ;;>     with `defsubst' above).
 ;;>   * A `letmacro' form for local macros is provided.
 
-(require-for-syntax (lib "dmhelp.ss" "mzlib" "private"))
+(require-for-syntax mzlib/private/dmhelp)
 (provide defmacro letmacro)
 (define-syntaxes (defmacro letmacro)
   (let ()
@@ -1900,5 +1897,3 @@
     [(_ str clause ...)
      #`(let ([s str])
          (cond #,@(map do-clause (syntax->list #'(clause ...)))))]))
-
-)

collects/swindle/patterns.ss

@@ -1,4 +1,4 @@
-(module patterns mzscheme
+#lang mzscheme
 
 (provide (all-from-except mzscheme
                           define-values
@@ -263,5 +263,3 @@
 ;; (require foo)
 ;; (define a (make-point 1 2))
 ;; (let ([(make-point x y) a]) (+ x y))
-
-)

collects/swindle/setf.ss

@@ -8,7 +8,7 @@
 ;;> this just defines the basic functionality, the `misc' module defines
 ;;> many common setters.
 
-(module setf mzscheme
+#lang mzscheme
 
 ;;>> (setf! place value ...)
 ;;>   Expand `(setf! (foo ...) v)' to `(set-foo! ... v)'.  The generated
@@ -274,5 +274,3 @@
                   (lambda (p)
                     #`(let ([p1 #,p])
                         (begin0 (car p1) (setf! #,p (cdr p1))))))])))))
-
-)

collects/swindle/swindle.ss

@@ -1,21 +0,0 @@
-;;; Written by Eli Barzilay: Maze is Life!  (eli@barzilay.org)
-
-;;> This module combines all modules to form the Swindle language module.
-;;>
-;;> Note that it does not re-define `#%module-begin', so the language used
-;;> for transformers is still the one defined by `turbo'.
-
-(module swindle (lib "turbo.ss" "swindle")
-  (require (lib "clos.ss" "swindle")
-           (lib "extra.ss" "swindle"))
-  (provide (all-from (lib "turbo.ss" "swindle"))
-           (all-from (lib "clos.ss" "swindle"))
-           (all-from (lib "extra.ss" "swindle")))
-  (current-prompt-read
-   (let ([old-prompt-read (current-prompt-read)])
-     (lambda () (display "=") (flush-output) (old-prompt-read))))
-  (install-swindle-printer)
-  ;; This comes out ugly in DrScheme.
-  ;; (printf
-  ;;  "Welcome to Swindle -- Eli Barzilay: Maze is Life! (eli@barzilay.org)\n")
-  )

collects/swindle/tiny-clos.ss

@@ -30,7 +30,7 @@
 ;;; DAMAGES.
 ;;; ***************************************************************************
 
-(module tiny-clos (lib "base.ss" "swindle")
+#lang s-exp swindle/base
 
 ;;; A very simple CLOS-like language, embedded in Scheme, with a simple MOP.
 ;;; The features of the default base language are:
@@ -116,7 +116,7 @@
 ;;; OK, now let's get going.  But, as usual, before we can do anything
 ;;; interesting, we have to muck around for a bit first.  First, we need to
 ;;; load the support library.  [-- replaced with a module.]
-(require (lib "misc.ss" "swindle"))
+(require swindle/misc)
 
 ;; This is a convenient function for raising exceptions
 (define (raise* exn-maker fmt . args)
@@ -2336,5 +2336,3 @@
 ;;>       compute-methods
 ;;>         compute-method-more-specific?
 ;;>       compute-apply-methods
-
-)

collects/swindle/tool.ss

@@ -1,16 +1,18 @@
 ;;; Written by Eli Barzilay: Maze is Life!  (eli@barzilay.org)
 
-;; This allows adding a Swindle icon on startup.
-(module tool mzscheme
-  (require (lib "unit.ss")
-           (lib "tool.ss" "drscheme")
-           (lib "class.ss")
-           (lib "list.ss")
-           (lib "mred.ss" "mred")
-           (lib "sendurl.ss" "net")
-           (lib "string-constant.ss" "string-constants"))
-  (provide tool@)
-  (define tool@
+;; Add the Swindle languages to DrScheme
+#lang mzscheme
+
+(require mzlib/unit
+         drscheme/tool
+         mzlib/class
+         mzlib/list
+         mred/mred
+         net/sendurl
+         string-constants/string-constant)
+(provide tool@)
+
+(define tool@
   (unit (import drscheme:tool^) (export drscheme:tool-exports^) 
     ;; Swindle languages
     (define (swindle-language module* name* entry-name* num* one-line* url*)
@@ -117,8 +119,7 @@
                            name entry-name num one-line url)))))
     (define phase1 void)
     (define (phase2)
-        (for-each (lambda (args)
-                    (apply add-swindle-language `(,@args #f)))
+      (for-each (lambda (args) (apply add-swindle-language `(,@args #f)))
                 '(("Swindle" "swindle" "Full Swindle" 0
                    "Full Swindle extensions")
                   ("Swindle w/o CLOS" "turbo" "Swindle without CLOS" 1
@@ -159,4 +160,4 @@
                        name file dname counter one-line url))))))))
         (for-each do-customize
                   (sort (map path->string (directory-list)) string<?))))
-      )))
+    ))

collects/swindle/turbo.ss

@@ -4,13 +4,12 @@
 ;;> new language module.  Use this module to get most of Swindle's
 ;;> functionality which is unrelated to the object system.
 
-(module turbo (lib "base.ss" "swindle")
-  (require (lib "setf.ss" "swindle")
-           (lib "misc.ss" "swindle"))
-  (provide (all-from-except (lib "base.ss" "swindle")
-                            set! set!-values #%module-begin)
+#lang s-exp swindle/base
+
+(require swindle/setf swindle/misc)
+(provide (all-from-except swindle/base set! set!-values #%module-begin)
          (rename module-begin~ #%module-begin)
-           (all-from-except (lib "setf.ss" "swindle") setf! psetf!)
+         (all-from-except swindle/setf setf! psetf!)
 ;;>> (set! place value ...)  [*syntax*]
 ;;>> (pset! place value ...) [*syntax*]
 ;;>> (set!-values (place ...) expr) [*syntax*]
@@ -19,11 +18,11 @@
 ;;>   `set!' and `set!-values' syntaxes are overridden.
          (rename setf! set!) (rename psetf! pset!)
          (rename setf!-values set!-values)
-           (all-from (lib "misc.ss" "swindle")))
+         (all-from swindle/misc))
 ;;>> #%module-begin
 ;;>   `turbo' is a language module -- it redefines `#%module-begin' to load
 ;;>   itself for syntax definitions.
-  (defsyntax (module-begin~ stx)
+(defsyntax (module-begin~ stx)
   (let ([e (if (syntax? stx) (syntax-e stx) stx)])
     (if (pair? e)
       (datum->syntax-object
@@ -41,4 +40,3 @@
   ;;    (#%plain-module-begin
   ;;     (require-for-syntax (lib "turbo.ss" "swindle")) . body)])
   )
-  )