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

#lang racket' -> #lang racket/base' conversions in stepper.

Browse Source
This commit is contained in:
Eli Barzilay 2012-11-06 15:33:49 -05:00
parent 586b323430
commit 6e4cad01e6
11 changed files with 34 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/stepper/external-interface.rkt
View File

@ -1,6 +1,7 @@
#lang racket #lang racket/base
(require "private/annotate.rkt" (require racket/contract
"private/annotate.rkt"
"private/marks.rkt") "private/marks.rkt")
;; an external interface for the stepper. ;; an external interface for the stepper.

3
collects/stepper/private/annotate.rkt
View File

@ -1,6 +1,7 @@
#lang racket #lang racket/base
(require (prefix-in kernel: syntax/kerncase) (require (prefix-in kernel: syntax/kerncase)
racket/match
racket/contract racket/contract
"marks.rkt" "marks.rkt"
"shared.rkt" "shared.rkt"

6
collects/stepper/private/display-break-stuff.rkt
View File

@ -1,6 +1,6 @@
#lang racket #lang racket/base
(require mred mzlib/class "marks.rkt") (require racket/gui racket/class "marks.rkt")
(provide display-break-stuff) (provide display-break-stuff)
@ -63,5 +63,3 @@
returned-value-list) returned-value-list)
(add-sel break-number mark-set break-kind returned-value-list) (add-sel break-number mark-set break-kind returned-value-list)
(send f show #t)) (send f show #t))

4
collects/stepper/private/lifting.rkt
View File

@ -1,6 +1,8 @@
#lang racket #lang racket/base
(require (prefix-in kernel: syntax/kerncase) (require (prefix-in kernel: syntax/kerncase)
racket/match
racket/contract
"shared.rkt" "shared.rkt"
"syntax-property.rkt" "syntax-property.rkt"
(for-syntax racket/base)) (for-syntax racket/base))

4
collects/stepper/private/macro-unwind.rkt
View File

@ -1,6 +1,8 @@
#lang racket #lang racket/base
(require (only-in syntax/kerncase kernel-syntax-case) (require (only-in syntax/kerncase kernel-syntax-case)
racket/list
racket/contract
"model-settings.rkt" "model-settings.rkt"
"shared.rkt" "shared.rkt"
"syntax-property.rkt") "syntax-property.rkt")

4
collects/stepper/private/mred-extensions.rkt
View File

@ -1,6 +1,6 @@
#lang racket #lang racket/base
(require mred (require racket/gui
(prefix-in f: framework) (prefix-in f: framework)
racket/pretty racket/pretty
"syntax-property.rkt" "syntax-property.rkt"

4
collects/stepper/private/my-macros.rkt
View File

@ -1,5 +1,7 @@
#lang racket #lang racket/base
(require (for-syntax racket/base)
racket/match)
;;;;;;;;;; ;;;;;;;;;;
;; ;;

9
collects/stepper/private/shared.rkt
View File

@ -1,6 +1,11 @@
#lang racket #lang racket/base
(require "syntax-property.rkt") (require racket/list
racket/match
racket/contract
racket/class
racket/unit
"syntax-property.rkt")
; CONTRACTS ; CONTRACTS

4
collects/stepper/private/xml-snip-helpers.rkt
View File

@ -1,8 +1,8 @@
#lang racket #lang racket/base
(require xml/xml (require xml/xml
syntax/readerr syntax/readerr
mred racket/gui
"syntax-property.rkt") "syntax-property.rkt")
(provide xml-read-special (provide xml-read-special

5
collects/stepper/stepper+xml-tool.rkt
View File

@ -1,6 +1,7 @@
#lang racket #lang racket/base
(require drracket/tool (require racket/unit
drracket/tool
"stepper-tool.rkt" "stepper-tool.rkt"
"xml-tool.rkt" "xml-tool.rkt"
"private/view-controller.rkt") "private/view-controller.rkt")

5
collects/stepper/xml-tool.rkt
View File

@ -1,9 +1,10 @@
#lang racket #lang racket/base
(require "private/xml-snip-helpers.rkt" (require "private/xml-snip-helpers.rkt"
"private/find-tag.rkt" "private/find-tag.rkt"
"private/xml-sig.rkt" "private/xml-sig.rkt"
mred racket/unit
racket/gui
framework framework
drracket/tool drracket/tool
xml/xml xml/xml