From 98740390faeb8ccd0ffe6d74f4f227d3dfd09ecd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Jul 2011 22:44:48 -0600 Subject: [PATCH] adapt demodularizer to `compiler/zo-struct' change --- collects/compiler/demodularizer/nodep.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/demodularizer/nodep.rkt b/collects/compiler/demodularizer/nodep.rkt index 56a5818450..b9d7a8eb79 100644 --- a/collects/compiler/demodularizer/nodep.rkt +++ b/collects/compiler/demodularizer/nodep.rkt @@ -163,13 +163,13 @@ empty (begin (hash-set! REQUIRED ct #t) - (list (make-req (make-stx (make-wrapped ct empty #f)) (make-toplevel 0 0 #f #f)))))] + (list (make-req (make-stx (make-wrapped ct empty 'clean)) (make-toplevel 0 0 #f #f)))))] [(module-path-index? ct) (if (hash-has-key? REQUIRED ct) empty (begin (hash-set! REQUIRED ct #t) - (list (make-req (make-stx (make-wrapped ct empty #f)) (make-toplevel 0 0 #f #f)))))] + (list (make-req (make-stx (make-wrapped ct empty 'clean)) (make-toplevel 0 0 #f #f)))))] [(not ct) empty] [(@phase? ct)