← Back to branch summary

~hypedyn-team/hypedyn/2.3-experimental

« back to all changes in this revision

Viewing changes to src/hypedyn/datastructure.scm

  • Committer: Chuah Teong Leong
  • Date: 2014-01-03 16:08:09 UTC
  • Revision ID: teongleong@gmail.com-20140103160809-0v44thf8cuu7eem3
removed some debug print statements; [partial bugfix] #1258157 lagginess is caused by two things, one the time to build the sexpr of the whole story, second the time to write to the file. By switching to write-simple instead of write in kawa I was able to make the saving process to be fast

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/hypedyn/datastructure.scm
223
223
                  (obj-put this-obj 'start-index (lambda (self) start-index))
224
224
                  (obj-put this-obj 'set-start-index!
225
225
                           (lambda (self new-start-index)
226
 
                             (display "[setting start index] ")(display new-start-index)(newline)
227
226
                             (set! start-index new-start-index)
228
227
                             ;(ht-set-dirty!)
229
228
                             ))
230
229
                  (obj-put this-obj 'end-index (lambda (self) end-index))
231
230
                  (obj-put this-obj 'set-end-index!
232
231
                           (lambda (self new-end-index)
233
 
                             (display "[setting end index] ")(display new-end-index)(newline)
234
232
                             (set! end-index new-end-index)
235
233
                             ;(ht-set-dirty!)
236
234
                             ))