add make-lazy-proc to lazy stepper skipped fns list

This commit is contained in:
Stephen Chang 2011-07-13 18:54:27 -04:00
parent 355050acde
commit 3f79c37ce6

View File

@ -59,6 +59,7 @@
[(#%plain-app f arg) [(#%plain-app f arg)
(let ([fn (syntax->datum #'f)]) (let ([fn (syntax->datum #'f)])
(or (eq? fn 'lazy-proc) (or (eq? fn 'lazy-proc)
(eq? fn 'make-lazy-proc)
(eq? fn 'force) (eq? fn '!) (eq? fn '!!) (eq? fn 'force) (eq? fn '!) (eq? fn '!!)
(eq? fn '!list) (eq? fn '!!list) (eq? fn '!list) (eq? fn '!!list)
(equal? fn '(#%plain-app parameter-procedure)))) (equal? fn '(#%plain-app parameter-procedure))))