suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Newlines at EOFs

Browse Source 
* Another big chunk of v4-require-isms
* Allow `#lang framework/keybinding-lang' for keybinding files
* Move hierlist sources into "mrlib/hierlist", leave stub behind

svn: r10689

original commit: 7d50e61c7f6831936e13e6af5140db65db18fe1c
This commit is contained in:
Eli Barzilay 2008-07-09 07:18:06 +00:00
parent 9f077008d6
commit ebf2c47c5f
8 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/cm-accomplice.ss
View File

@ -12,7 +12,7 @@
(thread-wait (thread-wait
(thread (lambda () (thread (lambda ()
(set! param (set! param
(dynamic-require '(lib "cm-ctime.ss" "mzlib/private") (dynamic-require 'mzlib/private/cm-ctime
'current-external-file-registrar))))) 'current-external-file-registrar)))))
((param) f)))) ((param) f))))

2
collects/mzlib/cm.ss
View File

@ -1,7 +1,7 @@
(module cm scheme/base (module cm scheme/base
(require syntax/modcode (require syntax/modcode
syntax/modresolve syntax/modresolve
(lib "main-collects.ss" "setup") setup/main-collects
scheme/file) scheme/file)
(provide make-compilation-manager-load/use-compiled-handler (provide make-compilation-manager-load/use-compiled-handler

4
collects/mzlib/etc.ss
View File

@ -1,6 +1,6 @@
#lang mzscheme #lang mzscheme
(require (lib "main-collects.ss" "setup") (require setup/main-collects
scheme/local scheme/local
scheme/bool scheme/bool
(only scheme/base (only scheme/base
@ -14,7 +14,7 @@
(require-for-syntax syntax/kerncase (require-for-syntax syntax/kerncase
syntax/stx syntax/stx
syntax/name syntax/name
(lib "main-collects.ss" "setup") setup/main-collects
"private/stxset.ss") "private/stxset.ss")
(provide boolean=? symbol=? (provide boolean=? symbol=?

2
collects/mzlib/pretty.ss
View File

@ -10,7 +10,7 @@
;; (current-print pretty-print-handler) ;; (current-print pretty-print-handler)
(module pretty mzscheme (module pretty mzscheme
(require (lib "port.ss" "mzlib" "private")) (require mzlib/private/port)
(provide pretty-print (provide pretty-print
pretty-display pretty-display

2
collects/tests/mzscheme/unit.ss
View File

@ -2,7 +2,7 @@
(load-relative "loadtest.ss") (load-relative "loadtest.ss")
(Section 'unit) (Section 'unit)
(require (lib "mzlib/unit200.ss")) (require mzlib/unit200)
;; Hide keywords from scheme/unit.ss: ;; Hide keywords from scheme/unit.ss:
(define import #f) (define import #f)

6
collects/tests/mzscheme/unitsig.ss
View File

@ -6,9 +6,9 @@
(define export #f) (define export #f)
(define link #f) (define link #f)
(require (lib "mzlib/unit200.ss")) (require mzlib/unit200)
(require (lib "mzlib/unitsig200.ss")) (require mzlib/unitsig200)
(require (lib "mzlib/include.ss")) (require mzlib/include)
(Section 'unit/sig) (Section 'unit/sig)