From 89d1a1feb0ec6d901b420e94d0cb72e6ffc77248 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 1 Apr 2011 17:14:55 -0400 Subject: [PATCH] in lazy/lazy.rkt: - remove all stepper hints and properties - change !*app to use application instead of let (stepper has difficulty with temp vars of let) --- collects/lazy/lazy.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/lazy/lazy.rkt b/collects/lazy/lazy.rkt index b881061803..e8272fbfc8 100644 --- a/collects/lazy/lazy.rkt +++ b/collects/lazy/lazy.rkt @@ -200,7 +200,8 @@ (define-syntax (hidden-! stx) (syntax-case stx (!) - [(_ arg) (stepper-syntax-property #'(! arg) 'stepper-skipto + [(_ arg) (syntax/loc stx (! arg)) + #;(stepper-syntax-property #'(! arg) 'stepper-skipto (append skipto/cdr skipto/second))])) (define-syntax (!*app stx) @@ -223,7 +224,10 @@ (with-syntax ([lazy (syntax/loc stx (p y ...))] [strict (syntax/loc stx (p (hidden-! y) ...))]) (quasisyntax/loc stx - (let ([p f] [y x] ...) + ((lambda (p y ...) + (if (lazy? p) lazy strict)) + f x ...) + #;(let ([p f] [y x] ...) ;; #,($$ #`(if (lazy? p) lazy strict)) (if (lazy? p) lazy strict))))))]))