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

in lazy/lazy.rkt:

Browse Source 
- remove all stepper hints and properties
- change !*app to use application instead of let
  (stepper has difficulty with temp vars of let)
This commit is contained in:
Stephen Chang 2011-04-01 17:14:55 -04:00
parent ca4ea39123
commit 89d1a1feb0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/lazy/lazy.rkt
View File

@ -200,7 +200,8 @@
(define-syntax (hidden-! stx) (define-syntax (hidden-! stx)
(syntax-case 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))])) (append skipto/cdr skipto/second))]))
(define-syntax (!*app stx) (define-syntax (!*app stx)
@ -223,7 +224,10 @@
(with-syntax ([lazy (syntax/loc stx (p y ...))] (with-syntax ([lazy (syntax/loc stx (p y ...))]
[strict (syntax/loc stx (p (hidden-! y) ...))]) [strict (syntax/loc stx (p (hidden-! y) ...))])
(quasisyntax/loc stx (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))
(if (lazy? p) lazy strict))))))])) (if (lazy? p) lazy strict))))))]))