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

Some more #lang racket' -> #lang racket/base' conversions

Browse Source 
(And some other related minor racketisms.)
This commit is contained in:
Eli Barzilay 2012-11-06 14:47:08 -05:00
parent bc59cc43d4
commit 39a0ab60a7
8 changed files with 46 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/gui-debugger/debug-tool.rkt
View File

@ -1,14 +1,14 @@
#lang racket #lang racket/base
;; DrRacket's debugging tool ;; DrRacket's debugging tool
(require mzlib/etc (require racket/function
mzlib/list racket/list
mzlib/class racket/class
mzlib/unit racket/unit
mzlib/contract racket/contract
mred racket/match
mzlib/match racket/gui
drscheme/tool drscheme/tool
"marks.rkt" "marks.rkt"
mrlib/switchable-button mrlib/switchable-button
@ -20,7 +20,8 @@
string-constants string-constants
lang/debugger-language-interface lang/debugger-language-interface
images/compile-time images/compile-time
(for-syntax racket/class (for-syntax racket/base
racket/class
racket/draw racket/draw
images/icons/arrow images/icons/arrow
images/icons/control images/icons/control
@ -112,7 +113,7 @@
;; (<form>) => (<form>) ;; (<form>) => (<form>)
;; (<form> <arg1> ... <argn>) => (<form> ...) ;; (<form> <arg1> ... <argn>) => (<form> ...)
(define trim-expr-str (define trim-expr-str
(opt-lambda (str [len 10]) (lambda (str [len 10])
(let* ([strlen (string-length str)] (let* ([strlen (string-length str)]
[starts-with-paren (and (> strlen 0) [starts-with-paren (and (> strlen 0)
(char=? (string-ref str 0) #\())] (char=? (string-ref str 0) #\())]
@ -157,7 +158,7 @@
[else v])) [else v]))
(define filename->defs (define filename->defs
(opt-lambda (source [default #f]) (lambda (source [default #f])
(let/ec k (let/ec k
(cond (cond
[(is-a? source editor<%>) source] [(is-a? source editor<%>) source]
@ -985,7 +986,7 @@
(rest frames)))))) (rest frames))))))
(define/public suspend-gui (define/public suspend-gui
(opt-lambda (frames status [switch-tabs? #f] [already-stopped? #f]) (lambda (frames status [switch-tabs? #f] [already-stopped? #f])
(let ([top-of-stack? (zero? (get-frame-num))] (let ([top-of-stack? (zero? (get-frame-num))]
[status-message (send (get-frame) get-status-message)]) [status-message (send (get-frame) get-status-message)])
(set! want-suspend-on-break? #f) (set! want-suspend-on-break? #f)
@ -1052,7 +1053,7 @@
(define/public suspend (define/public suspend
;; ==called from user thread== ;; ==called from user thread==
(opt-lambda (break-handler frames [status #f]) (lambda (break-handler frames [status #f])
;; suspend-sema ensures that we allow only one suspended thread ;; suspend-sema ensures that we allow only one suspended thread
;; at a time ;; at a time
(cond (cond

5
collects/honu/core/private/syntax.rkt
View File

@ -1,8 +1,9 @@
#lang racket #lang racket/base
(provide (all-defined-out)) (provide (all-defined-out))
(require (for-syntax syntax/define (require (for-syntax racket/base
syntax/define
"transformer.rkt")) "transformer.rkt"))
#| #|

18
collects/lazy/lazy-tool.rkt
View File

@ -1,17 +1,18 @@
#lang racket #lang racket/base
(require string-constants (require racket/unit
racket/class
string-constants
drracket/tool drracket/tool
lang/stepper-language-interface) lang/stepper-language-interface)
(provide tool@) (provide tool@)
(define tool@ (define tool@
(unit (unit
(import drracket:tool^) (import drracket:tool^)
(export drracket:tool-exports^) (export drracket:tool-exports^)
(define (stepper-settings-language %) (define (stepper-settings-language %)
(if (implementation? % stepper-language<%>) (if (implementation? % stepper-language<%>)
(class* % (stepper-language<%>) (class* % (stepper-language<%>)
@ -50,13 +51,12 @@
; (equal? (drracket:language:simple-settings->vector s) ; (equal? (drracket:language:simple-settings->vector s)
; (drracket:language:simple-settings->vector (default-settings)))) ; (drracket:language:simple-settings->vector (default-settings))))
(super-new))) (super-new)))
(define (phase1) (void)) (define (phase1) (void))
;; phase2 : -> void ;; phase2 : -> void
(define (phase2) (define (phase2)
(define lazy-language% (define lazy-language%
(stepper-settings-language (stepper-settings-language
((drracket:language:get-default-mixin) ((drracket:language:get-default-mixin)
@ -64,7 +64,7 @@
(module-based-language-extension (module-based-language-extension
(drracket:language:simple-module-based-language->module-based-language-mixin (drracket:language:simple-module-based-language->module-based-language-mixin
drracket:language:simple-module-based-language%)))))) drracket:language:simple-module-based-language%))))))
(drracket:language-configuration:add-language (drracket:language-configuration:add-language
(instantiate lazy-language% () (instantiate lazy-language% ()
(one-line-summary "Lazy Racket") (one-line-summary "Lazy Racket")

7
collects/mrlib/private/regmk.rkt
View File

@ -1,6 +1,9 @@
#lang racket #lang racket/base
(require (for-syntax racket/base))
(provide define-struct/reg-mk (provide define-struct/reg-mk
id->constructor id->constructor
(struct-out point) (struct-out point)
(struct-out bb)) (struct-out bb))

1
collects/racket/math.rkt
View File

@ -1,5 +1,4 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; math.rkt: some extra math routines ;; math.rkt: some extra math routines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

3
collects/setup/collects.rkt
View File

@ -1,8 +1,7 @@
#lang racket #lang racket/base
(provide (struct-out cc)) (provide (struct-out cc))
(define-struct cc (define-struct cc
(collection path name info omit-root info-root info-path info-path-mode shadowing-policy) (collection path name info omit-root info-root info-path info-path-mode shadowing-policy)
#:inspector #f) #:inspector #f)

12
collects/srfi/19/time.rkt
View File

@ -1,7 +1,7 @@
#lang racket #lang racket/base
;;; ;;;
;;; <time.ss> ---- SRFI 19 Time Data Types and Procedures port to PLT Scheme ;;; <time.ss> ---- SRFI 19 Time Data Types and Procedures port to Racket
;;; Time-stamp: <2004-07-21 12:57:06 solsona> ;;; Time-stamp: <2004-07-21 12:57:06 solsona>
;;; ;;;
;;; Usually, I would add a copyright notice, and the announce that ;;; Usually, I would add a copyright notice, and the announce that
@ -60,7 +60,7 @@
;; -- Multiple helper procedures. TM:xxx procedures are meant to be ;; -- Multiple helper procedures. TM:xxx procedures are meant to be
;; internal. ;; internal.
(require scheme/serialize (require racket/serialize
srfi/8/receive srfi/8/receive
srfi/29 srfi/29
srfi/optional) srfi/optional)
@ -77,12 +77,12 @@
;; Time arithmetic ;; Time arithmetic
time-difference time-difference! add-duration add-duration! subtract-duration subtract-duration! time-difference time-difference! add-duration add-duration! subtract-duration subtract-duration!
;; Date object and accessors ;; Date object and accessors
;; date structure is provided by core PLT Scheme, we just extended tu support miliseconds: ;; date structure is provided by core Racket, we just extended tu support miliseconds:
srfi:make-date srfi:date? srfi:make-date srfi:date?
deserialize-info:tm:date-v0 deserialize-info:tm:date-v0
date-nanosecond srfi:date-second srfi:date-minute srfi:date-hour srfi:date-day srfi:date-month date-nanosecond srfi:date-second srfi:date-minute srfi:date-hour srfi:date-day srfi:date-month
srfi:date-year date-zone-offset srfi:date-year date-zone-offset
;; This are not part of the date structure (as they are in the original PLT Scheme's date) ;; This are not part of the date structure (as they are in the original Racket's date)
srfi:date-year-day srfi:date-week-day date-week-number srfi:date-year-day srfi:date-week-day date-week-number
;; The following procedures work with this modified version. ;; The following procedures work with this modified version.
@ -643,7 +643,7 @@
(tm:set-date-year! d1 (srfi:date-year d0)) (tm:set-date-year! d1 (srfi:date-year d0))
(tm:set-date-zone-offset! d1 (date-zone-offset d0)))))))) (tm:set-date-zone-offset! d1 (date-zone-offset d0))))))))
;; PLT Scheme date structure has the following: ;; Racket's date structure has the following:
;; * second : 0 to 61 (60 and 61 are for unusual leap-seconds) ;; * second : 0 to 61 (60 and 61 are for unusual leap-seconds)
;; * minute : 0 to 59 ;; * minute : 0 to 59
;; * hour : 0 to 23 ;; * hour : 0 to 23

16
collects/test-engine/racket-tests.rkt
View File

@ -1,14 +1,14 @@
#lang racket #lang racket/base
(require lang/private/teachprims (require lang/private/teachprims
(for-syntax lang/private/rewrite-error-message) (for-syntax racket/base
scheme/class lang/private/rewrite-error-message)
scheme/match racket/class
lang/private/continuation-mark-key racket/match
lang/private/continuation-mark-key
lang/private/rewrite-error-message lang/private/rewrite-error-message
(only-in scheme/base for memf findf)
"test-engine.rkt" "test-engine.rkt"
"test-info.scm") "test-info.scm")
(require (for-syntax stepper/private/syntax-property)) (require (for-syntax stepper/private/syntax-property))
@ -72,7 +72,7 @@
#`(define #,bogus-name #`(define #,bogus-name
#,(stepper-syntax-property #,(stepper-syntax-property
#`(let ([test-engine (namespace-variable-value #`(let ([test-engine (namespace-variable-value
'test~object #f builder (current-namespace))]) 'test~object #f builder (current-namespace))])
(when test-engine (when test-engine
(insert-test test-engine (insert-test test-engine
(lambda () (lambda ()