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

expander: fix bootstrap to work on RacketCS

Browse Source 
The expander relies on an extra primitive when running on RacketCS.
This commit is contained in:
Matthew Flatt 2019-01-01 13:43:04 -07:00
parent b9e1d23f0d
commit c60a081115
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/expander/run/linklet.rkt
View File

@ -1,5 +1,6 @@
#lang racket/base #lang racket/base
(require racket/unsafe/undefined (require racket/unsafe/undefined
racket/fasl
"../common/set.rkt" "../common/set.rkt"
"../syntax/datum-map.rkt" "../syntax/datum-map.rkt"
"../host/correlate.rkt" "../host/correlate.rkt"
@ -170,7 +171,10 @@
(namespace-set-variable-value! 'variable-reference? variable-reference? #t) (namespace-set-variable-value! 'variable-reference? variable-reference? #t)
(namespace-set-variable-value! 'variable-reference->instance variable-reference->instance #t) (namespace-set-variable-value! 'variable-reference->instance variable-reference->instance #t)
(namespace-set-variable-value! 'variable-reference-constant? variable-reference-constant?* #t) (namespace-set-variable-value! 'variable-reference-constant? variable-reference-constant?* #t)
(namespace-set-variable-value! 'variable-reference-from-unsafe? variable-reference-from-unsafe?* #t)) (namespace-set-variable-value! 'variable-reference-from-unsafe? variable-reference-from-unsafe?* #t)
;; Needed when the host is RacketCS:
(namespace-set-variable-value! 'fasl->s-exp/intern (lambda (v)
(fasl->s-exp v #:datum-intern? #t))))
;; ---------------------------------------- ;; ----------------------------------------