From c60a081115c3635e5796d5ea2cc73b5b8a448402 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 1 Jan 2019 13:43:04 -0700 Subject: [PATCH] expander: fix bootstrap to work on RacketCS The expander relies on an extra primitive when running on RacketCS. --- racket/src/expander/run/linklet.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/racket/src/expander/run/linklet.rkt b/racket/src/expander/run/linklet.rkt index f9735518b0..0d14ce2891 100644 --- a/racket/src/expander/run/linklet.rkt +++ b/racket/src/expander/run/linklet.rkt @@ -1,5 +1,6 @@ #lang racket/base (require racket/unsafe/undefined + racket/fasl "../common/set.rkt" "../syntax/datum-map.rkt" "../host/correlate.rkt" @@ -170,7 +171,10 @@ (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-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)))) ;; ----------------------------------------