Two more #lang racket' ->
#lang racket/base'.
This commit is contained in:
parent
672910f27b
commit
1e55f71f8a
|
@ -1,4 +1,4 @@
|
||||||
#lang racket
|
#lang racket/base
|
||||||
|
|
||||||
;; ---------------------------------------------------------------------------------------------------
|
;; ---------------------------------------------------------------------------------------------------
|
||||||
;; provides constants and functions for specifying the shape of clauses in big-bang and universe
|
;; provides constants and functions for specifying the shape of clauses in big-bang and universe
|
||||||
|
@ -6,7 +6,7 @@
|
||||||
(provide nat> nat? proc> bool> num> ip> string> symbol> string-or-symbol> any> K False True)
|
(provide nat> nat? proc> bool> num> ip> string> symbol> string-or-symbol> any> K False True)
|
||||||
|
|
||||||
(require htdp/error "check-aux.rkt")
|
(require htdp/error "check-aux.rkt")
|
||||||
|
|
||||||
(define (K w . r) w)
|
(define (K w . r) w)
|
||||||
(define (False w) #f)
|
(define (False w) #f)
|
||||||
(define (True w) #t)
|
(define (True w) #t)
|
||||||
|
|
|
@ -1,6 +1,7 @@
|
||||||
#lang racket
|
#lang racket/base
|
||||||
|
|
||||||
(require teachpack/2htdp/scribblings/img-eval
|
(require teachpack/2htdp/scribblings/img-eval
|
||||||
|
racket/pretty
|
||||||
racket/sandbox
|
racket/sandbox
|
||||||
mzlib/pconvert
|
mzlib/pconvert
|
||||||
file/convertible
|
file/convertible
|
||||||
|
|
Loading…
Reference in New Issue
Block a user