From 9e6f4500053ce6e2b5ca09fdad04c8bfe81017a9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 27 Jun 2018 07:23:51 -0600 Subject: [PATCH] unbreak startup cifiy Should have been part of ec036a0f5f. --- racket/src/racket/src/cify-startup.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/cify-startup.rkt b/racket/src/racket/src/cify-startup.rkt index 33c19225f0..0343fd0dbf 100644 --- a/racket/src/racket/src/cify-startup.rkt +++ b/racket/src/racket/src/cify-startup.rkt @@ -69,7 +69,7 @@ (printf "Schemify...\n") (define body (time - (schemify-body bodys/constants-lifted (lambda (old-v new-v) new-v) prim-knowns #hasheq() #hasheq() + (schemify-body bodys/constants-lifted prim-knowns #hasheq() #hasheq() ;; for cify: #t ;; unsafe mode: @@ -78,7 +78,7 @@ (printf "Lift...\n") (define lifted-body (time - (lift-in-schemified-body body (lambda (old new) new)))) + (lift-in-schemified-body body))) (define converted-body (append (for/list ([p (in-list lifted-constants)])