Use lazy
instead of delay
, as recommended by Eli.
original commit: 22904ef43eeb947b6435983857baa62c4533a5e8
This commit is contained in:
parent
9ee5660550
commit
be30f1ae76
|
@ -79,7 +79,7 @@
|
|||
;; this parameter is just for printing types
|
||||
;; this is a parameter to avoid dependency issues
|
||||
[current-type-names
|
||||
(delay
|
||||
(lazy
|
||||
(append
|
||||
(type-name-env-map (lambda (id ty)
|
||||
(cons (syntax-e id) ty)))
|
||||
|
|
|
@ -50,7 +50,7 @@
|
|||
;; this parameter is just for printing types
|
||||
;; this is a parameter to avoid dependency issues
|
||||
[current-type-names
|
||||
(delay
|
||||
(lazy
|
||||
(append
|
||||
(type-name-env-map (lambda (id ty)
|
||||
(cons (syntax-e id) ty)))
|
||||
|
|
|
@ -151,7 +151,7 @@ don't depend on any other portion of the system
|
|||
|
||||
;; parameter for currently-defined type aliases
|
||||
;; this is used only for printing type names
|
||||
(define current-type-names (make-parameter (delay '())))
|
||||
(define current-type-names (make-parameter (lazy '())))
|
||||
|
||||
;; for reporting internal errors in the type checker
|
||||
(define-struct (exn:fail:tc exn:fail) ())
|
||||
|
|
Loading…
Reference in New Issue
Block a user