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

#lang racket' -> #lang racket/base' conversions in drracket and in redex.

Browse Source
This commit is contained in:
Eli Barzilay 2012-11-06 15:07:09 -05:00
parent 39a0ab60a7
commit 26045a27fb
4 changed files with 28 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/drracket/private/colored-errors.rkt
View File

@ -1,13 +1,18 @@
#lang racket #lang racket/base
(define-syntax (test stx) #'(begin)) ;; TODO: convert my test into DrRacket's test framework (require (for-syntax racket/base)
(require ; gmarceau/test racket/list
parser-tools/lex racket/string
racket/contract
racket/match
parser-tools/lex
(prefix-in : parser-tools/lex-sre) (prefix-in : parser-tools/lex-sre)
(rename-in srfi/26 [cut //]) (rename-in srfi/26 [cut //])
(only-in srfi/1 break) (only-in srfi/1 break)
unstable/contract) unstable/contract)
(define-syntax (test stx) #'(begin)) ;; TODO: convert my test into DrRacket's test framework
;; An error message has many fragments. The fragments will be concatenated ;; An error message has many fragments. The fragments will be concatenated
;; before being presented to the user. Some fragment are simply string. ;; before being presented to the user. Some fragment are simply string.
(struct msg-fragment:str (str) #:transparent) (struct msg-fragment:str (str) #:transparent)

9
collects/drracket/private/follow-log.rkt
View File

@ -1,5 +1,10 @@
#lang racket #lang racket/base
(require racket/gui/base
(require racket/list
racket/class
racket/match
racket/pretty
racket/gui/base
framework/private/logging-timer) framework/private/logging-timer)
#| #|

8
collects/redex/private/compiler/redextomatrix.rkt
View File

@ -1,9 +1,13 @@
#lang racket #lang racket/base
(require (except-in racket/base compile)
racket/function
racket/match)
(require (except-in redex make-bind plug)) (require (except-in redex make-bind plug))
(require "match.rkt") (require "match.rkt")
(require racket/set) (require racket/set)
(require profile) (require profile)
(require (only-in "../../private/matcher.rkt" (require (only-in "../../private/matcher.rkt"
make-bindings make-bindings
make-bind make-bind
make-mtch make-mtch

8
collects/redex/private/pat-unify.rkt
View File

@ -1,6 +1,10 @@
#lang racket #lang racket/base
(require (for-syntax "rewrite-side-conditions.rkt") (require racket/list
racket/contract
racket/set
racket/match
(for-syntax "rewrite-side-conditions.rkt")
"match-a-pattern.rkt" "match-a-pattern.rkt"
"matcher.rkt" "matcher.rkt"
"extract-conditions.rkt") "extract-conditions.rkt")