Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (with-output-to-file "testfile.ss"
- (lambda ()
- (printf "(\n")
- (let loop ([i 1000])
- (unless (zero? i)
- (printf "x ")
- (loop (sub1 i))))
- (printf ")\n"))
- 'truncate)
- (define sfd
- (let* ([ip (open-file-input-port "testfile.ss")]
- [sfd (make-source-file-descriptor "testfile.ss" ip)])
- (close-port ip)
- sfd))
- (parameterize (#;[current-make-source-object
- (lambda (sfd bfp efp)
- (make-source-object sfd bfp efp))])
- (call-with-input-file "testfile.ss"
- (lambda (in)
- (time
- (let loop ([j 100000])
- (unless (zero? j)
- (file-position in 0)
- (get-datum/annotations in sfd 0)
- (loop (sub1 j))))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement